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

* lisp/net/browse-url.el (browse-url-of-dired-file): Allow browsing of
special file names `.' and `..'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3d2cb34730d76f13d7110151b2dfa2ed7729acc7..488bd07a632234283a513d64e102283140c78fb9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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

diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el
index 8f91fbb26b14268efa219f559e827c95054ecbc5..c1ec3f0ed138f118e0540e5d886a4f2456eecb40 100644 (file)
--- a/lisp/net/browse-url.el
+++ b/lisp/net/browse-url.el
@@ -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)