(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 e3f87024362..84368bbfc02 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-10-27  Kim F. Storm  <storm@cua.dk>
+
+        * pcvs.el (cvs-checkout): Use read-directory-name.
+        (cvs-query-directory): Likewise.
+
 2002-10-25  Stefan Monnier  <monnier@cs.yale.edu>
 
         * textmodes/outline.el (outline-next-heading): Make sure the match-data
diff --git a/lisp/pcvs.el b/lisp/pcvs.el
index 4bfe1d8f6cd..c2aede4445b 100644
--- a/lisp/pcvs.el
+++ b/lisp/pcvs.el
@@ -14,7 +14,7 @@
 ;;      (Jari Aalto+mail.emacs) jari.aalto@poboxes.com
 ;; Maintainer: (Stefan Monnier) monnier+lists/cvs/pcl@flint.cs.yale.edu
 ;; 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)