aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1994-05-14 08:59:22 +0000
committerRichard M. Stallman1994-05-14 08:59:22 +0000
commita1094fc9d02dc21d39f49d340d09c3ae83fb981b (patch)
tree70ce5f142e9bfe2aedf0727eb652addabf1e7d92
parentc4a6a430aad498b301d3aa4f4ed1c81019c5e98f (diff)
downloademacs-a1094fc9d02dc21d39f49d340d09c3ae83fb981b.tar.gz
emacs-a1094fc9d02dc21d39f49d340d09c3ae83fb981b.zip
Make menu bar defines unconditional.
Don't alter menu-bar-files-menu here; menu-bar.el does that.
-rw-r--r--lisp/ediff.el46
1 files changed, 19 insertions, 27 deletions
diff --git a/lisp/ediff.el b/lisp/ediff.el
index f7d726d14ee..013dc7bce9e 100644
--- a/lisp/ediff.el
+++ b/lisp/ediff.el
@@ -1456,37 +1456,29 @@ Do not start with `~/' or `~user-name/'.")
1456;;; Note that autoload.el currently looks for cookies 1456;;; Note that autoload.el currently looks for cookies
1457;;; only at top level in the file. 1457;;; only at top level in the file.
1458;;;###autoload 1458;;;###autoload
1459(if (not (ediff-if-lucid)) 1459(progn
1460 (progn 1460 (defvar menu-bar-epatch-menu (make-sparse-keymap "menu-bar-epatch-map"))
1461 (defvar menu-bar-epatch-menu (make-sparse-keymap "menu-bar-epatch-map")) 1461 (fset 'menu-bar-epatch-menu (symbol-value 'menu-bar-epatch-menu))
1462 (fset 'menu-bar-epatch-menu (symbol-value 'menu-bar-epatch-menu)) 1462 (defvar menu-bar-ediff-menu (make-sparse-keymap "menu-bar-ediff-map"))
1463 (defvar menu-bar-ediff-menu (make-sparse-keymap "menu-bar-ediff-map")) 1463 (fset 'menu-bar-ediff-menu (symbol-value 'menu-bar-ediff-menu)))
1464 (fset 'menu-bar-ediff-menu (symbol-value 'menu-bar-ediff-menu))))
1465 1464
1466;;;###autoload 1465;;;###autoload
1467(if (not (ediff-if-lucid)) 1466(progn
1468 (progn 1467 (define-key menu-bar-ediff-menu [rcs-ediff]
1469 (define-key menu-bar-ediff-menu [rcs-ediff] 1468 '("With a Revision via RCS ..." . rcs-ediff))
1470 '("With a Revision via RCS ..." . rcs-ediff)) 1469 (define-key menu-bar-ediff-menu [vc-ediff]
1471 (define-key menu-bar-ediff-menu [vc-ediff] 1470 '("With a Revision via VC ..." . vc-ediff))
1472 '("With a Revision via VC ..." . vc-ediff)) 1471 (define-key menu-bar-ediff-menu [ediff-buffers]
1473 (define-key menu-bar-ediff-menu [ediff-buffers] 1472 '("Between Buffers ..." . ediff-buffers))
1474 '("Between Buffers ..." . ediff-buffers)) 1473 (define-key menu-bar-ediff-menu [ediff-files]
1475 (define-key menu-bar-ediff-menu [ediff-files] 1474 '("Between Files ..." . ediff-files)))
1476 '("Between Files ..." . ediff-files))))
1477 1475
1478;;;###autoload 1476;;;###autoload
1479(if (not (ediff-if-lucid)) 1477(progn
1480 (progn 1478 (define-key menu-bar-epatch-menu [ediff-patch-buffer]
1481 (define-key menu-bar-epatch-menu [ediff-patch-buffer] 1479 '("To a Buffer ..." . ediff-patch-buffer))
1482 '("To a Buffer ..." . ediff-patch-buffer)) 1480 (define-key menu-bar-epatch-menu [ediff-patch-file]
1483 (define-key menu-bar-epatch-menu [ediff-patch-file] 1481 '("To a File ..." . ediff-patch-file)))
1484 '("To a File ..." . ediff-patch-file))
1485
1486 (define-key menu-bar-file-menu [epatch]
1487 '("Apply Patch" . menu-bar-epatch-menu))
1488 (define-key menu-bar-file-menu [ediff]
1489 '("Find Differences" . menu-bar-ediff-menu))))
1490 1482
1491(if (and window-system ediff-want-default-menus (ediff-frame-has-menubar)) 1483(if (and window-system ediff-want-default-menus (ediff-frame-has-menubar))
1492 (if (ediff-if-lucid) 1484 (if (ediff-if-lucid)