diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2013-06-20 07:15:42 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2013-06-20 07:15:42 -0700 |
| commit | 89561f72e587677618afa2fd6962704e841e39e8 (patch) | |
| tree | 9b790c6b916c853df24a72eebd505c38501ccec6 /lisp/allout.el | |
| parent | 47199123698df3a14acb016c3869075b2d6012d5 (diff) | |
| download | emacs-89561f72e587677618afa2fd6962704e841e39e8.tar.gz | |
Add log2 support and make log10 obsolete for consistency.
* configure.ac (log2): Check for this function.
* doc/lispref/numbers.texi (Math Functions): Remove obsolete function log10.
* lisp/subr.el (log10): Move here from C code, and declare as obsolete.
All uses of (log10 X) replaced with (log X 10).
* src/floatfns.c (Flog) [HAVE_LOG2]: Use log2 if available and if the
base is 2; this is more accurate.
(Flog10): Move to Lisp (marked obsolete there).
Diffstat (limited to 'lisp/allout.el')
| -rw-r--r-- | lisp/allout.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/allout.el b/lisp/allout.el index 1e4134b3ccf..a0d61eb6f35 100644 --- a/lisp/allout.el +++ b/lisp/allout.el @@ -5342,7 +5342,7 @@ Optional arg CONTEXT indicates interior levels to include." (cons (make-string (1+ (truncate (if (zerop (car flat-index)) 1 - (log10 (car flat-index))))) + (log (car flat-index) 10)))) ? ) result))) (setq flat-index (cdr flat-index))) @@ -5382,7 +5382,7 @@ Optional arg CONTEXT indicates interior levels to include." (cons (make-string (1+ (truncate (if (zerop (car flat-index)) 1 - (log10 (car flat-index))))) + (log (car flat-index) 10)))) ? ) result))) (setq flat-index (cdr flat-index))) |