Mercurial > emacs
changeset 14368:861f51e090d4
(browse-url-netscape): Check for call-process returning a string.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 25 Jan 1996 20:14:38 +0000 |
| parents | 7a6088de282f |
| children | 8d779463ec36 |
| files | lisp/browse-url.el |
| diffstat | 1 files changed, 16 insertions(+), 13 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/browse-url.el Thu Jan 25 17:12:45 1996 +0000 +++ b/lisp/browse-url.el Thu Jan 25 20:14:38 1996 +0000 @@ -486,19 +486,22 @@ (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."