Mercurial > emacs
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 |