(fundamental-mode-hook): Declare new hook.

(fundamental-mode): Run the new dedicated hook, and don't run
after-change-major-mode-hooks manually anymore.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 41b1295ef3731901c709ab48d694ab0691f801fa..8d7615e325bffe9857bb820a4eb5da5ee0971a43 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2007-02-08  Karl Fogel  <kfogel@red-bean.com>
+
+       * emacs/lisp/simple.el (fundamental-mode-hook): Declare new hook.
+       (fundamental-mode): Run the new dedicated hook, and don't run
+       after-change-major-mode-hooks manually anymore.
+
 2007-02-07  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * vc-svn.el (vc-svn-merge-news): Understand the new format with two

diff --git a/lisp/simple.el b/lisp/simple.el
index 6f4f5eb4073213b06d7bfc15aaa6166f34f1e2b4..dcd70b5b308135d254ac473e5b77541804d5b917 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -382,13 +382,19 @@ location."
 \f
 ;;;
 
+(defcustom fundamental-mode-hook nil
+  "Normal hook run for buffers not specialized for anything in particular."
+  :type 'hook
+  ;; No group is a perfect fit, but this is probably the closest.
+  :group 'editing-basics)
+
 (defun fundamental-mode ()
   "Major mode not specialized for anything in particular.
-Other major modes are defined by comparison with this one."
+Other major modes are defined by comparison with this one.
+Entry to this mode runs the normal hook `fundamental-mode-hook'."
   (interactive)
   (kill-all-local-variables)
-  (unless delay-mode-hooks
-    (run-hooks 'after-change-major-mode-hook)))
+  (run-mode-hooks 'fundamental-mode-hook))
 
 ;; Making and deleting lines.