From 7a65a0b2e87e9e24f600558c67a68fc4cf6e1998 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 21 Jun 2013 02:53:33 +0200 Subject: [PATCH] lisp/profiler.el (profiler-format-number): Use log, not log10. --- lisp/ChangeLog | 4 ++++ lisp/profiler.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) 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 -- 2.11.4.GIT