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