Mercurial > hg > xemacs-beta
diff 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 |
line wrap: on
line diff
--- a/lisp/menubar-items.el Fri Jul 05 22:15:04 2002 +0000 +++ b/lisp/menubar-items.el Sat Jul 06 05:48:22 2002 +0000 @@ -277,7 +277,7 @@ ["Save %_As..." write-file] ["Save So%_me Buffers" save-some-buffers] "-----" - ,@(if (eq system-type 'windows-nt) + ,@(if (valid-specifier-tag-p 'msprinter) '(["Page Set%_up..." generic-page-setup])) ["%_Print" generic-print-buffer :active (or (valid-specifier-tag-p 'msprinter) @@ -286,7 +286,7 @@ :suffix (if (region-active-p) "Selection..." (if put-buffer-names-in-file-menu (concat (buffer-name) "...") "..."))] - ,@(unless (eq system-type 'windows-nt) + ,@(unless (valid-specifier-tag-p 'msprinter) '(["Prett%_y-Print" ps-print-buffer-with-faces :active (fboundp 'ps-print-buffer-with-faces) :suffix (if put-buffer-names-in-file-menu (buffer-name) "")]))