From a10374238a31e281ab06b53968398701de7d3191 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 22 Dec 2008 19:28:44 +0000 Subject: [PATCH] (dired-readin): Inhibit modification hooks. --- lisp/ChangeLog | 4 ++++ lisp/dired.el | 6 +++++- 2 files changed, 9 insertions(+), 1 deletion(-) 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 + + * dired.el (dired-readin): Inhibit modification hooks. + 2008-12-22 Ulf Jasper * 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)) -- 2.39.2