# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 717685313 0
# Node ID de79e26e67cf34c93cd3eba537d7642858d2840d
# Parent  82774f4b69dddb2cd39dfb0eedf2b87e4a003a19
(vc-rename-file): Use OLD, not FILE which is unbound.

diff -r 82774f4b69dd -r de79e26e67cf lisp/vc.el
--- a/lisp/vc.el	Mon Sep 28 12:54:05 1992 +0000
+++ b/lisp/vc.el	Mon Sep 28 13:01:53 1992 +0000
@@ -5,7 +5,7 @@
 ;; Author: Eric S. Raymond <esr@snark.thyrsus.com>
 ;; Version: 4.0
 
-;;	$Id: vc.el,v 1.5 1992/09/27 01:51:04 roland Exp roland $	
+;;	$Id: vc.el,v 1.6 1992/09/27 02:42:08 roland Exp rms $	
 
 ;; This file is part of GNU Emacs.
 
@@ -746,7 +746,8 @@
 	(if (vc-locking-user old)
 	    (error "Please check in files before moving them."))
 	(if (or (file-symlink-p oldmaster)
-		(file-symlink-p (vc-backend-subdirectory-name file)))
+		;; This had FILE, I changed it to OLD. -- rms.
+		(file-symlink-p (vc-backend-subdirectory-name old)))
 	    (error "This is not a safe thing to do in the presence of symbolic links."))
 	(rename-file oldmaster (vc-name new)))
       (if (or (not oldmaster) (file-exists-p old))
@@ -759,7 +760,8 @@
 	  (set-buffer oldbuf)
 	  (set-visited-file-name new)
 	  (set-buffer-modified-p nil))))
-  (vc-backend-dispatch file
+  ;; This had FILE, I changed it to OLD. -- rms.
+  (vc-backend-dispatch old
 		       (vc-record-rename old new)
 		       nil)
   )