Mercurial > emacs
changeset 42346:76e044b68878
(flyspell-mode-map): New keymap, defined as before 2001-11-09.
(add-minor-mode call): Specify the keymap.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 27 Dec 2001 03:13:48 +0000 |
| parents | 7d2776273a81 |
| children | 50338be46a0d |
| files | lisp/textmodes/flyspell.el |
| diffstat | 1 files changed, 11 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/flyspell.el Wed Dec 26 22:11:21 2001 +0000 +++ b/lisp/textmodes/flyspell.el Thu Dec 27 03:13:48 2001 +0000 @@ -372,6 +372,16 @@ (define-key map "\M-\t" #'flyspell-auto-correct-word))) map)) +;;;###autoload +(defvar flyspell-mode-map (make-sparse-keymap)) + +;; mouse, keyboard bindings and misc definition +(when (or (assoc 'flyspell-mode minor-mode-map-alist) + (setq minor-mode-map-alist + (cons (cons 'flyspell-mode flyspell-mode-map) + minor-mode-map-alist))) + (define-key flyspell-mode-map "\M-\t" 'flyspell-auto-correct-word)) + ;; the name of the overlay property that defines the keymap (defvar flyspell-overlay-keymap-property-name 'keymap) @@ -452,7 +462,7 @@ ;;;###autoload (add-minor-mode 'flyspell-mode 'flyspell-mode-line-string - nil + flyspell-mode-map nil 'flyspell-mode)