branch: elpa/magit
commit d01d77204f727f5d814186d287180046039270e1
Author: Jonas Bernoulli <[email protected]>
Commit: Jonas Bernoulli <[email protected]>
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 85459f6570f..663bc38f6ce 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 e89d93b9565..e02e7a958dc 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."
