1 |
;;; ispell.el --- interface to International Ispell Versions 3.1 and 3.2 |
;;; ispell.el --- interface to International Ispell Versions 3.1 and 3.2 |
2 |
|
|
3 |
;; Copyright (C) 1994, 1995, 1997, 1998, 1999, 2000, 2001 Free Software Foundation, Inc. |
;; Copyright (C) 1994, 1995, 1997, 1998, 1999, 2000, 2001, 2002 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Ken Stevens <k.stevens@ieee.org> |
;; Author: Ken Stevens <k.stevens@ieee.org> |
6 |
;; Maintainer: Ken Stevens <k.stevens@ieee.org> |
;; Maintainer: Ken Stevens <k.stevens@ieee.org> |
878 |
'(menu-item "Save Dictionary" |
'(menu-item "Save Dictionary" |
879 |
(lambda () (interactive) (ispell-pdict-save t t)) |
(lambda () (interactive) (ispell-pdict-save t t)) |
880 |
:help "Save personal dictionary")) |
:help "Save personal dictionary")) |
881 |
|
(define-key ispell-menu-map [ispell-customize] |
882 |
|
'(menu-item "Customize..." |
883 |
|
(lambda () (interactive) (customize-group 'ispell)) |
884 |
|
:help "Customize spell checking options")) |
885 |
(define-key ispell-menu-map [ispell-help] |
(define-key ispell-menu-map [ispell-help] |
886 |
;; use (x-popup-menu last-nonmenu-event(list "" ispell-help-list)) ? |
;; use (x-popup-menu last-nonmenu-event(list "" ispell-help-list)) ? |
887 |
'(menu-item "Help" |
'(menu-item "Help" |
888 |
(lambda () (interactive) (describe-function 'ispell-help)) |
(lambda () (interactive) (describe-function 'ispell-help)) |
889 |
:help "Show standard Ispell keybindings and commands")) |
:help "Show standard Ispell keybindings and commands")) |
890 |
|
(define-key ispell-menu-map [flyspell-mode] |
891 |
|
'(menu-item "Automatic spell checking (Flyspell)" |
892 |
|
flyspell-mode |
893 |
|
:help "Check spelling while you edit the text" |
894 |
|
:button (:toggle . flyspell-mode))) |
895 |
(define-key ispell-menu-map [ispell-complete-word] |
(define-key ispell-menu-map [ispell-complete-word] |
896 |
'(menu-item "Complete Word" ispell-complete-word |
'(menu-item "Complete Word" ispell-complete-word |
897 |
:help "Complete word at cursor using dictionary")) |
:help "Complete word at cursor using dictionary")) |