(cvs-checkout): Use read-directory-name.

(cvs-query-directory): Likewise.

2 files changed, 8 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e3f8702436..84368bbfc0 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-10-27  Kim F. Storm  <[email protected]>
+
+	* pcvs.el (cvs-checkout): Use read-directory-name.
+	(cvs-query-directory): Likewise.
+
 2002-10-25  Stefan Monnier  <[email protected]>
 
 	* textmodes/outline.el (outline-next-heading): Make sure the match-data
diff --git a/lisp/pcvs.el b/lisp/pcvs.el
index 4bfe1d8f6c..c2aede4445 100644
--- a/lisp/pcvs.el
+++ b/lisp/pcvs.el
@@ -14,7 +14,7 @@
 ;;	(Jari Aalto+mail.emacs) [email protected]
 ;; Maintainer: (Stefan Monnier) monnier+lists/cvs/[email protected]
 ;; Keywords: CVS, version control, release management
-;; Revision: $Id: pcvs.el,v 1.41 2002/09/13 19:09:45 monnier Exp $
+;; Revision: $Id: pcvs.el,v 1.42 2002/10/01 18:48:35 monnier Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -893,7 +893,7 @@ and run `cvs-mode' on it.
 With a prefix argument, prompt for cvs FLAGS to use."
   (interactive
    (list (cvs-string->strings (read-string "Module(s): " (cvs-get-module)))
-	 (read-file-name "CVS Checkout Directory: "
+	 (read-directory-name "CVS Checkout Directory: "
 			 nil default-directory nil)
 	 (cvs-add-branch-prefix
 	  (cvs-flags-query 'cvs-checkout-flags "cvs checkout flags"))))
@@ -920,7 +920,7 @@ With a prefix argument, prompt for cvs FLAGS to use."
 	   (not current-prefix-arg)
 	   (not (eq last-command-char ?\r)))
       default-directory
-    (read-file-name msg nil default-directory nil)))
+    (read-directory-name msg nil default-directory nil)))
 
 ;;;###autoload
 (defun cvs-quickdir (dir &optional flags noshow)