Explorar o código

Move `org-clock-out-time' to the right place.

Thanks to Achim Gratz for spotting the compiler warning.
Bastien Guerry %!s(int64=13) %!d(string=hai) anos
pai
achega
3ecd7a9ad0
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      lisp/org-clock.el

+ 1 - 1
lisp/org-clock.el

@@ -1052,6 +1052,7 @@ so long."
   "Reset `org-clock-current-task' to nil."
   (setq org-clock-current-task nil))
 
+(defvar org-clock-out-time nil) ; store the time of the last clock-out
 (defun org-clock-in (&optional select start-time)
   "Start the clock on the current item.
 If necessary, clock-out of the currently active clock.
@@ -1399,7 +1400,6 @@ line and position cursor in that line."
 	    (and (re-search-forward org-property-end-re nil t)
 		 (goto-char (match-beginning 0))))))))
 
-(defvar org-clock-out-time nil) ; store the time of the last clock-out
 (defun org-clock-out (&optional fail-quietly at-time)
   "Stop the currently running clock.
 Throw an error if there is no running clock and FAIL-QUIETLY is nil."