Mercurial > emacs
changeset 8525:fcc070bca96d
(menu-bar-file-menu): Compare Files renamed to Compare.
(menu-bar-ediff-menu): Add one element for compare-windows.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 11 Aug 1994 21:50:39 +0000 |
| parents | ad46c69956cd |
| children | 2b7b23059f1b |
| files | lisp/menu-bar.el |
| diffstat | 1 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/menu-bar.el Thu Aug 11 21:48:37 1994 +0000 +++ b/lisp/menu-bar.el Thu Aug 11 21:50:39 1994 +0000 @@ -45,7 +45,7 @@ (define-key menu-bar-file-menu [epatch] '("Apply Patch" . menu-bar-epatch-menu)) (define-key menu-bar-file-menu [ediff] - '("Compare Files" . menu-bar-ediff-menu)) + '("Compare" . menu-bar-ediff-menu)) (define-key menu-bar-file-menu [emerge] '("Emerge" . menu-bar-emerge-menu)) (define-key menu-bar-file-menu [separator-misc] @@ -79,6 +79,10 @@ (define-key menu-bar-file-menu [save-buffer] '("Save Buffer" . save-buffer)) (define-key menu-bar-file-menu [dired] '("Open Directory..." . dired)) (define-key menu-bar-file-menu [open-file] '("Open File..." . find-file)) + +;; This is just one element of the ediff menu--the first. +(define-key menu-bar-ediff-menu [window] + '("This Window And Next Window" . compare-windows)) (define-key menu-bar-edit-menu [query-replace] '("Query Replace" . query-replace))