diff options
| author | Richard M. Stallman | 1994-05-14 08:59:22 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-05-14 08:59:22 +0000 |
| commit | a1094fc9d02dc21d39f49d340d09c3ae83fb981b (patch) | |
| tree | 70ce5f142e9bfe2aedf0727eb652addabf1e7d92 | |
| parent | c4a6a430aad498b301d3aa4f4ed1c81019c5e98f (diff) | |
| download | emacs-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.el | 46 |
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) |