[nongnu] elpa/git-commit d520ce3306 1/5: magit-profile-refresh-buffer: New command

[ELPA Syncer]

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

    magit-profile-refresh-buffer: New command
---
 lisp/magit-mode.el | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/lisp/magit-mode.el b/lisp/magit-mode.el
index 62ff5bbe99..585a2318ee 100644
--- a/lisp/magit-mode.el
+++ b/lisp/magit-mode.el
@@ -1065,6 +1065,18 @@ Run hooks `magit-pre-refresh-hook' and 
`magit-post-refresh-hook'."
                  (float-time (time-subtract (current-time)
                                             magit-refresh-start-time)))))))
 
+(defun magit-profile-refresh-buffer ()
+  "Profile refreshing the current Magit buffer."
+  (interactive)
+  (require (quote elp))
+  (when (fboundp 'elp-reset-all)
+    (elp-reset-all)
+    (elp-instrument-package "magit-")
+    (elp-instrument-package "forge-")
+    (magit-refresh-buffer)
+    (elp-results)
+    (elp-reset-all)))
+
 ;;; Save File-Visiting Buffers
 
 (defvar magit--disable-save-buffers nil)