mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 08:43:40 -07:00
Code Issues Projects Releases Wiki 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:25:50 +00:00
parent 4d0a94d6be
commit f29897bb38
2 changed files with 8 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -1,5 +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.
* sort.el (sort-fold-case, sort-numeric-base): Mark as
safe-local-variable.

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)