(ispell-menu-map): New autoload definition.

(menu-bar-edit-menu): Add "Spell" item.

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index c4a2ea013b8db68d44b48efa57a0bd223e5f237b..0d9749d648bc38b136f22dbf003a7f062934410d 100644 (file)
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -45,6 +45,8 @@
 (define-key menu-bar-file-menu [open-file] '("Open File..." . find-file))
 (define-key menu-bar-file-menu [new-frame] '("New Frame" . new-frame))
 
+
+(define-key menu-bar-edit-menu [spell] '("Spell..." . ispell-menu-map))
 (define-key menu-bar-edit-menu [fill] '("Fill" . fill-region))
 (define-key menu-bar-edit-menu [clear] '("Clear" . delete-region))
 (define-key menu-bar-edit-menu [choose-next-paste]
@@ -63,6 +65,8 @@
                             pending-undo-list
                           (consp buffer-undo-list)))
 
+(autoload 'ispell-menu-map "ispell" nil t 'keymap)
+
 (define-key menu-bar-help-menu [emacs-tutorial]
   '("Emacs Tutorial" . help-with-tutorial))
 (define-key menu-bar-help-menu [man] '("Man..." . manual-entry))