diff options
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2010-11-10 23:27:02 +0100 |
|---|---|---|
| committer | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2010-11-10 23:27:02 +0100 |
| commit | afe2870bf57fd7c1a1224898881f546125d15ec5 (patch) | |
| tree | a4c4af515cd93a1de02aaa80b03b7e439d355e52 /lisp/net | |
| parent | fbe3be3fa2ea5921501649f741168165312d162b (diff) | |
| download | emacs-afe2870bf57fd7c1a1224898881f546125d15ec5.tar.gz | |
* net/browse-url.el (browse-url-browser-function): Change the
default to use `browse-url-mail' on mailto: URLs.
Diffstat (limited to 'lisp/net')
| -rw-r--r-- | lisp/net/browse-url.el | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el index c89d27fbf0c..1e653f6708d 100644 --- a/lisp/net/browse-url.el +++ b/lisp/net/browse-url.el @@ -216,11 +216,13 @@ ;;;###autoload (defcustom browse-url-browser-function - (cond - ((memq system-type '(windows-nt ms-dos cygwin)) - 'browse-url-default-windows-browser) - ((memq system-type '(darwin)) 'browse-url-default-macosx-browser) - (t 'browse-url-default-browser)) + `(("\\`mailto:" . browse-url-mail) + ("." . + ,(cond + ((memq system-type '(windows-nt ms-dos cygwin)) + 'browse-url-default-windows-browser) + ((memq system-type '(darwin)) 'browse-url-default-macosx-browser) + (t 'browse-url-default-browser)))) "Function to display the current buffer in a WWW browser. This is used by the `browse-url-at-point', `browse-url-at-mouse', and `browse-url-of-file' commands. @@ -260,7 +262,7 @@ regexp should probably be \".\" to specify a default browser." (function :tag "Your own function") (alist :tag "Regexp/function association list" :key-type regexp :value-type function)) - :version "21.1" + :version "24.1" :group 'browse-url) (defcustom browse-url-netscape-program "netscape" |