branch: elpa/magit commit d01d77204f727f5d814186d287180046039270e1 Author: Jonas Bernoulli <jo...@bernoul.li> Commit: Jonas Bernoulli <jo...@bernoul.li>
magit--refresh-start-time: Make private and only let-bind --- lisp/magit-diff.el | 2 +- lisp/magit-mode.el | 12 ++++++------ 2 files changed, 7 insertions(+), 7 deletions(-) diff --git a/lisp/magit-diff.el b/lisp/magit-diff.el index 85459f6570..663bc38f6c 100644 --- a/lisp/magit-diff.el +++ b/lisp/magit-diff.el @@ -2635,7 +2635,7 @@ function errors." (defun magit-diff-expansion-threshold (section) "Keep new diff sections collapsed if washing takes too long." (and (magit-file-section-p section) - (> (float-time (time-since magit-refresh-start-time)) + (> (float-time (time-since magit--refresh-start-time)) magit-diff-expansion-threshold) 'hide)) diff --git a/lisp/magit-mode.el b/lisp/magit-mode.el index e89d93b956..e02e7a958d 100644 --- a/lisp/magit-mode.el +++ b/lisp/magit-mode.el @@ -1063,15 +1063,15 @@ Run hooks `magit-pre-refresh-hook' and `magit-post-refresh-hook'." (with-current-buffer buffer (magit-refresh-buffer))) (magit-run-hook-with-benchmark 'magit-post-refresh-hook)) -(defvar-local magit-refresh-start-time nil) +(defvar-local magit--refresh-start-time nil) (defun magit-refresh-buffer (&rest _ignore) "Refresh the current Magit buffer." (interactive) - (setq magit-refresh-start-time (current-time)) - (let ((refresh (intern (format "%s-refresh-buffer" - (substring (symbol-name major-mode) 0 -5)))) - (magit--refresh-cache (or magit--refresh-cache (list (cons 0 0))))) + (let ((magit--refresh-start-time (current-time)) + (magit--refresh-cache (or magit--refresh-cache (list (cons 0 0)))) + (refresh (intern (format "%s-refresh-buffer" + (substring (symbol-name major-mode) 0 -5))))) (when (functionp refresh) (when magit-refresh-verbose (message "Refreshing buffer `%s'..." (buffer-name))) @@ -1112,7 +1112,7 @@ Run hooks `magit-pre-refresh-hook' and `magit-post-refresh-hook'." (set-buffer-modified-p nil)) (when magit-refresh-verbose (message "Refreshing buffer `%s'...done (%.3fs)" (buffer-name) - (float-time (time-since magit-refresh-start-time))))))) + (float-time (time-since magit--refresh-start-time))))))) (defun magit-profile-refresh-buffer () "Profile refreshing the current Magit buffer."