andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -3,6 +3,9 @@
* progmodes/perl-mode.el (perl-imenu-generic-expression): Only
match variables declared via `my' or `our' (Bug#8261).
* net/browse-url.el (browse-url-of-dired-file): Allow browsing of
special file names `.' and `..' (Bug#8259).
2011-05-08 Chong Yidong <cyd@stupidchicken.com>
* progmodes/grep.el (grep-mode-font-lock-keywords): Remove

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)