From 2c05f7adc52beb1604ce5b5d1e869c4fcfc6a20c Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Sat, 26 Oct 2002 22:27:39 +0000 Subject: [PATCH] (cvs-checkout): Use read-directory-name. (cvs-query-directory): Likewise. --- lisp/ChangeLog | 5 +++++ lisp/pcvs.el | 6 +++--- 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 + + * pcvs.el (cvs-checkout): Use read-directory-name. + (cvs-query-directory): Likewise. + 2002-10-25 Stefan Monnier * 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) -- 2.39.2