From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 12 Jul 1993 20:31:52 +0000 (+0000)
Subject: (ispell-menu-map): New keymap--both fn and var.
X-Git-Tag: emacs-19.34~11789
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=44ca409ab8d054aca63ab260f342637c2d2829a9;p=emacs.git

(ispell-menu-map): New keymap--both fn and var.
---

diff --git a/lisp/textmodes/ispell4.el b/lisp/textmodes/ispell4.el
index 2fe07e823d4..2fd81579bbe 100644
--- a/lisp/textmodes/ispell4.el
+++ b/lisp/textmodes/ispell4.el
@@ -213,6 +213,24 @@ that have not already been dumped will be lost."
 (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.