Explorar el Código

org-table.el: Fix bug in formula duration computation.

Maciek Starzyk hace 15 años
padre
commit
429b1cc81a
Se han modificado 1 ficheros con 2 adiciones y 2 borrados
  1. 2 2
      lisp/org-table.el

+ 2 - 2
lisp/org-table.el

@@ -2513,13 +2513,13 @@ not overwrite the stored one."
 		       (error "#ERROR"))
 		       (error "#ERROR"))
 		  ev (if (numberp ev) (number-to-string ev) ev)
 		  ev (if (numberp ev) (number-to-string ev) ev)
 		  ev (if duration (org-table-time-seconds-to-string 
 		  ev (if duration (org-table-time-seconds-to-string 
-				   (string-to-number ev))))
+				   (string-to-number ev) ev)))
 	  (or (fboundp 'calc-eval)
 	  (or (fboundp 'calc-eval)
 	      (error "Calc does not seem to be installed, and is needed to evaluate the formula"))
 	      (error "Calc does not seem to be installed, and is needed to evaluate the formula"))
 	  (setq ev (calc-eval (cons form modes)
 	  (setq ev (calc-eval (cons form modes)
 			      (if numbers 'num))
 			      (if numbers 'num))
 		ev (if duration (org-table-time-seconds-to-string 
 		ev (if duration (org-table-time-seconds-to-string 
-				 (string-to-number ev)))))
+				 (string-to-number ev) ev))))
 
 
 	(when org-table-formula-debug
 	(when org-table-formula-debug
 	  (with-output-to-temp-buffer "*Substitution History*"
 	  (with-output-to-temp-buffer "*Substitution History*"