diff options
| author | Luc Teirlinck <teirllm@auburn.edu> | 2005-07-22 01:26:03 +0000 |
|---|---|---|
| committer | Luc Teirlinck <teirllm@auburn.edu> | 2005-07-22 01:26:03 +0000 |
| commit | f4cb1d8caecffded4f2ef5187d096d9751c39d6e (patch) | |
| tree | a166ff4753578263dee88d461bc2e4325ed38ae6 /lisp/emacs-lisp/easy-mmode.el | |
| parent | 8a469c7726be998068ddf02eb8796993252c6033 (diff) | |
| download | emacs-f4cb1d8caecffded4f2ef5187d096d9751c39d6e.tar.gz | |
(define-minor-mode): Never call the mode function using `eval-after-load'.
Diffstat (limited to 'lisp/emacs-lisp/easy-mmode.el')
| -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. (add-minor-mode ',mode ',lighter ,(if keymap keymap-sym `(if (boundp ',keymap-sym) - (symbol-value ',keymap-sym)))) - - ;; If the mode is global, call the function according to the default. - ,(if globalp - `(if (and load-file-name (not (equal ,init-value ,mode))) - (eval-after-load load-file-name '(,mode (if ,mode 1 -1)))))))) + (symbol-value ',keymap-sym))))))) ;;; ;;; make global minor mode |