TEDIT-PF-SEE: Meta-T defaults to showing the definition in the current file

Author: rmkaplan

lispusers/TEDIT-PF-SEE

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "26-Mar-2025 10:09:16" {WMEDLEY}<lispusers>TEDIT-PF-SEE.;137
 11103  
+
(FILECREATED "14-Apr-2025 22:00:54" {WMEDLEY}<lispusers>TEDIT-PF-SEE.;141
 11757  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS PF-TEDIT)
+      :CHANGES-TO (FNS PF-TEDIT PF-TEDIT-FROM-TEXT)
 
-      :PREVIOUS-DATE "18-Feb-2025 23:39:40" {WMEDLEY}<lispusers>TEDIT-PF-SEE.;136)
+      :PREVIOUS-DATE " 7-Apr-2025 23:03:54" {WMEDLEY}<lispusers>TEDIT-PF-SEE.;140)
 
 
 (PRETTYCOMPRINT TEDIT-PF-SEECOMS)
@@ -16,17 +16,19 @@
         (COMMANDS ts tf)
         (FILES (SYSLOAD)
                REGIONMANAGER VERSIONDEFS)
+        (ALISTS (TEDIT.CHARACTIONS TEDIT-PF)
+               (TEDIT.CHARBINDINGS TEDIT-PF))
         (P (MOVD? 'PFCOPYBYTES 'PFI.MAYBE.PP.DEFINITION)
            (MOVD? 'NILL (FUNCTION TEDIT.SETFUNCTION))
-           (TEDIT.SETFUNCTION "Meta,T" (FUNCTION PF-TEDIT-FROM-TEXT))
-           (TEDIT.SETFUNCTION "Meta,t" (FUNCTION PF-TEDIT-FROM-TEXT)))
+           (TEDIT.INSTALL.CHARBINDINGS))
         (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA)
                                                                              (NLAML)
                                                                              (LAMA])
 (DEFINEQ
 
 (PF-TEDIT

-  [LAMBDA (FN IFILES VERSION REPRINT)
                        (* ; "Edited 26-Mar-2025 10:08 by rmk")


+  [LAMBDA (FN IFILES VERSION REPRINT)
                        (* ; "Edited 14-Apr-2025 22:00 by rmk")


+                                                             (* ; "Edited 26-Mar-2025 10:08 by rmk")


                                                              (* ; "Edited 18-Feb-2025 23:39 by rmk")


                                                              (* ; "Edited  6-Dec-2024 19:15 by rmk")


                                                              (* ; "Edited 27-Aug-2024 13:03 by rmk")


@@ -67,8 +69,8 @@
         (SETQ REPRINT T)
         [SETQ IFILES (LDIFFERENCE IFILES '(t T])
     (CL:UNLESS IFILES
-        (SETQ IFILES (APPEND (WHEREIS FN 'FNS T)
-                            (WHEREIS FN 'FUNCTIONS T))))
+        (SETQ IFILES (WHEREIS FN '(FNS FUNCTIONS)
+                            T)))
     (IF
 IFILES
         THEN
                                                 (* ; "skip compiled files")

 
@@ -151,24 +153,29 @@
       ELSE
 (PRINTOUT T FN " has no function definition" T])
 
 (PF-TEDIT-FROM-TEXT

-  [LAMBDA (TSTREAM TEXTOBJ SEL)
                              (* ; "Edited  5-Dec-2024 22:20 by rmk")


+  [LAMBDA (TSTREAM TEXTOBJ SEL)
                              (* ; "Edited 14-Apr-2025 21:59 by rmk")


+                                                             (* ; "Edited  7-Apr-2025 23:03 by rmk")


+                                                             (* ; "Edited  5-Dec-2024 22:20 by rmk")


                                                              (* ; "Edited 26-Aug-2024 23:13 by rmk")

 
-    (* ;; "The function key for the meta,T and meta,t keys.  This shows in a separate Tedit window the definition in TSTREAM of the function named by the selection SEL.")

+    (* ;; "The function key for the meta,T and meta,t keys.  This shows in a separate Tedit window the definition in TSTREAM of the function named by the selection SEL. If this TEDIT is open on a source file that contains the selected function, that definition is used.  Otherwise, the first file that WHEREIS returns.")

 
     (SETQ TSTREAM (TEXTSTREAM TSTREAM))
     (CL:UNLESS SEL
         (SETQ SEL (TEDIT.GETSEL TSTREAM)))
-    (LET [[FILENAME (OR (TEXTPROP TSTREAM 'FILENAME)
+    (LET ([THISFILE (OR (TEXTPROP TSTREAM 'FILENAME)
                         (AND (\TEDIT.PRIMARYPANE TSTREAM)
                              (CADR (WINDOWPROP (\TEDIT.PRIMARYPANE TSTREAM TSTREAM)
                                           'TF]
-          (FN (MKATOM (TEDIT.SEL.AS.STRING TSTREAM SEL]
+          (FN (MKATOM (TEDIT.SEL.AS.STRING TSTREAM SEL)))
+          ALLFILES)
          (if
 (EQ 0 (NCHARS FN))
              then
 (TEDIT.PROMPTPRINT TSTREAM "Please select a function to display" T)
-           elseif
 FILENAME
-             then
 [PF-TEDIT
 FN (CAR (MEMB (FILENAMEFIELD FILENAME)
-                                          (WHEREIS FN NIL T]
+           elseif
 (SETQ ALLFILES (WHEREIS FN '(FNS FUNCTIONS)
+                                        T))
+             then
 (PF-TEDIT
 FN (CAR (OR (MEMB (FILENAMEFIELD THISFILE)
+                                              ALLFILES)
+                                        ALLFILES)))
            else
 (TEDIT.PROMPTPRINT TSTREAM (CONCAT FN " not found")
                        T])
 )
@@ -189,13 +196,15 @@
 (FILESLOAD (SYSLOAD)
        REGIONMANAGER VERSIONDEFS)
 
+(ADDTOVAR TEDIT.CHARACTIONS
 (TEDIT-PF PF-TEDIT-FROM-TEXT))
+
+(ADDTOVAR TEDIT.CHARBINDINGS
 (TEDIT-PF "Meta,t" "Meta,T"))
+
 (MOVD? 'PFCOPYBYTES 'PFI.MAYBE.PP.DEFINITION)
 
 (MOVD? 'NILL (FUNCTION TEDIT.SETFUNCTION))
 
-(TEDIT.SETFUNCTION "Meta,T" (FUNCTION PF-TEDIT-FROM-TEXT))
-
-(TEDIT.SETFUNCTION "Meta,t" (FUNCTION PF-TEDIT-FROM-TEXT))
+(TEDIT.INSTALL.CHARBINDINGS)
 (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 
 
 (ADDTOVAR NLAMA
 )
@@ -205,5 +214,5 @@
 (ADDTOVAR LAMA
 )
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1007 10079 (PF-TEDIT 1017 . 8865) (PF-TEDIT-FROM-TEXT 8867 . 10077)))))
+  (FILEMAP (NIL (1017 10695 (PF-TEDIT 1027 . 8961) (PF-TEDIT-FROM-TEXT 8963 . 10693)))))
 STOP