aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1997-05-27 17:06:24 +0000
committerRichard M. Stallman1997-05-27 17:06:24 +0000
commit6be23be63896ed0776a6d23bf481a8ed8002072f (patch)
tree09389ea5604f6c3febbdbcb3262cd55b1236d967
parent5b1a29ab54dd4dea3033c15715062a893d228452 (diff)
downloademacs-6be23be63896ed0776a6d23bf481a8ed8002072f.tar.gz
emacs-6be23be63896ed0776a6d23bf481a8ed8002072f.zip
(browse-url-netscape, browse-url-netscape-sentinel)
(browse-url-netscape-send): Use browse-url-netscape-program, renamed from browse-url-netscape-command.
-rw-r--r--lisp/browse-url.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/browse-url.el b/lisp/browse-url.el
index c4291f6a308..5dce2608674 100644
--- a/lisp/browse-url.el
+++ b/lisp/browse-url.el
@@ -601,7 +601,7 @@ used instead of browse-url-new-window-p."
601 (let* ((process-environment (browse-url-process-environment)) 601 (let* ((process-environment (browse-url-process-environment))
602 (process (apply 'start-process 602 (process (apply 'start-process
603 (concat "netscape " url) nil 603 (concat "netscape " url) nil
604 browse-url-netscape-command 604 browse-url-netscape-program
605 (append browse-url-netscape-arguments 605 (append browse-url-netscape-arguments
606 (if new-window '("-noraise")) 606 (if new-window '("-noraise"))
607 (list "-remote" 607 (list "-remote"
@@ -619,7 +619,7 @@ used instead of browse-url-new-window-p."
619 ;; Netscape not running - start it 619 ;; Netscape not running - start it
620 (message "Starting Netscape...") 620 (message "Starting Netscape...")
621 (apply 'start-process (concat "netscape" url) nil 621 (apply 'start-process (concat "netscape" url) nil
622 browse-url-netscape-command 622 browse-url-netscape-program
623 (append browse-url-netscape-startup-arguments (list url)))))) 623 (append browse-url-netscape-startup-arguments (list url))))))
624 624
625(defun browse-url-netscape-reload () 625(defun browse-url-netscape-reload ()
@@ -631,7 +631,7 @@ used instead of browse-url-new-window-p."
631 "Send a remote control command to Netscape." 631 "Send a remote control command to Netscape."
632 (let* ((process-environment (browse-url-process-environment))) 632 (let* ((process-environment (browse-url-process-environment)))
633 (apply 'start-process "netscape" nil 633 (apply 'start-process "netscape" nil
634 browse-url-netscape-command 634 browse-url-netscape-program
635 (append browse-url-netscape-arguments 635 (append browse-url-netscape-arguments
636 (list "-remote" command))))) 636 (list "-remote" command)))))
637 637