# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1229974102 0
# Node ID 6f8834a6d1b3c13e1759884cc33cd4d993d83030
# Parent  97556cd6bbe3760a438ff0f35d6073b5e7457d34
(dired-readin): Inhibit modification hooks.

diff -r 97556cd6bbe3 -r 6f8834a6d1b3 lisp/dired.el
--- a/lisp/dired.el	Mon Dec 22 19:09:56 2008 +0000
+++ b/lisp/dired.el	Mon Dec 22 19:28:22 2008 +0000
@@ -858,7 +858,11 @@
 
   ;; default-directory and dired-actual-switches must be buffer-local
   ;; and initialized by now.
-  (let (dirname)
+  (let (dirname
+	;; This makes readin much much faster.
+	;; In particular, it prevents the font lock hook from running
+	;; until the directory is all read in.
+	(inhibit-modification-hooks t))
     (if (consp dired-directory)
 	(setq dirname (car dired-directory))
       (setq dirname dired-directory))