1
0
mirror of synced 2026-01-12 00:42:56 +00:00

Fix the git case in ShellBrowser. Was missing the web--browse argument.

This commit is contained in:
Frank Halasz 2023-11-13 13:04:16 -08:00
parent 05f3ad19eb
commit 19ceac6515
2 changed files with 8 additions and 9 deletions

View File

@ -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 "10-Nov-2023 21:59:02" {DSK}<home>larry>il>medley>library>UNIXUTILS.;1)
:PREVIOUS-DATE "11-Nov-2023 09:06:39" {DSK}<home>frank>il>medley>gmedley>library>UNIXUTILS.;25
)
(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
(ShellBrowser 2023 . 3771) (ShellBrowse 3773 . 4458) (ShellOpener 4460 . 6148) (ShellOpen 6150 . 11305
) (PROCESS-COMMAND 11307 . 11920) (SLASHIT 11922 . 13964) (UNIX-FILE-NAME 13966 . 16564)))))
(FILEMAP (NIL (1146 1519 (ShellCommand 1146 . 1519)) (1521 1918 (ShellWhich 1521 . 1918)) (2008 16585
(ShellBrowser 2018 . 3790) (ShellBrowse 3792 . 4477) (ShellOpener 4479 . 6167) (ShellOpen 6169 . 11324
) (PROCESS-COMMAND 11326 . 11939) (SLASHIT 11941 . 13983) (UNIX-FILE-NAME 13985 . 16583)))))
STOP

Binary file not shown.