1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-07 15:21:46 +00:00

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

This commit is contained in:
Juanma Barranquero 2013-06-21 02:53:33 +02:00
parent 1493c2af65
commit 7a65a0b2e8
2 changed files with 5 additions and 1 deletions

View File

@ -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'.

View File

@ -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