From 86a6e8e02cf3462dd8a0b2660dce5b7c5a78b734 Mon Sep 17 00:00:00 2001 From: Leo Liu Date: Mon, 6 Dec 2010 14:55:21 -0500 Subject: [PATCH] * dired-aux.el (dired-do-redisplay): Postphone dired-after-readin-hook while mapping over marks (Bug#6810). --- lisp/ChangeLog | 5 +++++ lisp/dired-aux.el | 6 +++++- 2 files changed, 10 insertions(+), 1 deletion(-) 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 + + * dired-aux.el (dired-do-redisplay): Postphone + dired-after-readin-hook while mapping over marks (Bug#6810). + 2010-12-06 Chong Yidong * 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"))) -- 2.39.5