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

This commit is contained in:
Leo Liu 2010-12-06 14:55:21 -05:00 committed by Chong Yidong
parent bc60f4de59
commit 86a6e8e02c
2 changed files with 10 additions and 1 deletions

View file

@ -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)

View file

@ -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")))