Mercurial > emacs

changeset 4062:d7f5f18ddbc5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ispell-menu-map): New keymap--both fn and var.
author Richard M. Stallman <rms@gnu.org>
date Mon, 12 Jul 1993 20:31:52 +0000
parents 7279958409fe
children cebb261b0f10
files lisp/textmodes/=ispell4.el
diffstat 1 files changed, 18 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/textmodes/=ispell4.el	Mon Jul 12 20:29:28 1993 +0000
+++ b/lisp/textmodes/=ispell4.el	Mon Jul 12 20:31:52 1993 +0000
@@ -213,6 +213,24 @@
 (defun ispell-tex-buffer-p ()
   (memq major-mode '(plain-TeX-mode LaTeX-mode)))
 
+(defvar ispell-menu-map (make-sparse-keymap "Spell"))
+(defalias ispell-menu-map ispell-menu-map)
+
+(define-key ispell-menu-map [reload-ispell]
+  '("Reload Dictionary" . reload-ispell))
+
+(define-key ispell-menu-map [ispell-next]
+  '("Continue Check" . ispell-next))
+
+(define-key ispell-menu-map [ispell-region]
+  '("Check Region" . ispell-region))
+
+(define-key ispell-menu-map [ispell-buffer]
+  '("Check Buffer" . ispell))
+
+(define-key ispell-menu-map [ispell-word]
+  '("Check Word" . ispell-word))
+
 ;;;###autoload
 (defun ispell (&optional buf start end)
   "Run Ispell over current buffer's visited file.