# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 837219128 0
# Node ID e73cd7ff1d4a01fed8e423f8bb0d1a1631dec340
# Parent  f2f66323f14a24368a9a36cfe04c665f7951fcbb
(browse-url-netscape-program): New variable.
(browse-url-mosaic-program): New variable.
(browse-url-mosaic, browse-url-netscape): Use them.

diff -r f2f66323f14a -r e73cd7ff1d4a lisp/browse-url.el
--- a/lisp/browse-url.el	Fri Jul 12 07:34:20 1996 +0000
+++ b/lisp/browse-url.el	Sat Jul 13 00:52:08 1996 +0000
@@ -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 @@
 \\[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 @@
                        (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 @@
       (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 @@
           )
       ;; 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"))))