(dired-do-redisplay): Call dired-uncache.

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 9d93f9a541a45379103474ca5b798226a0383334..e4b96689d0d1b4008f985cef0180afd2c0d71814 100644 (file)
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -693,6 +693,8 @@ a prefix arg lets you edit the `ls' switches used for the new listing."
        (if arg (read-string "Switches for listing: " dired-actual-switches)))
     (message "Redisplaying...")
     ;; 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)))
                            (message "Redisplaying... %s" fname)
                            (dired-update-file-line fname))