Fix 1715 - "structural typo" in output of MANAGER Documentation menu …

…item (#1716)

Fix "structural typo" in output of Documentation menu item

lispusers/MANAGER

@@ -1,13 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "13-Oct-2023 16:41:52" {LU}MANAGER.;3
 112648 
+
(FILECREATED "17-May-2024 09:44:49" {LU}MANAGER.;2
 112772 
 
       :EDIT-BY "mth"
 
       :CHANGES-TO (FNS Manager.DO.COMMAND)
-                  (VARS MANAGERCOMS MANAGER-FILE-OPERATIONS-COMMANDS)
 
-      :PREVIOUS-DATE "10-Oct-2023 11:27:25" {LU}MANAGER.;1)
+      :PREVIOUS-DATE "13-Oct-2023 16:41:52" {LU}MANAGER.;1)
 
 
 (PRETTYCOMPRINT MANAGERCOMS)
@@ -563,7 +562,8 @@ Will load DataBaseFNS if necessary" (SUBITEMS ("All" 'DB
                 YCOORD _ YPOS])
 
 (Manager.DO.COMMAND

-  [LAMBDA (COMMAND ITEM COMSTYPE FILE MENU)
                  (* ; "Edited 13-Oct-2023 16:28 by mth")

+  [LAMBDA (COMMAND ITEM COMSTYPE FILE MENU)
                  (* ; "Edited 17-May-2024 09:41 by mth")


+                                                             (* ; "Edited 13-Oct-2023 16:28 by mth")

     (if
 (EQ COMSTYPE 'FILEVARS)
         then
 (SETQ COMSTYPE 'VARS)                           (* ; "The Manager currently does unnatural things with the FILEVARS type, this is a hack to compensate for it. E.g., editing a FILEVARS = editing the VARS, etc.")

         )
@@ -660,10 +660,10 @@ Will load DataBaseFNS if necessary" (SUBITEMS ("All" 'DB
                                              (printout T .FONT LAMBDAFONT "Description of " ITEM ":"
                                                     .FONT DEFAULTFONT T)
                                              (CL:DESCRIBE ITEM))
-                                          (CLDOC 
-                                             (printout T .FONT LAMBDAFONT "Documentation for " ITEM 
-                                                    ":" .FONT DEFAULTFONT T)
-                                             (CL:DOCUMENTATION ITEM))
+                                          (CLDOC (printout T .FONT LAMBDAFONT "Documentation for " 
+                                                        ITEM ":" .FONT DEFAULTFONT T (
+                                                                                     CL:DOCUMENTATION
+                                                                                      ITEM)))
                                           (FIELDS (printout T .FONT LAMBDAFONT "Fields of " ITEM ":"
                                                          .FONT DEFAULTFONT T (REVERSE (
                                                                                      RECORDFIELDNAMES
@@ -1773,20 +1773,20 @@ Will load DataBaseFNS if necessary" (SUBITEMS ("All" 'DB
 (ADDTOVAR LAMA
 )
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (25676 102848 (MANAGER 25686 . 26485) (MANAGER.RESET 26487 . 28001) (Manager.ADDADV 
-28003 . 29356) (Manager.ADDTOFILES? 29358 . 29636) (Manager.ALTERMARKING 29638 . 31248) (
-Manager.ANCHORED-SET-POSITION 31250 . 32353) (Manager.DO.COMMAND 32355 . 62991) (Manager.HIGHLIGHT 
-62993 . 63290) (Manager.PROMPT 63292 . 63605) (Manager.WINDOW 63607 . 64240) (
-Manager.insurefilehighlights 64242 . 65313) (Manager.CHANGED? 65315 . 65864) (Manager.CHECKFILE 65866
- . 66965) (Manager.COLLECTCOMS 66967 . 68405) (Manager.COMS.WSF 68407 . 71077) (Manager.COMSOPEN 71079
- . 75817) (Manager.COMSUPDATE 75819 . 76911) (Manager.HIGHLIGHTED 76913 . 77219) (
-Manager.INSUREHIGHLIGHTS 77221 . 77779) (Manager.FILECHANGES 77781 . 78080) (Manager.FILELSTCHANGED? 
-78082 . 78410) (Manager.FILESUBTYPES 78412 . 79050) (Manager.GET.ENVIRONMENT 79052 . 81590) (
-Manager.GETFILE 81592 . 83906) (Manager.INTITLE? 83908 . 84586) (Manager.MAIN.WSF 84588 . 87232) (
-Manager.MAINCLOSE 87234 . 88344) (Manager.MAINMENUITEMS 88346 . 89423) (Manager.MAINOPEN 89425 . 94818
-) (Manager.MAINUPDATE 94820 . 95456) (Manager.MAKEFILE.ADV 95458 . 96494) (Manager.MENUCOLUMNS 96496
- . 97300) (Manager.MENUHASITEM 97302 . 97659) (Manager.MENUITEMS 97661 . 97906) (
-Manager.REMOVE.DUPLICATE.ADVICE 97908 . 99514) (Manager.RESETSUBITEMS 99516 . 100753) (
-Manager.SET-ANCHOR 100755 . 101074) (Manager.SORT.COMS 101076 . 101608) (Manager.SORTBYCOLUMN 101610
- . 102846)))))
+  (FILEMAP (NIL (25606 102972 (MANAGER 25616 . 26415) (MANAGER.RESET 26417 . 27931) (Manager.ADDADV 
+27933 . 29286) (Manager.ADDTOFILES? 29288 . 29566) (Manager.ALTERMARKING 29568 . 31178) (
+Manager.ANCHORED-SET-POSITION 31180 . 32283) (Manager.DO.COMMAND 32285 . 63115) (Manager.HIGHLIGHT 
+63117 . 63414) (Manager.PROMPT 63416 . 63729) (Manager.WINDOW 63731 . 64364) (
+Manager.insurefilehighlights 64366 . 65437) (Manager.CHANGED? 65439 . 65988) (Manager.CHECKFILE 65990
+ . 67089) (Manager.COLLECTCOMS 67091 . 68529) (Manager.COMS.WSF 68531 . 71201) (Manager.COMSOPEN 71203
+ . 75941) (Manager.COMSUPDATE 75943 . 77035) (Manager.HIGHLIGHTED 77037 . 77343) (
+Manager.INSUREHIGHLIGHTS 77345 . 77903) (Manager.FILECHANGES 77905 . 78204) (Manager.FILELSTCHANGED? 
+78206 . 78534) (Manager.FILESUBTYPES 78536 . 79174) (Manager.GET.ENVIRONMENT 79176 . 81714) (
+Manager.GETFILE 81716 . 84030) (Manager.INTITLE? 84032 . 84710) (Manager.MAIN.WSF 84712 . 87356) (
+Manager.MAINCLOSE 87358 . 88468) (Manager.MAINMENUITEMS 88470 . 89547) (Manager.MAINOPEN 89549 . 94942
+) (Manager.MAINUPDATE 94944 . 95580) (Manager.MAKEFILE.ADV 95582 . 96618) (Manager.MENUCOLUMNS 96620
+ . 97424) (Manager.MENUHASITEM 97426 . 97783) (Manager.MENUITEMS 97785 . 98030) (
+Manager.REMOVE.DUPLICATE.ADVICE 98032 . 99638) (Manager.RESETSUBITEMS 99640 . 100877) (
+Manager.SET-ANCHOR 100879 . 101198) (Manager.SORT.COMS 101200 . 101732) (Manager.SORTBYCOLUMN 101734
+ . 102970)))))
 STOP