From 47122295521c63febe9fc64680430812da3a3acf Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Sun, 16 Apr 2017 23:36:26 -0700 Subject: [PATCH] =?utf8?q?dired=20=E2=80=98M=E2=80=99=20should=20not=20com?= =?utf8?q?plain=20about=20=E2=80=98.=E2=80=99=20and=20=E2=80=98..=E2=80=99?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit * 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 d7ca0527879..ec07f9bf735 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) -- 2.39.5