Mercurial > emacs
diff lisp/pcvs.el @ 82832:993f9a3219c4
(cvs-query-directory): Only prompt when prefix is given.
Don't behave differently when executed via M-x. Add doc string.
author | Reiner Steib <Reiner.Steib@gmx.de> |
---|---|
date | Sat, 25 Aug 2007 12:25:50 +0000 |
parents | 8ff02425f4db |
children | 92ccd83174e6 |
line wrap: on
line diff
--- a/lisp/pcvs.el Sat Aug 25 12:24:12 2007 +0000 +++ b/lisp/pcvs.el Sat Aug 25 12:25:50 2007 +0000 @@ -981,13 +981,13 @@ (interactive) (cvs-examine default-directory t)) -(defun cvs-query-directory (msg) - ;; last-command-char = ?\r hints that the command was run via M-x +(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) - (not (eq last-command-char ?\r))) + (not current-prefix-arg)) default-directory - (read-directory-name msg nil default-directory nil))) + (read-directory-name prompt nil default-directory nil))) ;;;###autoload (defun cvs-quickdir (dir &optional flags noshow)