mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +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> 2010-11-10 Chong Yidong <cyd@stupidchicken.com>
* emacs-lisp/package.el (package-read-all-archive-contents): Reset * emacs-lisp/package.el (package-read-all-archive-contents): Reset

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

@ -216,11 +216,13 @@
;;;###autoload ;;;###autoload
(defcustom browse-url-browser-function (defcustom browse-url-browser-function
(cond `(("\\`mailto:" . browse-url-mail)
((memq system-type '(windows-nt ms-dos cygwin)) ("." .
'browse-url-default-windows-browser) ,(cond
((memq system-type '(darwin)) 'browse-url-default-macosx-browser) ((memq system-type '(windows-nt ms-dos cygwin))
(t 'browse-url-default-browser)) '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. "Function to display the current buffer in a WWW browser.
This is 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.
@ -260,7 +262,7 @@ regexp should probably be \".\" to specify a default browser."
(function :tag "Your own function") (function :tag "Your own function")
(alist :tag "Regexp/function association list" (alist :tag "Regexp/function association list"
:key-type regexp :value-type function)) :key-type regexp :value-type function))
:version "21.1" :version "24.1"
:group 'browse-url) :group 'browse-url)
(defcustom browse-url-netscape-program "netscape" (defcustom browse-url-netscape-program "netscape"