Mercurial > emacs
changeset 75723:af222c2a16b5
(fundamental-mode-hook): Declare new hook.
(fundamental-mode): Run the new dedicated hook, and don't run
after-change-major-mode-hooks manually anymore.
| author | Karl Fogel <kfogel@red-bean.com> |
|---|---|
| date | Thu, 08 Feb 2007 06:31:28 +0000 |
| parents | 7dcd1e8402e4 |
| children | 16765a27d0c9 |
| files | lisp/ChangeLog lisp/simple.el |
| diffstat | 2 files changed, 15 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Feb 08 02:29:33 2007 +0000 +++ b/lisp/ChangeLog Thu Feb 08 06:31:28 2007 +0000 @@ -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
--- a/lisp/simple.el Thu Feb 08 02:29:33 2007 +0000 +++ b/lisp/simple.el Thu Feb 08 06:31:28 2007 +0000 @@ -382,13 +382,19 @@ ;;; +(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.