diff --git a/doc/org-manual.org b/doc/org-manual.org index 9db00923d..917c05a24 100644 --- a/doc/org-manual.org +++ b/doc/org-manual.org @@ -5404,7 +5404,7 @@ optional. The individual parts have the following meaning: | =X= | Checkbox status, =[X]= if all children are =[X]=. | | =X/= | Checkbox status, =[n/m]=. | | =X%= | Checkbox status, =[n%]=. | - | =:= | Sum times, HH:MM, plain numbers are hours. | + | =:= | Sum times, HH:MM, plain numbers are minutes. | | =:min= | Smallest time value in column. | | =:max= | Largest time value. | | =:mean= | Arithmetic mean of time values. | diff --git a/lisp/org-colview.el b/lisp/org-colview.el index 932275836..61a360ec0 100644 --- a/lisp/org-colview.el +++ b/lisp/org-colview.el @@ -1110,16 +1110,7 @@ as a canonical duration, i.e., using units defined in "Apply FUN to time values TIMES. Return the result as a duration." (org-duration-from-minutes - (apply fun - (mapcar (lambda (time) - ;; Unlike to `org-duration-to-minutes' standard - ;; behavior, we want to consider plain numbers as - ;; hours. As a consequence, we treat them - ;; differently. - (if (string-match-p "\\`[0-9]+\\(?:\\.[0-9]*\\)?\\'" time) - (* 60 (string-to-number time)) - (org-duration-to-minutes time))) - times)) + (apply fun (mapcar #'org-duration-to-minutes times)) (org-duration-h:mm-only-p times))) (defun org-columns--compute-spec (spec &optional update)