Function: cvs-query-directory

cvs-query-directory is a byte-compiled function defined in pcvs.el.gz.

Signature

(cvs-query-directory PROMPT)

Documentation

Read directory name, prompting with PROMPT.

If in a *cvs* buffer, don't prompt unless a prefix argument is given.

Source Code

;; Defined in /usr/src/emacs/lisp/vc/pcvs.el.gz
(defun cvs-query-directory (prompt)
  "Read directory name, prompting with PROMPT.
If in a *cvs* buffer, don't prompt unless a prefix argument is given."
  (if (and (cvs-buffer-p)
	   (not current-prefix-arg))
      default-directory
    (read-directory-name prompt nil default-directory nil)))