diff options
author | Leo Liu <sdl.web@gmail.com> | 2010-12-06 14:55:21 -0500 |
---|---|---|
committer | Chong Yidong <cyd@stupidchicken.com> | 2010-12-06 14:55:21 -0500 |
commit | 86a6e8e02cf3462dd8a0b2660dce5b7c5a78b734 (patch) | |
tree | b2b530ea670cac220cfdcdbee9808ef0883c6d7a | |
parent | bc60f4de593965f51944d8916bba9311433d23db (diff) | |
download | emacs-86a6e8e02cf3462dd8a0b2660dce5b7c5a78b734.tar.gz |
* dired-aux.el (dired-do-redisplay): Postphone dired-after-readin-hook while mapping over marks (Bug#6810).
-rw-r--r-- | lisp/ChangeLog | 5 | ||||
-rw-r--r-- | lisp/dired-aux.el | 6 |
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"))) |