(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)


(FILECREATED "17-Jun-2026 10:15:54" {MEDLEY}<lispusers>SEDIT-MAN.;5
 1859   

      :EDIT-BY rmk

      :CHANGES-TO (FNS SEDIT-MAN)

      :PREVIOUS-DATE "13-Jun-2026 21:03:58" {MEDLEY}<lispusers>SEDIT-MAN.;3)


(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.  ")


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

(SEDIT-MAN

  [LAMBDA (CONTEXT CHARCODE)
                                 (* ; "Edited 17-Jun-2026 10:15 by rmk")


                                                             (* ; "Edited 13-Jun-2026 21:03 by rmk")


    (* ;; "Bring up a man/dinfo page on the current selection")


    (* ;; "CLIPBOARD and TEDIT-PF-SEE have the same problem")


    (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.  ")



(SEDIT:ADD-COMMAND "Meta,D" (FUNCTION SEDIT-MAN)
       NIL "Dinfo" "M-D" "Show Dinfo/man information")

(SEDIT:ADD-COMMAND "Meta,d" (FUNCTION SEDIT-MAN))

(SEDIT:RESET-COMMANDS)
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (777 1516 (SEDIT-MAN 787 . 1514)))))
STOP