put back in IRM.SMART.LOOKUP needed for helpsys from menu (#1251)

lispusers/HELPSYS

@@ -1,17 +1,14 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "13-Jan-2023 10:46:39" {DSK}<home>larry>il>medley>lispusers>HELPSYS.;2
 87610  
+
(FILECREATED "16-Jun-2023 14:38:33" {DSK}<home>larry>il>medley>lispusers>HELPSYS.;11
 87625  
+
+      :EDIT-BY "lmm"
 
       :CHANGES-TO (VARS HELPSYSCOMS)
-                  (FNS REPO.LOOKUP)
 
-      :PREVIOUS-DATE "12-Oct-2022 18:33:26" {DSK}<home>larry>il>medley>lispusers>HELPSYS.;1)
+      :PREVIOUS-DATE "13-Jan-2023 10:46:39" {DSK}<home>larry>il>medley>lispusers>HELPSYS.;10)
 
 
-(* ; "
-Copyright (c) 1985-1987, 2020, 2022-2023 by Xerox Corporation.
-")
-
 (PRETTYCOMPRINT HELPSYSCOMS)
 
 (RPAQQ HELPSYSCOMS

@@ -20,7 +17,7 @@ Copyright (c) 1985-1987, 2020, 2022-2023 by Xerox Corporation.
         (DECLARE%: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP)
                                                 DINFO HASH))
         [COMS (COMMANDS "man")
-              (FNS HELPSYS IRM.LOOKUP GENERIC.MAN.LOOKUP IRM.RESET)
+              (FNS HELPSYS IRM.LOOKUP GENERIC.MAN.LOOKUP IRM.SMART.LOOKUP IRM.RESET)
               (INITVARS (IRM.HOST&DIR)
                      (IRM.HASHFILE.NAME))
               (GLOBALVARS IRM.HOST&DIR IRM.HASHFILE.NAME)
@@ -97,7 +94,8 @@ Copyright (c) 1985-1987, 2020, 2022-2023 by Xerox Corporation.
        DINFO HASH)
 )
 
-(DEFCOMMAND "man" (ENTRY) "Lookup ENTRY in the IRM."
+(DEFCOMMAND "man"
 (ENTRY)
+   "Lookup ENTRY in the IRM."
    (GENERIC.MAN.LOOKUP
 ENTRY))
 (DEFINEQ
 
@@ -197,6 +195,10 @@ Copyright (c) 1985-1987, 2020, 2022-2023 by Xerox Corporation.
       else
 (APPEND (IRM.LOOKUP
 KEYWORD TYPE GRAPH T)
                   (REPO.LOOKUP
 KEYWORD])
 
+(IRM.SMART.LOOKUP

+  [LAMBDA (KEYWORD GRAPH)                                    (* drc%: " 6-Jan-86 14:50")

+    (IRM.LOOKUP
 KEYWORD NIL GRAPH T])
+
 (IRM.RESET

   [LAMBDA NIL                                                (* drc%: "27-Jan-86 11:19")

     (if
 (type?
 DINFOGRAPH IRM.DINFOGRAPH)
@@ -1697,15 +1699,15 @@ Copyright (c) 1985-1987, 2020, 2022-2023 by Xerox Corporation.
 (ADDTOVAR AROUNDEXITFNS
 \IRM.AROUND-EXIT)
 
 (PUTPROPS HELPSYS
 FILETYPE
 :FAKE-COMPILE-FILE)
-(PUTPROPS HELPSYS COPYRIGHT ("Xerox Corporation" 1985 1986 1987 2020 2022 2023))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4671 10246 (HELPSYS 4681 . 6522) (IRM.LOOKUP 6524 . 8162) (GENERIC.MAN.LOOKUP 8164 . 
-9833) (IRM.RESET 9835 . 10244)) (10503 17450 (CLHS.INDEX 10513 . 13211) (CLHS.LOOKUP 13213 . 15113) (
-CLHS.OPENER 15115 . 16438) (REPO.LOOKUP 16440 . 17448)) (70538 72056 (IRM.GET.DINFOGRAPH 70548 . 71423
-) (IRM.DISPLAY.REF 71425 . 72054)) (72058 72420 (IRM.LOAD-GRAPH 72058 . 72420)) (72745 78249 (
-IRM.DISPLAY.CREF 72755 . 74469) (IRM.CREF.BOX 74471 . 75298) (IRM.PUT.CREF 75300 . 75525) (
-IRM.GET.CREF 75527 . 75898) (IRM.CREF.BUTTONEVENTFN 75900 . 78247)) (78804 87110 (\IRM.GET.REF 78814
- . 80145) (\IRM.SMART.REF 80147 . 82074) (\IRM.CHOOSE.REF 82076 . 83327) (\IRM.WILD.REF 83329 . 84584)
- (\IRM.WILDCARD 84586 . 84952) (\IRM.WILD.MATCH 84954 . 86184) (\IRM.GET.HASHFILE 86186 . 86649) (
-\IRM.GET.KEYWORDS 86651 . 87108)) (87247 87403 (\IRM.AROUND-EXIT 87247 . 87403)))))
+  (FILEMAP (NIL (4609 10342 (HELPSYS 4619 . 6460) (IRM.LOOKUP 6462 . 8100) (GENERIC.MAN.LOOKUP 8102 . 
+9771) (IRM.SMART.LOOKUP 9773 . 9929) (IRM.RESET 9931 . 10340)) (10599 17546 (CLHS.INDEX 10609 . 13307)
+ (CLHS.LOOKUP 13309 . 15209) (CLHS.OPENER 15211 . 16534) (REPO.LOOKUP 16536 . 17544)) (70634 72152 (
+IRM.GET.DINFOGRAPH 70644 . 71519) (IRM.DISPLAY.REF 71521 . 72150)) (72154 72516 (IRM.LOAD-GRAPH 72154
+ . 72516)) (72841 78345 (IRM.DISPLAY.CREF 72851 . 74565) (IRM.CREF.BOX 74567 . 75394) (IRM.PUT.CREF 
+75396 . 75621) (IRM.GET.CREF 75623 . 75994) (IRM.CREF.BUTTONEVENTFN 75996 . 78343)) (78900 87206 (
+\IRM.GET.REF 78910 . 80241) (\IRM.SMART.REF 80243 . 82170) (\IRM.CHOOSE.REF 82172 . 83423) (
+\IRM.WILD.REF 83425 . 84680) (\IRM.WILDCARD 84682 . 85048) (\IRM.WILD.MATCH 85050 . 86280) (
+\IRM.GET.HASHFILE 86282 . 86745) (\IRM.GET.KEYWORDS 86747 . 87204)) (87343 87499 (\IRM.AROUND-EXIT 
+87343 . 87499)))))
 STOP