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

(vc-follow-link): New function.

Browse source 
(vc-find-file-hook): Use it.
This commit is contained in:
André Spiegel 1996-02-22 13:07:58 +00:00
parent 6b5153b18a
commit a3a3984834
1 changed files with 14 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
lisp/vc-hooks.el
View file

@ -919,6 +919,18 @@ control system name."
(t
(concat ":" locker ":" rev)))))
(defun vc-follow-link ()
;; If the current buffer visits a symbolic link, this function makes it
;; visit the real file instead. If the real file is already visited in
;; another buffer, make that buffer current, and kill the buffer
;; that visits the link.
(let* ((truename (file-truename buffer-file-name))
(true-buffer (get-file-buffer truename)))
(if true-buffer
(set-buffer true-buffer)
(kill-buffer (current-buffer))
(set-buffer (find-file-noselect truename)))))
;;; install a call to the above as a find-file hook
(defun vc-find-file-hook ()
;; Recompute whether file is version controlled,
@ -943,14 +955,13 @@ control system name."
((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))
(progn (vc-follow-link)
(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))
(t (vc-follow-link)
(message "Followed link to %s" buffer-file-name)
(vc-find-file-hook))))))))))