/[emacs]/emacs/lisp/textmodes/flyspell.el
ViewVC logotype

Diff of /emacs/lisp/textmodes/flyspell.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.36 by pj, Mon Nov 12 08:17:15 2001 UTC revision 1.37 by rms, Thu Dec 27 03:13:48 2001 UTC
# Line 372  property of the major mode name.") Line 372  property of the major mode name.")
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    
# Line 452  in your .emacs file. Line 462  in your .emacs file.
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    

Legend:
Removed from v.1.36  
changed lines
  Added in v.1.37

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26