# HG changeset patch
# User Paul Eggert <eggert@twinsun.com>
# Date 732316196 0
# Node ID a729b16f74276d6846ba5f3c0fb377ec1ce5bda0
# Parent  13be90dfef0c4eb00104137d27694284c41c78a3
(vc-version-diff): Use (message ...), not (message (format ...)).
(vc-backend-checkout, vc-backend-assign-name): Correct bogus messages.

diff -r 13be90dfef0c -r a729b16f7427 lisp/vc.el
--- a/lisp/vc.el	Tue Mar 16 20:21:05 1993 +0000
+++ b/lisp/vc.el	Tue Mar 16 21:09:56 1993 +0000
@@ -5,7 +5,7 @@
 ;; Author: Eric S. Raymond <esr@snark.thyrsus.com>
 ;; Version: 5.0
 
-;;	$Id: vc.el,v 1.25 1993/03/11 07:45:02 eric Exp eric $	
+;;	$Id: vc.el,v 1.26.1.1 1993/03/16 20:54:53 eggert Exp $	
 
 ;; This file is part of GNU Emacs.
 
@@ -572,7 +572,7 @@
 	(set-buffer (get-buffer-create "*vc*"))
 	(vc-file-tree-walk
 	 (function (lambda (f)
-		     (message (format "Looking at %s" f))
+		     (message "Looking at %s" f)
 		     (and
 		      (not (file-directory-p f))
 		      (vc-registered f)
@@ -1072,7 +1072,7 @@
 
 (defun vc-backend-checkout (file &optional writeable rev)
   ;; Retrieve a copy of a saved version into a workfile
-  (message "Checking out %s...done" file)
+  (message "Checking out %s..." file)
   (vc-backend-dispatch file
    (progn
      (vc-do-command 0 "get" file	;; SCCS
@@ -1181,7 +1181,6 @@
    (vc-add-triple name file (vc-latest-version file))	;; SCCS
    (vc-do-command 0 "rcs" file (concat "-n" name ":"))	;; RCS
    )
-  (message "Removing last change from %s...done" file)
   )
 
 (defun vc-backend-diff (file oldvers &optional newvers)