(menu-bar-emerge-menu): New map.

diff --git a/lisp/emerge.el b/lisp/emerge.el
index d5b01741b8809843e742e277193f92473c332471..13f3725036af24f14e5c5acaa3921d422e2fa723 100644 (file)
--- a/lisp/emerge.el
+++ b/lisp/emerge.el
@@ -21,6 +21,26 @@
 
 ;;; Code:
 
+;;;###autoload (autoload 'menu-bar-emerge-map "emerge" nil t 'keymap)
+
+(defvar menu-bar-emerge-menu (make-sparse-keymap "menu-bar-emerge-map"))
+(fset 'menu-bar-emerge-map (symbol-value 'menu-bar-emerge-map))
+
+(define-key menu-bar-emerge-menu [emerge-merge-directories]
+  '("Merge Directories ..." . emerge-merge-directories))
+(define-key menu-bar-emerge-menu [emerge-revisions-with-ancestor]
+  '("Revisions with Ancestor ..." . emerge-revisions-with-ancestor))
+(define-key menu-bar-emerge-menu [emerge-revisions]
+  '("Revisions ..." . emerge-revisions))
+(define-key menu-bar-emerge-menu [emerge-files-with-ancestor]
+  '("Files with Ancestor ..." . emerge-files-with-ancestor))
+(define-key menu-bar-emerge-menu [emerge-files]
+  '("Files ..." . emerge-files))
+(define-key menu-bar-emerge-menu [emerge-buffers-with-ancestor]
+  '("Buffers with Ancestor ..." . emerge-buffers-with-ancestor))
+(define-key menu-bar-emerge-menu [emerge-buffers]
+  '("Buffers ..." . emerge-buffers))
+
 ;;; Macros
 
 (defmacro emerge-eval-in-buffer (buffer &rest forms)