* dired-aux.el (dired-do-redisplay): Postphone dired-after-readin-hook while mapping over marks (Bug#6810).

2 files changed, 10 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a758e7f0a7f..8609df4c053 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-12-06  Leo <sdl.web@gmail.com>
+
+        * dired-aux.el (dired-do-redisplay): Postphone
+        dired-after-readin-hook while mapping over marks (Bug#6810).
+
 2010-12-06  Chong Yidong  <cyd@stupidchicken.com>
 
         * image-dired.el (image-dired-db-file)
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 62d6928c024..b711934da21 100644
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -1017,10 +1017,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))
+                                ;; Postphone 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))
                           arg)
+    (run-hooks 'dired-after-readin-hook)
     (dired-move-to-filename)
     (message "Redisplaying...done")))