aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGerd Moellmann2001-01-29 14:59:34 +0000
committerGerd Moellmann2001-01-29 14:59:34 +0000
commit438c2df0493fe632cb49602be7c31bd1995c15fa (patch)
treefa203654df5811c7310162a009f8dec770425547
parent3b6ed359f63d225d85256d4636f3d0940f5ecf1d (diff)
downloademacs-438c2df0493fe632cb49602be7c31bd1995c15fa.tar.gz
emacs-438c2df0493fe632cb49602be7c31bd1995c15fa.zip
(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 @@
12001-01-29 Gerd Moellmann <gerd@gnu.org> 12001-01-29 Gerd Moellmann <gerd@gnu.org>
2 2
3 * menu-bar.el (menu-bar-files-menu): Add menu items for
4 Postscript printing in black and white.
5
3 * mail/rmail.el (rmail-ignored-headers): Add X-Sign, X-BeenThere, 6 * mail/rmail.el (rmail-ignored-headers): Add X-Sign, X-BeenThere,
4 X-Mailman-Version, Precedence, List-Help, List-Post, 7 X-Mailman-Version, Precedence, List-Help, List-Post,
5 List-Subscribe, List-Id, List-Unsubscribe, List-Archive, 8 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."
104 '(menu-item "--")) 104 '(menu-item "--"))
105 105
106(define-key menu-bar-files-menu [ps-print-region] 106(define-key menu-bar-files-menu [ps-print-region]
107 '(menu-item "Postscript Print Region (B+W)" ps-print-region
108 :enable mark-active
109 :help "Pretty-print marked region in black and white to PostScript printer"))
110(define-key menu-bar-files-menu [ps-print-buffer]
111 '(menu-item "Postscript Print Buffer (B+W)" ps-print-buffer
112 :help "Pretty-print current buffer in black and white to PostScript printer"))
113(define-key menu-bar-files-menu [ps-print-region-faces]
107 '(menu-item "Postscript Print Region" ps-print-region-with-faces 114 '(menu-item "Postscript Print Region" ps-print-region-with-faces
108 :enable mark-active 115 :enable mark-active
109 :help "Pretty-print marked region to PostScript printer")) 116 :help "Pretty-print marked region to PostScript printer"))
110(define-key menu-bar-files-menu [ps-print-buffer] 117(define-key menu-bar-files-menu [ps-print-buffer-faces]
111 '(menu-item "Postscript Print Buffer" ps-print-buffer-with-faces 118 '(menu-item "Postscript Print Buffer" ps-print-buffer-with-faces
112 :help "Pretty-print current buffer to PostScript printer")) 119 :help "Pretty-print current buffer to PostScript printer"))
113(define-key menu-bar-files-menu [print-region] 120(define-key menu-bar-files-menu [print-region]