From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 25 Jan 1996 20:14:38 +0000 (+0000)
Subject: (browse-url-netscape): Check for call-process returning a string.
X-Git-Tag: emacs-19.34~1492
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b20d527dec0b09923a947976bb818a554b2ca0ab;p=emacs.git

(browse-url-netscape): Check for call-process returning a string.
---

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