[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 15006cf: * lisp/vc/vc.el (vc-log-internal-common):
From: |
Juri Linkov |
Subject: |
[Emacs-diffs] master 15006cf: * lisp/vc/vc.el (vc-log-internal-common): Reuse the buffer object. |
Date: |
Thu, 30 Aug 2018 18:20:20 -0400 (EDT) |
branch: master
commit 15006cf1dd9ec873c4b1cad1ba1bacf0a5b6229d
Author: Juri Linkov <address@hidden>
Commit: Juri Linkov <address@hidden>
* lisp/vc/vc.el (vc-log-internal-common): Reuse the buffer object.
(Bug#32475)
---
lisp/vc/vc.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el
index b2bedfa..487594b 100644
--- 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 15006cf: * lisp/vc/vc.el (vc-log-internal-common): Reuse the buffer object.,
Juri Linkov <=