diff options
| author | Simon Marshall <simon@gnu.org> | 1998-01-15 16:17:36 +0000 |
|---|---|---|
| committer | Simon Marshall <simon@gnu.org> | 1998-01-15 16:17:36 +0000 |
| commit | 24f86c2f5f1c87daae05dddd46e9272ff71a9d98 (patch) | |
| tree | 144a8d04a2bc72103c3a3f70342c42ef34a68ce2 /lisp/menu-bar.el | |
| parent | b9dd672d871cc6c8e4915c368555ff6fd4c5c767 (diff) | |
| download | emacs-24f86c2f5f1c87daae05dddd46e9272ff71a9d98.tar.gz | |
Added Print submenu to Edit menu.
Diffstat (limited to 'lisp/menu-bar.el')
| -rw-r--r-- | lisp/menu-bar.el | 19 |
1 files changed, 13 insertions, 6 deletions
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 05c887be7fe..e7d795647a1 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -97,17 +97,24 @@ A large number or nil slows down menu responsiveness." (define-key menu-bar-tools-menu [separator-print] '("--")) -(put 'print-region 'menu-enable 'mark-active) -(put 'ps-print-region-with-faces 'menu-enable 'mark-active) +(defvar menu-bar-print-menu (make-sparse-keymap "Print")) -(define-key menu-bar-tools-menu [ps-print-region] +(define-key menu-bar-print-menu [ps-print-region] '("Postscript Print Region" . ps-print-region-with-faces)) -(define-key menu-bar-tools-menu [ps-print-buffer] +(define-key menu-bar-print-menu [ps-print-buffer] '("Postscript Print Buffer" . ps-print-buffer-with-faces)) -(define-key menu-bar-tools-menu [print-region] +(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-tools-menu [print-buffer] +(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-files-menu [exit-emacs] '("Exit Emacs" . save-buffers-kill-emacs)) |