Mercurial > emacs

comparison lisp/vc-hooks.el @ 90033:f3ec05478165

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-62 Merge from emacs--cvs-trunk--0 Patches applied: * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-616 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-620 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-621 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-622 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-625 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-626 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-627 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-628 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-629 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-630 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-631 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-632 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-633 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-51 - miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-52 Update from CVS * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-53 Merge from emacs--cvs-trunk--0 * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-54 - miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-55 Update from CVS * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-56 Update from CVS: Add lisp/legacy-gnus-agent.el * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-57 - miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-58 Update from CVS
author Miles Bader <miles@gnu.org>
date Fri, 22 Oct 2004 10:13:52 +0000
parents 566253900690 53338d8522cb
children f2ebccfa87d4
comparison
equal deleted inserted replaced
90032:c02cca0ca4ff 90033:f3ec05478165
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))