Mercurial > emacs
changeset 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 | f773f82f2c63 |
| children | e61da61a2c9b |
| files | lisp/ChangeLog lisp/dired-aux.el |
| diffstat | 2 files changed, 10 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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)
--- 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")))