Mercurial > emacs
changeset 48003:d892c6e810f9
(cvs-checkout): Use read-directory-name.
(cvs-query-directory): Likewise.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Sat, 26 Oct 2002 22:27:15 +0000 |
| parents | d58423d8f9ce |
| children | 3601833e37f9 |
| files | lisp/pcvs.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/pcvs.el Sat Oct 26 00:27:34 2002 +0000 +++ b/lisp/pcvs.el Sat Oct 26 22:27:15 2002 +0000 @@ -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 @@ 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 @@ (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)