SEDIT-MAN arms Meta-D in SEDIT for man page (#1624)

Initial attempt

lispusers/SEDIT-MAN

@@ -0,0 +1,65 @@
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+
+
(FILECREATED "28-Mar-2024 23:56:13" {WMEDLEY}<lispusers>SEDIT-MAN.;1
 2085   
+
+      :EDIT-BY rmk
+
+      :CHANGES-TO (FNS SEDIT-MAN)
+                  (VARS SEDIT-MANCOMS)
+
+      :PREVIOUS-DATE "28-Mar-2024 23:41:09" {LI}SEDIT-MAN.;6)
+
+
+(PRETTYCOMPRINT SEDIT-MANCOMS)
+
+(RPAQQ SEDIT-MANCOMS

+       ((FNS SEDIT-MAN)
+        (P 
+           (* ;; "THE SCROLL? ARGUMENT IS UNDOCUMENTED.")

+
+           
+           (* ;; "ONE CALL SHOULD ADD BOTH UPPER AND LOWER CASE, LIKE OTHER COMMANDS.  TWO CALLS ADDS 2 EQUIVALENT LINES TO THE MENU.")

+
+           (SEDIT:ADD-COMMAND "Meta,D" (FUNCTION SEDIT-MAN)
+                  NIL "Info" "M-D" "Show man information")
+           (SEDIT:ADD-COMMAND "Meta,d" (FUNCTION SEDIT-MAN)
+                  NIL "Info" "M-D" "Show man information")
+           (SEDIT:RESET-COMMANDS))))
+(DEFINEQ
+
+(SEDIT-MAN

+  [LAMBDA (CONTEXT CHARCODE)
                                 (* ; "Edited 28-Mar-2024 23:52 by rmk")

+
+    (* ;; "IF NOTHING IS SELECTED, SEDIT:GET-SELECTION CAUSES AN ERROR RATHER THAN RETURNING SELTYPE NIL, CONTRARY TO DOCUMENTATION.  SO NLSETQ.")

+
+    (* ;; "CLIPBOARD HAS THE SAME PROBLEM")

+
+    [NLSETQ (CL:MULTIPLE-VALUE-BIND (SEL SELTYPE)
+                   (SEDIT:GET-SELECTION CONTEXT)
+                   (CL:WHEN (AND (EQ T SELTYPE)
+                                 [OR (LITATOM SEL)
+                                     (AND (LISTP SEL)
+                                          (LITATOM (SETQ SEL (CAR SEL]
+                                 SEL)
+                          (GENERIC.MAN.LOOKUP SEL]
+    T])
+)
+
+
+(* ;; "THE SCROLL? ARGUMENT IS UNDOCUMENTED.")

+
+
+
+(* ;; "ONE CALL SHOULD ADD BOTH UPPER AND LOWER CASE, LIKE OTHER COMMANDS.  TWO CALLS ADDS 2 EQUIVALENT LINES TO THE MENU.")

+
+
+(SEDIT:ADD-COMMAND "Meta,D" (FUNCTION SEDIT-MAN)
+       NIL "Info" "M-D" "Show man information")
+
+(SEDIT:ADD-COMMAND "Meta,d" (FUNCTION SEDIT-MAN)
+       NIL "Info" "M-D" "Show man information")
+
+(SEDIT:RESET-COMMANDS)
+(DECLARE%: DONTCOPY
+  (FILEMAP (NIL (899 1656 (SEDIT-MAN 909 . 1654)))))
+STOP