From: Simon Marshall <simon@gnu.org>
Date: Thu, 15 Jan 1998 16:17:36 +0000 (+0000)
Subject: Added Print submenu to Edit menu.
X-Git-Tag: emacs-20.3~2427
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=24f86c2f5f1c87daae05dddd46e9272ff71a9d98;p=emacs.git

Added Print submenu to Edit menu.
---

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))