X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmenubar-items.el;h=5f2767f613ecd845a1da7bfab8beaa3d0707ea43;hb=23348e8db2d12e44f8b60079dae1458bf5632f35;hp=3c0f547b9088cd2c6fef3818767ae78dc85d83e0;hpb=9fba8a0ce838af753969cf18f7b9f42e95890d3d;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/menubar-items.el b/lisp/menubar-items.el
index 3c0f547..5f2767f 100644
--- a/lisp/menubar-items.el
+++ b/lisp/menubar-items.el
@@ -147,7 +147,7 @@ which will not be used as accelerators."
       ["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)
@@ -156,7 +156,7 @@ which will not be used as accelerators."
        :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) "")]))