Mercurial > emacs

comparison lisp/net/browse-url.el @ 54681:8e0abac00108

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(browse-url-generic): Use call-process instead of start-process to allow browsers that fork and detach.
author David Kastrup <dak@gnu.org>
date Fri, 02 Apr 2004 14:33:08 +0000
parents c53b285fdf88
children 048eee9ae6ae
comparison
equal deleted inserted replaced
54680:88e54f50860f 54681:8e0abac00108
1 ;;; browse-url.el --- pass a URL to a WWW browser 1 ;;; browse-url.el --- pass a URL to a WWW browser
2 2
3 ;; Copyright (C) 1995, 96, 97, 98, 99, 2000, 2001 3 ;; Copyright (C) 1995, 96, 97, 98, 99, 2000, 2001, 2004
4 ;; Free Software Foundation, Inc. 4 ;; Free Software Foundation, Inc.
5 5
6 ;; Author: Denis Howe <dbh@doc.ic.ac.uk> 6 ;; Author: Denis Howe <dbh@doc.ic.ac.uk>
7 ;; Maintainer: FSF 7 ;; Maintainer: FSF
8 ;; Created: 03 Apr 1995 8 ;; Created: 03 Apr 1995
1350 `browse-url-generic-args'. This is appropriate for browsers which 1350 `browse-url-generic-args'. This is appropriate for browsers which
1351 don't offer a form of remote control." 1351 don't offer a form of remote control."
1352 (interactive (browse-url-interactive-arg "URL: ")) 1352 (interactive (browse-url-interactive-arg "URL: "))
1353 (if (not browse-url-generic-program) 1353 (if (not browse-url-generic-program)
1354 (error "No browser defined (`browse-url-generic-program')")) 1354 (error "No browser defined (`browse-url-generic-program')"))
1355 (apply 'start-process (concat browse-url-generic-program url) nil 1355 (apply 'call-process browse-url-generic-program nil
1356 browse-url-generic-program 1356 0 nil
1357 (append browse-url-generic-args (list url)))) 1357 (append browse-url-generic-args (list url))))
1358 1358
1359 ;;;###autoload 1359 ;;;###autoload
1360 (defun browse-url-kde (url &optional new-window) 1360 (defun browse-url-kde (url &optional new-window)
1361 "Ask the KDE WWW browser to load URL. 1361 "Ask the KDE WWW browser to load URL.