Mercurial > hg > xemacs-beta
comparison lisp/menubar-items.el @ 903:4a27df428c73
[xemacs-hg @ 2002-07-06 05:48:14 by andyp]
sync with 21.4
| author | andyp |
|---|---|
| date | Sat, 06 Jul 2002 05:48:22 +0000 |
| parents | e7ee5f8bde58 |
| children | 57b76886836d |
comparison
equal
deleted
inserted
replaced
| 902:2fd2239ea63a | 903:4a27df428c73 |
|---|---|
| 275 :active (buffer-modified-p) | 275 :active (buffer-modified-p) |
| 276 :suffix (if put-buffer-names-in-file-menu (buffer-name) "")] | 276 :suffix (if put-buffer-names-in-file-menu (buffer-name) "")] |
| 277 ["Save %_As..." write-file] | 277 ["Save %_As..." write-file] |
| 278 ["Save So%_me Buffers" save-some-buffers] | 278 ["Save So%_me Buffers" save-some-buffers] |
| 279 "-----" | 279 "-----" |
| 280 ,@(if (eq system-type 'windows-nt) | 280 ,@(if (valid-specifier-tag-p 'msprinter) |
| 281 '(["Page Set%_up..." generic-page-setup])) | 281 '(["Page Set%_up..." generic-page-setup])) |
| 282 ["%_Print" generic-print-buffer | 282 ["%_Print" generic-print-buffer |
| 283 :active (or (valid-specifier-tag-p 'msprinter) | 283 :active (or (valid-specifier-tag-p 'msprinter) |
| 284 (and (not (eq system-type 'windows-nt)) | 284 (and (not (eq system-type 'windows-nt)) |
| 285 (fboundp 'lpr-region))) | 285 (fboundp 'lpr-region))) |
| 286 :suffix (if (region-active-p) "Selection..." | 286 :suffix (if (region-active-p) "Selection..." |
| 287 (if put-buffer-names-in-file-menu (concat (buffer-name) "...") | 287 (if put-buffer-names-in-file-menu (concat (buffer-name) "...") |
| 288 "..."))] | 288 "..."))] |
| 289 ,@(unless (eq system-type 'windows-nt) | 289 ,@(unless (valid-specifier-tag-p 'msprinter) |
| 290 '(["Prett%_y-Print" ps-print-buffer-with-faces | 290 '(["Prett%_y-Print" ps-print-buffer-with-faces |
| 291 :active (fboundp 'ps-print-buffer-with-faces) | 291 :active (fboundp 'ps-print-buffer-with-faces) |
| 292 :suffix (if put-buffer-names-in-file-menu (buffer-name) "")])) | 292 :suffix (if put-buffer-names-in-file-menu (buffer-name) "")])) |
| 293 "-----" | 293 "-----" |
| 294 ["%_Revert Buffer" revert-buffer | 294 ["%_Revert Buffer" revert-buffer |