# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 822600878 0
# Node ID 861f51e090d41f14ff2368c392b96872f8a0e45a
# Parent  7a6088de282f0c37b7c4ed49db42cab4af34f198
(browse-url-netscape): Check for call-process returning a string.

diff -r 7a6088de282f -r 861f51e090d4 lisp/browse-url.el
--- 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."