[nongnu] elpa/git-commit e2876c8bc9: magit-setup-buffer-internal: Add DIRECTORY argument

[ELPA Syncer]

branch: elpa/git-commit
commit e2876c8bc9d92443488bb73ffb0d4281023d0d74
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    magit-setup-buffer-internal: Add DIRECTORY argument
    
    If non-nil, set the `default-directory' to that before enabling
    the mode, which is needed by some `forge-*-setup-buffer' functions,
    because `forge-set-buffer-repository' on `magit-mode-hook' takes
    `default-directory' into account, which for global lists, should
    be "/", to avoid associating the buffer with some repository.
---
 lisp/magit-mode.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lisp/magit-mode.el b/lisp/magit-mode.el
index 92813eabad..46ff94d1cf 100644
--- a/lisp/magit-mode.el
+++ b/lisp/magit-mode.el
@@ -621,7 +621,7 @@ The buffer's major-mode should derive from 
`magit-section-mode'."
                          bindings))))
 
 (defun magit-setup-buffer-internal ( mode locked bindings
-                                     &optional buffer-or-name)
+                                     &optional buffer-or-name directory)
   (let* ((value   (and locked
                        (with-temp-buffer
                          (pcase-dolist (`(,var ,val) bindings)
@@ -637,6 +637,8 @@ The buffer's major-mode should derive from 
`magit-section-mode'."
       (setq buffer (magit-generate-new-buffer mode value)))
     (with-current-buffer buffer
       (setq magit-previous-section section)
+      (when directory
+        (setq default-directory directory))
       (funcall mode)
       (magit-xref-setup #'magit-setup-buffer-internal bindings)
       (pcase-dolist (`(,var ,val) bindings)