[Emacs-diffs] Changes to emacs/lisp/textmodes/flyspell.el

[Richard M. Stallman]

Index: emacs/lisp/textmodes/flyspell.el
diff -c emacs/lisp/textmodes/flyspell.el:1.36 
emacs/lisp/textmodes/flyspell.el:1.37
*** emacs/lisp/textmodes/flyspell.el:1.36       Mon Nov 12 03:17:15 2001
--- emacs/lisp/textmodes/flyspell.el    Wed Dec 26 22:13:48 2001
***************
*** 372,377 ****
--- 372,387 ----
        (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,458 ****
  ;;;###autoload
  (add-minor-mode 'flyspell-mode
                'flyspell-mode-line-string
!               nil
                nil
                'flyspell-mode)
  
--- 462,468 ----
  ;;;###autoload
  (add-minor-mode 'flyspell-mode
                'flyspell-mode-line-string
!               flyspell-mode-map
                nil
                'flyspell-mode)