[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 4712229: dired ‘M’ should not complain about ‘.’ a
From: |
Paul Eggert |
Subject: |
[Emacs-diffs] master 4712229: dired ‘M’ should not complain about ‘.’ and ‘..’ |
Date: |
Mon, 17 Apr 2017 02:37:35 -0400 (EDT) |
branch: master
commit 47122295521c63febe9fc64680430812da3a3acf
Author: Paul Eggert <address@hidden>
Commit: Paul Eggert <address@hidden>
dired ‘M’ should not complain about ‘.’ and ‘..’
* lisp/dired-aux.el (dired-do-redisplay):
Allow redisplay of ‘.’ and ‘..’ (Bug#26528).
---
lisp/dired-aux.el | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index d7ca052..ec07f9b 100644
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -1266,12 +1266,14 @@ See Info node `(emacs)Subdir switches' for more
details."
;; message much faster than making dired-map-over-marks show progress
(dired-uncache
(if (consp dired-directory) (car dired-directory) dired-directory))
- (dired-map-over-marks (let ((fname (dired-get-filename))
+ (dired-map-over-marks (let ((fname (dired-get-filename nil t))
;; Postpone readin hook till we map
;; over all marked files (Bug#6810).
(dired-after-readin-hook nil))
- (message "Redisplaying... %s" fname)
- (dired-update-file-line fname))
+ (if (not fname)
+ (error "No file on this line")
+ (message "Redisplaying... %s" fname)
+ (dired-update-file-line fname)))
arg)
(run-hooks 'dired-after-readin-hook)
(dired-move-to-filename)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 4712229: dired ‘M’ should not complain about ‘.’ and ‘..’,
Paul Eggert <=