mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-28 01:00:52 -07:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Richard M. Stallman 1996-01-25 20:14:38 +00:00
parent 8f44c55ecc
commit b20d527dec
1 changed files with 16 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

29
lisp/browse-url.el
View file

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