diff options
Diffstat (limited to '.emacs.d/site-lisp/profile-dotemacs.el')
| -rw-r--r-- | .emacs.d/site-lisp/profile-dotemacs.el | 4 |
1 files changed, 2 insertions, 2 deletions
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 |