Explorar el Código

Merge branch 'maint'

Nicolas Goaziou hace 7 años
padre
commit
7e77560ebb
Se han modificado 1 ficheros con 1 adiciones y 2 borrados
  1. 1 2
      lisp/org-clock.el

+ 1 - 2
lisp/org-clock.el

@@ -1456,8 +1456,7 @@ The time is always returned as UTC."
 	     (day (nth 3 dt)))
 	(if (< hour org-extend-today-until) (setf (nth 3 dt) (1- day)))
 	(setf (nth 2 dt) org-extend-today-until)
-	(setq dt (append (list 0 0) (nthcdr 2 dt) '(t)))
-	(apply #'encode-time dt)))
+	(apply #'encode-time (append (list 0 0) (nthcdr 2 dt)))))
      ((or (equal cmt "all")
 	  (and (or (not cmt) (equal cmt "auto"))
 	       (not lr)))