Mercurial > emacs
changeset 63485:1e618742c46c
(fundamental-mode): Run after-change-major-mode-hook conditionally.
author | Lute Kamstra <lute@gnu.org> |
---|---|
date | Thu, 16 Jun 2005 12:40:00 +0000 |
parents | d4ead85fc873 |
children | cdde24265c63 |
files | lisp/simple.el |
diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Thu Jun 16 09:59:47 2005 +0000 +++ b/lisp/simple.el Thu Jun 16 12:40:00 2005 +0000 @@ -327,7 +327,8 @@ Other major modes are defined by comparison with this one." (interactive) (kill-all-local-variables) - (run-hooks 'after-change-major-mode-hook)) + (unless delay-mode-hooks + (run-hooks 'after-change-major-mode-hook))) ;; Making and deleting lines. @@ -4842,7 +4843,7 @@ (if (minibufferp mainbuf) (if (and (symbolp minibuffer-completion-table) (get minibuffer-completion-table 'completion-base-size-function)) - (setq completion-base-size + (setq completion-base-size (funcall (get minibuffer-completion-table 'completion-base-size-function))) (setq completion-base-size 0)))) ;; Put faces on first uncommon characters and common parts.