# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1291665321 18000
# Node ID b9fb819345d9751d126dff185311af419210e3b2
# Parent  f773f82f2c634f02089d3aff832b0f709a3acfda
* dired-aux.el (dired-do-redisplay): Postphone dired-after-readin-hook while mapping over marks (Bug#6810).

diff -r f773f82f2c63 -r b9fb819345d9 lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Dec 06 14:45:31 2010 -0500
+++ b/lisp/ChangeLog	Mon Dec 06 14:55:21 2010 -0500
@@ -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 -r f773f82f2c63 -r b9fb819345d9 lisp/dired-aux.el
--- a/lisp/dired-aux.el	Mon Dec 06 14:45:31 2010 -0500
+++ b/lisp/dired-aux.el	Mon Dec 06 14:55:21 2010 -0500
@@ -1017,10 +1017,14 @@
     ;; 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")))