[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/git-commit f4ff817cb2: magit-setup-buffer-internal: Add ex
|
From: |
ELPA Syncer |
|
Subject: |
[nongnu] elpa/git-commit f4ff817cb2: magit-setup-buffer-internal: Add experimental buffer-name argument |
|
Date: |
Sun, 12 Nov 2023 18:59:30 -0500 (EST) |
branch: elpa/git-commit
commit f4ff817cb2a48f0f7887050c3be469c03a059567
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>
magit-setup-buffer-internal: Add experimental buffer-name argument
This is used by Forge. I might come up with another solution for
that use-case, in which case this argument might be removed again.
---
lisp/magit-mode.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/lisp/magit-mode.el b/lisp/magit-mode.el
index 061c5a5562..4ffcc516f1 100644
--- a/lisp/magit-mode.el
+++ b/lisp/magit-mode.el
@@ -592,14 +592,16 @@ The buffer's major-mode should derive from
`magit-section-mode'."
`(list ',var ,form))
bindings))))
-(defun magit-setup-buffer-internal (mode locked bindings)
+(defun magit-setup-buffer-internal (mode locked bindings &optional buffer-name)
(let* ((value (and locked
(with-temp-buffer
(pcase-dolist (`(,var ,val) bindings)
(set (make-local-variable var) val))
(let ((major-mode mode))
(magit-buffer-value)))))
- (buffer (magit-get-mode-buffer mode value))
+ (buffer (if buffer-name
+ (get-buffer-create buffer-name)
+ (magit-get-mode-buffer mode value)))
(section (and buffer (magit-current-section)))
(created (not buffer)))
(unless buffer
| [Prev in Thread] |
Current Thread |
[Next in Thread] |
- [nongnu] elpa/git-commit f4ff817cb2: magit-setup-buffer-internal: Add experimental buffer-name argument,
ELPA Syncer <=