From: Ralph Schleicher <rs@ralph-schleicher.de>
Date: Sun, 8 May 2011 18:34:51 +0000 (-0400)
Subject: Expand file names during browse-url-of-dired-file (Bug#8259).
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~65
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2a86a00c4fbd998fedf778c65764f607f7da1855;p=emacs.git

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 3d2cb34730d..488bd07a632 100644
--- 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 8f91fbb26b1..c1ec3f0ed13 100644
--- 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)