[Emacs-diffs] Changes to emacs/lisp/vc-hooks.el

[Stefan Monnier]

Index: emacs/lisp/vc-hooks.el
diff -c emacs/lisp/vc-hooks.el:1.169 emacs/lisp/vc-hooks.el:1.170
*** emacs/lisp/vc-hooks.el:1.169        Mon Sep 13 03:36:11 2004
--- emacs/lisp/vc-hooks.el      Sat Oct 16 18:59:11 2004
***************
*** 754,761 ****
        (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)))))
        (cond ((not link-type) nil)     ;Nothing to do.
              ((eq vc-follow-symlinks nil)
               (message
--- 754,761 ----
        (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-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