comparison lisp/menu-bar.el @ 66347:4eb490f3e33b

(menu-bar-file-menu) <dired>: Change help-echo string. (menu-bar-file-menu) <new-file>: Likewise.
author Richard M. Stallman <rms@gnu.org>
date Sun, 23 Oct 2005 18:29:43 +0000
parents 28718fa5d988
children 4e56b3fda002
comparison
equal deleted inserted replaced
66346:37f27a66c519 66347:4eb490f3e33b
187 :enable (menu-bar-non-minibuffer-window-p) 187 :enable (menu-bar-non-minibuffer-window-p)
188 :help "Insert another file into current buffer")) 188 :help "Insert another file into current buffer"))
189 (define-key menu-bar-file-menu [dired] 189 (define-key menu-bar-file-menu [dired]
190 '(menu-item "Open Directory..." dired 190 '(menu-item "Open Directory..." dired
191 :enable (menu-bar-non-minibuffer-window-p) 191 :enable (menu-bar-non-minibuffer-window-p)
192 :help "Read a directory, operate on its files")) 192 :help "Read a directory, to operate on its files"))
193 (define-key menu-bar-file-menu [open-file] 193 (define-key menu-bar-file-menu [open-file]
194 '(menu-item "Open File..." find-file-existing 194 '(menu-item "Open File..." find-file-existing
195 :enable (menu-bar-non-minibuffer-window-p) 195 :enable (menu-bar-non-minibuffer-window-p)
196 :help "Read an existing file into an Emacs buffer")) 196 :help "Read an existing file into an Emacs buffer"))
197 (define-key menu-bar-file-menu [new-file] 197 (define-key menu-bar-file-menu [new-file]
198 '(menu-item "Visit New File..." find-file 198 '(menu-item "Visit New File..." find-file
199 :enable (menu-bar-non-minibuffer-window-p) 199 :enable (menu-bar-non-minibuffer-window-p)
200 :help "Read or create a file and edit it")) 200 :help "Specify a new file's name, to edit the file"))
201 201
202 202
203 ;; The "Edit" menu items 203 ;; The "Edit" menu items
204 204
205 ;; The "Edit->Search" submenu 205 ;; The "Edit->Search" submenu