Mercurial > emacs
changeset 15780:0a03d2b02ba1
(browse-url-choose-browser): New function.
(browse-url-browser-function): Use browse-url-choose-browser
as the initial value.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 24 Jul 1996 16:11:21 +0000 |
| parents | 5c12b862950f |
| children | 5cd40832a444 |
| files | lisp/browse-url.el |
| diffstat | 1 files changed, 12 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/browse-url.el Wed Jul 24 04:21:31 1996 +0000 +++ b/lisp/browse-url.el Wed Jul 24 16:11:21 1996 +0000 @@ -261,10 +261,11 @@ "A regular expression probably matching a URL.") (defvar browse-url-browser-function - 'browse-url-netscape + 'browse-url-choose-browser "*Function to display the current buffer in a WWW browser. -Used by the `browse-url-at-point', `browse-url-at-mouse', and -`browse-url-of-file' commands.") +This is used by the `browse-url-at-point', `browse-url-at-mouse', and +`browse-url-of-file' commands. +The function should take one argument, an URL.") (defvar browse-url-netscape-program "netscape" "*The name for invoking Netscape.") @@ -591,6 +592,14 @@ (interactive (browse-url-interactive-arg "W3 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) ;;; browse-url.el ends here