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:
parent
1493c2af65
commit
7a65a0b2e8
@ -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'.
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user