* dired-aux.el (dired-do-redisplay): Postphone dired-after-readin-hook while mapping...

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a758e7f0a7f3b6d4b5319574f73a104668200f3f..8609df4c053a2d51001044503951d859155fa9e3 100644 (file)
--- 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 62d6928c024594a08501eaa8adde838d5137c442..b711934da21a020464723560685a5d875b952727 100644 (file)
--- 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")))