From 438c2df0493fe632cb49602be7c31bd1995c15fa Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Mon, 29 Jan 2001 14:59:34 +0000 Subject: [PATCH] (menu-bar-files-menu): Add menu items for Postscript printing in black and white. --- lisp/ChangeLog | 3 +++ lisp/menu-bar.el | 9 ++++++++- 2 files changed, 11 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 54557c88e9c..04300ed7086 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2001-01-29 Gerd Moellmann + * 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 cbab870e91b..65c9f7d76dc 100644 --- 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] -- 2.39.2