# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 831671149 0
# Node ID 414e523050d5e4a022d43229b6db0d330c261d6d
# Parent  160e99f12c6ded7c104fcc70f736a463ee1da325
(vc-find-file-hook): Follow multiple links all the way.

diff -r 160e99f12c6d -r 414e523050d5 lisp/vc-hooks.el
--- a/lisp/vc-hooks.el	Thu May 09 17:41:53 1996 +0000
+++ b/lisp/vc-hooks.el	Thu May 09 19:45:49 1996 +0000
@@ -953,7 +953,7 @@
 	     (make-local-variable 'backup-inhibited)
 	     (setq backup-inhibited t))))
      ((let* ((link (file-symlink-p buffer-file-name))
-	     (link-type (and link (vc-backend link))))
+	     (link-type (and link (vc-backend (file-chase-links link)))))
 	(if link-type
             (cond ((eq vc-follow-symlinks nil)
                    (message