mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-16 17:19:41 +00:00
Code Issues Releases Activity

(cvs-query-directory): Only prompt when prefix is given.

Browse Source 
Don't behave differently when executed via M-x.  Add doc string.
This commit is contained in:
Reiner Steib 2007-08-25 12:18:43 +00:00
parent ca4ea90fa9
commit 2cbde70235
2 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2007-08-25 Reiner Steib <Reiner.Steib@gmx.de>
* pcvs.el (cvs-query-directory): Only prompt when prefix is given.
Don't behave differently when executed via M-x. Add doc string.
2007-08-24 Ulrich Mueller <ulm@gentoo.org> (tiny change)
* files.el (backup-buffer-copy): Don't wrap delete in

10
lisp/pcvs.el
View File

@ -981,13 +981,13 @@ The files are stored to DIR."
(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)