From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 4 Dec 2006 00:32:00 +0000 (+0000)
Subject: (dired-revert): Turn off dired-after-readin-hook around call to dired-readin.
X-Git-Tag: emacs-pretest-22.0.92~335
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6a80f50e17c1b13ff761651ca37cecdb5cabcfc1;p=emacs.git

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

diff --git a/lisp/dired.el b/lisp/dired.el
index 5359b464579..09f4dc8425a 100644
--- 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