summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2017-05-21 00:06:31 +0200
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2017-05-21 00:06:31 +0200
commit3e3e4e621b7bd50fa99d9c0227d9673bd9f734b0 (patch)
treed67c021c362ee65950c1eb8581ead50bd3e68b43
parentec5df01bd858fc92749faf49844609c983be878a (diff)
downloadorg-mode-3e3e4e621b7bd50fa99d9c0227d9673bd9f734b0.tar.gz
org-colview: Fix estimate's summary
* lisp/org-colview.el (org-columns--summary-estimate): Per last commit, do not make use of printf, since values are not numbers.
-rw-r--r--lisp/org-colview.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/org-colview.el b/lisp/org-colview.el
index 37662a4..d8c7bb4 100644
--- a/lisp/org-colview.el
+++ b/lisp/org-colview.el
@@ -1299,7 +1299,7 @@ When PRINTF is non-nil, use it to format the result."
(/ (apply #'+ (mapcar #'org-columns--age-to-seconds ages))
(float (length ages)))))
-(defun org-columns--summary-estimate (estimates printf)
+(defun org-columns--summary-estimate (estimates _)
"Combine a list of estimates, using mean and variance.
The mean and variance of the result will be the sum of the means
and variances (respectively) of the individual estimates."
@@ -1314,8 +1314,8 @@ and variances (respectively) of the individual estimates."
(`(,value) (cl-incf mean value))))
(let ((sd (sqrt var)))
(format "%s-%s"
- (format (or printf "%.0f") (- mean sd))
- (format (or printf "%.0f") (+ mean sd))))))
+ (format "%.0f" (- mean sd))
+ (format "%.0f" (+ mean sd))))))