(vc-follow-link): Kill buffer before creating new one.

diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el
index 9fce8a43d09c16dd785de00b6c9af108c37f49ea..ea4fd6543f5b27c56684854bc2b6069e44aedf7f 100644 (file)
--- a/lisp/vc-hooks.el
+++ b/lisp/vc-hooks.el
@@ -929,11 +929,11 @@ control system name."
         (this-buffer (current-buffer)))
     (if (eq true-buffer this-buffer)
        (progn
+         (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.
          ;; I'm not going to work out the details right now. -- rms.
-         (set-buffer (find-file-noselect truename))
-         (kill-buffer this-buffer))
+         (set-buffer (find-file-noselect truename)))
       (set-buffer true-buffer)
       (kill-buffer this-buffer))))