Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
57531:5fa8dc9548ec | 57532:53338d8522cb |
---|---|
752 ;; Use this variable, not make-backup-files, | 752 ;; Use this variable, not make-backup-files, |
753 ;; because this is for things that depend on the file name. | 753 ;; because this is for things that depend on the file name. |
754 (set (make-local-variable 'backup-inhibited) t)) | 754 (set (make-local-variable 'backup-inhibited) t)) |
755 ;; Let the backend setup any buffer-local things he needs. | 755 ;; Let the backend setup any buffer-local things he needs. |
756 (vc-call-backend (vc-backend buffer-file-name) 'find-file-hook)) | 756 (vc-call-backend (vc-backend buffer-file-name) 'find-file-hook)) |
757 ((let* ((link (file-symlink-p buffer-file-name)) | 757 ((let ((link-type (and (file-symlink-p buffer-file-name) |
758 (link-type (and link (vc-backend (file-chase-links link))))) | 758 (vc-backend (file-chase-links buffer-file-name))))) |
759 (cond ((not link-type) nil) ;Nothing to do. | 759 (cond ((not link-type) nil) ;Nothing to do. |
760 ((eq vc-follow-symlinks nil) | 760 ((eq vc-follow-symlinks nil) |
761 (message | 761 (message |
762 "Warning: symbolic link to %s-controlled source file" link-type)) | 762 "Warning: symbolic link to %s-controlled source file" link-type)) |
763 ((or (not (eq vc-follow-symlinks 'ask)) | 763 ((or (not (eq vc-follow-symlinks 'ask)) |