mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2025-02-01 20:54:25 +00:00
Code

org-colview: Fix estimate's summary

Browse Source 
* lisp/org-colview.el (org-columns--summary-estimate): Per last
  commit, do not make use of printf, since values are not numbers.
This commit is contained in:
Nicolas Goaziou 2017-05-21 00:06:31 +02:00
parent ec5df01bd8
commit 3e3e4e621b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/org-colview.el
View File

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