summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGerd Moellmann <gerd@gnu.org>2001-01-29 14:59:34 +0000
committerGerd Moellmann <gerd@gnu.org>2001-01-29 14:59:34 +0000
commit438c2df0493fe632cb49602be7c31bd1995c15fa (patch)
treefa203654df5811c7310162a009f8dec770425547
parent3b6ed359f63d225d85256d4636f3d0940f5ecf1d (diff)
downloademacs-438c2df0493fe632cb49602be7c31bd1995c15fa.tar.gz
(menu-bar-files-menu): Add menu items for
Postscript printing in black and white.
-rw-r--r--lisp/ChangeLog3
-rw-r--r--lisp/menu-bar.el9
2 files changed, 11 insertions, 1 deletions
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 <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 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]