mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

* net/browse-url.el (browse-url-browser-function): Change the

Browse Source 
default to use `browse-url-mail' on mailto: URLs.
This commit is contained in:
Lars Magne Ingebrigtsen 2010-11-10 23:27:02 +01:00
parent fbe3be3fa2
commit afe2870bf5
2 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2010-11-10 Lars Magne Ingebrigtsen <larsi@gnus.org>
* net/browse-url.el (browse-url-browser-function): Change the
default to use `browse-url-mail' on mailto: URLs.
2010-11-10 Chong Yidong <cyd@stupidchicken.com>
* emacs-lisp/package.el (package-read-all-archive-contents): Reset

14
lisp/net/browse-url.el
View File

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