Mercurial > emacs
changeset 6281:e98ae7dec34d
(menu-bar-emerge-menu): Autoload the whole setup.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 10 Mar 1994 04:23:52 +0000 |
| parents | 54968237a1ac |
| children | 1b76cf849b2f |
| files | lisp/emerge.el |
| diffstat | 1 files changed, 9 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emerge.el Thu Mar 10 04:18:10 1994 +0000 +++ b/lisp/emerge.el Thu Mar 10 04:23:52 1994 +0000 @@ -21,23 +21,29 @@ ;;; Code: -;;;###autoload (autoload 'menu-bar-emerge-map "emerge" nil t 'keymap) - +;;;###autoload (defvar menu-bar-emerge-menu (make-sparse-keymap "menu-bar-emerge-map")) -(fset 'menu-bar-emerge-map (symbol-value 'menu-bar-emerge-map)) +;;;###autoload +(fset 'menu-bar-emerge-menu (symbol-value 'menu-bar-emerge-menu)) +;;;###autoload (define-key menu-bar-emerge-menu [emerge-merge-directories] '("Merge Directories ..." . emerge-merge-directories)) +;;;###autoload (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)) +;;;###autoload (define-key menu-bar-emerge-menu [emerge-files-with-ancestor] '("Files with Ancestor ..." . emerge-files-with-ancestor)) +;;;###autoload (define-key menu-bar-emerge-menu [emerge-files] '("Files ..." . emerge-files)) +;;;###autoload (define-key menu-bar-emerge-menu [emerge-buffers-with-ancestor] '("Buffers with Ancestor ..." . emerge-buffers-with-ancestor)) +;;;###autoload (define-key menu-bar-emerge-menu [emerge-buffers] '("Buffers ..." . emerge-buffers))