Revert previous change, at request of RMS:

(fundamental-mode-hook): Remove.
(fundamental-mode): Run after-change-major-mode-hooks manually,
and don't run the now-nonexistent fundamental-mode-hook.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f80c413558f93403e1ff2c431c0c7e1d943c23af..2e39577b89774c2cb2fb40fde8856be621fb25fd 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,13 @@
 
        * diff-mode.el (diff-sanity-check-hunk): Fix last fix.
 
+2007-02-08  Karl Fogel  <kfogel@red-bean.com>
+
+       * simple.el: Revert previous change, at request of RMS:
+       (fundamental-mode-hook): Remove.
+       (fundamental-mode): Run after-change-major-mode-hooks manually,
+       and don't run the now-nonexistent fundamental-mode-hook.
+       
 2007-02-08  Karl Fogel  <kfogel@red-bean.com>
 
        * simple.el (fundamental-mode-hook): Declare new hook.

diff --git a/lisp/simple.el b/lisp/simple.el
index dcd70b5b308135d254ac473e5b77541804d5b917..6f4f5eb4073213b06d7bfc15aaa6166f34f1e2b4 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -382,19 +382,13 @@ 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.
-Entry to this mode runs the normal hook `fundamental-mode-hook'."
+Other major modes are defined by comparison with this one."
   (interactive)
   (kill-all-local-variables)
-  (run-mode-hooks 'fundamental-mode-hook))
+  (unless delay-mode-hooks
+    (run-hooks 'after-change-major-mode-hook)))
 
 ;; Making and deleting lines.