/[emacs]/emacs/lisp/menu-bar.el
ViewVC logotype

Diff of /emacs/lisp/menu-bar.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.263 by ttn, Sat Aug 6 22:13:43 2005 UTC revision 1.264 by rms, Tue Aug 9 11:28:26 2005 UTC
# Line 99  A large number or nil slows down menu re Line 99  A large number or nil slows down menu re
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 "--"))
# Line 159  A large number or nil slows down menu re Line 159  A large number or nil slows down menu re
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
# Line 175  A large number or nil slows down menu re Line 175  A large number or nil slows down menu re
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
# Line 194  A large number or nil slows down menu re Line 194  A large number or nil slows down menu re
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"))

Legend:
Removed from v.1.263  
changed lines
  Added in v.1.264

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26