diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-02-06 02:33:28 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-02-06 02:33:28 +0000 |
| commit | 125ed9df6943ad4c7c1a3076c91494ae567b50fe (patch) | |
| tree | 91ef973ad8cb64249ac83c1a78baf6e83b91bd16 /lisp/emerge.el | |
| parent | f7f1920167886a7869870ef4968b4da181d85a1c (diff) | |
| download | emacs-125ed9df6943ad4c7c1a3076c91494ae567b50fe.tar.gz | |
(menu-bar-emerge-menu): New map.
Diffstat (limited to 'lisp/emerge.el')
| -rw-r--r-- | lisp/emerge.el | 20 |
1 files changed, 20 insertions, 0 deletions
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) |