From d2fb04dfd328649d2d019ac83c34aa90944b82cb Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 27 Dec 2001 03:13:57 +0000 Subject: [PATCH] (flyspell-mode-map): New keymap, defined as before 2001-11-09. (add-minor-mode call): Specify the keymap. --- lisp/ChangeLog | 4 ++++ lisp/textmodes/flyspell.el | 12 +++++++++++- 2 files changed, 15 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2906265bdef..895a4083bd5 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 2001-12-26 Richard M. Stallman + * textmodes/flyspell.el (flyspell-mode-map): New keymap, + defined as before 2001-11-09. + (add-minor-mode call): Specify the keymap. + * progmodes/compile.el (compile-internal): Set TERM variable in process-environment. diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el index 0138509a1e4..86070e53860 100644 --- a/lisp/textmodes/flyspell.el +++ b/lisp/textmodes/flyspell.el @@ -372,6 +372,16 @@ property of the major mode name.") (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 @@ in your .emacs file. ;;;###autoload (add-minor-mode 'flyspell-mode 'flyspell-mode-line-string - nil + flyspell-mode-map nil 'flyspell-mode) -- 2.39.5