(vc-find-file-hook): Call vc-backend with absolute name.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9409b485a3a22a557067d7d2297e33f04600a495..a43fbc297b609657f87e429ba07bb60677b6bbca 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.
+       * 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-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 --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el
index fef1431fe7d922f1c2a5dd2951274967d4f5bed0..22ff9edd428fda209f5104a99d01999ef2646315 100644 (file)
--- a/lisp/vc-hooks.el
+++ b/lisp/vc-hooks.el
@@ -754,8 +754,8 @@ current, and kill the buffer that visits the link."
        (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