diff options
| author | Karl Heuer <kwzh@gnu.org> | 1996-07-13 00:52:08 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1996-07-13 00:52:08 +0000 |
| commit | 7c09bd3540057a6243b890ce56e9df840ae8842b (patch) | |
| tree | 6d44a5de59bae9dc974ab96f2a00c57899a189fd | |
| parent | a741f86448873766cd2909d500c9682a6b4bca42 (diff) | |
| download | emacs-7c09bd3540057a6243b890ce56e9df840ae8842b.tar.gz | |
(browse-url-netscape-program): New variable.
(browse-url-mosaic-program): New variable.
(browse-url-mosaic, browse-url-netscape): Use them.
| -rw-r--r-- | lisp/browse-url.el | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/lisp/browse-url.el b/lisp/browse-url.el index 97dfd36726c..445918632a6 100644 --- a/lisp/browse-url.el +++ b/lisp/browse-url.el @@ -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")))) |