/[emacs]/emacs/lisp/pcvs.el
ViewVC logotype

Diff of /emacs/lisp/pcvs.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.42 by monnier, Tue Oct 1 18:48:35 2002 UTC revision 1.43 by kfstorm, Sat Oct 26 22:27:15 2002 UTC
# Line 893  and run `cvs-mode' on it. Line 893  and run `cvs-mode' on it.
893  With a prefix argument, prompt for cvs FLAGS to use."  With a prefix argument, prompt for cvs FLAGS to use."
894    (interactive    (interactive
895     (list (cvs-string->strings (read-string "Module(s): " (cvs-get-module)))     (list (cvs-string->strings (read-string "Module(s): " (cvs-get-module)))
896           (read-file-name "CVS Checkout Directory: "           (read-directory-name "CVS Checkout Directory: "
897                           nil default-directory nil)                           nil default-directory nil)
898           (cvs-add-branch-prefix           (cvs-add-branch-prefix
899            (cvs-flags-query 'cvs-checkout-flags "cvs checkout flags"))))            (cvs-flags-query 'cvs-checkout-flags "cvs checkout flags"))))
# Line 920  With a prefix argument, prompt for cvs F Line 920  With a prefix argument, prompt for cvs F
920             (not current-prefix-arg)             (not current-prefix-arg)
921             (not (eq last-command-char ?\r)))             (not (eq last-command-char ?\r)))
922        default-directory        default-directory
923      (read-file-name msg nil default-directory nil)))      (read-directory-name msg nil default-directory nil)))
924    
925  ;;;###autoload  ;;;###autoload
926  (defun cvs-quickdir (dir &optional flags noshow)  (defun cvs-quickdir (dir &optional flags noshow)

Legend:
Removed from v.1.42  
changed lines
  Added in v.1.43

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26