mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Expand file names during browse-url-of-dired-file (Bug#8259).

Browse source 
* lisp/net/browse-url.el (browse-url-of-dired-file): Allow browsing of
special file names `.' and `..'.
This commit is contained in:
Ralph Schleicher 2011-05-08 14:34:51 -04:00 • committed by Chong Yidong
parent 085f5d7dca
commit 2a86a00c4f
2 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/net/browse-url.el
View file

@ -769,7 +769,10 @@ narrowed."
(defun browse-url-of-dired-file ()
"In Dired, ask a WWW browser to display the file named on this line."
(interactive)
(browse-url-of-file (dired-get-filename)))
(let ((tem (dired-get-filename t t)))
(if tem
(browse-url-of-file (expand-file-name tem))
(error "No file on this line"))))
;;;###autoload
(defun browse-url-of-region (min max)