/[emacs]/emacs/lisp/vc-hooks.el
ViewVC logotype

Diff of /emacs/lisp/vc-hooks.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.156.2.3 by miles, Wed Sep 15 08:59:56 2004 UTC revision 1.156.2.4 by miles, Fri Oct 22 10:13:29 2004 UTC
# Line 754  current, and kill the buffer that visits Line 754  current, and kill the buffer that visits
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

Legend:
Removed from v.1.156.2.3  
changed lines
  Added in v.1.156.2.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26