Mercurial > emacs
changeset 20647:0a7d2f8874ea
Added Print submenu to Edit menu.
| author | Simon Marshall <simon@gnu.org> |
|---|---|
| date | Thu, 15 Jan 1998 16:17:36 +0000 |
| parents | a951fec2326c |
| children | b644667dcd19 |
| files | lisp/menu-bar.el |
| diffstat | 1 files changed, 16 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/menu-bar.el Thu Jan 15 16:11:00 1998 +0000 +++ b/lisp/menu-bar.el Thu Jan 15 16:17:36 1998 +0000 @@ -97,17 +97,24 @@ (define-key menu-bar-tools-menu [separator-print] '("--")) +(defvar menu-bar-print-menu (make-sparse-keymap "Print")) + +(define-key menu-bar-print-menu [ps-print-region] + '("Postscript Print Region" . ps-print-region-with-faces)) +(define-key menu-bar-print-menu [ps-print-buffer] + '("Postscript Print Buffer" . ps-print-buffer-with-faces)) +(define-key menu-bar-print-menu [separator-ps-print] + '("--")) +(define-key menu-bar-print-menu [print-region] + '("Print Region" . print-region)) +(define-key menu-bar-print-menu [print-buffer] + '("Print Buffer" . print-buffer)) + +(define-key menu-bar-tools-menu [print] + (cons "Print" menu-bar-print-menu)) + (put 'print-region 'menu-enable 'mark-active) (put 'ps-print-region-with-faces 'menu-enable 'mark-active) - -(define-key menu-bar-tools-menu [ps-print-region] - '("Postscript Print Region" . ps-print-region-with-faces)) -(define-key menu-bar-tools-menu [ps-print-buffer] - '("Postscript Print Buffer" . ps-print-buffer-with-faces)) -(define-key menu-bar-tools-menu [print-region] - '("Print Region" . print-region)) -(define-key menu-bar-tools-menu [print-buffer] - '("Print Buffer" . print-buffer)) (define-key menu-bar-files-menu [exit-emacs] '("Exit Emacs" . save-buffers-kill-emacs))