From: Karl Fogel <kfogel@red-bean.com>
Date: Thu, 8 Feb 2007 20:52:39 +0000 (+0000)
Subject: Revert previous change, at request of RMS:
X-Git-Tag: emacs-pretest-22.0.94~334
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3a4b83477781250e916d547aaf4e5c9201b6b578;p=emacs.git

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 f80c413558f..2e39577b897 100644
--- 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 dcd70b5b308..6f4f5eb4073 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -382,19 +382,13 @@ location."
 
 ;;;
 
-(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.