Mercurial > emacs
changeset 99840:4681f328596c
(vc-follow-link): Complete last change.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sun, 23 Nov 2008 05:10:53 +0000 |
| parents | 0f7b3d214d44 |
| children | fd7d46b20afe |
| files | lisp/ChangeLog lisp/vc-hooks.el |
| diffstat | 2 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sun Nov 23 05:04:27 2008 +0000 +++ b/lisp/ChangeLog Sun Nov 23 05:10:53 2008 +0000 @@ -1,3 +1,7 @@ +2008-11-23 Stefan Monnier <monnier@iro.umontreal.ca> + + * vc-hooks.el (vc-follow-link): Complete last change. + 2008-11-23 Juanma Barranquero <lekktu@gmail.com> * textmodes/remember.el (remember-region): Doc fix.
--- a/lisp/vc-hooks.el Sun Nov 23 05:04:27 2008 +0000 +++ b/lisp/vc-hooks.el Sun Nov 23 05:10:53 2008 +0000 @@ -853,7 +853,7 @@ (let* ((true-buffer (find-buffer-visiting buffer-file-truename)) (this-buffer (current-buffer))) (if (eq true-buffer this-buffer) - (progn + (let ((truename buffer-file-truename)) (kill-buffer this-buffer) ;; In principle, we could do something like set-visited-file-name. ;; However, it can't be exactly the same as set-visited-file-name.