diff options
Diffstat (limited to 'lisp/vc/vc.el')
| -rw-r--r-- | lisp/vc/vc.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el index 49323ef47d2..65775f8e46e 100644 --- a/lisp/vc/vc.el +++ b/lisp/vc/vc.el @@ -2001,8 +2001,7 @@ saving the buffer." rootdir working-revision) (if backend (setq rootdir (vc-call-backend backend 'root default-directory)) - (setq rootdir (read-directory-name "Directory for VC root-diff: " - nil (vc-known-roots))) + (setq rootdir (read-directory-name "Directory for VC root-diff: ")) (setq backend (vc-responsible-backend rootdir)) (if backend (setq default-directory rootdir) @@ -2546,8 +2545,7 @@ with its diffs (if the underlying VCS supports that)." rootdir) (if backend (setq rootdir (vc-call-backend backend 'root default-directory)) - (setq rootdir (read-directory-name "Directory for VC revision log: " - nil (vc-known-roots))) + (setq rootdir (read-directory-name "Directory for VC revision log: ")) (setq backend (vc-responsible-backend rootdir)) (unless backend (error "Directory is not version controlled"))) |