Mercurial > emacs
comparison lisp/pcvs.el @ 78654:e3a7c52130ec
(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:18:43 +0000 |
parents | 0c7ac1e33f19 |
children | cd3530596f8e 92ccd83174e6 |
comparison
equal
deleted
inserted
replaced
78653:3ae2552a86bc | 78654:e3a7c52130ec |
---|---|
979 (&optional ignore-auto noconfirm) | 979 (&optional ignore-auto noconfirm) |
980 "Rerun `cvs-examine' on the current directory with the default flags." | 980 "Rerun `cvs-examine' on the current directory with the default flags." |
981 (interactive) | 981 (interactive) |
982 (cvs-examine default-directory t)) | 982 (cvs-examine default-directory t)) |
983 | 983 |
984 (defun cvs-query-directory (msg) | 984 (defun cvs-query-directory (prompt) |
985 ;; last-command-char = ?\r hints that the command was run via M-x | 985 "Read directory name, prompting with PROMPT. |
986 If in a *cvs* buffer, don't prompt unless a prefix argument is given." | |
986 (if (and (cvs-buffer-p) | 987 (if (and (cvs-buffer-p) |
987 (not current-prefix-arg) | 988 (not current-prefix-arg)) |
988 (not (eq last-command-char ?\r))) | |
989 default-directory | 989 default-directory |
990 (read-directory-name msg nil default-directory nil))) | 990 (read-directory-name prompt nil default-directory nil))) |
991 | 991 |
992 ;;;###autoload | 992 ;;;###autoload |
993 (defun cvs-quickdir (dir &optional flags noshow) | 993 (defun cvs-quickdir (dir &optional flags noshow) |
994 "Open a *cvs* buffer on DIR without running cvs. | 994 "Open a *cvs* buffer on DIR without running cvs. |
995 With a prefix argument, prompt for a directory to use. | 995 With a prefix argument, prompt for a directory to use. |