99 |
:help "Open a new frame")) |
:help "Open a new frame")) |
100 |
|
|
101 |
(define-key menu-bar-file-menu [one-window] |
(define-key menu-bar-file-menu [one-window] |
102 |
'(menu-item "Unsplit Windows" delete-other-windows |
'(menu-item "Remove Splits" delete-other-windows |
103 |
:enable (not (one-window-p t nil)) |
:enable (not (one-window-p t nil)) |
104 |
:help "Make selected window fill its frame")) |
:help "Selected window grows to fill the whole frame")) |
105 |
|
|
106 |
(define-key menu-bar-file-menu [split-window] |
(define-key menu-bar-file-menu [split-window] |
107 |
'(menu-item "Split Window" split-window-vertically |
'(menu-item "Split Window" split-window-vertically |
108 |
:help "Split selected window in two")) |
:help "Split selected window in two windows")) |
109 |
|
|
110 |
(define-key menu-bar-file-menu [separator-window] |
(define-key menu-bar-file-menu [separator-window] |
111 |
'(menu-item "--")) |
'(menu-item "--")) |
159 |
(current-buffer)))))) |
(current-buffer)))))) |
160 |
:help "Re-read current buffer from its file")) |
:help "Re-read current buffer from its file")) |
161 |
(define-key menu-bar-file-menu [write-file] |
(define-key menu-bar-file-menu [write-file] |
162 |
'(menu-item "Save Buffer As..." write-file |
'(menu-item "Save As..." write-file |
163 |
:enable (not (window-minibuffer-p |
:enable (not (window-minibuffer-p |
164 |
(frame-selected-window menu-updating-frame))) |
(frame-selected-window menu-updating-frame))) |
165 |
:help "Write current buffer to another file")) |
:help "Write current buffer to another file")) |
166 |
(define-key menu-bar-file-menu [save-buffer] |
(define-key menu-bar-file-menu [save-buffer] |
167 |
'(menu-item "Save (current buffer)" save-buffer |
'(menu-item "Save" save-buffer |
168 |
:enable (and (buffer-modified-p) |
:enable (and (buffer-modified-p) |
169 |
(buffer-file-name) |
(buffer-file-name) |
170 |
(not (window-minibuffer-p |
(not (window-minibuffer-p |
175 |
'(menu-item "--")) |
'(menu-item "--")) |
176 |
|
|
177 |
(define-key menu-bar-file-menu [kill-buffer] |
(define-key menu-bar-file-menu [kill-buffer] |
178 |
'(menu-item "Close (current buffer)" kill-this-buffer |
'(menu-item "Close" kill-this-buffer |
179 |
:enable (kill-this-buffer-enabled-p) |
:enable (kill-this-buffer-enabled-p) |
180 |
:help "Discard current buffer")) |
:help "Discard (kill) current buffer")) |
181 |
(define-key menu-bar-file-menu [insert-file] |
(define-key menu-bar-file-menu [insert-file] |
182 |
'(menu-item "Insert File..." insert-file |
'(menu-item "Insert File..." insert-file |
183 |
:enable (not (window-minibuffer-p |
:enable (not (window-minibuffer-p |
194 |
(frame-selected-window menu-updating-frame))) |
(frame-selected-window menu-updating-frame))) |
195 |
:help "Read an existing file into an Emacs buffer")) |
:help "Read an existing file into an Emacs buffer")) |
196 |
(define-key menu-bar-file-menu [new-file] |
(define-key menu-bar-file-menu [new-file] |
197 |
'(menu-item "New File..." find-file |
'(menu-item "Visit New File..." find-file |
198 |
:enable (not (window-minibuffer-p |
:enable (not (window-minibuffer-p |
199 |
(frame-selected-window menu-updating-frame))) |
(frame-selected-window menu-updating-frame))) |
200 |
:help "Read or create a file and edit it")) |
:help "Read or create a file and edit it")) |