From d8e54b47e612f215c26ff0d2bacd5f4feb523db9 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 8 May 1995 23:53:13 +0000 Subject: [PATCH] (ediff-revision-key): Default value nil. (ediff-load-version-control): Don't remind any key if ediff-revision-key is nil. --- lisp/ediff.el | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/lisp/ediff.el b/lisp/ediff.el index d1a77115548..1d1da6a1930 100644 --- a/lisp/ediff.el +++ b/lisp/ediff.el @@ -1691,7 +1691,7 @@ rcs.el and want to use it instead of the standard vc.el. Note: both packages provide access to RCS, but only vc.el comes with Emacs distribution.") -(defvar ediff-revision-key "=" +(defvar ediff-revision-key nil "Key to which `ediff-revision' is to be bound.") (defvar ediff-use-last-dir nil @@ -2556,11 +2556,12 @@ and `ediff-revision-key' for customization."))) (progn (message "") ; kill the message from `locate-library' (require ediff-version-control-package) - (define-key - (cond ((eq ediff-version-control-package 'vc) vc-prefix-map) - ((eq ediff-version-control-package 'rcs) global-map) - (t global-map)) - ediff-revision-key 'ediff-revision)) + (if ediff-revision-key + (define-key + (cond ((eq ediff-version-control-package 'vc) vc-prefix-map) + ((eq ediff-version-control-package 'rcs) global-map) + (t global-map)) + ediff-revision-key 'ediff-revision))) (or silent (error "Version control package %S.el not found. Use vc.el instead" ediff-version-control-package))))) -- 2.39.2