# HG changeset patch
# User Luc Teirlinck <teirllm@auburn.edu>
# Date 1056115284 0
# Node ID 1329f6a6c9499eb5eb2127663be74013e7d48acd
# Parent  75610d89d904446a5d06daaad9b49e8f43caf62d
(vc-rename-file): Fix typo.

diff -r 75610d89d904 -r 1329f6a6c949 lisp/vc.el
--- a/lisp/vc.el	Fri Jun 20 13:19:33 2003 +0000
+++ b/lisp/vc.el	Fri Jun 20 13:21:24 2003 +0000
@@ -7,7 +7,7 @@
 ;; Maintainer: Andre Spiegel <spiegel@gnu.org>
 ;; Keywords: tools
 
-;; $Id: vc.el,v 1.354 2003/05/26 10:33:00 spiegel Exp $
+;; $Id: vc.el,v 1.355 2003/05/31 16:47:57 monnier Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -418,7 +418,7 @@
 ;;   Rename file OLD to NEW, both in the working area and in the
 ;;   repository.  If this function is not provided, the renaming
 ;;   will be done by (vc-delete-file old) and (vc-register new).
-;;   
+;;
 
 ;;; Code:
 
@@ -1747,12 +1747,12 @@
 The value can also be a regular expression or list of regular
 expressions to match against the host name of a repository; then VC
 only stays local for hosts that match it.  Alternatively, the value
-can be a list of regular expressions where the first element is the 
-symbol `except'; then VC always stays local except for hosts matched 
+can be a list of regular expressions where the first element is the
+symbol `except'; then VC always stays local except for hosts matched
 by these regular expressions."
   :type '(choice (const :tag "Always stay local" t)
 	  (const :tag "Don't stay local" nil)
-	  (list :format "\nExamine hostname and %v" :tag "Examine hostname ..." 
+	  (list :format "\nExamine hostname and %v" :tag "Examine hostname ..."
 		(set :format "%v" :inline t (const :format "%t" :tag "don't" except))
 		(regexp :format " stay local,\n%t: %v" :tag "if it matches")
 		(repeat :format "%v%i\n" :inline t (regexp :tag "or"))))
@@ -2671,7 +2671,7 @@
   (let ((buf (get-file-buffer file))
         (backend (vc-backend file)))
     (unless backend
-      (error "File %s is not under version control" 
+      (error "File %s is not under version control"
              (file-name-nondirectory file)))
     (unless (vc-find-backend-function backend 'delete-file)
       (error "Deleting files under %s is not supported in VC" backend))
@@ -2707,7 +2707,7 @@
 	(error "Already editing new file name"))
     (if (file-exists-p new)
 	(error "New file already exists"))
-    (let ((state (vc-state file)))
+    (let ((state (vc-state old)))
       (unless (memq state '(up-to-date edited))
 	(error "Please %s files before moving them"
 	       (if (stringp state) "check in" "update"))))