372 |
(define-key map "\M-\t" #'flyspell-auto-correct-word))) |
(define-key map "\M-\t" #'flyspell-auto-correct-word))) |
373 |
map)) |
map)) |
374 |
|
|
375 |
|
;;;###autoload |
376 |
|
(defvar flyspell-mode-map (make-sparse-keymap)) |
377 |
|
|
378 |
|
;; mouse, keyboard bindings and misc definition |
379 |
|
(when (or (assoc 'flyspell-mode minor-mode-map-alist) |
380 |
|
(setq minor-mode-map-alist |
381 |
|
(cons (cons 'flyspell-mode flyspell-mode-map) |
382 |
|
minor-mode-map-alist))) |
383 |
|
(define-key flyspell-mode-map "\M-\t" 'flyspell-auto-correct-word)) |
384 |
|
|
385 |
;; the name of the overlay property that defines the keymap |
;; the name of the overlay property that defines the keymap |
386 |
(defvar flyspell-overlay-keymap-property-name 'keymap) |
(defvar flyspell-overlay-keymap-property-name 'keymap) |
387 |
|
|
462 |
;;;###autoload |
;;;###autoload |
463 |
(add-minor-mode 'flyspell-mode |
(add-minor-mode 'flyspell-mode |
464 |
'flyspell-mode-line-string |
'flyspell-mode-line-string |
465 |
nil |
flyspell-mode-map |
466 |
nil |
nil |
467 |
'flyspell-mode) |
'flyspell-mode) |
468 |
|
|