lisp/profiler.el (profiler-format-number): Use log, not log10.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0ae2a09cc4c2940ff0bb8f7045959983292f899f..5811fd1b0b236d46ef4ee03aa950cc6388f3f3e1 100644 (file)
--- 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 093a01a8602f29eb02b92588cae2f13c943caafe..609a0308cf09026f10068423db11c6b832891f79 100644 (file)
--- 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