emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] /srv/bzr/emacs/trunk r104161: Expand file names during bro


From: Chong Yidong
Subject: [Emacs-diffs] /srv/bzr/emacs/trunk r104161: Expand file names during browse-url-of-dired-file (Bug#8259).
Date: Sun, 08 May 2011 14:34:51 -0400
User-agent: Bazaar (2.3.1)

------------------------------------------------------------
revno: 104161
author: Ralph Schleicher <address@hidden>
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Sun 2011-05-08 14:34:51 -0400
message:
  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 `..'.
modified:
  lisp/ChangeLog
  lisp/net/browse-url.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-05-08 18:23:11 +0000
+++ b/lisp/ChangeLog    2011-05-08 18:34:51 +0000
@@ -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  <address@hidden>
 
        * progmodes/grep.el (grep-mode-font-lock-keywords): Remove

=== modified file 'lisp/net/browse-url.el'
--- a/lisp/net/browse-url.el    2011-04-08 03:26:40 +0000
+++ b/lisp/net/browse-url.el    2011-05-08 18:34:51 +0000
@@ -769,7 +769,10 @@
 (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)


reply via email to

[Prev in Thread] Current Thread [Next in Thread]