# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 767600749 0
# Node ID 8a8acd6da9bec315cf6d18a851af74af30be2443
# Parent  bd2f9c5ee54ee33cbbc6763e9635caf0d615e3d8
(vc-mode-line): Fix previous change.

diff -r bd2f9c5ee54e -r 8a8acd6da9be lisp/vc-hooks.el
--- a/lisp/vc-hooks.el	Fri Apr 29 06:05:19 1994 +0000
+++ b/lisp/vc-hooks.el	Fri Apr 29 06:25:49 1994 +0000
@@ -155,8 +155,8 @@
 	 (not (string-equal (user-login-name) (vc-locking-user file)))
 	 (setq buffer-read-only t))
     (and (null vc-type)
-	 (file-symlink-p buffer-file-name)
-	 (let ((link-type (vc-backend-deduce (file-symlink-p buffer-file-name))))
+	 (file-symlink-p file)
+	 (let ((link-type (vc-backend-deduce (file-symlink-p file))))
 	   (if link-type
 	       (message "Warning: symbolic link to %s-controlled source file"
 			link-type))))