From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 22 Dec 2008 19:28:44 +0000 (+0000)
Subject: (dired-readin): Inhibit modification hooks.
X-Git-Tag: emacs-pretest-23.0.90~914
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a10374238a31e281ab06b53968398701de7d3191;p=emacs.git

(dired-readin): Inhibit modification hooks.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3f27f3fcdac..15ef4269f51 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2008-12-22  Richard M Stallman  <rms@gnu.org>
+
+	* dired.el (dired-readin): Inhibit modification hooks.
+
 2008-12-22  Ulf Jasper  <ulf.jasper@web.de>
 
 	* net/newst-backend.el (newst-backend): Removed wrong duplicate provide statement.
diff --git a/lisp/dired.el b/lisp/dired.el
index e0e72a1847e..f23c109af1c 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -858,7 +858,11 @@ wildcards, erases the buffer, and builds the subdir-alist anew
 
   ;; 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))