changeset 75736:e4e80762e207

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.
author Karl Fogel <kfogel@red-bean.com>
date Thu, 08 Feb 2007 20:52:39 +0000
parents 5d08826765c6
children 9367d9077081
files lisp/ChangeLog lisp/simple.el
diffstat 2 files changed, 10 insertions(+), 9 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Thu Feb 08 19:54:46 2007 +0000
+++ b/lisp/ChangeLog	Thu Feb 08 20:52:39 2007 +0000
@@ -4,6 +4,13 @@
 
 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.
 	(fundamental-mode): Run the new dedicated hook, and don't run
 	after-change-major-mode-hooks manually anymore.
--- a/lisp/simple.el	Thu Feb 08 19:54:46 2007 +0000
+++ b/lisp/simple.el	Thu Feb 08 20:52:39 2007 +0000
@@ -382,19 +382,13 @@
 
 ;;;
 
-(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.