Mercurial > emacs

comparison lisp/menu-bar.el @ 90225:a3716f7538f2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-79 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 519-530) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 106-111) - Merge from emacs--cvs-trunk--0 - Update from CVS
author Miles Bader <miles@gnu.org>
date Tue, 06 Sep 2005 00:25:20 +0000
parents 2d92f5c9d6ae a1ea2d5f0190
children 10fe5fadaf89
comparison
equal deleted inserted replaced
90224:2d92f5c9d6ae 90225:a3716f7538f2
103 :enable (not (one-window-p t nil)) 103 :enable (not (one-window-p t nil))
104 :help "Selected window grows to fill the whole 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 :enable (and (frame-live-p menu-updating-frame)
109 (frame-visible-p menu-updating-frame )
110 (not (window-minibuffer-p
111 (frame-selected-window menu-updating-frame))))
108 :help "Split selected window in two windows")) 112 :help "Split selected window in two windows"))
109 113
110 (define-key menu-bar-file-menu [separator-window] 114 (define-key menu-bar-file-menu [separator-window]
111 '(menu-item "--")) 115 '(menu-item "--"))
112 116
114 '(menu-item "Postscript Print Region (B+W)" ps-print-region 118 '(menu-item "Postscript Print Region (B+W)" ps-print-region
115 :enable mark-active 119 :enable mark-active
116 :help "Pretty-print marked region in black and white to PostScript printer")) 120 :help "Pretty-print marked region in black and white to PostScript printer"))
117 (define-key menu-bar-file-menu [ps-print-buffer] 121 (define-key menu-bar-file-menu [ps-print-buffer]
118 '(menu-item "Postscript Print Buffer (B+W)" ps-print-buffer 122 '(menu-item "Postscript Print Buffer (B+W)" ps-print-buffer
123 :enable (and (frame-live-p menu-updating-frame)
124 (frame-visible-p menu-updating-frame ))
119 :help "Pretty-print current buffer in black and white to PostScript printer")) 125 :help "Pretty-print current buffer in black and white to PostScript printer"))
120 (define-key menu-bar-file-menu [ps-print-region-faces] 126 (define-key menu-bar-file-menu [ps-print-region-faces]
121 '(menu-item "Postscript Print Region" ps-print-region-with-faces 127 '(menu-item "Postscript Print Region" ps-print-region-with-faces
122 :enable mark-active 128 :enable mark-active
123 :help "Pretty-print marked region to PostScript printer")) 129 :help "Pretty-print marked region to PostScript printer"))
124 (define-key menu-bar-file-menu [ps-print-buffer-faces] 130 (define-key menu-bar-file-menu [ps-print-buffer-faces]
125 '(menu-item "Postscript Print Buffer" ps-print-buffer-with-faces 131 '(menu-item "Postscript Print Buffer" ps-print-buffer-with-faces
132 :enable (and (frame-live-p menu-updating-frame)
133 (frame-visible-p menu-updating-frame ))
126 :help "Pretty-print current buffer to PostScript printer")) 134 :help "Pretty-print current buffer to PostScript printer"))
127 (define-key menu-bar-file-menu [print-region] 135 (define-key menu-bar-file-menu [print-region]
128 '(menu-item "Print Region" print-region 136 '(menu-item "Print Region" print-region
129 :enable mark-active 137 :enable mark-active
130 :help "Print region between mark and current position")) 138 :help "Print region between mark and current position"))
131 (define-key menu-bar-file-menu [print-buffer] 139 (define-key menu-bar-file-menu [print-buffer]
132 '(menu-item "Print Buffer" print-buffer 140 '(menu-item "Print Buffer" print-buffer
141 :enable (and (frame-live-p menu-updating-frame)
142 (frame-visible-p menu-updating-frame ))
133 :help "Print current buffer with page headings")) 143 :help "Print current buffer with page headings"))
134 144
135 (define-key menu-bar-file-menu [separator-print] 145 (define-key menu-bar-file-menu [separator-print]
136 '(menu-item "--")) 146 '(menu-item "--"))
137 147
158 (not (verify-visited-file-modtime 168 (not (verify-visited-file-modtime
159 (current-buffer)))))) 169 (current-buffer))))))
160 :help "Re-read current buffer from its file")) 170 :help "Re-read current buffer from its file"))
161 (define-key menu-bar-file-menu [write-file] 171 (define-key menu-bar-file-menu [write-file]
162 '(menu-item "Save As..." write-file 172 '(menu-item "Save As..." write-file
163 :enable (not (window-minibuffer-p 173 :enable (and (frame-live-p menu-updating-frame)
164 (frame-selected-window menu-updating-frame))) 174 (frame-visible-p menu-updating-frame )
175 (not (window-minibuffer-p
176 (frame-selected-window menu-updating-frame))))
165 :help "Write current buffer to another file")) 177 :help "Write current buffer to another file"))
166 (define-key menu-bar-file-menu [save-buffer] 178 (define-key menu-bar-file-menu [save-buffer]
167 '(menu-item "Save" save-buffer 179 '(menu-item "Save" save-buffer
168 :enable (and (buffer-modified-p) 180 :enable (and (buffer-modified-p)
169 (buffer-file-name) 181 (buffer-file-name)
1028 (eq 'turn-on-auto-fill text-mode-hook))))) 1040 (eq 'turn-on-auto-fill text-mode-hook)))))
1029 (define-key menu-bar-options-menu [truncate-lines] 1041 (define-key menu-bar-options-menu [truncate-lines]
1030 '(menu-item "Truncate Long Lines in this Buffer" 1042 '(menu-item "Truncate Long Lines in this Buffer"
1031 toggle-truncate-lines 1043 toggle-truncate-lines
1032 :help "Truncate long lines on the screen" 1044 :help "Truncate long lines on the screen"
1033 :button (:toggle . truncate-lines))) 1045 :button (:toggle . truncate-lines)
1046 :enable (and (frame-live-p menu-updating-frame)
1047 (frame-visible-p menu-updating-frame))))
1034 1048
1035 (define-key menu-bar-options-menu [highlight-separator] 1049 (define-key menu-bar-options-menu [highlight-separator]
1036 '("--")) 1050 '("--"))
1037 (define-key menu-bar-options-menu [highlight-paren-mode] 1051 (define-key menu-bar-options-menu [highlight-paren-mode]
1038 (menu-bar-make-mm-toggle show-paren-mode 1052 (menu-bar-make-mm-toggle show-paren-mode