Mercurial > emacs
comparison lisp/menu-bar.el @ 64822:518cb89f1f95
(menu-bar-file-menu): Rename some menu items and improve help strings.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Tue, 09 Aug 2005 11:28:26 +0000 |
parents | 41bb365f41c4 |
children | 889af80d3f70 |
comparison
equal
deleted
inserted
replaced
64821:ff78c70a52e2 | 64822:518cb89f1f95 |
---|---|
97 '(menu-item "New Frame" make-frame-command | 97 '(menu-item "New Frame" make-frame-command |
98 :visible (fboundp 'make-frame-command) | 98 :visible (fboundp 'make-frame-command) |
99 :help "Open a new frame")) | 99 :help "Open a new frame")) |
100 | 100 |
101 (define-key menu-bar-file-menu [one-window] | 101 (define-key menu-bar-file-menu [one-window] |
102 '(menu-item "Unsplit Windows" delete-other-windows | 102 '(menu-item "Remove Splits" delete-other-windows |
103 :enable (not (one-window-p t nil)) | 103 :enable (not (one-window-p t nil)) |
104 :help "Make selected window fill its frame")) | 104 :help "Selected window grows to fill the whole frame")) |
105 | 105 |
106 (define-key menu-bar-file-menu [split-window] | 106 (define-key menu-bar-file-menu [split-window] |
107 '(menu-item "Split Window" split-window-vertically | 107 '(menu-item "Split Window" split-window-vertically |
108 :help "Split selected window in two")) | 108 :help "Split selected window in two windows")) |
109 | 109 |
110 (define-key menu-bar-file-menu [separator-window] | 110 (define-key menu-bar-file-menu [separator-window] |
111 '(menu-item "--")) | 111 '(menu-item "--")) |
112 | 112 |
113 (define-key menu-bar-file-menu [ps-print-region] | 113 (define-key menu-bar-file-menu [ps-print-region] |
157 (or (buffer-modified-p) | 157 (or (buffer-modified-p) |
158 (not (verify-visited-file-modtime | 158 (not (verify-visited-file-modtime |
159 (current-buffer)))))) | 159 (current-buffer)))))) |
160 :help "Re-read current buffer from its file")) | 160 :help "Re-read current buffer from its file")) |
161 (define-key menu-bar-file-menu [write-file] | 161 (define-key menu-bar-file-menu [write-file] |
162 '(menu-item "Save Buffer As..." write-file | 162 '(menu-item "Save As..." write-file |
163 :enable (not (window-minibuffer-p | 163 :enable (not (window-minibuffer-p |
164 (frame-selected-window menu-updating-frame))) | 164 (frame-selected-window menu-updating-frame))) |
165 :help "Write current buffer to another file")) | 165 :help "Write current buffer to another file")) |
166 (define-key menu-bar-file-menu [save-buffer] | 166 (define-key menu-bar-file-menu [save-buffer] |
167 '(menu-item "Save (current buffer)" save-buffer | 167 '(menu-item "Save" save-buffer |
168 :enable (and (buffer-modified-p) | 168 :enable (and (buffer-modified-p) |
169 (buffer-file-name) | 169 (buffer-file-name) |
170 (not (window-minibuffer-p | 170 (not (window-minibuffer-p |
171 (frame-selected-window menu-updating-frame)))) | 171 (frame-selected-window menu-updating-frame)))) |
172 :help "Save current buffer to its file")) | 172 :help "Save current buffer to its file")) |
173 | 173 |
174 (define-key menu-bar-file-menu [separator-save] | 174 (define-key menu-bar-file-menu [separator-save] |
175 '(menu-item "--")) | 175 '(menu-item "--")) |
176 | 176 |
177 (define-key menu-bar-file-menu [kill-buffer] | 177 (define-key menu-bar-file-menu [kill-buffer] |
178 '(menu-item "Close (current buffer)" kill-this-buffer | 178 '(menu-item "Close" kill-this-buffer |
179 :enable (kill-this-buffer-enabled-p) | 179 :enable (kill-this-buffer-enabled-p) |
180 :help "Discard current buffer")) | 180 :help "Discard (kill) current buffer")) |
181 (define-key menu-bar-file-menu [insert-file] | 181 (define-key menu-bar-file-menu [insert-file] |
182 '(menu-item "Insert File..." insert-file | 182 '(menu-item "Insert File..." insert-file |
183 :enable (not (window-minibuffer-p | 183 :enable (not (window-minibuffer-p |
184 (frame-selected-window menu-updating-frame))) | 184 (frame-selected-window menu-updating-frame))) |
185 :help "Insert another file into current buffer")) | 185 :help "Insert another file into current buffer")) |
192 '(menu-item "Open File..." find-file-existing | 192 '(menu-item "Open File..." find-file-existing |
193 :enable (not (window-minibuffer-p | 193 :enable (not (window-minibuffer-p |
194 (frame-selected-window menu-updating-frame))) | 194 (frame-selected-window menu-updating-frame))) |
195 :help "Read an existing file into an Emacs buffer")) | 195 :help "Read an existing file into an Emacs buffer")) |
196 (define-key menu-bar-file-menu [new-file] | 196 (define-key menu-bar-file-menu [new-file] |
197 '(menu-item "New File..." find-file | 197 '(menu-item "Visit New File..." find-file |
198 :enable (not (window-minibuffer-p | 198 :enable (not (window-minibuffer-p |
199 (frame-selected-window menu-updating-frame))) | 199 (frame-selected-window menu-updating-frame))) |
200 :help "Read or create a file and edit it")) | 200 :help "Read or create a file and edit it")) |
201 | 201 |
202 | 202 |