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 |