Merge branch 'master' into mth13--qmark_command_omits_documentation_if_given_name_argument

Author: MattHeffron

library/BROWSER

@@ -1,16 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "26-Apr-2023 12:41:36" {DSK}<home>larry>il>medley>library>BROWSER.;6
 29801  
+
(FILECREATED "21-May-2024 18:46:31" {LIB}BROWSER.;2
 29502  
 
-      :EDIT-BY "lmm"
+      :EDIT-BY "mth"
 
-      :CHANGES-TO (FNS BROWSER.LEFTFN NUMSPATHS STBROWSER MSPATHS.DISPATCH BROWSER 
-                       BROWSER.WHENFNSCHANGED BRPATHS1 GET.BROWSE.PP.WINDOW 
-                       GET.BROWSE.DESCRIBE.WINDOW BROWSEPP PPREPAINTFN PPRESHAPEFN DESCRIBEREPAINTFN
-                       BROWSERDESCRIBE BROWSER.MIDDLEFN DEDITPROCESSRUNNINGP REDRAWBROWSEGRAPH)
-                  (VARS BROWSERCOMS BROWSER.BORDERS)
+      :CHANGES-TO (FNS BROWSER.LEFTFN)
 
-      :PREVIOUS-DATE "15-Apr-2023 18:55:36" {DSK}<home>larry>il>medley>library>BROWSER.;1)
+      :PREVIOUS-DATE "26-Apr-2023 12:41:36" {LIB}BROWSER.;1)
 
 
 (PRETTYCOMPRINT BROWSERCOMS)
@@ -202,28 +198,29 @@
                 (RETURN ENTRY])
 
 (BROWSER.LEFTFN

-  [LAMBDA (NODE NWINDOW)
                                     (* ; "Edited 26-Apr-2023 12:41 by lmm")


+  [LAMBDA (NODE NWINDOW)
                                     (* ; "Edited 21-May-2024 18:40 by mth")


+                                                             (* ; "Edited 26-Apr-2023 12:41 by lmm")


                                                              (* ; "Edited 31-Mar-87 11:16 by jop")

                                                              (* ; 
 
                                                 "function that is applied upon selection of a node.")

     (PROG (FN SELECTION)
-          (IF
 (NULL NODE)
-              THEN
 (RETURN)
+          (if
 (NULL NODE)
+              then
 (RETURN)
                    (MOVEW NWINDOW)                           (* ; 
 
                                                       " really want to just drag the content around")

                    (RETURN))
-          (IF
 (NULL (SETQ FN (FETCH
 NODELABEL OF
 NODE)))
-              THEN
 (RETURN))
-          [SETQ SELECTION (MENU (CREATE
 MENU
+          (if
 (NULL (SETQ FN (fetch
 NODELABEL of
 NODE)))
+              then
 (RETURN))
+          [SETQ SELECTION (MENU (create
 MENU
                                        ITEMS _ '(CallsFrom CallsTo Edit Show InspectCode]
 
      (* ;; "Mot implemented: Ignore Avoid")

 
           (DESTRUCTURING-BIND (FROM
 TO
 INVERTED AVOIDING SEPARATE NOTRACE MARKING DEPTH)
-                 (FOR
 BW IN
 BROWSERWINDOWS WHEN
 (EQ (FETCH
 (BROWSEWIN WINDOW) OF
 BW)
-                                                    NWINDOW) DO
 (RETURN (FETCH
 (BROWSEWIN ARGS)
-                                                                           OF
 BW))
-                    FINALLY
 (PROMPTPRINT "No browser window found for" FN)
+                 (for
 BW in
 BROWSERWINDOWS when
 (EQ (fetch
 (BROWSEWIN WINDOW) of
 BW)
+                                                    NWINDOW) do
 (RETURN (fetch
 (BROWSEWIN ARGS)
+                                                                           of
 BW))
+                    finally
 (PROMPTPRINT "No browser window found for" FN)
                           (RETURN))
 
                  (* ;; "Now we have the arguments to MSPATHS .. insert this node?")

@@ -245,11 +242,11 @@
                      NIL
                      (Ignore                                 (* ; "local ignore")
)
                      (Avoid                                  (* ; " global ignore")
)
-                     (Edit (ED FN (IF
 (HASDEF FN 'FNS)
-                                      THEN
 'FNS
-                                    ELSEIF
 (HASDEF FN 'FUNCTIONS)
-                                      THEN
 'FUNCTIONS
-                                    ELSE
 (PROMPTPRINT FN "no definition")
+                     (Edit (ED FN (if
 (HASDEF FN 'FNS)
+                                      then
 '(FNS :DONTWAIT)
+                                    elseif
 (HASDEF FN 'FUNCTIONS)
+                                      then
 '(FUNCTIONS :DONTWAIT)
+                                    else
 (PROMPTPRINT FN "no definition")
                                          NIL)))
                      (Show (CL:UNLESS (EQ FN (WINDOWPROP (GET.BROWSE.PP.WINDOW
)
                                                     'FNBROWSED))
@@ -544,10 +541,10 @@
 (BROWSER
 T)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (2085 28437 (MSPATHS.DISPATCH 2095 . 2569) (NUMSPATHS 2571 . 6158) (BROWSER 6160 . 6731)
- (BROWSER.WHENFNSCHANGED 6733 . 8518) (BRPATHS1 8520 . 11171) (BROWSER.LEFTFN 11173 . 14599) (
-GET.BROWSE.PP.WINDOW 14601 . 15426) (GET.BROWSE.DESCRIBE.WINDOW 15428 . 16176) (BROWSEPP 16178 . 17052
-) (PPREPAINTFN 17054 . 20180) (PPRESHAPEFN 20182 . 20358) (DESCRIBEREPAINTFN 20360 . 21064) (
-BROWSERDESCRIBE 21066 . 21808) (BROWSER.MIDDLEFN 21810 . 23125) (DEDITPROCESSRUNNINGP 23127 . 23382) (
-REDRAWBROWSEGRAPH 23384 . 24148) (STBROWSER 24150 . 28435)))))
+  (FILEMAP (NIL (1653 28138 (MSPATHS.DISPATCH 1663 . 2137) (NUMSPATHS 2139 . 5726) (BROWSER 5728 . 6299)
+ (BROWSER.WHENFNSCHANGED 6301 . 8086) (BRPATHS1 8088 . 10739) (BROWSER.LEFTFN 10741 . 14300) (
+GET.BROWSE.PP.WINDOW 14302 . 15127) (GET.BROWSE.DESCRIBE.WINDOW 15129 . 15877) (BROWSEPP 15879 . 16753
+) (PPREPAINTFN 16755 . 19881) (PPRESHAPEFN 19883 . 20059) (DESCRIBEREPAINTFN 20061 . 20765) (
+BROWSERDESCRIBE 20767 . 21509) (BROWSER.MIDDLEFN 21511 . 22826) (DEDITPROCESSRUNNINGP 22828 . 23083) (
+REDRAWBROWSEGRAPH 23085 . 23849) (STBROWSER 23851 . 28136)))))
 STOP