changeset 100637:6f8834a6d1b3

(dired-readin): Inhibit modification hooks.
author Richard M. Stallman <rms@gnu.org>
date Mon, 22 Dec 2008 19:28:22 +0000
parents 97556cd6bbe3
children fcedbc3826f9
files lisp/dired.el
diffstat 1 files changed, 5 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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))