# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 803662290 0
# Node ID 3e84024ad5d8b95483fa8bb15fb740128013d742
# Parent  85bdcc694c7a8f57626467d5fe2450c97a9f02c5
(dired-do-redisplay): Call dired-uncache.

diff -r 85bdcc694c7a -r 3e84024ad5d8 lisp/dired-aux.el
--- a/lisp/dired-aux.el	Tue Jun 20 15:08:55 1995 +0000
+++ b/lisp/dired-aux.el	Tue Jun 20 15:31:30 1995 +0000
@@ -693,6 +693,8 @@
        (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))