diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2005-06-14 15:20:05 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2005-06-14 15:20:05 +0000 |
| commit | e248903c199b4d2f93029f743119c054c5565ac3 (patch) | |
| tree | d45d313f77aa45c2d92d3a03528c60717461138b /lisp | |
| parent | 90d7908eb77b22c40c0038b6ceb1d563a8cb2766 (diff) | |
| download | emacs-e248903c199b4d2f93029f743119c054c5565ac3.tar.gz | |
(cvs-mode): Follow error conventions.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/pcvs.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/pcvs.el b/lisp/pcvs.el index adcbba2792b..be93104a33f 100644 --- a/lisp/pcvs.el +++ b/lisp/pcvs.el @@ -944,9 +944,9 @@ With a prefix argument, prompt for cvs FLAGS to use." (defun-cvs-mode (cvs-mode-checkout . NOARGS) (dir) "Run cvs checkout against the current branch. The files are stored to DIR." - (interactive + (interactive (let* ((branch (cvs-prefix-get 'cvs-branch-prefix)) - (prompt (format "CVS Checkout Directory for `%s%s': " + (prompt (format "CVS Checkout Directory for `%s%s': " (cvs-get-module) (if branch (format " (branch: %s)" branch) "")))) @@ -1123,7 +1123,7 @@ Full documentation is in the Texinfo file." ("->" cvs-secondary-branch-prefix)))) " " cvs-mode-line-process)) (if buffer-file-name - (error "Use M-x cvs-quickdir to get a *cvs* buffer.")) + (error "Use M-x cvs-quickdir to get a *cvs* buffer")) (buffer-disable-undo) ;;(set (make-local-variable 'goal-column) cvs-cursor-column) (set (make-local-variable 'revert-buffer-function) 'cvs-mode-revert-buffer) |