754 |
(set (make-local-variable 'backup-inhibited) t)) |
(set (make-local-variable 'backup-inhibited) t)) |
755 |
;; Let the backend setup any buffer-local things he needs. |
;; Let the backend setup any buffer-local things he needs. |
756 |
(vc-call-backend (vc-backend buffer-file-name) 'find-file-hook)) |
(vc-call-backend (vc-backend buffer-file-name) 'find-file-hook)) |
757 |
((let* ((link (file-symlink-p buffer-file-name)) |
((let ((link-type (and (file-symlink-p buffer-file-name) |
758 |
(link-type (and link (vc-backend (file-chase-links link))))) |
(vc-backend (file-chase-links buffer-file-name))))) |
759 |
(cond ((not link-type) nil) ;Nothing to do. |
(cond ((not link-type) nil) ;Nothing to do. |
760 |
((eq vc-follow-symlinks nil) |
((eq vc-follow-symlinks nil) |
761 |
(message |
(message |