(vc-follow-link): Complete last change.

2 files changed, 5 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bbb8f8ad0b7..19f3ac209fa 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.
diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el
index 85f665bc9de..318f58e4f62 100644
--- a/lisp/vc-hooks.el
+++ b/lisp/vc-hooks.el
@@ -853,7 +853,7 @@ current, and kill the buffer that visits the link."
   (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.