Mercurial > emacs
changeset 14647:b1a88c3a6912
(vc-follow-link): New function.
(vc-find-file-hook): Use it.
| author | André Spiegel <spiegel@gnu.org> |
|---|---|
| date | Thu, 22 Feb 1996 13:07:58 +0000 |
| parents | 68fe10d1abd0 |
| children | 45d13c154bb4 |
| files | lisp/vc-hooks.el |
| diffstat | 1 files changed, 14 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/vc-hooks.el Thu Feb 22 05:50:00 1996 +0000 +++ b/lisp/vc-hooks.el Thu Feb 22 13:07:58 1996 +0000 @@ -919,6 +919,18 @@ (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 @@ ((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))))))))))