From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 6 Feb 1994 02:33:28 +0000 (+0000)
Subject: (menu-bar-emerge-menu): New map.
X-Git-Tag: emacs-19.34~10053
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=125ed9df6943ad4c7c1a3076c91494ae567b50fe;p=emacs.git

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

diff --git a/lisp/emerge.el b/lisp/emerge.el
index d5b01741b88..13f3725036a 100644
--- 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)