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

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