diff --git a/lispusers/TEDIT-PF-SEE b/lispusers/TEDIT-PF-SEE
index 6c19e0bc..4d1845a9 100644
--- a/lispusers/TEDIT-PF-SEE
+++ b/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
diff --git a/lispusers/TEDIT-PF-SEE.LCOM b/lispusers/TEDIT-PF-SEE.LCOM
index 94a0d8d0..5a451111 100644
Binary files a/lispusers/TEDIT-PF-SEE.LCOM and b/lispusers/TEDIT-PF-SEE.LCOM differ
