summaryrefslogtreecommitdiff
path: root/lisp/vc-hooks.el
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1996-05-09 19:45:49 +0000
committerRichard M. Stallman <rms@gnu.org>1996-05-09 19:45:49 +0000
commit49aeedc13f77099558b7f5f233d4723b9618bc18 (patch)
tree38ac0821f499986d3bfe6ac12629eca315ad3702 /lisp/vc-hooks.el
parent954d543d69afc1e2f7d4e5ea8f6ae5df12e3b8d8 (diff)
downloademacs-49aeedc13f77099558b7f5f233d4723b9618bc18.tar.gz
(vc-find-file-hook): Follow multiple links all the way.
Diffstat (limited to 'lisp/vc-hooks.el')
-rw-r--r--lisp/vc-hooks.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el
index 38b91ddef85..5005c30383a 100644
--- a/lisp/vc-hooks.el
+++ b/lisp/vc-hooks.el
@@ -953,7 +953,7 @@ control system name."
(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