(dired-revert): Turn off dired-after-readin-hook around call to dired-readin.

6a80f50e · Richard M. Stallman · 49bb7f01 · 6a80f50e
Commit 6a80f50e authored Dec 04, 2006 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

lisp/dired.el lisp/dired.el +2 -2

No files found.
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -1045,9 +1045,9 @@ Preserves old cursor, marks/flags, hidden-p."
    ;; treat top level dir extra (it may contain wildcards)
    (dired-uncache
     (if (consp dired-directory) (car dired-directory) dired-directory))
-    (dired-readin)
+    ;; Run dired-after-readin-hook just once, below.
    (let ((dired-after-readin-hook nil))
-      ;; don't run that hook for each subdir...
+      (dired-readin)
      (dired-insert-old-subdirs old-subdir-alist))
    (dired-mark-remembered mark-alist)	; mark files that were marked
    ;; ... run the hook for the whole buffer, and only after markers