diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2013-06-21 02:53:33 +0200 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2013-06-21 02:53:33 +0200 |
| commit | 7a65a0b2e87e9e24f600558c67a68fc4cf6e1998 (patch) | |
| tree | 08c313f1ebb1197fbfee7110ca7f897c0846c813 /lisp | |
| parent | 1493c2af6593ebabc5c966d1162812456efbee24 (diff) | |
| download | emacs-7a65a0b2e87e9e24f600558c67a68fc4cf6e1998.tar.gz emacs-7a65a0b2e87e9e24f600558c67a68fc4cf6e1998.tar.bz2 emacs-7a65a0b2e87e9e24f600558c67a68fc4cf6e1998.zip | |
lisp/profiler.el (profiler-format-number): Use log, not log10.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/profiler.el | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0ae2a09cc4c..5811fd1b0b2 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2013-06-21 Juanma Barranquero <lekktu@gmail.com> + + * profiler.el (profiler-format-number): Use log, not log10. + 2013-06-20 Juanma Barranquero <lekktu@gmail.com> * term/x-win.el (emacs-session-filename): Use `locate-user-emacs-file'. diff --git a/lisp/profiler.el b/lisp/profiler.el index 093a01a8602..609a0308cf0 100644 --- a/lisp/profiler.el +++ b/lisp/profiler.el @@ -60,7 +60,7 @@ (defun profiler-format-number (number) "Format NUMBER in human readable string." (if (and (integerp number) (> number 0)) - (cl-loop with i = (% (1+ (floor (log10 number))) 3) + (cl-loop with i = (% (1+ (floor (log number 10))) 3) for c in (append (number-to-string number) nil) if (= i 0) collect ?, into s |