diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-01-25 20:14:38 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-01-25 20:14:38 +0000 |
| commit | 1a58b2dc0da42e4b8bd2a9c4167470511ac16df2 (patch) | |
| tree | 537ec6557d9ecd174200ca09019ffe1672317a01 /lisp/browse-url.el | |
| parent | e6e57b1b1d1f9a5a46a21d83f21efbf075ec99d2 (diff) | |
| download | emacs-1a58b2dc0da42e4b8bd2a9c4167470511ac16df2.tar.gz | |
(browse-url-netscape): Check for call-process returning a string.
Diffstat (limited to 'lisp/browse-url.el')
| -rw-r--r-- | lisp/browse-url.el | 29 |
1 files changed, 16 insertions, 13 deletions
diff --git a/lisp/browse-url.el b/lisp/browse-url.el index ae4cc5d4d19..cb440398b54 100644 --- a/lisp/browse-url.el +++ b/lisp/browse-url.el @@ -486,19 +486,22 @@ used instead of browse-url-new-window-p." (interactive (append (browse-url-interactive-arg "Netscape URL: ") (list (not (eq (null browse-url-new-window-p) (null current-prefix-arg)))))) - (or (zerop - (apply 'call-process "netscape" nil nil nil - (append browse-url-netscape-arguments - (if new-window '("-noraise")) - (list "-remote" - (concat "openURL(" url - (if new-window ",new-window") - ")"))))) - (progn ; Netscape not running - start it - (message "Starting Netscape...") - (apply 'start-process "netscape" nil "netscape" - (append browse-url-netscape-arguments (list url))) - (message "Starting Netscape...done")))) + (let ((res + (apply 'call-process "netscape" nil nil nil + (append browse-url-netscape-arguments + (if new-window '("-noraise")) + (list "-remote" + (concat "openURL(" url + (if new-window ",new-window") + ")")))) + )) + (if (stringp res) + (error "netscape got signal: %s" res) + (or (zerop res) + (progn ; Netscape not running - start it + (message "Starting Netscape...") + (apply 'start-process "netscape" nil "netscape" + (append browse-url-netscape-arguments (list url)))))))) (defun browse-url-netscape-reload () "Ask Netscape to reload its current document." |