/[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.46.2.8 by miles, Fri Nov 12 04:21:23 2004 UTC revision 1.46.2.9 by miles, Wed Dec 8 23:31:45 2004 UTC
# Line 1  Line 1 
1  ;;; flyspell.el --- on-the-fly spell checker  ;;; flyspell.el --- on-the-fly spell checker
2    
3  ;; Copyright (C) 1998, 2000, 2001, 2002 Free Software Foundation, Inc.  ;; Copyright (C) 1998, 2000, 2001, 2002, 2004  Free Software Foundation, Inc.
4    
5  ;; Author: Manuel Serrano <Manuel.Serrano@sophia.inria.fr>  ;; Author: Manuel Serrano <Manuel.Serrano@sophia.inria.fr>
6  ;; Maintainer: FSF  ;; Maintainer: FSF
# Line 391  property of the major mode name.") Line 391  property of the major mode name.")
391    
392  (defvar flyspell-mouse-map  (defvar flyspell-mouse-map
393    (let ((map (make-sparse-keymap)))    (let ((map (make-sparse-keymap)))
394      (cond      (define-key map (if (featurep 'xemacs) [button2] [down-mouse-2])
395       ((eq flyspell-emacs 'xemacs)        #'flyspell-correct-word)
396        (define-key map [(button2)] #'flyspell-correct-word)      (define-key map "\M-\t" #'flyspell-auto-correct-word)
       (define-key map "\M-\t" #'flyspell-auto-correct-word))  
      (flyspell-use-local-map  
       (define-key map [(mouse-2)] #'flyspell-correct-word)  
       (define-key map "\M-\t" #'flyspell-auto-correct-word)))  
397      map))      map))
398    
399  ;;;###autoload  ;;;###autoload
# Line 2123  This function is meant to be added to 'f Line 2119  This function is meant to be added to 'f
2119    
2120  (provide 'flyspell)  (provide 'flyspell)
2121    
2122  ;;; arch-tag: 05d915b9-e9cf-44fb-9137-fc28f5eaab2a  ;; arch-tag: 05d915b9-e9cf-44fb-9137-fc28f5eaab2a
2123  ;;; flyspell.el ends here  ;;; flyspell.el ends here

Legend:
Removed from v.1.46.2.8  
changed lines
  Added in v.1.46.2.9

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