From: Juanma Barranquero Date: Fri, 21 Jun 2013 00:53:33 +0000 (+0200) Subject: lisp/profiler.el (profiler-format-number): Use log, not log10. X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~2016^2~18 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7a65a0b2e87e9e24f600558c67a68fc4cf6e1998;p=emacs.git lisp/profiler.el (profiler-format-number): Use log, not log10. --- 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 + + * profiler.el (profiler-format-number): Use log, not log10. + 2013-06-20 Juanma Barranquero * 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