# HG changeset patch # User Richard M. Stallman # Date 799977193 0 # Node ID 898ec89f5379a1028cf7582dfd61fa437769c44d # Parent 51816af0321530bd19102460968b4802f182f04b (ediff-revision-key): Default value nil. (ediff-load-version-control): Don't remind any key if ediff-revision-key is nil. diff -r 51816af03215 -r 898ec89f5379 lisp/ediff.el --- a/lisp/ediff.el Mon May 08 23:23:37 1995 +0000 +++ b/lisp/ediff.el Mon May 08 23:53:13 1995 +0000 @@ -1691,7 +1691,7 @@ 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 @@ (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)))))