From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 27 Dec 2001 03:13:57 +0000 (+0000)
Subject: (flyspell-mode-map): New keymap, defined as before 2001-11-09.
X-Git-Tag: ttn-vms-21-2-B4~17465
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d2fb04dfd328649d2d019ac83c34aa90944b82cb;p=emacs.git

(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 2906265bdef..895a4083bd5 100644
--- 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 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)