Merge branch 'master' into rmk175--Offline-font-construction

lispusers/HELPSYS

@@ -1,13 +1,12 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
 
-
(FILECREATED "27-Jan-2026 13:21:10" {WMEDLEY}<lispusers>HELPSYS.;21
 88654  
+
(FILECREATED "20-Apr-2026 08:07:50" {MEDLEY}<lispusers>HELPSYS.;24
 89018  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS DOCS.LOOKUP GENERIC.MAN.LOOKUP)
-                  (VARS HELPSYSCOMS)
+      :CHANGES-TO (FNS REPO.LOOKUP)
 
-      :PREVIOUS-DATE " 5-May-2025 22:04:32" {WMEDLEY}<lispusers>HELPSYS.;15)
+      :PREVIOUS-DATE "27-Jan-2026 13:21:10" {MEDLEY}<lispusers>HELPSYS.;21)
 
 
 (PRETTYCOMPRINT HELPSYSCOMS)
@@ -340,21 +339,27 @@
                       else
 "git web--browse"])
 
 (REPO.LOOKUP

-  [LAMBDA (ENTRY TYPES)
                                      (* ; "Edited 13-Jan-2023 10:46 by lmm")


+  [LAMBDA (ENTRY TYPES)
                                      (* ; "Edited 20-Apr-2026 08:06 by rmk")


+                                                             (* ; "Edited 13-Jan-2023 10:46 by lmm")


                                                              (* ; "Edited 16-Aug-2022 16:26 by lmm")

-    (for
 FL in
 (UNION (WHEREIS ENTRY (OR TYPES HELPSYS.REPO.TYPES)
-                             T)
-                      (LIST ENTRY)) bind
 POS FND
+    (for
 FL POS FND TSTREAM in
 (UNION (WHEREIS ENTRY (OR TYPES HELPSYS.REPO.TYPES)
+                                             T)
+                                      (LIST ENTRY))
        when
 [SETQ FND (OR (FINDFILE-WITH-EXTENSIONS FL NIL '(TEDIT TXT TED))
                           (AND (SETQ POS (STRPOS "-" FL))
                                (FINDFILE-WITH-EXTENSIONS (SUBSTRING FL 1 (CL:1- POS))
                                       NIL
                                       '(TEDIT TXT TTY TED]
-       join
 (CL:WITH-OPEN-FILE (STR (PATHNAME FND)
-                                    :DIRECTION :INPUT)
-                   (CL:WHEN (SETQ POS (FFILEPOS ENTRY STR))
-                       (TEDIT-SEE STR NIL NIL (CL:FORMAT NIL "~a [~a]" FL ENTRY))
-                       (LIST FL))])
+       collect
 (SETQ TSTREAM (OPENTEXTSTREAM FND))
+             [TEDIT TSTREAM NIL NIL `(READONLY T LEAVETTY T FONT ,DEFAULTFONT TITLE
+                                            ,(CL:IF (EQ FL ENTRY)
+                                                 FL
+                                                 (CONCAT ENTRY " on " FL))]
+             (CL:UNLESS (EQ FL ENTRY)
+                 (CL:WHEN (SETQ POS (TEDIT.FIND TSTREAM ENTRY))
+                     (TEDIT.SETSEL TSTREAM POS (NCHARS ENTRY))
+                     (TEDIT.NORMALIZECARET TSTREAM)))
+             FL])
 )
 
 (RPAQQ CLHS.INDEX

@@ -1716,14 +1721,14 @@
 
 (PUTPROPS HELPSYS
 FILETYPE
 :FAKE-COMPILE-FILE)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4640 10992 (HELPSYS 4650 . 6491) (IRM.LOOKUP 6493 . 8131) (GENERIC.MAN.LOOKUP 8133 . 
-10001) (IRM.SMART.LOOKUP 10003 . 10159) (IRM.RESET 10161 . 10570) (DOCS.LOOKUP 10572 . 10990)) (11249 
-18568 (CLHS.INDEX 11259 . 14223) (CLHS.LOOKUP 14225 . 16231) (CLHS.OPENER 16233 . 17556) (REPO.LOOKUP 
-17558 . 18566)) (71663 73181 (IRM.GET.DINFOGRAPH 71673 . 72548) (IRM.DISPLAY.REF 72550 . 73179)) (
-73183 73545 (IRM.LOAD-GRAPH 73183 . 73545)) (73870 79374 (IRM.DISPLAY.CREF 73880 . 75594) (
-IRM.CREF.BOX 75596 . 76423) (IRM.PUT.CREF 76425 . 76650) (IRM.GET.CREF 76652 . 77023) (
-IRM.CREF.BUTTONEVENTFN 77025 . 79372)) (79929 88235 (\IRM.GET.REF 79939 . 81270) (\IRM.SMART.REF 81272
- . 83199) (\IRM.CHOOSE.REF 83201 . 84452) (\IRM.WILD.REF 84454 . 85709) (\IRM.WILDCARD 85711 . 86077) 
-(\IRM.WILD.MATCH 86079 . 87309) (\IRM.GET.HASHFILE 87311 . 87774) (\IRM.GET.KEYWORDS 87776 . 88233)) (
-88372 88528 (\IRM.AROUND-EXIT 88372 . 88528)))))
+  (FILEMAP (NIL (4582 10934 (HELPSYS 4592 . 6433) (IRM.LOOKUP 6435 . 8073) (GENERIC.MAN.LOOKUP 8075 . 
+9943) (IRM.SMART.LOOKUP 9945 . 10101) (IRM.RESET 10103 . 10512) (DOCS.LOOKUP 10514 . 10932)) (11191 
+18932 (CLHS.INDEX 11201 . 14165) (CLHS.LOOKUP 14167 . 16173) (CLHS.OPENER 16175 . 17498) (REPO.LOOKUP 
+17500 . 18930)) (72027 73545 (IRM.GET.DINFOGRAPH 72037 . 72912) (IRM.DISPLAY.REF 72914 . 73543)) (
+73547 73909 (IRM.LOAD-GRAPH 73547 . 73909)) (74234 79738 (IRM.DISPLAY.CREF 74244 . 75958) (
+IRM.CREF.BOX 75960 . 76787) (IRM.PUT.CREF 76789 . 77014) (IRM.GET.CREF 77016 . 77387) (
+IRM.CREF.BUTTONEVENTFN 77389 . 79736)) (80293 88599 (\IRM.GET.REF 80303 . 81634) (\IRM.SMART.REF 81636
+ . 83563) (\IRM.CHOOSE.REF 83565 . 84816) (\IRM.WILD.REF 84818 . 86073) (\IRM.WILDCARD 86075 . 86441) 
+(\IRM.WILD.MATCH 86443 . 87673) (\IRM.GET.HASHFILE 87675 . 88138) (\IRM.GET.KEYWORDS 88140 . 88597)) (
+88736 88892 (\IRM.AROUND-EXIT 88736 . 88892)))))
 STOP