procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(browse-url-choose-browser): New function.

Browse source 
(browse-url-browser-function): Use browse-url-choose-browser
as the initial value.
This commit is contained in:
Richard M. Stallman 1996-07-24 16:11:21 +00:00
parent fc42d823cf
commit 8bc9b4f136
1 changed files with 12 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lisp/browse-url.el
View file

@ -261,10 +261,11 @@
"A regular expression probably matching a URL.") "A regular expression probably matching a URL.")
(defvar browse-url-browser-function (defvar browse-url-browser-function
'browse-url-netscape 'browse-url-choose-browser
"*Function to display the current buffer in a WWW browser. "*Function to display the current buffer in a WWW browser.
Used by the `browse-url-at-point', `browse-url-at-mouse', and This is used by the `browse-url-at-point', `browse-url-at-mouse', and
`browse-url-of-file' commands.") `browse-url-of-file' commands.
The function should take one argument, an URL.")
(defvar browse-url-netscape-program "netscape" (defvar browse-url-netscape-program "netscape"
"*The name for invoking Netscape.") "*The name for invoking Netscape.")
@ -591,6 +592,14 @@ Default to the URL around or before point."
(interactive (browse-url-interactive-arg "W3 URL: ")) (interactive (browse-url-interactive-arg "W3 URL: "))
(w3-fetch url)) (w3-fetch url))
(defun browse-url-choose-browser (argument)
"Decide which browser to use, then invoke it.
This is the default value of `browse-url-browser-function'."
(if (fboundp 'w3-fetch)
(setq browse-url-browser-function 'browse-url-w3)
(setq browse-url-browser-function 'browse-url-netscape))
(funcall browse-url-browser-function argument))
(provide 'browse-url) (provide 'browse-url)
;;; browse-url.el ends here ;;; browse-url.el ends here