[Emacs-diffs] Changes to emacs/lisp/pcvs.el

[Kim F. Storm]

Index: emacs/lisp/pcvs.el
diff -c emacs/lisp/pcvs.el:1.42 emacs/lisp/pcvs.el:1.43
*** emacs/lisp/pcvs.el:1.42     Tue Oct  1 14:48:35 2002
--- emacs/lisp/pcvs.el  Sat Oct 26 18:27:15 2002
***************
*** 14,20 ****
  ;;    (Jari Aalto+mail.emacs) address@hidden
  ;; Maintainer: (Stefan Monnier) monnier+lists/cvs/address@hidden
  ;; Keywords: CVS, version control, release management
! ;; Revision: $Id: pcvs.el,v 1.42 2002/10/01 18:48:35 monnier Exp $
  
  ;; This file is part of GNU Emacs.
  
--- 14,20 ----
  ;;    (Jari Aalto+mail.emacs) address@hidden
  ;; Maintainer: (Stefan Monnier) monnier+lists/cvs/address@hidden
  ;; Keywords: CVS, version control, release management
! ;; Revision: $Id: pcvs.el,v 1.43 2002/10/26 22:27:15 kfstorm Exp $
  
  ;; This file is part of GNU Emacs.
  
***************
*** 893,899 ****
  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: "
                         nil default-directory nil)
         (cvs-add-branch-prefix
          (cvs-flags-query 'cvs-checkout-flags "cvs checkout flags"))))
--- 893,899 ----
  With a prefix argument, prompt for cvs FLAGS to use."
    (interactive
     (list (cvs-string->strings (read-string "Module(s): " (cvs-get-module)))
!        (read-directory-name "CVS Checkout Directory: "
                         nil default-directory nil)
         (cvs-add-branch-prefix
          (cvs-flags-query 'cvs-checkout-flags "cvs checkout flags"))))
***************
*** 920,926 ****
           (not current-prefix-arg)
           (not (eq last-command-char ?\r)))
        default-directory
!     (read-file-name msg nil default-directory nil)))
  
  ;;;###autoload
  (defun cvs-quickdir (dir &optional flags noshow)
--- 920,926 ----
           (not current-prefix-arg)
           (not (eq last-command-char ?\r)))
        default-directory
!     (read-directory-name msg nil default-directory nil)))
  
  ;;;###autoload
  (defun cvs-quickdir (dir &optional flags noshow)