(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