Commit e95b937a authored by Michael Albinus's avatar Michael Albinus
Browse files

* net/browse-url.el (browse-url):

Use `unhandled-file-name-directory' when setting `default-directory',
in order to circumvent stalled remote connections.

Fixes: debbugs:17425
parent 636ae7c2
2014-05-13 Michael Albinus <michael.albinus@gmx.de>
* net/browse-url.el (browse-url):
Use `unhandled-file-name-directory' when setting `default-directory',
in order to circumvent stalled remote connections. (Bug#17425)
2014-05-12 Stefan Monnier <monnier@iro.umontreal.ca> 2014-05-12 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/nadvice.el (advice--interactive-form): Don't get fooled * emacs-lisp/nadvice.el (advice--interactive-form): Don't get fooled
...@@ -97,7 +103,7 @@ ...@@ -97,7 +103,7 @@
Remove HISTFILE and HISTSIZE; it's too late to set them here. Remove HISTFILE and HISTSIZE; it's too late to set them here.
Add :version entry. Add :version entry.
(tramp-open-shell): Do not let-bind `tramp-end-of-output'. (tramp-open-shell): Do not let-bind `tramp-end-of-output'.
Add "HISTSIZE=/dev/null" to the shell's env arguments. Do not send Add "HISTFILE=/dev/null" to the shell's env arguments. Do not send
extra "PSx=..." commands. extra "PSx=..." commands.
(tramp-maybe-open-connection): Setenv HISTFILE to /dev/null. (tramp-maybe-open-connection): Setenv HISTFILE to /dev/null.
(Bug#17295) (Bug#17295)
......
...@@ -807,14 +807,14 @@ first, if that exists." ...@@ -807,14 +807,14 @@ first, if that exists."
(interactive (browse-url-interactive-arg "URL: ")) (interactive (browse-url-interactive-arg "URL: "))
(unless (called-interactively-p 'interactive) (unless (called-interactively-p 'interactive)
(setq args (or args (list browse-url-new-window-flag)))) (setq args (or args (list browse-url-new-window-flag))))
(when (and url-handler-mode (not (file-name-absolute-p url)))
(setq url (expand-file-name url)))
(let ((process-environment (copy-sequence process-environment)) (let ((process-environment (copy-sequence process-environment))
(function (or (and (string-match "\\`mailto:" url) (function (or (and (string-match "\\`mailto:" url)
browse-url-mailto-function) browse-url-mailto-function)
browse-url-browser-function)) browse-url-browser-function))
;; Ensure that `default-directory' exists and is readable (b#6077). ;; Ensure that `default-directory' exists and is readable (b#6077).
(default-directory (if (and (file-directory-p default-directory) (default-directory (or (unhandled-file-name-directory default-directory)
(file-readable-p default-directory))
default-directory
(expand-file-name "~/")))) (expand-file-name "~/"))))
;; When connected to various displays, be careful to use the display of ;; When connected to various displays, be careful to use the display of
;; the currently selected frame, rather than the original start display, ;; the currently selected frame, rather than the original start display,
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment