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

browse-url fix for bug#6077.

Browse Source 
* lisp/net/browse-url.el (browse-url): Handle deleted default-directory.
This commit is contained in:
Glenn Morris 2011-03-04 00:21:56 -08:00
parent 732795fa27
commit 9d9827395a
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -1,5 +1,8 @@
2011-03-04 Glenn Morris <rgm@gnu.org>
* net/browse-url.el (browse-url):
Handle deleted default-directory. (Bug#6077)
* recentf.el (recentf-include-p): In case of a buggy predicate,
err on the side of including, not excluding. (Bug#5843)

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

@ -798,7 +798,12 @@ first, if that exists."
(let ((process-environment (copy-sequence process-environment))
(function (or (and (string-match "\\`mailto:" url)
browse-url-mailto-function)
browse-url-browser-function)))
browse-url-browser-function))
;; Ensure that `default-directory' exists and is readable (b#6077).
(default-directory (if (and (file-directory-p default-directory)
(file-readable-p default-directory))
default-directory
(expand-file-name "~/"))))
;; When connected to various displays, be careful to use the display of
;; the currently selected frame, rather than the original start display,
;; which may not even exist any more.