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
(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)))))