Lines Matching defs:link
93 "*What to do if visiting a symbolic link to a file under version control.
94 Editing such a file through the link bypasses the version control system,
97 If this variable is t, VC follows the link and visits the real file,
99 confirmation whether it should follow the link. If nil, the link is
102 (const :tag "Visit link and warn" nil)
103 (const :tag "Follow link" t))
759 (defun vc-follow-link ()
760 "If current buffer visits a symbolic link, visit the real file.
762 current, and kill the buffer that visits the link."
797 ((let ((link-type (and (file-symlink-p buffer-file-name)
799 (cond ((not link-type) nil) ;Nothing to do.
802 "Warning: symbolic link to %s-controlled source file" link-type))
805 ;; the link, don't ask again if we try to visit
812 (vc-follow-link)
813 (message "Followed link to %s" buffer-file-name)
817 "Symbolic link to %s-controlled source file; follow link? " link-type))
818 (progn (vc-follow-link)
819 (message "Followed link to %s" buffer-file-name)
822 "Warning: editing through the link bypasses version control")