Mercurial > emacs
diff lisp/dired-aux.el @ 111915:b9fb819345d9
* dired-aux.el (dired-do-redisplay): Postphone dired-after-readin-hook while mapping over marks (Bug#6810).
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Mon, 06 Dec 2010 14:55:21 -0500 |
| parents | 6657954b1aa2 |
| children | c00190a8c8ef 376148b31b5e |
line wrap: on
line diff
--- 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")))