[Top][All Lists]
[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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r104161: Expand file names during browse-url-of-dired-file (Bug#8259).,
Chong Yidong <=