[Emacs-diffs] /srv/bzr/emacs/emacs-23 r100278: * dired-aux.el (dired-do-redisplay): Postphone dired-after-readin-hook while mapping over marks (Bug#6810).

[Chong Yidong]

------------------------------------------------------------
revno: 100278
author: Leo <address@hidden>
committer: Chong Yidong <address@hidden>
branch nick: emacs-23
timestamp: Mon 2010-12-06 14:55:21 -0500
message:
  * dired-aux.el (dired-do-redisplay): Postphone dired-after-readin-hook while 
mapping over marks (Bug#6810).
modified:
  lisp/ChangeLog
  lisp/dired-aux.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-12-06 19:45:31 +0000
+++ b/lisp/ChangeLog    2010-12-06 19:55:21 +0000
@@ -1,3 +1,8 @@
+2010-12-06  Leo <address@hidden>
+
+       * dired-aux.el (dired-do-redisplay): Postphone
+       dired-after-readin-hook while mapping over marks (Bug#6810).
+
 2010-12-06  Chong Yidong  <address@hidden>
 
        * image-dired.el (image-dired-db-file)

=== modified file 'lisp/dired-aux.el'
--- a/lisp/dired-aux.el 2010-01-20 16:42:50 +0000
+++ b/lisp/dired-aux.el 2010-12-06 19:55:21 +0000
@@ -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")))