From 05a989de24c39fd2c6e7e67eebd5db4864ad809e Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Sun, 16 Apr 2017 23:36:26 -0700 Subject: [PATCH] =?UTF-8?q?dired=20=E2=80=98M=E2=80=99=20should=20not=20co?= =?UTF-8?q?mplain=20about=20=E2=80=98.=E2=80=99=20and=20=E2=80=98..?= =?UTF-8?q?=E2=80=99?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 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 d7ca052..ec07f9b 100644 --- a/lisp/dired-aux.el +++ b/lisp/dired-aux.el @@ -1266,12 +1266,14 @@ dired-do-redisplay ;; 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.7.4