Fix the git case in ShellBrowser. Was missing the web--browse argument.
This commit is contained in:
parent
05f3ad19eb
commit
19ceac6515
@ -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.
Loading…
x
Reference in New Issue
Block a user