diff options
Diffstat (limited to 'lisp/vc/vc-cvs.el')
| -rw-r--r-- | lisp/vc/vc-cvs.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/vc/vc-cvs.el b/lisp/vc/vc-cvs.el index 300dc463a3c..2a672623c01 100644 --- a/lisp/vc/vc-cvs.el +++ b/lisp/vc/vc-cvs.el @@ -25,7 +25,7 @@ ;;; Code: -(eval-when-compile (require 'cl) (require 'vc)) +(eval-when-compile (require 'vc)) ;; Clear up the cache to force vc-call to check again and discover ;; new functions when we reload this file. @@ -790,7 +790,7 @@ For an empty string, nil is returned (invalid CVS root)." ((= len 3) ;; :METHOD:PATH or :METHOD:USER@HOSTNAME/PATH (cons (cadr root-list) - (vc-cvs-parse-uhp (caddr root-list)))) + (vc-cvs-parse-uhp (nth 2 root-list)))) (t ;; :METHOD:[USER@]HOST:PATH (cdr root-list))))) |