Mercurial > emacs
comparison lisp/textmodes/flyspell.el @ 42346:76e044b68878
(flyspell-mode-map): New keymap, defined as before 2001-11-09.
(add-minor-mode call): Specify the keymap.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 27 Dec 2001 03:13:48 +0000 |
| parents | 52f0b9d1d57b |
| children | 8a4077ab418c |
comparison
equal
deleted
inserted
replaced
| 42345:7d2776273a81 | 42346:76e044b68878 |
|---|---|
| 370 (flyspell-use-local-map | 370 (flyspell-use-local-map |
| 371 (define-key map [(mouse-2)] #'flyspell-correct-word) | 371 (define-key map [(mouse-2)] #'flyspell-correct-word) |
| 372 (define-key map "\M-\t" #'flyspell-auto-correct-word))) | 372 (define-key map "\M-\t" #'flyspell-auto-correct-word))) |
| 373 map)) | 373 map)) |
| 374 | 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 | |
| 375 ;; the name of the overlay property that defines the keymap | 385 ;; the name of the overlay property that defines the keymap |
| 376 (defvar flyspell-overlay-keymap-property-name 'keymap) | 386 (defvar flyspell-overlay-keymap-property-name 'keymap) |
| 377 | 387 |
| 378 ;; dash character machinery | 388 ;; dash character machinery |
| 379 (defvar flyspell-consider-dash-as-word-delimiter-flag nil | 389 (defvar flyspell-consider-dash-as-word-delimiter-flag nil |
| 450 ;* Autoloading */ | 460 ;* Autoloading */ |
| 451 ;*---------------------------------------------------------------------*/ | 461 ;*---------------------------------------------------------------------*/ |
| 452 ;;;###autoload | 462 ;;;###autoload |
| 453 (add-minor-mode 'flyspell-mode | 463 (add-minor-mode 'flyspell-mode |
| 454 'flyspell-mode-line-string | 464 'flyspell-mode-line-string |
| 455 nil | 465 flyspell-mode-map |
| 456 nil | 466 nil |
| 457 'flyspell-mode) | 467 'flyspell-mode) |
| 458 | 468 |
| 459 ;*---------------------------------------------------------------------*/ | 469 ;*---------------------------------------------------------------------*/ |
| 460 ;* flyspell-buffers ... */ | 470 ;* flyspell-buffers ... */ |