emacs-elpa-diffs
[Top][All Lists]
Advanced

[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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]