mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-21 03:52:16 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
(add-minor-mode call): Specify the keymap.
This commit is contained in:
Richard M. Stallman 2001-12-27 03:13:57 +00:00
parent eaaacacdf4
commit d2fb04dfd3
2 changed files with 15 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -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.

12
lisp/textmodes/flyspell.el
View file

@ -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)