# HG changeset patch
# User Simon Marshall <simon@gnu.org>
# Date 884881056 0
# Node ID 0a7d2f8874ead44c15cb3b45c51a70eb1b7b21a0
# Parent  a951fec2326c4bb4ff94c8a19c0e17981fed66f5
Added Print submenu to Edit menu.

diff -r a951fec2326c -r 0a7d2f8874ea lisp/menu-bar.el
--- 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))