diff options
| author | Luc Teirlinck | 2005-07-22 01:26:03 +0000 |
|---|---|---|
| committer | Luc Teirlinck | 2005-07-22 01:26:03 +0000 |
| commit | f4cb1d8caecffded4f2ef5187d096d9751c39d6e (patch) | |
| tree | a166ff4753578263dee88d461bc2e4325ed38ae6 | |
| parent | 8a469c7726be998068ddf02eb8796993252c6033 (diff) | |
| download | emacs-f4cb1d8caecffded4f2ef5187d096d9751c39d6e.tar.gz emacs-f4cb1d8caecffded4f2ef5187d096d9751c39d6e.zip | |
(define-minor-mode): Never call the mode function using `eval-after-load'.
| -rw-r--r-- | lisp/emacs-lisp/easy-mmode.el | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el index 87f3e7249aa..09abd272e53 100644 --- a/lisp/emacs-lisp/easy-mmode.el +++ b/lisp/emacs-lisp/easy-mmode.el | |||
| @@ -267,12 +267,7 @@ With zero or negative ARG turn mode off. | |||
| 267 | (add-minor-mode ',mode ',lighter | 267 | (add-minor-mode ',mode ',lighter |
| 268 | ,(if keymap keymap-sym | 268 | ,(if keymap keymap-sym |
| 269 | `(if (boundp ',keymap-sym) | 269 | `(if (boundp ',keymap-sym) |
| 270 | (symbol-value ',keymap-sym)))) | 270 | (symbol-value ',keymap-sym))))))) |
| 271 | |||
| 272 | ;; If the mode is global, call the function according to the default. | ||
| 273 | ,(if globalp | ||
| 274 | `(if (and load-file-name (not (equal ,init-value ,mode))) | ||
| 275 | (eval-after-load load-file-name '(,mode (if ,mode 1 -1)))))))) | ||
| 276 | 271 | ||
| 277 | ;;; | 272 | ;;; |
| 278 | ;;; make global minor mode | 273 | ;;; make global minor mode |