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

(cvs-query-directory): Likewise.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e3f870243621ec1766197b6d163b97a796e07986..84368bbfc02670e673750f6625b737168fda1fa5 100644 (file)
--- 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 4bfe1d8f6cd20a0082daaf0f942977c054ec20d4..c2aede4445b151c3232458987c1f7532fa8b9e82 100644 (file)
--- 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)