aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1995-05-08 23:53:13 +0000
committerRichard M. Stallman1995-05-08 23:53:13 +0000
commitd8e54b47e612f215c26ff0d2bacd5f4feb523db9 (patch)
tree2f5fa8f0ee47528254c45740fec761c5d9736eb6
parent0e8b867a926611231bb5ece32c082212195d15f2 (diff)
downloademacs-d8e54b47e612f215c26ff0d2bacd5f4feb523db9.tar.gz
emacs-d8e54b47e612f215c26ff0d2bacd5f4feb523db9.zip
(ediff-revision-key): Default value nil.
(ediff-load-version-control): Don't remind any key if ediff-revision-key is nil.
-rw-r--r--lisp/ediff.el13
1 files 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.
1691Note: both packages provide access to RCS, but only vc.el comes with Emacs 1691Note: both packages provide access to RCS, but only vc.el comes with Emacs
1692distribution.") 1692distribution.")
1693 1693
1694(defvar ediff-revision-key "=" 1694(defvar ediff-revision-key nil
1695 "Key to which `ediff-revision' is to be bound.") 1695 "Key to which `ediff-revision' is to be bound.")
1696 1696
1697(defvar ediff-use-last-dir nil 1697(defvar ediff-use-last-dir nil
@@ -2556,11 +2556,12 @@ and `ediff-revision-key' for customization.")))
2556 (progn 2556 (progn
2557 (message "") ; kill the message from `locate-library' 2557 (message "") ; kill the message from `locate-library'
2558 (require ediff-version-control-package) 2558 (require ediff-version-control-package)
2559 (define-key 2559 (if ediff-revision-key
2560 (cond ((eq ediff-version-control-package 'vc) vc-prefix-map) 2560 (define-key
2561 ((eq ediff-version-control-package 'rcs) global-map) 2561 (cond ((eq ediff-version-control-package 'vc) vc-prefix-map)
2562 (t global-map)) 2562 ((eq ediff-version-control-package 'rcs) global-map)
2563 ediff-revision-key 'ediff-revision)) 2563 (t global-map))
2564 ediff-revision-key 'ediff-revision)))
2564 (or silent 2565 (or silent
2565 (error "Version control package %S.el not found. Use vc.el instead" 2566 (error "Version control package %S.el not found. Use vc.el instead"
2566 ediff-version-control-package))))) 2567 ediff-version-control-package)))))