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

[Miles Bader]

Index: emacs/lisp/vc-hooks.el
diff -c emacs/lisp/vc-hooks.el:1.156.2.3 emacs/lisp/vc-hooks.el:1.156.2.4
*** emacs/lisp/vc-hooks.el:1.156.2.3    Wed Sep 15 08:59:56 2004
--- emacs/lisp/vc-hooks.el      Fri Oct 22 10:13:29 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