diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/emacs-lisp/easy-mmode.el | 7 |
2 files changed, 9 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 969b0c6997a..2d381534228 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,5 +1,10 @@ | |||
| 1 | 2011-01-18 Stefan Monnier <monnier@iro.umontreal.ca> | 1 | 2011-01-18 Stefan Monnier <monnier@iro.umontreal.ca> |
| 2 | 2 | ||
| 3 | * emacs-lisp/easy-mmode.el (define-minor-mode): Don't re-evaluate the | ||
| 4 | keymap expression. Improve docstring. | ||
| 5 | |||
| 6 | 2011-01-18 Stefan Monnier <monnier@iro.umontreal.ca> | ||
| 7 | |||
| 3 | * electric.el (electric-indent-post-self-insert-function): | 8 | * electric.el (electric-indent-post-self-insert-function): |
| 4 | Don't auto-indent for indent-to-left-margin, it's too often | 9 | Don't auto-indent for indent-to-left-margin, it's too often |
| 5 | counter-productive. | 10 | counter-productive. |
diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el index 3d18d8e1cca..7f7198c36c9 100644 --- a/lisp/emacs-lisp/easy-mmode.el +++ b/lisp/emacs-lisp/easy-mmode.el | |||
| @@ -94,8 +94,9 @@ Optional INIT-VALUE is the initial value of the mode's variable. | |||
| 94 | Optional LIGHTER is displayed in the modeline when the mode is on. | 94 | Optional LIGHTER is displayed in the modeline when the mode is on. |
| 95 | Optional KEYMAP is the default keymap bound to the mode keymap. | 95 | Optional KEYMAP is the default keymap bound to the mode keymap. |
| 96 | If non-nil, it should be a variable name (whose value is a keymap), | 96 | If non-nil, it should be a variable name (whose value is a keymap), |
| 97 | a keymap, or a list of arguments for `easy-mmode-define-keymap'. | 97 | or an expression that returns either a keymap or a list of |
| 98 | If KEYMAP is a keymap or list, this also defines the variable MODE-map. | 98 | arguments for `easy-mmode-define-keymap'. If KEYMAP is not a symbol, |
| 99 | this also defines the variable MODE-map. | ||
| 99 | 100 | ||
| 100 | BODY contains code to execute each time the mode is enabled or disabled. | 101 | BODY contains code to execute each time the mode is enabled or disabled. |
| 101 | It is executed after toggling the mode, and before running MODE-hook. | 102 | It is executed after toggling the mode, and before running MODE-hook. |
| @@ -274,7 +275,7 @@ With zero or negative ARG turn mode off. | |||
| 274 | (let ((m ,keymap)) | 275 | (let ((m ,keymap)) |
| 275 | (cond ((keymapp m) m) | 276 | (cond ((keymapp m) m) |
| 276 | ((listp m) (easy-mmode-define-keymap m)) | 277 | ((listp m) (easy-mmode-define-keymap m)) |
| 277 | (t (error "Invalid keymap %S" ,keymap)))) | 278 | (t (error "Invalid keymap %S" m)))) |
| 278 | ,(format "Keymap for `%s'." mode-name))) | 279 | ,(format "Keymap for `%s'." mode-name))) |
| 279 | 280 | ||
| 280 | ,(if (not (symbolp mode)) | 281 | ,(if (not (symbolp mode)) |