From 92c83d84987c3f51738deca81207ad3c70d96f90 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Wed, 5 Aug 2020 13:32:08 -0700 Subject: profile-dotemacs: fix reference to free variable --- .emacs.d/site-lisp/profile-dotemacs.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to '.emacs.d/site-lisp') diff --git a/.emacs.d/site-lisp/profile-dotemacs.el b/.emacs.d/site-lisp/profile-dotemacs.el index f16e8652..9f8077ac 100644 --- a/.emacs.d/site-lisp/profile-dotemacs.el +++ b/.emacs.d/site-lisp/profile-dotemacs.el @@ -144,7 +144,7 @@ grayed out.") (face-background 'default) (face-background 'profile-dotemacs-time-face))) (setq percentage (round (* 100 percentage))) - (setq benchstr (profile-dotemacs-make-benchstr current)) + (setq benchstr (profile-dotemacs-make-benchstr percentage current)) (overlay-put ov 'help-echo benchstr) (if (and (numberp profile-dotemacs-low-percentage) (< percentage profile-dotemacs-low-percentage)) @@ -185,7 +185,7 @@ grayed out.") (nth 1 col) (nth 2 col)))) -(defun profile-dotemacs-make-benchstr (timings) +(defun profile-dotemacs-make-benchstr (percentage timings) "Create descriptive benchmark string from TIMINGS." (format (concat -- cgit v1.2.3