diff options
| -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." |