(flyspell-mode-map): New keymap, defined as before 2001-11-09.

(add-minor-mode call): Specify the keymap.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2906265bdefc8110ab2bcf88ddef3d3620e98476..895a4083bd5f0cf8749b4c853b79788feed08367 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2001-12-26  Richard M. Stallman  <rms@gnu.org>
 
+       * 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 0138509a1e48b12d1435d34e8995deb4c9077ee0..86070e5386027090ec9d72982dd9f0f5a26cba42 100644 (file)
--- 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)