diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-10-16 18:59:11 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-10-16 18:59:11 +0000 |
| commit | 4d11f532f79ff03811339f2333b48aa70d9e332c (patch) | |
| tree | 333e59a9db05e97ad2d61cb4889ec0ca5190277f /lisp/vc-hooks.el | |
| parent | 577bf5d26e8835144005a0505e2ecc611369f92f (diff) | |
| download | emacs-4d11f532f79ff03811339f2333b48aa70d9e332c.tar.gz | |
(vc-find-file-hook): Call vc-backend with absolute name.
Diffstat (limited to 'lisp/vc-hooks.el')
| -rw-r--r-- | lisp/vc-hooks.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el index fef1431fe7d..22ff9edd428 100644 --- 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 |