Mercurial > hg > xemacs-beta
comparison lisp/menubar-items.el @ 510:5bdbc721d46a
[xemacs-hg @ 2001-05-06 08:33:35 by ben]
implement printing the selection when it's selected.
force redisplay when set-charset-ccl-program called.
if bytecomp or byte-optimize need recompiling, then load
the .el version of them first, recompile them, and reload
the .elc versions to recompile everything else (so we won't
be waiting until the cows come home).
| author | ben |
|---|---|
| date | Sun, 06 May 2001 08:33:41 +0000 |
| parents | 39ccc7dd8077 |
| children | 51494923758b |
comparison
equal
deleted
inserted
replaced
| 509:68eb53e4b7e5 | 510:5bdbc721d46a |
|---|---|
| 145 '(["Page Set%_up..." generic-page-setup])) | 145 '(["Page Set%_up..." generic-page-setup])) |
| 146 ["%_Print" generic-print-buffer | 146 ["%_Print" generic-print-buffer |
| 147 :active (or (valid-specifier-tag-p 'msprinter) | 147 :active (or (valid-specifier-tag-p 'msprinter) |
| 148 (and (not (eq system-type 'windows-nt)) | 148 (and (not (eq system-type 'windows-nt)) |
| 149 (fboundp 'lpr-region))) | 149 (fboundp 'lpr-region))) |
| 150 :suffix (if put-buffer-names-in-file-menu (concat (buffer-name) "...") | 150 :suffix (if (region-active-p) "Selection..." |
| 151 "...")] | 151 (if put-buffer-names-in-file-menu (concat (buffer-name) "...") |
| 152 "..."))] | |
| 152 ,@(unless (eq system-type 'windows-nt) | 153 ,@(unless (eq system-type 'windows-nt) |
| 153 '(["Prett%_y-Print" ps-print-buffer-with-faces | 154 '(["Prett%_y-Print" ps-print-buffer-with-faces |
| 154 :active (fboundp 'ps-print-buffer-with-faces) | 155 :active (fboundp 'ps-print-buffer-with-faces) |
| 155 :suffix (if put-buffer-names-in-file-menu (buffer-name) "")])) | 156 :suffix (if put-buffer-names-in-file-menu (buffer-name) "")])) |
| 156 "-----" | 157 "-----" |