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

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

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

revision 1.128 by rms, Tue Jan 22 01:09:12 2002 UTC revision 1.129 by abraham, Sun Feb 17 12:15:17 2002 UTC
# Line 1  Line 1 
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>
# Line 878  and added as a submenu of the \"Edit\" m Line 878  and added as a submenu of the \"Edit\" m
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"))

Legend:
Removed from v.1.128  
changed lines
  Added in v.1.129

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