# HG changeset patch
# User Lute Kamstra <lute@gnu.org>
# Date 1118925600 0
# Node ID 1e618742c46ccac6df7dfbae1287b2cf3042f982
# Parent  d4ead85fc8733f09d1c2f8a1b574c836ca5999eb
(fundamental-mode): Run after-change-major-mode-hook conditionally.

diff -r d4ead85fc873 -r 1e618742c46c lisp/simple.el
--- a/lisp/simple.el	Thu Jun 16 09:59:47 2005 +0000
+++ b/lisp/simple.el	Thu Jun 16 12:40:00 2005 +0000
@@ -327,7 +327,8 @@
 Other major modes are defined by comparison with this one."
   (interactive)
   (kill-all-local-variables)
-  (run-hooks 'after-change-major-mode-hook))
+  (unless delay-mode-hooks
+    (run-hooks 'after-change-major-mode-hook)))
 
 ;; Making and deleting lines.
 
@@ -4842,7 +4843,7 @@
 	(if (minibufferp mainbuf)
 	    (if (and (symbolp minibuffer-completion-table)
 		     (get minibuffer-completion-table 'completion-base-size-function))
-		(setq completion-base-size 
+		(setq completion-base-size
 		      (funcall (get minibuffer-completion-table 'completion-base-size-function)))
 	      (setq completion-base-size 0))))
       ;; Put faces on first uncommon characters and common parts.