(menu-bar-files-menu): Add menu items for

Postscript printing in black and white.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 54557c88e9c7f9294b2d5ef822a85e6b5c4cf4a8..04300ed7086aac013cfc327f1ddbc8204cecd416 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2001-01-29  Gerd Moellmann  <gerd@gnu.org>
 
+       * menu-bar.el (menu-bar-files-menu): Add menu items for 
+       Postscript printing in black and white.
+
        * mail/rmail.el (rmail-ignored-headers): Add X-Sign, X-BeenThere,
        X-Mailman-Version, Precedence, List-Help, List-Post,
        List-Subscribe, List-Id, List-Unsubscribe, List-Archive,

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index cbab870e91bdaff5620c8b3ddf09b79ad3d54860..65c9f7d76dc964be586f9f5a30deb9b9fd64e111 100644 (file)
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -104,10 +104,17 @@ A large number or nil slows down menu responsiveness."
   '(menu-item "--"))
 
 (define-key menu-bar-files-menu [ps-print-region]
+  '(menu-item "Postscript Print Region (B+W)" ps-print-region
+             :enable mark-active
+             :help "Pretty-print marked region in black and white to PostScript printer"))
+(define-key menu-bar-files-menu [ps-print-buffer]
+  '(menu-item "Postscript Print Buffer (B+W)" ps-print-buffer
+             :help "Pretty-print current buffer in black and white to PostScript printer"))
+(define-key menu-bar-files-menu [ps-print-region-faces]
   '(menu-item "Postscript Print Region" ps-print-region-with-faces
              :enable mark-active
              :help "Pretty-print marked region to PostScript printer"))
-(define-key menu-bar-files-menu [ps-print-buffer]
+(define-key menu-bar-files-menu [ps-print-buffer-faces]
   '(menu-item "Postscript Print Buffer" ps-print-buffer-with-faces
              :help "Pretty-print current buffer to PostScript printer"))
 (define-key menu-bar-files-menu [print-region]