From: Juanma Barranquero <lekktu@gmail.com>
Date: Tue, 14 Jun 2005 15:20:05 +0000 (+0000)
Subject: (cvs-mode): Follow error conventions.
X-Git-Tag: emacs-pretest-22.0.90~8956
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e248903c199b4d2f93029f743119c054c5565ac3;p=emacs.git

(cvs-mode): Follow error conventions.
---

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)