andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(browse-url-netscape-program): New variable.

Browse source 
(browse-url-mosaic-program): New variable.
(browse-url-mosaic, browse-url-netscape): Use them.
This commit is contained in:
Karl Heuer 1996-07-13 00:52:08 +00:00
parent 39d1a2ce04
commit 1f0c496bc5
1 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/browse-url.el
View file

@ -266,6 +266,9 @@
Used by the `browse-url-at-point', `browse-url-at-mouse', and
`browse-url-of-file' commands.")
(defvar browse-url-netscape-program "netscape"
"*The name for invoking Netscape.")
(defvar browse-url-netscape-arguments nil
"*A list of strings to pass to Netscape as arguments.")
@ -275,6 +278,9 @@ Passing an interactive argument to \\[browse-url-netscape] or
\\[browse-url-cci] reverses the effect of this variable. Requires
Netscape version 1.1N or later or XMosaic version 2.5 or later.")
(defvar browse-url-mosaic-program "xmosaic"
"*The name for invoking Mosaic.")
(defvar browse-url-mosaic-arguments nil
"*A list of strings to pass to Mosaic as arguments.")
@ -487,7 +493,7 @@ used instead of browse-url-new-window-p."
(list (not (eq (null browse-url-new-window-p)
(null current-prefix-arg))))))
(let ((res
(apply 'call-process "netscape" nil nil nil
(apply 'call-process browse-url-netscape-program nil nil nil
(append browse-url-netscape-arguments
(if new-window '("-noraise"))
(list "-remote"
@ -500,7 +506,7 @@ used instead of browse-url-new-window-p."
(or (zerop res)
(progn ; Netscape not running - start it
(message "Starting Netscape...")
(apply 'start-process "netscape" nil "netscape"
(apply 'start-process "netscape" nil browse-url-netscape-program
(append browse-url-netscape-arguments (list url))))))))
(defun browse-url-netscape-reload ()
@ -541,7 +547,7 @@ Default to the URL around or before point."
)
;; Mosaic not running - start it
(message "Starting Mosaic...")
(apply 'start-process "xmosaic" nil "xmosaic"
(apply 'start-process "xmosaic" nil browse-url-mosaic-program
(append browse-url-mosaic-arguments (list url)))
(message "Starting Mosaic...done"))))