From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sun, 23 Nov 2008 05:10:53 +0000 (+0000)
Subject: (vc-follow-link): Complete last change.
X-Git-Tag: emacs-pretest-23.0.90~1602
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=066b7259c26def3b9e0530a4be7a156f6d1256fe;p=emacs.git

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

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.