diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2020-08-05 13:32:08 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2020-08-05 13:33:20 -0700 |
| commit | 92c83d84987c3f51738deca81207ad3c70d96f90 (patch) | |
| tree | d5130b5725183036ed5b0893570f0c9637573a0d /.emacs.d/site-lisp/profile-dotemacs.el | |
| parent | 2178d7a13c1822f2b88e48ddd6720f5b31f95c45 (diff) | |
| download | dotfiles-92c83d84987c3f51738deca81207ad3c70d96f90.tar.gz | |
profile-dotemacs: fix reference to free variable
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 |