diff options
| author | Richard M. Stallman | 1997-05-27 17:06:24 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-05-27 17:06:24 +0000 |
| commit | 6be23be63896ed0776a6d23bf481a8ed8002072f (patch) | |
| tree | 09389ea5604f6c3febbdbcb3262cd55b1236d967 | |
| parent | 5b1a29ab54dd4dea3033c15715062a893d228452 (diff) | |
| download | emacs-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.el | 6 |
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 | ||