aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/menu-bar.el
diff options
context:
space:
mode:
authorKaroly Lorentey2004-11-13 18:34:40 +0000
committerKaroly Lorentey2004-11-13 18:34:40 +0000
commite417405015c93c81641f5c4a33ec898b5c353772 (patch)
tree017a980c35c8a71c372304418d151e3826f88636 /lisp/menu-bar.el
parentf590a2a442d19f3a74d7bbd02bbcb4e3239f2327 (diff)
parent68d1b30d251b4771f739d20f507cd9523ae3919b (diff)
downloademacs-e417405015c93c81641f5c4a33ec898b5c353772.tar.gz
emacs-e417405015c93c81641f5c4a33ec898b5c353772.zip
Merged in changes from CVS trunk.
Patches applied: * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-673 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-674 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-675 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-676 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-677 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-678 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-679 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-680 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-681 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-682 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-683 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-684 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-685 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-686 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-687 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-688 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-689 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-690 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-691 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-692 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-693 Update from CVS * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-69 Merge from emacs--cvs-trunk--0 * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-70 Update from CVS * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-71 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-267
Diffstat (limited to 'lisp/menu-bar.el')
-rw-r--r--lisp/menu-bar.el56
1 files changed, 28 insertions, 28 deletions
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 2c1d37c80e2..597e77b6165 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -63,78 +63,78 @@ A large number or nil slows down menu responsiveness."
63 (cons "Options" menu-bar-options-menu)) 63 (cons "Options" menu-bar-options-menu))
64(defvar menu-bar-edit-menu (make-sparse-keymap "Edit")) 64(defvar menu-bar-edit-menu (make-sparse-keymap "Edit"))
65(define-key global-map [menu-bar edit] (cons "Edit" menu-bar-edit-menu)) 65(define-key global-map [menu-bar edit] (cons "Edit" menu-bar-edit-menu))
66(defvar menu-bar-files-menu (make-sparse-keymap "File")) 66(defvar menu-bar-file-menu (make-sparse-keymap "File"))
67(define-key global-map [menu-bar files] (cons "File" menu-bar-files-menu)) 67(define-key global-map [menu-bar file] (cons "File" menu-bar-file-menu))
68 68
69;; This alias is for compatibility with 19.28 and before. 69;; This alias is for compatibility with 19.28 and before.
70(defvar menu-bar-file-menu menu-bar-files-menu) 70(defvar menu-bar-files-menu menu-bar-file-menu)
71 71
72;; This is referenced by some code below; it is defined in uniquify.el 72;; This is referenced by some code below; it is defined in uniquify.el
73(defvar uniquify-buffer-name-style) 73(defvar uniquify-buffer-name-style)
74 74
75 75
76;; The "File" menu items 76;; The "File" menu items
77(define-key menu-bar-files-menu [exit-emacs] 77(define-key menu-bar-file-menu [exit-emacs]
78 '(menu-item "Exit Emacs" save-buffers-kill-emacs 78 '(menu-item "Exit Emacs" save-buffers-kill-emacs
79 :help "Save unsaved buffers, then exit")) 79 :help "Save unsaved buffers, then exit"))
80 80
81(define-key menu-bar-files-menu [separator-exit] 81(define-key menu-bar-file-menu [separator-exit]
82 '("--")) 82 '("--"))
83 83
84;; Don't use delete-frame as event name because that is a special 84;; Don't use delete-frame as event name because that is a special
85;; event. 85;; event.
86(define-key menu-bar-files-menu [delete-this-frame] 86(define-key menu-bar-file-menu [delete-this-frame]
87 '(menu-item "Delete Frame" delete-frame 87 '(menu-item "Delete Frame" delete-frame
88 :visible (fboundp 'delete-frame) 88 :visible (fboundp 'delete-frame)
89 :enable (delete-frame-enabled-p) 89 :enable (delete-frame-enabled-p)
90 :help "Delete currently selected frame")) 90 :help "Delete currently selected frame"))
91(define-key menu-bar-files-menu [make-frame-on-display] 91(define-key menu-bar-file-menu [make-frame-on-display]
92 '(menu-item "New Frame on Display..." make-frame-on-display 92 '(menu-item "New Frame on Display..." make-frame-on-display
93 :visible (fboundp 'make-frame-on-display) 93 :visible (fboundp 'make-frame-on-display)
94 :help "Open a new frame on another display")) 94 :help "Open a new frame on another display"))
95(define-key menu-bar-files-menu [make-frame] 95(define-key menu-bar-file-menu [make-frame]
96 '(menu-item "New Frame" make-frame-command 96 '(menu-item "New Frame" make-frame-command
97 :visible (fboundp 'make-frame-command) 97 :visible (fboundp 'make-frame-command)
98 :help "Open a new frame")) 98 :help "Open a new frame"))
99 99
100(define-key menu-bar-files-menu [one-window] 100(define-key menu-bar-file-menu [one-window]
101 '(menu-item "Unsplit Windows" delete-other-windows 101 '(menu-item "Unsplit Windows" delete-other-windows
102 :enable (not (one-window-p t nil)) 102 :enable (not (one-window-p t nil))
103 :help "Make selected window fill its frame")) 103 :help "Make selected window fill its frame"))
104 104
105(define-key menu-bar-files-menu [split-window] 105(define-key menu-bar-file-menu [split-window]
106 '(menu-item "Split Window" split-window-vertically 106 '(menu-item "Split Window" split-window-vertically
107 :help "Split selected window in two")) 107 :help "Split selected window in two"))
108 108
109(define-key menu-bar-files-menu [separator-window] 109(define-key menu-bar-file-menu [separator-window]
110 '(menu-item "--")) 110 '(menu-item "--"))
111 111
112(define-key menu-bar-files-menu [ps-print-region] 112(define-key menu-bar-file-menu [ps-print-region]
113 '(menu-item "Postscript Print Region (B+W)" ps-print-region 113 '(menu-item "Postscript Print Region (B+W)" ps-print-region
114 :enable mark-active 114 :enable mark-active
115 :help "Pretty-print marked region in black and white to PostScript printer")) 115 :help "Pretty-print marked region in black and white to PostScript printer"))
116(define-key menu-bar-files-menu [ps-print-buffer] 116(define-key menu-bar-file-menu [ps-print-buffer]
117 '(menu-item "Postscript Print Buffer (B+W)" ps-print-buffer 117 '(menu-item "Postscript Print Buffer (B+W)" ps-print-buffer
118 :help "Pretty-print current buffer in black and white to PostScript printer")) 118 :help "Pretty-print current buffer in black and white to PostScript printer"))
119(define-key menu-bar-files-menu [ps-print-region-faces] 119(define-key menu-bar-file-menu [ps-print-region-faces]
120 '(menu-item "Postscript Print Region" ps-print-region-with-faces 120 '(menu-item "Postscript Print Region" ps-print-region-with-faces
121 :enable mark-active 121 :enable mark-active
122 :help "Pretty-print marked region to PostScript printer")) 122 :help "Pretty-print marked region to PostScript printer"))
123(define-key menu-bar-files-menu [ps-print-buffer-faces] 123(define-key menu-bar-file-menu [ps-print-buffer-faces]
124 '(menu-item "Postscript Print Buffer" ps-print-buffer-with-faces 124 '(menu-item "Postscript Print Buffer" ps-print-buffer-with-faces
125 :help "Pretty-print current buffer to PostScript printer")) 125 :help "Pretty-print current buffer to PostScript printer"))
126(define-key menu-bar-files-menu [print-region] 126(define-key menu-bar-file-menu [print-region]
127 '(menu-item "Print Region" print-region 127 '(menu-item "Print Region" print-region
128 :enable mark-active 128 :enable mark-active
129 :help "Print region between mark and current position")) 129 :help "Print region between mark and current position"))
130(define-key menu-bar-files-menu [print-buffer] 130(define-key menu-bar-file-menu [print-buffer]
131 '(menu-item "Print Buffer" print-buffer 131 '(menu-item "Print Buffer" print-buffer
132 :help "Print current buffer with page headings")) 132 :help "Print current buffer with page headings"))
133 133
134(define-key menu-bar-files-menu [separator-print] 134(define-key menu-bar-file-menu [separator-print]
135 '(menu-item "--")) 135 '(menu-item "--"))
136 136
137(define-key menu-bar-files-menu [recover-session] 137(define-key menu-bar-file-menu [recover-session]
138 '(menu-item "Recover Crashed Session..." recover-session 138 '(menu-item "Recover Crashed Session..." recover-session
139 :enable (and auto-save-list-file-prefix 139 :enable (and auto-save-list-file-prefix
140 (file-directory-p 140 (file-directory-p
@@ -148,7 +148,7 @@ A large number or nil slows down menu responsiveness."
148 auto-save-list-file-prefix))) 148 auto-save-list-file-prefix)))
149 t)) 149 t))
150 :help "Recover edits from a crashed session")) 150 :help "Recover edits from a crashed session"))
151(define-key menu-bar-files-menu [revert-buffer] 151(define-key menu-bar-file-menu [revert-buffer]
152 '(menu-item "Revert Buffer" revert-buffer 152 '(menu-item "Revert Buffer" revert-buffer
153 :enable (or revert-buffer-function 153 :enable (or revert-buffer-function
154 revert-buffer-insert-file-contents-function 154 revert-buffer-insert-file-contents-function
@@ -157,12 +157,12 @@ A large number or nil slows down menu responsiveness."
157 (not (verify-visited-file-modtime 157 (not (verify-visited-file-modtime
158 (current-buffer)))))) 158 (current-buffer))))))
159 :help "Re-read current buffer from its file")) 159 :help "Re-read current buffer from its file"))
160(define-key menu-bar-files-menu [write-file] 160(define-key menu-bar-file-menu [write-file]
161 '(menu-item "Save Buffer As..." write-file 161 '(menu-item "Save Buffer As..." write-file
162 :enable (not (window-minibuffer-p 162 :enable (not (window-minibuffer-p
163 (frame-selected-window menu-updating-frame))) 163 (frame-selected-window menu-updating-frame)))
164 :help "Write current buffer to another file")) 164 :help "Write current buffer to another file"))
165(define-key menu-bar-files-menu [save-buffer] 165(define-key menu-bar-file-menu [save-buffer]
166 '(menu-item "Save (current buffer)" save-buffer 166 '(menu-item "Save (current buffer)" save-buffer
167 :enable (and (buffer-modified-p) 167 :enable (and (buffer-modified-p)
168 (buffer-file-name) 168 (buffer-file-name)
@@ -170,27 +170,27 @@ A large number or nil slows down menu responsiveness."
170 (frame-selected-window menu-updating-frame)))) 170 (frame-selected-window menu-updating-frame))))
171 :help "Save current buffer to its file")) 171 :help "Save current buffer to its file"))
172 172
173(define-key menu-bar-files-menu [separator-save] 173(define-key menu-bar-file-menu [separator-save]
174 '(menu-item "--")) 174 '(menu-item "--"))
175 175
176(define-key menu-bar-files-menu [kill-buffer] 176(define-key menu-bar-file-menu [kill-buffer]
177 '(menu-item "Close (current buffer)" kill-this-buffer 177 '(menu-item "Close (current buffer)" kill-this-buffer
178 :enable (kill-this-buffer-enabled-p) 178 :enable (kill-this-buffer-enabled-p)
179 :help "Discard current buffer")) 179 :help "Discard current buffer"))
180(define-key menu-bar-files-menu [insert-file] 180(define-key menu-bar-file-menu [insert-file]
181 '(menu-item "Insert File..." insert-file 181 '(menu-item "Insert File..." insert-file
182 :enable (not (window-minibuffer-p 182 :enable (not (window-minibuffer-p
183 (frame-selected-window menu-updating-frame))) 183 (frame-selected-window menu-updating-frame)))
184 :help "Insert another file into current buffer")) 184 :help "Insert another file into current buffer"))
185(define-key menu-bar-files-menu [dired] 185(define-key menu-bar-file-menu [dired]
186 '(menu-item "Open Directory..." dired 186 '(menu-item "Open Directory..." dired
187 :help "Read a directory, operate on its files")) 187 :help "Read a directory, operate on its files"))
188(define-key menu-bar-files-menu [open-file] 188(define-key menu-bar-file-menu [open-file]
189 '(menu-item "Open File..." find-file-existing 189 '(menu-item "Open File..." find-file-existing
190 :enable (not (window-minibuffer-p 190 :enable (not (window-minibuffer-p
191 (frame-selected-window menu-updating-frame))) 191 (frame-selected-window menu-updating-frame)))
192 :help "Read an existing file into an Emacs buffer")) 192 :help "Read an existing file into an Emacs buffer"))
193(define-key menu-bar-files-menu [new-file] 193(define-key menu-bar-file-menu [new-file]
194 '(menu-item "New File..." find-file 194 '(menu-item "New File..." find-file
195 :enable (not (window-minibuffer-p 195 :enable (not (window-minibuffer-p
196 (frame-selected-window menu-updating-frame))) 196 (frame-selected-window menu-updating-frame)))