Browse Source

Reverting "Fix compiler warning."

This reverts commit da22d29eb215d360fd0b71f1e0ebb54cb63ca9bb.
Achim Gratz 12 years ago
parent
commit
ff064f89c2
1 changed files with 2 additions and 2 deletions
  1. 2 2
      lisp/org.el

+ 2 - 2
lisp/org.el

@@ -5338,8 +5338,8 @@ the rounding returns a past time."
 	    (apply 'encode-time
 	    (apply 'encode-time
 		   (append (list 0 (* r (floor (+ .5 (/ (float (nth 1 time)) r)))))
 		   (append (list 0 (* r (floor (+ .5 (/ (float (nth 1 time)) r)))))
 			   (nthcdr 2 time))))
 			   (nthcdr 2 time))))
-      (if (and past (< (float-time (time-subtract (current-time) res)) 0))
-	  (float-time (- (time-to-seconds res) (* r 60)))
+      (if (and past (< (time-to-seconds (time-subtract (current-time) res)) 0))
+	  (seconds-to-time (- (time-to-seconds res) (* r 60)))
 	res))))
 	res))))
 
 
 (defun org-today ()
 (defun org-today ()