procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(vc-follow-symlinks): New variable.

Browse source 
(vc-find-file-hook): Use it.
This commit is contained in:
André Spiegel 1996-01-10 15:27:49 +00:00
parent ae2506d066
commit b806321282
1 changed files with 26 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
lisp/vc-hooks.el
View file

@ -65,6 +65,16 @@ when creating new masters.")
"*If non-nil, backups of registered files are made as with other files.
If nil (the default), files covered by version control don't get backups.")
(defvar vc-follow-symlinks 'ask
"*Indicates what to do if you visit a symbolic link to a file
that is under version control. Editing such a file through the
link bypasses the version control system, which is dangerous and
probably not what you want.
If this variable is t, VC follows the link and visits the real file,
telling you about it in the echo area. If it is `ask', VC asks for
confirmation whether it should follow the link. If nil, the link is
visited and a warning displayed.")
(defvar vc-display-status t
"*If non-nil, display revision number and lock status in modeline.
Otherwise, not displayed.")
@ -924,9 +934,22 @@ control system name."
((let* ((link (file-symlink-p buffer-file-name))
(link-type (and link (vc-backend link))))
(if link-type
(message
"Warning: symbolic link to %s-controlled source file"
link-type))))))))
(cond ((eq vc-follow-symlinks nil)
(message
"Warning: symbolic link to %s-controlled source file" link-type))
((eq vc-follow-symlinks 'ask)
(if (yes-or-no-p (format
"Symbolic link to %s-controlled source file; follow link? " link-type))
(progn (setq buffer-file-name
(file-truename buffer-file-name))
(message "Followed link to %s" buffer-file-name)
(vc-find-file-hook))
(message
"Warning: editing through the link bypasses version control")
))
(t (setq buffer-file-name (file-truename buffer-file-name))
(message "Followed link to %s" buffer-file-name)
(vc-find-file-hook))))))))))
(add-hook 'find-file-hooks 'vc-find-file-hook)