# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1097953151 0
# Node ID 53338d8522cbec5ec34131f64024f998058d92a1
# Parent  5fa8dc9548ecdc83d41811cd75f4b971ab01720d
(vc-find-file-hook): Call vc-backend with absolute name.

diff -r 5fa8dc9548ec -r 53338d8522cb lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Oct 16 18:38:36 2004 +0000
+++ b/lisp/ChangeLog	Sat Oct 16 18:59:11 2004 +0000
@@ -1,3 +1,7 @@
+2004-10-16  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* vc-hooks.el (vc-find-file-hook): Call vc-backend with absolute name.
+
 2004-10-16  Juri Linkov  <juri@jurta.org>
 
 	* progmodes/compile.el (compilation-start): Move let-binding of
@@ -67,11 +71,9 @@
 
 2004-10-13  Daniel Pfeiffer  <occitan@esperanto.org>
 
-	* button.el (button-activate): Allow a marker to display as an
-	action.
-
-	* help-fns.el (describe-variable): Use it to make "below" a
-	hyperlink.
+	* button.el (button-activate): Allow a marker to display as an action.
+
+	* help-fns.el (describe-variable): Use it to make "below" a hyperlink.
 
 	* help.el (describe-mode): Use it to make minor mode list into
 	hyperlinks.
diff -r 5fa8dc9548ec -r 53338d8522cb lisp/vc-hooks.el
--- a/lisp/vc-hooks.el	Sat Oct 16 18:38:36 2004 +0000
+++ b/lisp/vc-hooks.el	Sat Oct 16 18:59:11 2004 +0000
@@ -754,8 +754,8 @@
 	(set (make-local-variable 'backup-inhibited) t))
       ;; Let the backend setup any buffer-local things he needs.
       (vc-call-backend (vc-backend buffer-file-name) 'find-file-hook))
-     ((let* ((link (file-symlink-p buffer-file-name))
-	     (link-type (and link (vc-backend (file-chase-links link)))))
+     ((let ((link-type (and (file-symlink-p buffer-file-name)
+			    (vc-backend (file-chase-links buffer-file-name)))))
 	(cond ((not link-type) nil)	;Nothing to do.
 	      ((eq vc-follow-symlinks nil)
 	       (message