Merge pull request #1420 from Interlisp/fgh_ShellBrowserGit

Fix minor issue in ShellBrowser - when using the git path was missing the web--browse subcommand.

library/UNIXUTILS

@@ -1,12 +1,11 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "11-Nov-2023 09:06:39" {DSK}<home>larry>il>medley>library>UNIXUTILS.;2
 16644  
+
(FILECREATED "13-Nov-2023 12:57:10" {DSK}<home>frank>il>medley>gmedley>library>UNIXUTILS.;26
 16663  
 
-      :EDIT-BY "lmm"
+      :CHANGES-TO (FNS ShellBrowser)
 
-      :CHANGES-TO (VARS UNIXUTILSCOMS)
+      :PREVIOUS-DATE "11-Nov-2023 09:06:39" {DSK}<home>frank>il>medley>gmedley>library>UNIXUTILS.;25
-
+)
-      :PREVIOUS-DATE "10-Nov-2023 21:59:02" {DSK}<home>larry>il>medley>library>UNIXUTILS.;1)
 
 
 (PRETTYCOMPRINT UNIXUTILSCOMS)
@@ -81,7 +80,7 @@
                                       then
 
                                            (* ;; " Systems with git installed")

 
-                                           CMDPATH
+                                           (CONCAT CMDPATH " web--browse")
                                     elseif
 (SETQ CMDPATH (ShellWhich
 "lynx"))
                                       then
 
                                            (* ;; " Systems with lynx installed")

@@ -319,7 +318,7 @@
 
 (PUTPROPS UNIXUTILS
 FILETYPE
 CL:COMPILE-FILE)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1151 1524 (ShellCommand 1151 . 1524)) (1526 1923 (ShellWhich 1526 . 1923)) (2013 16566 
+  (FILEMAP (NIL (1146 1519 (ShellCommand 1146 . 1519)) (1521 1918 (ShellWhich 1521 . 1918)) (2008 16585 
-(ShellBrowser 2023 . 3771) (ShellBrowse 3773 . 4458) (ShellOpener 4460 . 6148) (ShellOpen 6150 . 11305
+(ShellBrowser 2018 . 3790) (ShellBrowse 3792 . 4477) (ShellOpener 4479 . 6167) (ShellOpen 6169 . 11324
-) (PROCESS-COMMAND 11307 . 11920) (SLASHIT 11922 . 13964) (UNIX-FILE-NAME 13966 . 16564)))))
+) (PROCESS-COMMAND 11326 . 11939) (SLASHIT 11941 . 13983) (UNIX-FILE-NAME 13985 . 16583)))))
 STOP