* lisp/vc/vc.el (vc-log-internal-common): Reuse the buffer object.

(Bug#32475)

diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el
index b2bedfae9393813d34c5e3fe499013a0214b8e02..487594b2d5415c16d19a1e9f95cac2dff99e5600 100644 (file)
--- a/lisp/vc/vc.el
+++ b/lisp/vc/vc.el
@@ -2268,11 +2268,11 @@ earlier revisions.  Show up to LIMIT entries (non-nil means unlimited)."
                               setup-buttons-func
                               goto-location-func
                               rev-buff-func)
-  (let (retval)
-    (with-current-buffer (get-buffer-create buffer-name)
+  (let (retval (buffer (get-buffer-create buffer-name)))
+    (with-current-buffer buffer
       (set (make-local-variable 'vc-log-view-type) type))
     (setq retval (funcall backend-func backend buffer-name type files))
-    (with-current-buffer (get-buffer buffer-name)
+    (with-current-buffer buffer
       (let ((inhibit-read-only t))
        ;; log-view-mode used to be called with inhibit-read-only bound
        ;; to t, so let's keep doing it, just in case.
@@ -2283,7 +2283,7 @@ earlier revisions.  Show up to LIMIT entries (non-nil means unlimited)."
             rev-buff-func)))
     ;; Display after setting up major-mode, so display-buffer-alist can know
     ;; the major-mode.
-    (pop-to-buffer buffer-name)
+    (pop-to-buffer buffer)
     (vc-run-delayed
      (let ((inhibit-read-only t))
        (funcall setup-buttons-func backend files retval)