emacs-diffs
[Top][All Lists]
Advanced

[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)



reply via email to

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