mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

Undo change in condition for defining the menu bar items.

Browse Source 
Use purify-flag once again.
This commit is contained in:
Richard M. Stallman 1994-08-11 21:48:37 +00:00
parent 0f33e38b3b
commit 214b902199
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/ediff.el
View File

@ -1723,16 +1723,16 @@ Do not start with `~/' or `~user-name/'.")
;;; purify-flag make these no-ops when you load ediff.
;;; They only do something in loaddefs.el.
;;;###autoload
(if (and purify-flag (not (ediff-if-lucid)))
(progn
(defvar menu-bar-epatch-menu (make-sparse-keymap "Epatch"))
(fset 'menu-bar-epatch-menu (symbol-value 'menu-bar-epatch-menu))
(defvar menu-bar-ediff-menu (make-sparse-keymap "Ediff"))
(fset 'menu-bar-ediff-menu (symbol-value 'menu-bar-ediff-menu))))
(if purify-flag
(progn
(defvar menu-bar-epatch-menu (make-sparse-keymap "Epatch"))
(fset 'menu-bar-epatch-menu (symbol-value 'menu-bar-epatch-menu))
(defvar menu-bar-ediff-menu (make-sparse-keymap "Ediff"))
(fset 'menu-bar-ediff-menu (symbol-value 'menu-bar-ediff-menu))))
;;;###autoload
(if (and purify-flag (not (ediff-if-lucid)))
(if purify-flag
(progn
(define-key menu-bar-ediff-menu [rcs-ediff]
'("File with a version via RCS ..." . rcs-ediff))
@ -1744,7 +1744,7 @@ Do not start with `~/' or `~user-name/'.")
'("Files ..." . ediff-files))))
;;;###autoload
(if (and purify-flag (not (ediff-if-lucid)))
(if purify-flag
(progn
(define-key menu-bar-epatch-menu [ediff-patch-buffer]
'("To a Buffer ..." . ediff-patch-buffer))