|
@@ -1076,7 +1076,7 @@ This is performed after `org-clock-idle-time' minutes, to check
|
|
if the user really wants to stay clocked in after being idle for
|
|
if the user really wants to stay clocked in after being idle for
|
|
so long."
|
|
so long."
|
|
(when (and org-clock-idle-time (not org-clock-resolving-clocks)
|
|
(when (and org-clock-idle-time (not org-clock-resolving-clocks)
|
|
- org-clock-marker)
|
|
|
|
|
|
+ (marker-buffer org-clock-marker))
|
|
(let* ((org-clock-user-idle-seconds (org-user-idle-seconds))
|
|
(let* ((org-clock-user-idle-seconds (org-user-idle-seconds))
|
|
(org-clock-user-idle-start
|
|
(org-clock-user-idle-start
|
|
(time-subtract (current-time)
|
|
(time-subtract (current-time)
|
|
@@ -1515,8 +1515,8 @@ to, overriding the existing value of `org-clock-out-switch-to-state'."
|
|
(delete-region (point) (point-at-eol))
|
|
(delete-region (point) (point-at-eol))
|
|
(and (looking-at "\n") (> (point-max) (1+ (point)))
|
|
(and (looking-at "\n") (> (point-max) (1+ (point)))
|
|
(delete-char 1)))
|
|
(delete-char 1)))
|
|
- (move-marker org-clock-marker nil)
|
|
|
|
- (move-marker org-clock-hd-marker nil)
|
|
|
|
|
|
+ (setq org-clock-marker nil)
|
|
|
|
+ (setq org-clock-hd-marker nil)
|
|
(when org-log-note-clock-out
|
|
(when org-log-note-clock-out
|
|
(org-add-log-setup 'clock-out nil nil nil nil
|
|
(org-add-log-setup 'clock-out nil nil nil nil
|
|
(concat "# Task: " (org-get-heading t) "\n\n")))
|
|
(concat "# Task: " (org-get-heading t) "\n\n")))
|
|
@@ -1647,8 +1647,8 @@ Optional argument N tells to change by that many units."
|
|
(org-remove-empty-drawer-at "LOGBOOK" (point)))
|
|
(org-remove-empty-drawer-at "LOGBOOK" (point)))
|
|
(message "Clock gone, cancel the timer anyway")
|
|
(message "Clock gone, cancel the timer anyway")
|
|
(sit-for 2)))
|
|
(sit-for 2)))
|
|
- (move-marker org-clock-marker nil)
|
|
|
|
- (move-marker org-clock-hd-marker nil)
|
|
|
|
|
|
+ (setq org-clock-marker nil)
|
|
|
|
+ (setq org-clock-hd-marker nil)
|
|
(setq global-mode-string
|
|
(setq global-mode-string
|
|
(delq 'org-mode-line-string global-mode-string))
|
|
(delq 'org-mode-line-string global-mode-string))
|
|
(setq frame-title-format org-frame-title-format-backup)
|
|
(setq frame-title-format org-frame-title-format-backup)
|