# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1165192320 0
# Node ID fcc9e01e9e6dd17877b338c42ba1c49d2a690309
# Parent  4bb58e866a2899f347cab7e1ab3369d409becdc2
(dired-revert): Turn off dired-after-readin-hook around call to dired-readin.

diff -r 4bb58e866a28 -r fcc9e01e9e6d lisp/dired.el
--- a/lisp/dired.el	Mon Dec 04 00:31:04 2006 +0000
+++ b/lisp/dired.el	Mon Dec 04 00:32:00 2006 +0000
@@ -1045,9 +1045,9 @@
     ;; 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