diff options
| author | Gerd Moellmann | 2001-01-29 14:59:34 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2001-01-29 14:59:34 +0000 |
| commit | 438c2df0493fe632cb49602be7c31bd1995c15fa (patch) | |
| tree | fa203654df5811c7310162a009f8dec770425547 /lisp | |
| parent | 3b6ed359f63d225d85256d4636f3d0940f5ecf1d (diff) | |
| download | emacs-438c2df0493fe632cb49602be7c31bd1995c15fa.tar.gz emacs-438c2df0493fe632cb49602be7c31bd1995c15fa.zip | |
(menu-bar-files-menu): Add menu items for
Postscript printing in black and white.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/menu-bar.el | 9 |
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 @@ | |||
| 1 | 2001-01-29 Gerd Moellmann <gerd@gnu.org> | 1 | 2001-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] |