Added Print submenu to Edit menu.

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 05c887be7fe321552dd56c9b350cae2aff3425e7..e7d795647a16a644aa810af683d024f7155d3e75 100644 (file)
--- 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)
 \f
 (define-key menu-bar-files-menu [exit-emacs]
   '("Exit Emacs" . save-buffers-kill-emacs))