Mercurial > emacs
diff lisp/vc-hooks.el @ 57532:53338d8522cb
(vc-find-file-hook): Call vc-backend with absolute name.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Sat, 16 Oct 2004 18:59:11 +0000 |
parents | 6f014cde9d81 |
children | 6eccfc449b0e 0fc4928cc48e f3ec05478165 |
line wrap: on
line diff
--- 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