Mercurial > emacs
comparison lisp/menu-bar.el @ 90225:a3716f7538f2
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 |