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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bbb8f8ad0b7ff5466db8b993ac501ca07228809c..19f3ac209fa062cbcaf0f5ac09597d385bf90682 100644 (file)
--- 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 85f665bc9def28bc05bc689ba90ea5a5d33b7380..318f58e4f622039f1d502bbb83a519745cb1b7e2 100644 (file)
--- 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.