comparison lisp/menu-bar.el @ 26812:7afb74b5999e

(menu-bar-edit-menu): Define the Spell submenu even if start-process is not bound, since Ispell now supports such platforms as well.
author Eli Zaretskii <eliz@gnu.org>
date Sun, 12 Dec 1999 13:15:07 +0000
parents cbc780bdc2bd
children be0785a51ed7
comparison
equal deleted inserted replaced
26811:cc5d95f3bc3a 26812:7afb74b5999e
259 (define-key menu-bar-search-menu [re-search-forward] 259 (define-key menu-bar-search-menu [re-search-forward]
260 '("Regexp Search..." . nonincremental-re-search-forward)) 260 '("Regexp Search..." . nonincremental-re-search-forward))
261 (define-key menu-bar-search-menu [search-forward] 261 (define-key menu-bar-search-menu [search-forward]
262 '("Search..." . nonincremental-search-forward)) 262 '("Search..." . nonincremental-search-forward))
263 263
264 (if (fboundp 'start-process) 264 (define-key menu-bar-edit-menu [spell] '("Spell" . ispell-menu-map))
265 (define-key menu-bar-edit-menu [spell] '("Spell" . ispell-menu-map)))
266 (define-key menu-bar-edit-menu [fill] '("Fill" . fill-region)) 265 (define-key menu-bar-edit-menu [fill] '("Fill" . fill-region))
267 (define-key menu-bar-edit-menu [props] '("Text Properties" . facemenu-menu)) 266 (define-key menu-bar-edit-menu [props] '("Text Properties" . facemenu-menu))
268 267
269 (define-key menu-bar-edit-menu [separator-edit] 268 (define-key menu-bar-edit-menu [separator-edit]
270 '("--")) 269 '("--"))