From mboxrd@z Thu Jan  1 00:00:00 1970
From: Mike McLean <mike.mclean@pobox.com>
Subject: Org Clock Timer in Frame Title bug
Date: Sat, 21 Apr 2012 19:45:34 -0400
Message-ID: <8DD2D644-3CB5-4F40-9801-90C3AA577438@pobox.com>
Mime-Version: 1.0 (Apple Message framework v1257)
Content-Type: multipart/alternative;
	boundary="Apple-Mail=_575C729E-D265-479B-B286-B84175C870E0"
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([208.118.235.92]:60355)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <mike.mclean@pobox.com>) id 1SLk07-0006Lp-P7
	for emacs-orgmode@gnu.org; Sat, 21 Apr 2012 19:46:13 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <mike.mclean@pobox.com>) id 1SLjzs-0007iY-2G
	for emacs-orgmode@gnu.org; Sat, 21 Apr 2012 19:45:59 -0400
Received: from a-pb-sasl-sd.pobox.com ([74.115.168.62]:45110
	helo=sasl.smtp.pobox.com) by eggs.gnu.org with esmtp (Exim 4.71)
	(envelope-from <mike.mclean@pobox.com>) id 1SLjzr-0007i8-FN
	for emacs-orgmode@gnu.org; Sat, 21 Apr 2012 19:45:43 -0400
Received: from sasl.smtp.pobox.com (unknown [127.0.0.1])
	by a-pb-sasl-sd.pobox.com (Postfix) with ESMTP id B80FCA045
	for <emacs-orgmode@gnu.org>; Sat, 21 Apr 2012 19:45:36 -0400 (EDT)
Received: from a-pb-sasl-sd.pobox.com (unknown [127.0.0.1])
	by a-pb-sasl-sd.pobox.com (Postfix) with ESMTP id AB3F5A044
	for <emacs-orgmode@gnu.org>; Sat, 21 Apr 2012 19:45:36 -0400 (EDT)
Received: from macxmcleanm.mclean (unknown [24.129.39.25]) (using TLSv1 with
	cipher AES128-SHA (128/128 bits)) (No client certificate requested) by
	a-pb-sasl-sd.pobox.com (Postfix) with ESMTPSA id 6E877A043 for
	<emacs-orgmode@gnu.org>; Sat, 21 Apr 2012 19:45:35 -0400 (EDT)
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
To: emacs-orgmode@gnu.org


--Apple-Mail=_575C729E-D265-479B-B286-B84175C870E0
Content-Transfer-Encoding: quoted-printable
Content-Type: text/plain;
	charset=us-ascii

It appears that there is a small problem with commit =
37fafb7b9e4e8e1eeb6b8faa76a1621c28970ef5 (Option for clock and timer to =
be displayed in frame-title). The default value offrame-title-format in =
my setup is t and this causes an error when clocking in/out.

Setup

M-x emacs-version
GNU Emacs 24.1.50.1 (x86_64-apple-darwin, NS apple-appkit-1038.36) of =
2012-04-21 on bob.porkrind.org

M-x org-version
Org-mode version 7.8.09 (release_7.8.09-335-geabf89 @ =
/Users/mlm/.emacs.d/el-get/org-mode/lisp/org-install.el)

M-x describe-variable <RET> frame-title-format

frame-title-format is a variable defined in `C source code'.
Its value is t

Comments

In both of the backtrace-outputs below, the offending =
delq(org-frame-title-string t) refers to org-clock-out in org-clock.el, =
starting at line 1365. The second argument of delqis supposed to be a =
list and t is not a list.

The workaround is to setq-default frame-title-format in ~/.emacs and =
that avoids the error.

Note that I had not even realized that there were options on how to =
display the current clock (org-clock-clocked-in-display) and did not =
have a setting of this variable before today.

When Clocking In

Debugger entered--Lisp error: (wrong-type-argument listp t)
  memq(org-frame-title-string t)
  (or (memq (quote org-frame-title-string) frame-title-format) (setq =
frame-title-format (append frame-title-format (quote =
(org-frame-title-string)))))
  (progn (or (memq (quote org-frame-title-string) frame-title-format) =
(setq frame-title-format (append frame-title-format (quote =
(org-frame-title-string))))))
  (if (or (eq org-clock-clocked-in-display (quote frame-title)) (eq =
org-clock-clocked-in-display (quote both))) (progn (or (memq (quote =
org-frame-title-string) frame-title-format) (setq frame-title-format =
(append frame-title-format (quote (org-frame-title-string)))))))
  (when (or (eq org-clock-clocked-in-display (quote frame-title)) (eq =
org-clock-clocked-in-display (quote both))) (or (memq (quote =
org-frame-title-string) frame-title-format) (setq frame-title-format =
(append frame-title-format (quote (org-frame-title-string))))))
  (save-restriction (widen) (goto-char target-pos) (org-back-to-heading =
t) (or interrupting (move-marker org-clock-interrupted-task nil)) =
(org-clock-history-push) (org-clock-set-current) (cond ((functionp =
org-clock-in-switch-to-state) (looking-at org-complex-heading-regexp) =
(let ((newstate (funcall org-clock-in-switch-to-state (match-string =
2)))) (if newstate (org-todo newstate)))) ((and =
org-clock-in-switch-to-state (not (looking-at (concat org-outline-regexp =
"[  ]*" org-clock-in-switch-to-state "\\>")))) (org-todo =
org-clock-in-switch-to-state))) (setq org-clock-heading-for-remember =
(and (looking-at org-complex-heading-regexp) (match-end 4) (org-trim =
(buffer-substring (match-end 1) (match-end 4))))) (setq =
org-clock-heading (cond ((and org-clock-heading-function (functionp =
org-clock-heading-function)) (funcall org-clock-heading-function)) =
((looking-at org-complex-heading-regexp) (replace-regexp-in-string =
"\\[\\[.*?\\]\\[\\(.*?\\)\\]\\]" "\\1" (match-string 4))) (t "???"))) =
(setq org-clock-heading (org-propertize org-clock-heading (quote face) =
nil)) (org-clock-find-position org-clock-in-resume) (cond ((and =
org-clock-in-resume (looking-at (concat "^[   ]*" org-clock-string " =
\\[\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}" " *\\sw+.? =
+[012][0-9]:[0-5][0-9]\\)\\][   ]*$"))) (message "Matched %s" =
(match-string 1)) (setq ts (concat "[" (match-string 1) "]")) (goto-char =
(match-end 1)) (setq org-clock-start-time (apply (quote encode-time) =
(org-parse-time-string (match-string 1)))) (setq org-clock-effort =
(org-get-effort)) (setq org-clock-total-time (org-clock-sum-current-item =
(org-clock-get-sum-start)))) ((eq org-clock-in-resume (quote =
auto-restart)) (message "Cannot restart clock because task does not =
contain unfinished clock") (ding) (sit-for 2) (throw (quote abort) nil)) =
(t (insert-before-markers "\n") (backward-char 1) =
(org-indent-line-function) (when (and (save-excursion (end-of-line 0) =
(org-in-item-p))) (beginning-of-line 1) (org-indent-line-to (- =
(org-get-indentation) 2))) (insert org-clock-string " ") (setq =
org-clock-effort (org-get-effort)) (setq org-clock-total-time =
(org-clock-sum-current-item (org-clock-get-sum-start))) (setq =
org-clock-start-time (or (and leftover (y-or-n-p (format "You stopped =
another clock %d mins ago; start this one from then? " ...)) leftover) =
start-time (current-time))) (setq ts (org-insert-time-stamp =
org-clock-start-time (quote with-hm) (quote inactive))))) (move-marker =
org-clock-marker (point) (buffer-base-buffer)) (move-marker =
org-clock-hd-marker (save-excursion (org-back-to-heading t) (point)) =
(buffer-base-buffer)) (setq org-clock-has-been-used t) (when (or (eq =
org-clock-clocked-in-display (quote mode-line)) (eq =
org-clock-clocked-in-display (quote both))) (or global-mode-string (setq =
global-mode-string (quote ("")))) (or (memq (quote org-mode-line-string) =
global-mode-string) (setq global-mode-string (append global-mode-string =
(quote (org-mode-line-string)))))) (when (or (eq =
org-clock-clocked-in-display (quote frame-title)) (eq =
org-clock-clocked-in-display (quote both))) (or (memq (quote =
org-frame-title-string) frame-title-format) (setq frame-title-format =
(append frame-title-format (quote (org-frame-title-string)))))) =
(org-clock-update-mode-line) (when org-clock-mode-line-timer =
(cancel-timer org-clock-mode-line-timer) (setq org-clock-mode-line-timer =
nil)) (when org-clock-clocked-in-display (setq org-clock-mode-line-timer =
(run-with-timer org-clock-update-period org-clock-update-period (quote =
org-clock-update-mode-line)))) (when org-clock-idle-timer (cancel-timer =
org-clock-idle-timer) (setq org-clock-idle-timer nil)) (setq =
org-clock-idle-timer (run-with-timer 60 60 (quote =
org-resolve-clocks-if-idle))) (message "Clock starts at %s - %s" ts =
msg-extra) (run-hooks (quote org-clock-in-hook)))
  (save-excursion (save-restriction (widen) (goto-char target-pos) =
(org-back-to-heading t) (or interrupting (move-marker =
org-clock-interrupted-task nil)) (org-clock-history-push) =
(org-clock-set-current) (cond ((functionp org-clock-in-switch-to-state) =
(looking-at org-complex-heading-regexp) (let ((newstate (funcall =
org-clock-in-switch-to-state ...))) (if newstate (org-todo newstate)))) =
((and org-clock-in-switch-to-state (not (looking-at (concat =
org-outline-regexp "[   ]*" org-clock-in-switch-to-state "\\>")))) =
(org-todo org-clock-in-switch-to-state))) (setq =
org-clock-heading-for-remember (and (looking-at =
org-complex-heading-regexp) (match-end 4) (org-trim (buffer-substring =
(match-end 1) (match-end 4))))) (setq org-clock-heading (cond ((and =
org-clock-heading-function (functionp org-clock-heading-function)) =
(funcall org-clock-heading-function)) ((looking-at =
org-complex-heading-regexp) (replace-regexp-in-string =
"\\[\\[.*?\\]\\[\\(.*?\\)\\]\\]" "\\1" (match-string 4))) (t "???"))) =
(setq org-clock-heading (org-propertize org-clock-heading (quote face) =
nil)) (org-clock-find-position org-clock-in-resume) (cond ((and =
org-clock-in-resume (looking-at (concat "^[   ]*" org-clock-string " =
\\[\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}" " *\\sw+.? =
+[012][0-9]:[0-5][0-9]\\)\\][   ]*$"))) (message "Matched %s" =
(match-string 1)) (setq ts (concat "[" (match-string 1) "]")) (goto-char =
(match-end 1)) (setq org-clock-start-time (apply (quote encode-time) =
(org-parse-time-string (match-string 1)))) (setq org-clock-effort =
(org-get-effort)) (setq org-clock-total-time (org-clock-sum-current-item =
(org-clock-get-sum-start)))) ((eq org-clock-in-resume (quote =
auto-restart)) (message "Cannot restart clock because task does not =
contain unfinished clock") (ding) (sit-for 2) (throw (quote abort) nil)) =
(t (insert-before-markers "\n") (backward-char 1) =
(org-indent-line-function) (when (and (save-excursion (end-of-line 0) =
(org-in-item-p))) (beginning-of-line 1) (org-indent-line-to (- =
(org-get-indentation) 2))) (insert org-clock-string " ") (setq =
org-clock-effort (org-get-effort)) (setq org-clock-total-time =
(org-clock-sum-current-item (org-clock-get-sum-start))) (setq =
org-clock-start-time (or (and leftover (y-or-n-p ...) leftover) =
start-time (current-time))) (setq ts (org-insert-time-stamp =
org-clock-start-time (quote with-hm) (quote inactive))))) (move-marker =
org-clock-marker (point) (buffer-base-buffer)) (move-marker =
org-clock-hd-marker (save-excursion (org-back-to-heading t) (point)) =
(buffer-base-buffer)) (setq org-clock-has-been-used t) (when (or (eq =
org-clock-clocked-in-display (quote mode-line)) (eq =
org-clock-clocked-in-display (quote both))) (or global-mode-string (setq =
global-mode-string (quote ("")))) (or (memq (quote org-mode-line-string) =
global-mode-string) (setq global-mode-string (append global-mode-string =
(quote (org-mode-line-string)))))) (when (or (eq =
org-clock-clocked-in-display (quote frame-title)) (eq =
org-clock-clocked-in-display (quote both))) (or (memq (quote =
org-frame-title-string) frame-title-format) (setq frame-title-format =
(append frame-title-format (quote (org-frame-title-string)))))) =
(org-clock-update-mode-line) (when org-clock-mode-line-timer =
(cancel-timer org-clock-mode-line-timer) (setq org-clock-mode-line-timer =
nil)) (when org-clock-clocked-in-display (setq org-clock-mode-line-timer =
(run-with-timer org-clock-update-period org-clock-update-period (quote =
org-clock-update-mode-line)))) (when org-clock-idle-timer (cancel-timer =
org-clock-idle-timer) (setq org-clock-idle-timer nil)) (setq =
org-clock-idle-timer (run-with-timer 60 60 (quote =
org-resolve-clocks-if-idle))) (message "Clock starts at %s - %s" ts =
msg-extra) (run-hooks (quote org-clock-in-hook))))
  (save-excursion (when (and selected-task (marker-buffer =
selected-task)) (set-buffer (org-base-buffer (marker-buffer =
selected-task))) (setq target-pos (marker-position selected-task)) =
(move-marker selected-task nil)) (save-excursion (save-restriction =
(widen) (goto-char target-pos) (org-back-to-heading t) (or interrupting =
(move-marker org-clock-interrupted-task nil)) (org-clock-history-push) =
(org-clock-set-current) (cond ((functionp org-clock-in-switch-to-state) =
(looking-at org-complex-heading-regexp) (let ((newstate ...)) (if =
newstate (org-todo newstate)))) ((and org-clock-in-switch-to-state (not =
(looking-at ...))) (org-todo org-clock-in-switch-to-state))) (setq =
org-clock-heading-for-remember (and (looking-at =
org-complex-heading-regexp) (match-end 4) (org-trim (buffer-substring =
(match-end 1) (match-end 4))))) (setq org-clock-heading (cond ((and =
org-clock-heading-function (functionp org-clock-heading-function)) =
(funcall org-clock-heading-function)) ((looking-at =
org-complex-heading-regexp) (replace-regexp-in-string =
"\\[\\[.*?\\]\\[\\(.*?\\)\\]\\]" "\\1" (match-string 4))) (t "???"))) =
(setq org-clock-heading (org-propertize org-clock-heading (quote face) =
nil)) (org-clock-find-position org-clock-in-resume) (cond ((and =
org-clock-in-resume (looking-at (concat "^[  ]*" org-clock-string " =
\\[\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}" " *\\sw+.? =
+[012][0-9]:[0-5][0-9]\\)\\][   ]*$"))) (message "Matched %s" =
(match-string 1)) (setq ts (concat "[" (match-string 1) "]")) (goto-char =
(match-end 1)) (setq org-clock-start-time (apply (quote encode-time) =
(org-parse-time-string ...))) (setq org-clock-effort (org-get-effort)) =
(setq org-clock-total-time (org-clock-sum-current-item =
(org-clock-get-sum-start)))) ((eq org-clock-in-resume (quote =
auto-restart)) (message "Cannot restart clock because task does not =
contain unfinished clock") (ding) (sit-for 2) (throw (quote abort) nil)) =
(t (insert-before-markers "\n") (backward-char 1) =
(org-indent-line-function) (when (and (save-excursion ... ...)) =
(beginning-of-line 1) (org-indent-line-to (- ... 2))) (insert =
org-clock-string " ") (setq org-clock-effort (org-get-effort)) (setq =
org-clock-total-time (org-clock-sum-current-item =
(org-clock-get-sum-start))) (setq org-clock-start-time (or (and leftover =
... leftover) start-time (current-time))) (setq ts =
(org-insert-time-stamp org-clock-start-time (quote with-hm) (quote =
inactive))))) (move-marker org-clock-marker (point) =
(buffer-base-buffer)) (move-marker org-clock-hd-marker (save-excursion =
(org-back-to-heading t) (point)) (buffer-base-buffer)) (setq =
org-clock-has-been-used t) (when (or (eq org-clock-clocked-in-display =
(quote mode-line)) (eq org-clock-clocked-in-display (quote both))) (or =
global-mode-string (setq global-mode-string (quote ("")))) (or (memq =
(quote org-mode-line-string) global-mode-string) (setq =
global-mode-string (append global-mode-string (quote ...))))) (when (or =
(eq org-clock-clocked-in-display (quote frame-title)) (eq =
org-clock-clocked-in-display (quote both))) (or (memq (quote =
org-frame-title-string) frame-title-format) (setq frame-title-format =
(append frame-title-format (quote ...))))) (org-clock-update-mode-line) =
(when org-clock-mode-line-timer (cancel-timer org-clock-mode-line-timer) =
(setq org-clock-mode-line-timer nil)) (when org-clock-clocked-in-display =
(setq org-clock-mode-line-timer (run-with-timer org-clock-update-period =
org-clock-update-period (quote org-clock-update-mode-line)))) (when =
org-clock-idle-timer (cancel-timer org-clock-idle-timer) (setq =
org-clock-idle-timer nil)) (setq org-clock-idle-timer (run-with-timer 60 =
60 (quote org-resolve-clocks-if-idle))) (message "Clock starts at %s - =
%s" ts msg-extra) (run-hooks (quote org-clock-in-hook)))))
  (let ((interrupting (and (not =
org-clock-resolving-clocks-due-to-idleness) (org-clocking-p))) ts =
selected-task target-pos (msg-extra "") (leftover (and (not =
org-clock-resolving-clocks) org-clock-leftover-time))) (when (and =
org-clock-auto-clock-resolution (or (not interrupting) (eq t =
org-clock-auto-clock-resolution)) (not org-clock-clocking-in) (not =
org-clock-resolving-clocks)) (setq org-clock-leftover-time nil) (let =
((org-clock-clocking-in t)) (org-resolve-clocks))) (when (equal select =
(quote (4))) (setq selected-task (org-clock-select-task "Clock-in on =
task: ")) (if selected-task (setq selected-task (copy-marker =
selected-task)) (error "Abort"))) (when (equal select (quote (16))) =
(org-clock-mark-default-task)) (when interrupting (when (save-excursion =
(unless selected-task (org-back-to-heading t)) (and (equal =
(marker-buffer org-clock-hd-marker) (if selected-task (marker-buffer =
selected-task) (current-buffer))) (=3D (marker-position =
org-clock-hd-marker) (if selected-task (marker-position selected-task) =
(point))) (equal org-clock-current-task (nth 4 =
(org-heading-components))))) (message "Clock continues in \"%s\"" =
org-clock-heading) (throw (quote abort) nil)) (move-marker =
org-clock-interrupted-task (marker-position org-clock-marker) =
(marker-buffer org-clock-marker)) (let ((org-clock-clocking-in t)) =
(org-clock-out t))) (setq target-pos (if (and (eobp) (not =
(org-at-heading-p))) (point-at-bol 0) (point))) (run-hooks (quote =
org-clock-in-prepare-hook)) (save-excursion (when (and selected-task =
(marker-buffer selected-task)) (set-buffer (org-base-buffer =
(marker-buffer selected-task))) (setq target-pos (marker-position =
selected-task)) (move-marker selected-task nil)) (save-excursion =
(save-restriction (widen) (goto-char target-pos) (org-back-to-heading t) =
(or interrupting (move-marker org-clock-interrupted-task nil)) =
(org-clock-history-push) (org-clock-set-current) (cond ((functionp =
org-clock-in-switch-to-state) (looking-at org-complex-heading-regexp) =
(let (...) (if newstate ...))) ((and org-clock-in-switch-to-state (not =
...)) (org-todo org-clock-in-switch-to-state))) (setq =
org-clock-heading-for-remember (and (looking-at =
org-complex-heading-regexp) (match-end 4) (org-trim (buffer-substring =
... ...)))) (setq org-clock-heading (cond ((and =
org-clock-heading-function ...) (funcall org-clock-heading-function)) =
((looking-at org-complex-heading-regexp) (replace-regexp-in-string =
"\\[\\[.*?\\]\\[\\(.*?\\)\\]\\]" "\\1" ...)) (t "???"))) (setq =
org-clock-heading (org-propertize org-clock-heading (quote face) nil)) =
(org-clock-find-position org-clock-in-resume) (cond ((and =
org-clock-in-resume (looking-at ...)) (message "Matched %s" =
(match-string 1)) (setq ts (concat "[" ... "]")) (goto-char (match-end =
1)) (setq org-clock-start-time (apply ... ...)) (setq org-clock-effort =
(org-get-effort)) (setq org-clock-total-time (org-clock-sum-current-item =
...))) ((eq org-clock-in-resume (quote auto-restart)) (message "Cannot =
restart clock because task does not contain unfinished clock") (ding) =
(sit-for 2) (throw (quote abort) nil)) (t (insert-before-markers "\n") =
(backward-char 1) (org-indent-line-function) (when (and ...) =
(beginning-of-line 1) (org-indent-line-to ...)) (insert org-clock-string =
" ") (setq org-clock-effort (org-get-effort)) (setq org-clock-total-time =
(org-clock-sum-current-item ...)) (setq org-clock-start-time (or ... =
start-time ...)) (setq ts (org-insert-time-stamp org-clock-start-time =
... ...)))) (move-marker org-clock-marker (point) (buffer-base-buffer)) =
(move-marker org-clock-hd-marker (save-excursion (org-back-to-heading t) =
(point)) (buffer-base-buffer)) (setq org-clock-has-been-used t) (when =
(or (eq org-clock-clocked-in-display (quote mode-line)) (eq =
org-clock-clocked-in-display (quote both))) (or global-mode-string (setq =
global-mode-string (quote ...))) (or (memq (quote org-mode-line-string) =
global-mode-string) (setq global-mode-string (append global-mode-string =
...)))) (when (or (eq org-clock-clocked-in-display (quote frame-title)) =
(eq org-clock-clocked-in-display (quote both))) (or (memq (quote =
org-frame-title-string) frame-title-format) (setq frame-title-format =
(append frame-title-format ...)))) (org-clock-update-mode-line) (when =
org-clock-mode-line-timer (cancel-timer org-clock-mode-line-timer) (setq =
org-clock-mode-line-timer nil)) (when org-clock-clocked-in-display (setq =
org-clock-mode-line-timer (run-with-timer org-clock-update-period =
org-clock-update-period (quote org-clock-update-mode-line)))) (when =
org-clock-idle-timer (cancel-timer org-clock-idle-timer) (setq =
org-clock-idle-timer nil)) (setq org-clock-idle-timer (run-with-timer 60 =
60 (quote org-resolve-clocks-if-idle))) (message "Clock starts at %s - =
%s" ts msg-extra) (run-hooks (quote org-clock-in-hook))))))
  (catch (quote abort) (let ((interrupting (and (not =
org-clock-resolving-clocks-due-to-idleness) (org-clocking-p))) ts =
selected-task target-pos (msg-extra "") (leftover (and (not =
org-clock-resolving-clocks) org-clock-leftover-time))) (when (and =
org-clock-auto-clock-resolution (or (not interrupting) (eq t =
org-clock-auto-clock-resolution)) (not org-clock-clocking-in) (not =
org-clock-resolving-clocks)) (setq org-clock-leftover-time nil) (let =
((org-clock-clocking-in t)) (org-resolve-clocks))) (when (equal select =
(quote (4))) (setq selected-task (org-clock-select-task "Clock-in on =
task: ")) (if selected-task (setq selected-task (copy-marker =
selected-task)) (error "Abort"))) (when (equal select (quote (16))) =
(org-clock-mark-default-task)) (when interrupting (when (save-excursion =
(unless selected-task (org-back-to-heading t)) (and (equal =
(marker-buffer org-clock-hd-marker) (if selected-task ... ...)) (=3D =
(marker-position org-clock-hd-marker) (if selected-task ... ...)) (equal =
org-clock-current-task (nth 4 ...)))) (message "Clock continues in =
\"%s\"" org-clock-heading) (throw (quote abort) nil)) (move-marker =
org-clock-interrupted-task (marker-position org-clock-marker) =
(marker-buffer org-clock-marker)) (let ((org-clock-clocking-in t)) =
(org-clock-out t))) (setq target-pos (if (and (eobp) (not =
(org-at-heading-p))) (point-at-bol 0) (point))) (run-hooks (quote =
org-clock-in-prepare-hook)) (save-excursion (when (and selected-task =
(marker-buffer selected-task)) (set-buffer (org-base-buffer =
(marker-buffer selected-task))) (setq target-pos (marker-position =
selected-task)) (move-marker selected-task nil)) (save-excursion =
(save-restriction (widen) (goto-char target-pos) (org-back-to-heading t) =
(or interrupting (move-marker org-clock-interrupted-task nil)) =
(org-clock-history-push) (org-clock-set-current) (cond ((functionp =
org-clock-in-switch-to-state) (looking-at org-complex-heading-regexp) =
(let ... ...)) ((and org-clock-in-switch-to-state ...) (org-todo =
org-clock-in-switch-to-state))) (setq org-clock-heading-for-remember =
(and (looking-at org-complex-heading-regexp) (match-end 4) (org-trim =
...))) (setq org-clock-heading (cond (... ...) (... ...) (t "???"))) =
(setq org-clock-heading (org-propertize org-clock-heading (quote face) =
nil)) (org-clock-find-position org-clock-in-resume) (cond ((and =
org-clock-in-resume ...) (message "Matched %s" ...) (setq ts ...) =
(goto-char ...) (setq org-clock-start-time ...) (setq org-clock-effort =
...) (setq org-clock-total-time ...)) ((eq org-clock-in-resume ...) =
(message "Cannot restart clock because task does not contain unfinished =
clock") (ding) (sit-for 2) (throw ... nil)) (t (insert-before-markers =
"\n") (backward-char 1) (org-indent-line-function) (when ... ... ...) =
(insert org-clock-string " ") (setq org-clock-effort ...) (setq =
org-clock-total-time ...) (setq org-clock-start-time ...) (setq ts =
...))) (move-marker org-clock-marker (point) (buffer-base-buffer)) =
(move-marker org-clock-hd-marker (save-excursion (org-back-to-heading t) =
(point)) (buffer-base-buffer)) (setq org-clock-has-been-used t) (when =
(or (eq org-clock-clocked-in-display ...) (eq =
org-clock-clocked-in-display ...)) (or global-mode-string (setq =
global-mode-string ...)) (or (memq ... global-mode-string) (setq =
global-mode-string ...))) (when (or (eq org-clock-clocked-in-display =
...) (eq org-clock-clocked-in-display ...)) (or (memq ... =
frame-title-format) (setq frame-title-format ...))) =
(org-clock-update-mode-line) (when org-clock-mode-line-timer =
(cancel-timer org-clock-mode-line-timer) (setq org-clock-mode-line-timer =
nil)) (when org-clock-clocked-in-display (setq org-clock-mode-line-timer =
(run-with-timer org-clock-update-period org-clock-update-period ...))) =
(when org-clock-idle-timer (cancel-timer org-clock-idle-timer) (setq =
org-clock-idle-timer nil)) (setq org-clock-idle-timer (run-with-timer 60 =
60 (quote org-resolve-clocks-if-idle))) (message "Clock starts at %s - =
%s" ts msg-extra) (run-hooks (quote org-clock-in-hook)))))))
  org-clock-in(nil)
  call-interactively(org-clock-in)
  (cond ((commandp org-speed-command) (setq this-command =
org-speed-command) (call-interactively org-speed-command)) ((functionp =
org-speed-command) (funcall org-speed-command)) ((and org-speed-command =
(listp org-speed-command)) (eval org-speed-command)) (t (let =
(org-use-speed-commands) (call-interactively (quote =
org-self-insert-command)))))
  (cond ((and org-use-speed-commands (setq org-speed-command =
(run-hook-with-args-until-success (quote org-speed-command-hook) =
(this-command-keys)))) (cond ((commandp org-speed-command) (setq =
this-command org-speed-command) (call-interactively org-speed-command)) =
((functionp org-speed-command) (funcall org-speed-command)) ((and =
org-speed-command (listp org-speed-command)) (eval org-speed-command)) =
(t (let (org-use-speed-commands) (call-interactively (quote =
org-self-insert-command)))))) ((and (org-table-p) (progn (and (featurep =
(quote org-table)) org-table-auto-blank-field (member last-command =
(quote (org-cycle org-return org-shifttab org-ctrl-c-ctrl-c =
yas/expand))) (if (or (equal ... 32) (looking-at "[^|\n]*  |")) (let =
(org-table-may-need-update) (org-table-blank-field)) =
(org-table-blank-field))) t) (eq N 1) (looking-at "[^|\n]*  |")) (let =
(org-table-may-need-update) (goto-char (1- (match-end 0))) =
(backward-delete-char 1) (goto-char (match-beginning 0)) =
(self-insert-command N))) (t (setq org-table-may-need-update t) =
(self-insert-command N) (org-fix-tags-on-the-fly) (if =
org-self-insert-cluster-for-undo (if (not (eq last-command (quote =
org-self-insert-command))) (setq org-self-insert-command-undo-counter 1) =
(if (>=3D org-self-insert-command-undo-counter 20) (setq =
org-self-insert-command-undo-counter 1) (and (> =
org-self-insert-command-undo-counter 0) buffer-undo-list (listp =
buffer-undo-list) (not (cadr buffer-undo-list)) (setcdr buffer-undo-list =
(cddr buffer-undo-list))) (setq org-self-insert-command-undo-counter (1+ =
org-self-insert-command-undo-counter)))))))
  org-self-insert-command(1)
  call-interactively(org-self-insert-command nil nil)
  recursive-edit()
  debug(error (wrong-type-argument listp t))
  delq(org-frame-title-string t)
  (setq frame-title-format (delq (quote org-frame-title-string) =
frame-title-format))
  (save-restriction (widen) (goto-char org-clock-marker) =
(beginning-of-line 1) (if (and (looking-at (concat "[  ]*" =
org-keyword-time-regexp)) (equal (match-string 1) org-clock-string)) =
(setq ts (match-string 2)) (if fail-quietly (throw (quote exit) nil) =
(error "Clock start time is gone"))) (goto-char (match-end 0)) =
(delete-region (point) (point-at-eol)) (insert "--") (setq te =
(org-insert-time-stamp (or at-time (current-time)) (quote with-hm) =
(quote inactive))) (setq s (- (org-float-time (apply (quote encode-time) =
(org-parse-time-string te))) (org-float-time (apply (quote encode-time) =
(org-parse-time-string ts)))) h (floor (/ s 3600)) s (- s (* 3600 h)) m =
(floor (/ s 60)) s (- s (* 60 s))) (insert " =3D> " (format "%2d:%02d" h =
m)) (when (setq remove (and org-clock-out-remove-zero-time-clocks (=3D =
(+ h m) 0))) (beginning-of-line 1) (delete-region (point) =
(point-at-eol)) (and (looking-at "\n") (> (point-max) (1+ (point))) =
(delete-char 1))) (move-marker org-clock-marker nil) (move-marker =
org-clock-hd-marker nil) (when org-log-note-clock-out (org-add-log-setup =
(quote clock-out) nil nil nil nil (concat "# Task: " (org-get-heading t) =
"\n\n"))) (when org-clock-mode-line-timer (cancel-timer =
org-clock-mode-line-timer) (setq org-clock-mode-line-timer nil)) (when =
org-clock-idle-timer (cancel-timer org-clock-idle-timer) (setq =
org-clock-idle-timer nil)) (setq global-mode-string (delq (quote =
org-mode-line-string) global-mode-string)) (setq frame-title-format =
(delq (quote org-frame-title-string) frame-title-format)) (when =
org-clock-out-switch-to-state (save-excursion (org-back-to-heading t) =
(let ((org-inhibit-logging t) (org-clock-out-when-done nil)) (cond =
((functionp org-clock-out-switch-to-state) (looking-at =
org-complex-heading-regexp) (let (...) (if newstate ...))) ((and =
org-clock-out-switch-to-state (not ...)) (org-todo =
org-clock-out-switch-to-state)))))) (force-mode-line-update) (message =
(concat "Clock stopped at %s after HH:MM =3D " org-time-clocksum-format =
"%s") te h m (if remove " =3D> LINE REMOVED" "")) (run-hooks (quote =
org-clock-out-hook)) (unless (org-clocking-p) =
(org-clock-delete-current)))
  (save-excursion (with-no-warnings (set-buffer (org-clocking-buffer))) =
(save-restriction (widen) (goto-char org-clock-marker) =
(beginning-of-line 1) (if (and (looking-at (concat "[  ]*" =
org-keyword-time-regexp)) (equal (match-string 1) org-clock-string)) =
(setq ts (match-string 2)) (if fail-quietly (throw (quote exit) nil) =
(error "Clock start time is gone"))) (goto-char (match-end 0)) =
(delete-region (point) (point-at-eol)) (insert "--") (setq te =
(org-insert-time-stamp (or at-time (current-time)) (quote with-hm) =
(quote inactive))) (setq s (- (org-float-time (apply (quote encode-time) =
(org-parse-time-string te))) (org-float-time (apply (quote encode-time) =
(org-parse-time-string ts)))) h (floor (/ s 3600)) s (- s (* 3600 h)) m =
(floor (/ s 60)) s (- s (* 60 s))) (insert " =3D> " (format "%2d:%02d" h =
m)) (when (setq remove (and org-clock-out-remove-zero-time-clocks (=3D =
(+ h m) 0))) (beginning-of-line 1) (delete-region (point) =
(point-at-eol)) (and (looking-at "\n") (> (point-max) (1+ (point))) =
(delete-char 1))) (move-marker org-clock-marker nil) (move-marker =
org-clock-hd-marker nil) (when org-log-note-clock-out (org-add-log-setup =
(quote clock-out) nil nil nil nil (concat "# Task: " (org-get-heading t) =
"\n\n"))) (when org-clock-mode-line-timer (cancel-timer =
org-clock-mode-line-timer) (setq org-clock-mode-line-timer nil)) (when =
org-clock-idle-timer (cancel-timer org-clock-idle-timer) (setq =
org-clock-idle-timer nil)) (setq global-mode-string (delq (quote =
org-mode-line-string) global-mode-string)) (setq frame-title-format =
(delq (quote org-frame-title-string) frame-title-format)) (when =
org-clock-out-switch-to-state (save-excursion (org-back-to-heading t) =
(let ((org-inhibit-logging t) (org-clock-out-when-done nil)) (cond =
((functionp org-clock-out-switch-to-state) (looking-at =
org-complex-heading-regexp) (let ... ...)) ((and =
org-clock-out-switch-to-state ...) (org-todo =
org-clock-out-switch-to-state)))))) (force-mode-line-update) (message =
(concat "Clock stopped at %s after HH:MM =3D " org-time-clocksum-format =
"%s") te h m (if remove " =3D> LINE REMOVED" "")) (run-hooks (quote =
org-clock-out-hook)) (unless (org-clocking-p) =
(org-clock-delete-current))))
  (let (ts te s h m remove) (save-excursion (with-no-warnings =
(set-buffer (org-clocking-buffer))) (save-restriction (widen) (goto-char =
org-clock-marker) (beginning-of-line 1) (if (and (looking-at (concat "[  =
]*" org-keyword-time-regexp)) (equal (match-string 1) org-clock-string)) =
(setq ts (match-string 2)) (if fail-quietly (throw (quote exit) nil) =
(error "Clock start time is gone"))) (goto-char (match-end 0)) =
(delete-region (point) (point-at-eol)) (insert "--") (setq te =
(org-insert-time-stamp (or at-time (current-time)) (quote with-hm) =
(quote inactive))) (setq s (- (org-float-time (apply (quote encode-time) =
(org-parse-time-string te))) (org-float-time (apply (quote encode-time) =
(org-parse-time-string ts)))) h (floor (/ s 3600)) s (- s (* 3600 h)) m =
(floor (/ s 60)) s (- s (* 60 s))) (insert " =3D> " (format "%2d:%02d" h =
m)) (when (setq remove (and org-clock-out-remove-zero-time-clocks (=3D =
(+ h m) 0))) (beginning-of-line 1) (delete-region (point) =
(point-at-eol)) (and (looking-at "\n") (> (point-max) (1+ (point))) =
(delete-char 1))) (move-marker org-clock-marker nil) (move-marker =
org-clock-hd-marker nil) (when org-log-note-clock-out (org-add-log-setup =
(quote clock-out) nil nil nil nil (concat "# Task: " (org-get-heading t) =
"\n\n"))) (when org-clock-mode-line-timer (cancel-timer =
org-clock-mode-line-timer) (setq org-clock-mode-line-timer nil)) (when =
org-clock-idle-timer (cancel-timer org-clock-idle-timer) (setq =
org-clock-idle-timer nil)) (setq global-mode-string (delq (quote =
org-mode-line-string) global-mode-string)) (setq frame-title-format =
(delq (quote org-frame-title-string) frame-title-format)) (when =
org-clock-out-switch-to-state (save-excursion (org-back-to-heading t) =
(let ((org-inhibit-logging t) (org-clock-out-when-done nil)) (cond (... =
... ...) (... ...))))) (force-mode-line-update) (message (concat "Clock =
stopped at %s after HH:MM =3D " org-time-clocksum-format "%s") te h m =
(if remove " =3D> LINE REMOVED" "")) (run-hooks (quote =
org-clock-out-hook)) (unless (org-clocking-p) =
(org-clock-delete-current)))))
  (catch (quote exit) (when (not (org-clocking-p)) (setq =
global-mode-string (delq (quote org-mode-line-string) =
global-mode-string)) (setq frame-title-format (delq (quote =
org-frame-title-string) frame-title-format)) (force-mode-line-update) =
(if fail-quietly (throw (quote exit) t) (error "No active clock"))) (let =
(ts te s h m remove) (save-excursion (with-no-warnings (set-buffer =
(org-clocking-buffer))) (save-restriction (widen) (goto-char =
org-clock-marker) (beginning-of-line 1) (if (and (looking-at (concat "[  =
]*" org-keyword-time-regexp)) (equal (match-string 1) org-clock-string)) =
(setq ts (match-string 2)) (if fail-quietly (throw (quote exit) nil) =
(error "Clock start time is gone"))) (goto-char (match-end 0)) =
(delete-region (point) (point-at-eol)) (insert "--") (setq te =
(org-insert-time-stamp (or at-time (current-time)) (quote with-hm) =
(quote inactive))) (setq s (- (org-float-time (apply ... ...)) =
(org-float-time (apply ... ...))) h (floor (/ s 3600)) s (- s (* 3600 =
h)) m (floor (/ s 60)) s (- s (* 60 s))) (insert " =3D> " (format =
"%2d:%02d" h m)) (when (setq remove (and =
org-clock-out-remove-zero-time-clocks (=3D ... 0))) (beginning-of-line =
1) (delete-region (point) (point-at-eol)) (and (looking-at "\n") (> =
(point-max) (1+ ...)) (delete-char 1))) (move-marker org-clock-marker =
nil) (move-marker org-clock-hd-marker nil) (when org-log-note-clock-out =
(org-add-log-setup (quote clock-out) nil nil nil nil (concat "# Task: " =
(org-get-heading t) "\n\n"))) (when org-clock-mode-line-timer =
(cancel-timer org-clock-mode-line-timer) (setq org-clock-mode-line-timer =
nil)) (when org-clock-idle-timer (cancel-timer org-clock-idle-timer) =
(setq org-clock-idle-timer nil)) (setq global-mode-string (delq (quote =
org-mode-line-string) global-mode-string)) (setq frame-title-format =
(delq (quote org-frame-title-string) frame-title-format)) (when =
org-clock-out-switch-to-state (save-excursion (org-back-to-heading t) =
(let (... ...) (cond ... ...)))) (force-mode-line-update) (message =
(concat "Clock stopped at %s after HH:MM =3D " org-time-clocksum-format =
"%s") te h m (if remove " =3D> LINE REMOVED" "")) (run-hooks (quote =
org-clock-out-hook)) (unless (org-clocking-p) =
(org-clock-delete-current))))))
  org-clock-out()
  call-interactively(org-clock-out)
  (cond ((commandp org-speed-command) (setq this-command =
org-speed-command) (call-interactively org-speed-command)) ((functionp =
org-speed-command) (funcall org-speed-command)) ((and org-speed-command =
(listp org-speed-command)) (eval org-speed-command)) (t (let =
(org-use-speed-commands) (call-interactively (quote =
org-self-insert-command)))))
  (cond ((and org-use-speed-commands (setq org-speed-command =
(run-hook-with-args-until-success (quote org-speed-command-hook) =
(this-command-keys)))) (cond ((commandp org-speed-command) (setq =
this-command org-speed-command) (call-interactively org-speed-command)) =
((functionp org-speed-command) (funcall org-speed-command)) ((and =
org-speed-command (listp org-speed-command)) (eval org-speed-command)) =
(t (let (org-use-speed-commands) (call-interactively (quote =
org-self-insert-command)))))) ((and (org-table-p) (progn (and (featurep =
(quote org-table)) org-table-auto-blank-field (member last-command =
(quote (org-cycle org-return org-shifttab org-ctrl-c-ctrl-c =
yas/expand))) (if (or (equal ... 32) (looking-at "[^|\n]*  |")) (let =
(org-table-may-need-update) (org-table-blank-field)) =
(org-table-blank-field))) t) (eq N 1) (looking-at "[^|\n]*  |")) (let =
(org-table-may-need-update) (goto-char (1- (match-end 0))) =
(backward-delete-char 1) (goto-char (match-beginning 0)) =
(self-insert-command N))) (t (setq org-table-may-need-update t) =
(self-insert-command N) (org-fix-tags-on-the-fly) (if =
org-self-insert-cluster-for-undo (if (not (eq last-command (quote =
org-self-insert-command))) (setq org-self-insert-command-undo-counter 1) =
(if (>=3D org-self-insert-command-undo-counter 20) (setq =
org-self-insert-command-undo-counter 1) (and (> =
org-self-insert-command-undo-counter 0) buffer-undo-list (listp =
buffer-undo-list) (not (cadr buffer-undo-list)) (setcdr buffer-undo-list =
(cddr buffer-undo-list))) (setq org-self-insert-command-undo-counter (1+ =
org-self-insert-command-undo-counter)))))))
  org-self-insert-command(1)
  call-interactively(org-self-insert-command nil nil)
  recursive-edit()
  debug(error (wrong-type-argument listp t))
  delq(org-frame-title-string t)
  (setq frame-title-format (delq (quote org-frame-title-string) =
frame-title-format))
  (save-restriction (widen) (goto-char org-clock-marker) =
(beginning-of-line 1) (if (and (looking-at (concat "[  ]*" =
org-keyword-time-regexp)) (equal (match-string 1) org-clock-string)) =
(setq ts (match-string 2)) (if fail-quietly (throw (quote exit) nil) =
(error "Clock start time is gone"))) (goto-char (match-end 0)) =
(delete-region (point) (point-at-eol)) (insert "--") (setq te =
(org-insert-time-stamp (or at-time (current-time)) (quote with-hm) =
(quote inactive))) (setq s (- (org-float-time (apply (quote encode-time) =
(org-parse-time-string te))) (org-float-time (apply (quote encode-time) =
(org-parse-time-string ts)))) h (floor (/ s 3600)) s (- s (* 3600 h)) m =
(floor (/ s 60)) s (- s (* 60 s))) (insert " =3D> " (format "%2d:%02d" h =
m)) (when (setq remove (and org-clock-out-remove-zero-time-clocks (=3D =
(+ h m) 0))) (beginning-of-line 1) (delete-region (point) =
(point-at-eol)) (and (looking-at "\n") (> (point-max) (1+ (point))) =
(delete-char 1))) (move-marker org-clock-marker nil) (move-marker =
org-clock-hd-marker nil) (when org-log-note-clock-out (org-add-log-setup =
(quote clock-out) nil nil nil nil (concat "# Task: " (org-get-heading t) =
"\n\n"))) (when org-clock-mode-line-timer (cancel-timer =
org-clock-mode-line-timer) (setq org-clock-mode-line-timer nil)) (when =
org-clock-idle-timer (cancel-timer org-clock-idle-timer) (setq =
org-clock-idle-timer nil)) (setq global-mode-string (delq (quote =
org-mode-line-string) global-mode-string)) (setq frame-title-format =
(delq (quote org-frame-title-string) frame-title-format)) (when =
org-clock-out-switch-to-state (save-excursion (org-back-to-heading t) =
(let ((org-inhibit-logging t) (org-clock-out-when-done nil)) (cond =
((functionp org-clock-out-switch-to-state) (looking-at =
org-complex-heading-regexp) (let (...) (if newstate ...))) ((and =
org-clock-out-switch-to-state (not ...)) (org-todo =
org-clock-out-switch-to-state)))))) (force-mode-line-update) (message =
(concat "Clock stopped at %s after HH:MM =3D " org-time-clocksum-format =
"%s") te h m (if remove " =3D> LINE REMOVED" "")) (run-hooks (quote =
org-clock-out-hook)) (unless (org-clocking-p) =
(org-clock-delete-current)))
  (save-excursion (with-no-warnings (set-buffer (org-clocking-buffer))) =
(save-restriction (widen) (goto-char org-clock-marker) =
(beginning-of-line 1) (if (and (looking-at (concat "[  ]*" =
org-keyword-time-regexp)) (equal (match-string 1) org-clock-string)) =
(setq ts (match-string 2)) (if fail-quietly (throw (quote exit) nil) =
(error "Clock start time is gone"))) (goto-char (match-end 0)) =
(delete-region (point) (point-at-eol)) (insert "--") (setq te =
(org-insert-time-stamp (or at-time (current-time)) (quote with-hm) =
(quote inactive))) (setq s (- (org-float-time (apply (quote encode-time) =
(org-parse-time-string te))) (org-float-time (apply (quote encode-time) =
(org-parse-time-string ts)))) h (floor (/ s 3600)) s (- s (* 3600 h)) m =
(floor (/ s 60)) s (- s (* 60 s))) (insert " =3D> " (format "%2d:%02d" h =
m)) (when (setq remove (and org-clock-out-remove-zero-time-clocks (=3D =
(+ h m) 0))) (beginning-of-line 1) (delete-region (point) =
(point-at-eol)) (and (looking-at "\n") (> (point-max) (1+ (point))) =
(delete-char 1))) (move-marker org-clock-marker nil) (move-marker =
org-clock-hd-marker nil) (when org-log-note-clock-out (org-add-log-setup =
(quote clock-out) nil nil nil nil (concat "# Task: " (org-get-heading t) =
"\n\n"))) (when org-clock-mode-line-timer (cancel-timer =
org-clock-mode-line-timer) (setq org-clock-mode-line-timer nil)) (when =
org-clock-idle-timer (cancel-timer org-clock-idle-timer) (setq =
org-clock-idle-timer nil)) (setq global-mode-string (delq (quote =
org-mode-line-string) global-mode-string)) (setq frame-title-format =
(delq (quote org-frame-title-string) frame-title-format)) (when =
org-clock-out-switch-to-state (save-excursion (org-back-to-heading t) =
(let ((org-inhibit-logging t) (org-clock-out-when-done nil)) (cond =
((functionp org-clock-out-switch-to-state) (looking-at =
org-complex-heading-regexp) (let ... ...)) ((and =
org-clock-out-switch-to-state ...) (org-todo =
org-clock-out-switch-to-state)))))) (force-mode-line-update) (message =
(concat "Clock stopped at %s after HH:MM =3D " org-time-clocksum-format =
"%s") te h m (if remove " =3D> LINE REMOVED" "")) (run-hooks (quote =
org-clock-out-hook)) (unless (org-clocking-p) =
(org-clock-delete-current))))
  (let (ts te s h m remove) (save-excursion (with-no-warnings =
(set-buffer (org-clocking-buffer))) (save-restriction (widen) (goto-char =
org-clock-marker) (beginning-of-line 1) (if (and (looking-at (concat "[  =
]*" org-keyword-time-regexp)) (equal (match-string 1) org-clock-string)) =
(setq ts (match-string 2)) (if fail-quietly (throw (quote exit) nil) =
(error "Clock start time is gone"))) (goto-char (match-end 0)) =
(delete-region (point) (point-at-eol)) (insert "--") (setq te =
(org-insert-time-stamp (or at-time (current-time)) (quote with-hm) =
(quote inactive))) (setq s (- (org-float-time (apply (quote encode-time) =
(org-parse-time-string te))) (org-float-time (apply (quote encode-time) =
(org-parse-time-string ts)))) h (floor (/ s 3600)) s (- s (* 3600 h)) m =
(floor (/ s 60)) s (- s (* 60 s))) (insert " =3D> " (format "%2d:%02d" h =
m)) (when (setq remove (and org-clock-out-remove-zero-time-clocks (=3D =
(+ h m) 0))) (beginning-of-line 1) (delete-region (point) =
(point-at-eol)) (and (looking-at "\n") (> (point-max) (1+ (point))) =
(delete-char 1))) (move-marker org-clock-marker nil) (move-marker =
org-clock-hd-marker nil) (when org-log-note-clock-out (org-add-log-setup =
(quote clock-out) nil nil nil nil (concat "# Task: " (org-get-heading t) =
"\n\n"))) (when org-clock-mode-line-timer (cancel-timer =
org-clock-mode-line-timer) (setq org-clock-mode-line-timer nil)) (when =
org-clock-idle-timer (cancel-timer org-clock-idle-timer) (setq =
org-clock-idle-timer nil)) (setq global-mode-string (delq (quote =
org-mode-line-string) global-mode-string)) (setq frame-title-format =
(delq (quote org-frame-title-string) frame-title-format)) (when =
org-clock-out-switch-to-state (save-excursion (org-back-to-heading t) =
(let ((org-inhibit-logging t) (org-clock-out-when-done nil)) (cond (... =
... ...) (... ...))))) (force-mode-line-update) (message (concat "Clock =
stopped at %s after HH:MM =3D " org-time-clocksum-format "%s") te h m =
(if remove " =3D> LINE REMOVED" "")) (run-hooks (quote =
org-clock-out-hook)) (unless (org-clocking-p) =
(org-clock-delete-current)))))
  (catch (quote exit) (when (not (org-clocking-p)) (setq =
global-mode-string (delq (quote org-mode-line-string) =
global-mode-string)) (setq frame-title-format (delq (quote =
org-frame-title-string) frame-title-format)) (force-mode-line-update) =
(if fail-quietly (throw (quote exit) t) (error "No active clock"))) (let =
(ts te s h m remove) (save-excursion (with-no-warnings (set-buffer =
(org-clocking-buffer))) (save-restriction (widen) (goto-char =
org-clock-marker) (beginning-of-line 1) (if (and (looking-at (concat "[  =
]*" org-keyword-time-regexp)) (equal (match-string 1) org-clock-string)) =
(setq ts (match-string 2)) (if fail-quietly (throw (quote exit) nil) =
(error "Clock start time is gone"))) (goto-char (match-end 0)) =
(delete-region (point) (point-at-eol)) (insert "--") (setq te =
(org-insert-time-stamp (or at-time (current-time)) (quote with-hm) =
(quote inactive))) (setq s (- (org-float-time (apply ... ...)) =
(org-float-time (apply ... ...))) h (floor (/ s 3600)) s (- s (* 3600 =
h)) m (floor (/ s 60)) s (- s (* 60 s))) (insert " =3D> " (format =
"%2d:%02d" h m)) (when (setq remove (and =
org-clock-out-remove-zero-time-clocks (=3D ... 0))) (beginning-of-line =
1) (delete-region (point) (point-at-eol)) (and (looking-at "\n") (> =
(point-max) (1+ ...)) (delete-char 1))) (move-marker org-clock-marker =
nil) (move-marker org-clock-hd-marker nil) (when org-log-note-clock-out =
(org-add-log-setup (quote clock-out) nil nil nil nil (concat "# Task: " =
(org-get-heading t) "\n\n"))) (when org-clock-mode-line-timer =
(cancel-timer org-clock-mode-line-timer) (setq org-clock-mode-line-timer =
nil)) (when org-clock-idle-timer (cancel-timer org-clock-idle-timer) =
(setq org-clock-idle-timer nil)) (setq global-mode-string (delq (quote =
org-mode-line-string) global-mode-string)) (setq frame-title-format =
(delq (quote org-frame-title-string) frame-title-format)) (when =
org-clock-out-switch-to-state (save-excursion (org-back-to-heading t) =
(let (... ...) (cond ... ...)))) (force-mode-line-update) (message =
(concat "Clock stopped at %s after HH:MM =3D " org-time-clocksum-format =
"%s") te h m (if remove " =3D> LINE REMOVED" "")) (run-hooks (quote =
org-clock-out-hook)) (unless (org-clocking-p) =
(org-clock-delete-current))))))
  org-clock-out(t)
  (let ((org-clock-clocking-in t)) (org-clock-out t))
  (progn (when (save-excursion (unless selected-task =
(org-back-to-heading t)) (and (equal (marker-buffer org-clock-hd-marker) =
(if selected-task (marker-buffer selected-task) (current-buffer))) (=3D =
(marker-position org-clock-hd-marker) (if selected-task (marker-position =
selected-task) (point))) (equal org-clock-current-task (nth 4 =
(org-heading-components))))) (message "Clock continues in \"%s\"" =
org-clock-heading) (throw (quote abort) nil)) (move-marker =
org-clock-interrupted-task (marker-position org-clock-marker) =
(marker-buffer org-clock-marker)) (let ((org-clock-clocking-in t)) =
(org-clock-out t)))
  (if interrupting (progn (when (save-excursion (unless selected-task =
(org-back-to-heading t)) (and (equal (marker-buffer org-clock-hd-marker) =
(if selected-task (marker-buffer selected-task) (current-buffer))) (=3D =
(marker-position org-clock-hd-marker) (if selected-task (marker-position =
selected-task) (point))) (equal org-clock-current-task (nth 4 =
(org-heading-components))))) (message "Clock continues in \"%s\"" =
org-clock-heading) (throw (quote abort) nil)) (move-marker =
org-clock-interrupted-task (marker-position org-clock-marker) =
(marker-buffer org-clock-marker)) (let ((org-clock-clocking-in t)) =
(org-clock-out t))))
  (when interrupting (when (save-excursion (unless selected-task =
(org-back-to-heading t)) (and (equal (marker-buffer org-clock-hd-marker) =
(if selected-task (marker-buffer selected-task) (current-buffer))) (=3D =
(marker-position org-clock-hd-marker) (if selected-task (marker-position =
selected-task) (point))) (equal org-clock-current-task (nth 4 =
(org-heading-components))))) (message "Clock continues in \"%s\"" =
org-clock-heading) (throw (quote abort) nil)) (move-marker =
org-clock-interrupted-task (marker-position org-clock-marker) =
(marker-buffer org-clock-marker)) (let ((org-clock-clocking-in t)) =
(org-clock-out t)))
  (let ((interrupting (and (not =
org-clock-resolving-clocks-due-to-idleness) (org-clocking-p))) ts =
selected-task target-pos (msg-extra "") (leftover (and (not =
org-clock-resolving-clocks) org-clock-leftover-time))) (when (and =
org-clock-auto-clock-resolution (or (not interrupting) (eq t =
org-clock-auto-clock-resolution)) (not org-clock-clocking-in) (not =
org-clock-resolving-clocks)) (setq org-clock-leftover-time nil) (let =
((org-clock-clocking-in t)) (org-resolve-clocks))) (when (equal select =
(quote (4))) (setq selected-task (org-clock-select-task "Clock-in on =
task: ")) (if selected-task (setq selected-task (copy-marker =
selected-task)) (error "Abort"))) (when (equal select (quote (16))) =
(org-clock-mark-default-task)) (when interrupting (when (save-excursion =
(unless selected-task (org-back-to-heading t)) (and (equal =
(marker-buffer org-clock-hd-marker) (if selected-task (marker-buffer =
selected-task) (current-buffer))) (=3D (marker-position =
org-clock-hd-marker) (if selected-task (marker-position selected-task) =
(point))) (equal org-clock-current-task (nth 4 =
(org-heading-components))))) (message "Clock continues in \"%s\"" =
org-clock-heading) (throw (quote abort) nil)) (move-marker =
org-clock-interrupted-task (marker-position org-clock-marker) =
(marker-buffer org-clock-marker)) (let ((org-clock-clocking-in t)) =
(org-clock-out t))) (setq target-pos (if (and (eobp) (not =
(org-at-heading-p))) (point-at-bol 0) (point))) (run-hooks (quote =
org-clock-in-prepare-hook)) (save-excursion (when (and selected-task =
(marker-buffer selected-task)) (set-buffer (org-base-buffer =
(marker-buffer selected-task))) (setq target-pos (marker-position =
selected-task)) (move-marker selected-task nil)) (save-excursion =
(save-restriction (widen) (goto-char target-pos) (org-back-to-heading t) =
(or interrupting (move-marker org-clock-interrupted-task nil)) =
(org-clock-history-push) (org-clock-set-current) (cond ((functionp =
org-clock-in-switch-to-state) (looking-at org-complex-heading-regexp) =
(let (...) (if newstate ...))) ((and org-clock-in-switch-to-state (not =
...)) (org-todo org-clock-in-switch-to-state))) (setq =
org-clock-heading-for-remember (and (looking-at =
org-complex-heading-regexp) (match-end 4) (org-trim (buffer-substring =
... ...)))) (setq org-clock-heading (cond ((and =
org-clock-heading-function ...) (funcall org-clock-heading-function)) =
((looking-at org-complex-heading-regexp) (replace-regexp-in-string =
"\\[\\[.*?\\]\\[\\(.*?\\)\\]\\]" "\\1" ...)) (t "???"))) (setq =
org-clock-heading (org-propertize org-clock-heading (quote face) nil)) =
(org-clock-find-position org-clock-in-resume) (cond ((and =
org-clock-in-resume (looking-at ...)) (message "Matched %s" =
(match-string 1)) (setq ts (concat "[" ... "]")) (goto-char (match-end =
1)) (setq org-clock-start-time (apply ... ...)) (setq org-clock-effort =
(org-get-effort)) (setq org-clock-total-time (org-clock-sum-current-item =
...))) ((eq org-clock-in-resume (quote auto-restart)) (message "Cannot =
restart clock because task does not contain unfinished clock") (ding) =
(sit-for 2) (throw (quote abort) nil)) (t (insert-before-markers "\n") =
(backward-char 1) (org-indent-line-function) (when (and ...) =
(beginning-of-line 1) (org-indent-line-to ...)) (insert org-clock-string =
" ") (setq org-clock-effort (org-get-effort)) (setq org-clock-total-time =
(org-clock-sum-current-item ...)) (setq org-clock-start-time (or ... =
start-time ...)) (setq ts (org-insert-time-stamp org-clock-start-time =
... ...)))) (move-marker org-clock-marker (point) (buffer-base-buffer)) =
(move-marker org-clock-hd-marker (save-excursion (org-back-to-heading t) =
(point)) (buffer-base-buffer)) (setq org-clock-has-been-used t) (when =
(or (eq org-clock-clocked-in-display (quote mode-line)) (eq =
org-clock-clocked-in-display (quote both))) (or global-mode-string (setq =
global-mode-string (quote ...))) (or (memq (quote org-mode-line-string) =
global-mode-string) (setq global-mode-string (append global-mode-string =
...)))) (when (or (eq org-clock-clocked-in-display (quote frame-title)) =
(eq org-clock-clocked-in-display (quote both))) (or (memq (quote =
org-frame-title-string) frame-title-format) (setq frame-title-format =
(append frame-title-format ...)))) (org-clock-update-mode-line) (when =
org-clock-mode-line-timer (cancel-timer org-clock-mode-line-timer) (setq =
org-clock-mode-line-timer nil)) (when org-clock-clocked-in-display (setq =
org-clock-mode-line-timer (run-with-timer org-clock-update-period =
org-clock-update-period (quote org-clock-update-mode-line)))) (when =
org-clock-idle-timer (cancel-timer org-clock-idle-timer) (setq =
org-clock-idle-timer nil)) (setq org-clock-idle-timer (run-with-timer 60 =
60 (quote org-resolve-clocks-if-idle))) (message "Clock starts at %s - =
%s" ts msg-extra) (run-hooks (quote org-clock-in-hook))))))
  (catch (quote abort) (let ((interrupting (and (not =
org-clock-resolving-clocks-due-to-idleness) (org-clocking-p))) ts =
selected-task target-pos (msg-extra "") (leftover (and (not =
org-clock-resolving-clocks) org-clock-leftover-time))) (when (and =
org-clock-auto-clock-resolution (or (not interrupting) (eq t =
org-clock-auto-clock-resolution)) (not org-clock-clocking-in) (not =
org-clock-resolving-clocks)) (setq org-clock-leftover-time nil) (let =
((org-clock-clocking-in t)) (org-resolve-clocks))) (when (equal select =
(quote (4))) (setq selected-task (org-clock-select-task "Clock-in on =
task: ")) (if selected-task (setq selected-task (copy-marker =
selected-task)) (error "Abort"))) (when (equal select (quote (16))) =
(org-clock-mark-default-task)) (when interrupting (when (save-excursion =
(unless selected-task (org-back-to-heading t)) (and (equal =
(marker-buffer org-clock-hd-marker) (if selected-task ... ...)) (=3D =
(marker-position org-clock-hd-marker) (if selected-task ... ...)) (equal =
org-clock-current-task (nth 4 ...)))) (message "Clock continues in =
\"%s\"" org-clock-heading) (throw (quote abort) nil)) (move-marker =
org-clock-interrupted-task (marker-position org-clock-marker) =
(marker-buffer org-clock-marker)) (let ((org-clock-clocking-in t)) =
(org-clock-out t))) (setq target-pos (if (and (eobp) (not =
(org-at-heading-p))) (point-at-bol 0) (point))) (run-hooks (quote =
org-clock-in-prepare-hook)) (save-excursion (when (and selected-task =
(marker-buffer selected-task)) (set-buffer (org-base-buffer =
(marker-buffer selected-task))) (setq target-pos (marker-position =
selected-task)) (move-marker selected-task nil)) (save-excursion =
(save-restriction (widen) (goto-char target-pos) (org-back-to-heading t) =
(or interrupting (move-marker org-clock-interrupted-task nil)) =
(org-clock-history-push) (org-clock-set-current) (cond ((functionp =
org-clock-in-switch-to-state) (looking-at org-complex-heading-regexp) =
(let ... ...)) ((and org-clock-in-switch-to-state ...) (org-todo =
org-clock-in-switch-to-state))) (setq org-clock-heading-for-remember =
(and (looking-at org-complex-heading-regexp) (match-end 4) (org-trim =
...))) (setq org-clock-heading (cond (... ...) (... ...) (t "???"))) =
(setq org-clock-heading (org-propertize org-clock-heading (quote face) =
nil)) (org-clock-find-position org-clock-in-resume) (cond ((and =
org-clock-in-resume ...) (message "Matched %s" ...) (setq ts ...) =
(goto-char ...) (setq org-clock-start-time ...) (setq org-clock-effort =
...) (setq org-clock-total-time ...)) ((eq org-clock-in-resume ...) =
(message "Cannot restart clock because task does not contain unfinished =
clock") (ding) (sit-for 2) (throw ... nil)) (t (insert-before-markers =
"\n") (backward-char 1) (org-indent-line-function) (when ... ... ...) =
(insert org-clock-string " ") (setq org-clock-effort ...) (setq =
org-clock-total-time ...) (setq org-clock-start-time ...) (setq ts =
...))) (move-marker org-clock-marker (point) (buffer-base-buffer)) =
(move-marker org-clock-hd-marker (save-excursion (org-back-to-heading t) =
(point)) (buffer-base-buffer)) (setq org-clock-has-been-used t) (when =
(or (eq org-clock-clocked-in-display ...) (eq =
org-clock-clocked-in-display ...)) (or global-mode-string (setq =
global-mode-string ...)) (or (memq ... global-mode-string) (setq =
global-mode-string ...))) (when (or (eq org-clock-clocked-in-display =
...) (eq org-clock-clocked-in-display ...)) (or (memq ... =
frame-title-format) (setq frame-title-format ...))) =
(org-clock-update-mode-line) (when org-clock-mode-line-timer =
(cancel-timer org-clock-mode-line-timer) (setq org-clock-mode-line-timer =
nil)) (when org-clock-clocked-in-display (setq org-clock-mode-line-timer =
(run-with-timer org-clock-update-period org-clock-update-period ...))) =
(when org-clock-idle-timer (cancel-timer org-clock-idle-timer) (setq =
org-clock-idle-timer nil)) (setq org-clock-idle-timer (run-with-timer 60 =
60 (quote org-resolve-clocks-if-idle))) (message "Clock starts at %s - =
%s" ts msg-extra) (run-hooks (quote org-clock-in-hook)))))))
  org-clock-in(nil)
  call-interactively(org-clock-in)
  (cond ((commandp org-speed-command) (setq this-command =
org-speed-command) (call-interactively org-speed-command)) ((functionp =
org-speed-command) (funcall org-speed-command)) ((and org-speed-command =
(listp org-speed-command)) (eval org-speed-command)) (t (let =
(org-use-speed-commands) (call-interactively (quote =
org-self-insert-command)))))
  (cond ((and org-use-speed-commands (setq org-speed-command =
(run-hook-with-args-until-success (quote org-speed-command-hook) =
(this-command-keys)))) (cond ((commandp org-speed-command) (setq =
this-command org-speed-command) (call-interactively org-speed-command)) =
((functionp org-speed-command) (funcall org-speed-command)) ((and =
org-speed-command (listp org-speed-command)) (eval org-speed-command)) =
(t (let (org-use-speed-commands) (call-interactively (quote =
org-self-insert-command)))))) ((and (org-table-p) (progn (and (featurep =
(quote org-table)) org-table-auto-blank-field (member last-command =
(quote (org-cycle org-return org-shifttab org-ctrl-c-ctrl-c =
yas/expand))) (if (or (equal ... 32) (looking-at "[^|\n]*  |")) (let =
(org-table-may-need-update) (org-table-blank-field)) =
(org-table-blank-field))) t) (eq N 1) (looking-at "[^|\n]*  |")) (let =
(org-table-may-need-update) (goto-char (1- (match-end 0))) =
(backward-delete-char 1) (goto-char (match-beginning 0)) =
(self-insert-command N))) (t (setq org-table-may-need-update t) =
(self-insert-command N) (org-fix-tags-on-the-fly) (if =
org-self-insert-cluster-for-undo (if (not (eq last-command (quote =
org-self-insert-command))) (setq org-self-insert-command-undo-counter 1) =
(if (>=3D org-self-insert-command-undo-counter 20) (setq =
org-self-insert-command-undo-counter 1) (and (> =
org-self-insert-command-undo-counter 0) buffer-undo-list (listp =
buffer-undo-list) (not (cadr buffer-undo-list)) (setcdr buffer-undo-list =
(cddr buffer-undo-list))) (setq org-self-insert-command-undo-counter (1+ =
org-self-insert-command-undo-counter)))))))
  org-self-insert-command(1)
  call-interactively(org-self-insert-command nil nil)

When Clocking Out

Debugger entered--Lisp error: (wrong-type-argument listp t)
  delq(org-frame-title-string t)
  (setq frame-title-format (delq (quote org-frame-title-string) =
frame-title-format))
  (save-restriction (widen) (goto-char org-clock-marker) =
(beginning-of-line 1) (if (and (looking-at (concat "[  ]*" =
org-keyword-time-regexp)) (equal (match-string 1) org-clock-string)) =
(setq ts (match-string 2)) (if fail-quietly (throw (quote exit) nil) =
(error "Clock start time is gone"))) (goto-char (match-end 0)) =
(delete-region (point) (point-at-eol)) (insert "--") (setq te =
(org-insert-time-stamp (or at-time (current-time)) (quote with-hm) =
(quote inactive))) (setq s (- (org-float-time (apply (quote encode-time) =
(org-parse-time-string te))) (org-float-time (apply (quote encode-time) =
(org-parse-time-string ts)))) h (floor (/ s 3600)) s (- s (* 3600 h)) m =
(floor (/ s 60)) s (- s (* 60 s))) (insert " =3D> " (format "%2d:%02d" h =
m)) (when (setq remove (and org-clock-out-remove-zero-time-clocks (=3D =
(+ h m) 0))) (beginning-of-line 1) (delete-region (point) =
(point-at-eol)) (and (looking-at "\n") (> (point-max) (1+ (point))) =
(delete-char 1))) (move-marker org-clock-marker nil) (move-marker =
org-clock-hd-marker nil) (when org-log-note-clock-out (org-add-log-setup =
(quote clock-out) nil nil nil nil (concat "# Task: " (org-get-heading t) =
"\n\n"))) (when org-clock-mode-line-timer (cancel-timer =
org-clock-mode-line-timer) (setq org-clock-mode-line-timer nil)) (when =
org-clock-idle-timer (cancel-timer org-clock-idle-timer) (setq =
org-clock-idle-timer nil)) (setq global-mode-string (delq (quote =
org-mode-line-string) global-mode-string)) (setq frame-title-format =
(delq (quote org-frame-title-string) frame-title-format)) (when =
org-clock-out-switch-to-state (save-excursion (org-back-to-heading t) =
(let ((org-inhibit-logging t) (org-clock-out-when-done nil)) (cond =
((functionp org-clock-out-switch-to-state) (looking-at =
org-complex-heading-regexp) (let (...) (if newstate ...))) ((and =
org-clock-out-switch-to-state (not ...)) (org-todo =
org-clock-out-switch-to-state)))))) (force-mode-line-update) (message =
(concat "Clock stopped at %s after HH:MM =3D " org-time-clocksum-format =
"%s") te h m (if remove " =3D> LINE REMOVED" "")) (run-hooks (quote =
org-clock-out-hook)) (unless (org-clocking-p) =
(org-clock-delete-current)))
  (save-excursion (with-no-warnings (set-buffer (org-clocking-buffer))) =
(save-restriction (widen) (goto-char org-clock-marker) =
(beginning-of-line 1) (if (and (looking-at (concat "[  ]*" =
org-keyword-time-regexp)) (equal (match-string 1) org-clock-string)) =
(setq ts (match-string 2)) (if fail-quietly (throw (quote exit) nil) =
(error "Clock start time is gone"))) (goto-char (match-end 0)) =
(delete-region (point) (point-at-eol)) (insert "--") (setq te =
(org-insert-time-stamp (or at-time (current-time)) (quote with-hm) =
(quote inactive))) (setq s (- (org-float-time (apply (quote encode-time) =
(org-parse-time-string te))) (org-float-time (apply (quote encode-time) =
(org-parse-time-string ts)))) h (floor (/ s 3600)) s (- s (* 3600 h)) m =
(floor (/ s 60)) s (- s (* 60 s))) (insert " =3D> " (format "%2d:%02d" h =
m)) (when (setq remove (and org-clock-out-remove-zero-time-clocks (=3D =
(+ h m) 0))) (beginning-of-line 1) (delete-region (point) =
(point-at-eol)) (and (looking-at "\n") (> (point-max) (1+ (point))) =
(delete-char 1))) (move-marker org-clock-marker nil) (move-marker =
org-clock-hd-marker nil) (when org-log-note-clock-out (org-add-log-setup =
(quote clock-out) nil nil nil nil (concat "# Task: " (org-get-heading t) =
"\n\n"))) (when org-clock-mode-line-timer (cancel-timer =
org-clock-mode-line-timer) (setq org-clock-mode-line-timer nil)) (when =
org-clock-idle-timer (cancel-timer org-clock-idle-timer) (setq =
org-clock-idle-timer nil)) (setq global-mode-string (delq (quote =
org-mode-line-string) global-mode-string)) (setq frame-title-format =
(delq (quote org-frame-title-string) frame-title-format)) (when =
org-clock-out-switch-to-state (save-excursion (org-back-to-heading t) =
(let ((org-inhibit-logging t) (org-clock-out-when-done nil)) (cond =
((functionp org-clock-out-switch-to-state) (looking-at =
org-complex-heading-regexp) (let ... ...)) ((and =
org-clock-out-switch-to-state ...) (org-todo =
org-clock-out-switch-to-state)))))) (force-mode-line-update) (message =
(concat "Clock stopped at %s after HH:MM =3D " org-time-clocksum-format =
"%s") te h m (if remove " =3D> LINE REMOVED" "")) (run-hooks (quote =
org-clock-out-hook)) (unless (org-clocking-p) =
(org-clock-delete-current))))
  (let (ts te s h m remove) (save-excursion (with-no-warnings =
(set-buffer (org-clocking-buffer))) (save-restriction (widen) (goto-char =
org-clock-marker) (beginning-of-line 1) (if (and (looking-at (concat "[  =
]*" org-keyword-time-regexp)) (equal (match-string 1) org-clock-string)) =
(setq ts (match-string 2)) (if fail-quietly (throw (quote exit) nil) =
(error "Clock start time is gone"))) (goto-char (match-end 0)) =
(delete-region (point) (point-at-eol)) (insert "--") (setq te =
(org-insert-time-stamp (or at-time (current-time)) (quote with-hm) =
(quote inactive))) (setq s (- (org-float-time (apply (quote encode-time) =
(org-parse-time-string te))) (org-float-time (apply (quote encode-time) =
(org-parse-time-string ts)))) h (floor (/ s 3600)) s (- s (* 3600 h)) m =
(floor (/ s 60)) s (- s (* 60 s))) (insert " =3D> " (format "%2d:%02d" h =
m)) (when (setq remove (and org-clock-out-remove-zero-time-clocks (=3D =
(+ h m) 0))) (beginning-of-line 1) (delete-region (point) =
(point-at-eol)) (and (looking-at "\n") (> (point-max) (1+ (point))) =
(delete-char 1))) (move-marker org-clock-marker nil) (move-marker =
org-clock-hd-marker nil) (when org-log-note-clock-out (org-add-log-setup =
(quote clock-out) nil nil nil nil (concat "# Task: " (org-get-heading t) =
"\n\n"))) (when org-clock-mode-line-timer (cancel-timer =
org-clock-mode-line-timer) (setq org-clock-mode-line-timer nil)) (when =
org-clock-idle-timer (cancel-timer org-clock-idle-timer) (setq =
org-clock-idle-timer nil)) (setq global-mode-string (delq (quote =
org-mode-line-string) global-mode-string)) (setq frame-title-format =
(delq (quote org-frame-title-string) frame-title-format)) (when =
org-clock-out-switch-to-state (save-excursion (org-back-to-heading t) =
(let ((org-inhibit-logging t) (org-clock-out-when-done nil)) (cond (... =
... ...) (... ...))))) (force-mode-line-update) (message (concat "Clock =
stopped at %s after HH:MM =3D " org-time-clocksum-format "%s") te h m =
(if remove " =3D> LINE REMOVED" "")) (run-hooks (quote =
org-clock-out-hook)) (unless (org-clocking-p) =
(org-clock-delete-current)))))
  (catch (quote exit) (when (not (org-clocking-p)) (setq =
global-mode-string (delq (quote org-mode-line-string) =
global-mode-string)) (setq frame-title-format (delq (quote =
org-frame-title-string) frame-title-format)) (force-mode-line-update) =
(if fail-quietly (throw (quote exit) t) (error "No active clock"))) (let =
(ts te s h m remove) (save-excursion (with-no-warnings (set-buffer =
(org-clocking-buffer))) (save-restriction (widen) (goto-char =
org-clock-marker) (beginning-of-line 1) (if (and (looking-at (concat "[  =
]*" org-keyword-time-regexp)) (equal (match-string 1) org-clock-string)) =
(setq ts (match-string 2)) (if fail-quietly (throw (quote exit) nil) =
(error "Clock start time is gone"))) (goto-char (match-end 0)) =
(delete-region (point) (point-at-eol)) (insert "--") (setq te =
(org-insert-time-stamp (or at-time (current-time)) (quote with-hm) =
(quote inactive))) (setq s (- (org-float-time (apply ... ...)) =
(org-float-time (apply ... ...))) h (floor (/ s 3600)) s (- s (* 3600 =
h)) m (floor (/ s 60)) s (- s (* 60 s))) (insert " =3D> " (format =
"%2d:%02d" h m)) (when (setq remove (and =
org-clock-out-remove-zero-time-clocks (=3D ... 0))) (beginning-of-line =
1) (delete-region (point) (point-at-eol)) (and (looking-at "\n") (> =
(point-max) (1+ ...)) (delete-char 1))) (move-marker org-clock-marker =
nil) (move-marker org-clock-hd-marker nil) (when org-log-note-clock-out =
(org-add-log-setup (quote clock-out) nil nil nil nil (concat "# Task: " =
(org-get-heading t) "\n\n"))) (when org-clock-mode-line-timer =
(cancel-timer org-clock-mode-line-timer) (setq org-clock-mode-line-timer =
nil)) (when org-clock-idle-timer (cancel-timer org-clock-idle-timer) =
(setq org-clock-idle-timer nil)) (setq global-mode-string (delq (quote =
org-mode-line-string) global-mode-string)) (setq frame-title-format =
(delq (quote org-frame-title-string) frame-title-format)) (when =
org-clock-out-switch-to-state (save-excursion (org-back-to-heading t) =
(let (... ...) (cond ... ...)))) (force-mode-line-update) (message =
(concat "Clock stopped at %s after HH:MM =3D " org-time-clocksum-format =
"%s") te h m (if remove " =3D> LINE REMOVED" "")) (run-hooks (quote =
org-clock-out-hook)) (unless (org-clocking-p) =
(org-clock-delete-current))))))
  org-clock-out()
  call-interactively(org-clock-out)
  (cond ((commandp org-speed-command) (setq this-command =
org-speed-command) (call-interactively org-speed-command)) ((functionp =
org-speed-command) (funcall org-speed-command)) ((and org-speed-command =
(listp org-speed-command)) (eval org-speed-command)) (t (let =
(org-use-speed-commands) (call-interactively (quote =
org-self-insert-command)))))
  (cond ((and org-use-speed-commands (setq org-speed-command =
(run-hook-with-args-until-success (quote org-speed-command-hook) =
(this-command-keys)))) (cond ((commandp org-speed-command) (setq =
this-command org-speed-command) (call-interactively org-speed-command)) =
((functionp org-speed-command) (funcall org-speed-command)) ((and =
org-speed-command (listp org-speed-command)) (eval org-speed-command)) =
(t (let (org-use-speed-commands) (call-interactively (quote =
org-self-insert-command)))))) ((and (org-table-p) (progn (and (featurep =
(quote org-table)) org-table-auto-blank-field (member last-command =
(quote (org-cycle org-return org-shifttab org-ctrl-c-ctrl-c =
yas/expand))) (if (or (equal ... 32) (looking-at "[^|\n]*  |")) (let =
(org-table-may-need-update) (org-table-blank-field)) =
(org-table-blank-field))) t) (eq N 1) (looking-at "[^|\n]*  |")) (let =
(org-table-may-need-update) (goto-char (1- (match-end 0))) =
(backward-delete-char 1) (goto-char (match-beginning 0)) =
(self-insert-command N))) (t (setq org-table-may-need-update t) =
(self-insert-command N) (org-fix-tags-on-the-fly) (if =
org-self-insert-cluster-for-undo (if (not (eq last-command (quote =
org-self-insert-command))) (setq org-self-insert-command-undo-counter 1) =
(if (>=3D org-self-insert-command-undo-counter 20) (setq =
org-self-insert-command-undo-counter 1) (and (> =
org-self-insert-command-undo-counter 0) buffer-undo-list (listp =
buffer-undo-list) (not (cadr buffer-undo-list)) (setcdr buffer-undo-list =
(cddr buffer-undo-list))) (setq org-self-insert-command-undo-counter (1+ =
org-self-insert-command-undo-counter)))))))
  org-self-insert-command(1)
  call-interactively(org-self-insert-command nil nil)
  recursive-edit()
  debug(error (wrong-type-argument listp t))
  delq(org-frame-title-string t)
  (setq frame-title-format (delq (quote org-frame-title-string) =
frame-title-format))
  (save-restriction (widen) (goto-char org-clock-marker) =
(beginning-of-line 1) (if (and (looking-at (concat "[  ]*" =
org-keyword-time-regexp)) (equal (match-string 1) org-clock-string)) =
(setq ts (match-string 2)) (if fail-quietly (throw (quote exit) nil) =
(error "Clock start time is gone"))) (goto-char (match-end 0)) =
(delete-region (point) (point-at-eol)) (insert "--") (setq te =
(org-insert-time-stamp (or at-time (current-time)) (quote with-hm) =
(quote inactive))) (setq s (- (org-float-time (apply (quote encode-time) =
(org-parse-time-string te))) (org-float-time (apply (quote encode-time) =
(org-parse-time-string ts)))) h (floor (/ s 3600)) s (- s (* 3600 h)) m =
(floor (/ s 60)) s (- s (* 60 s))) (insert " =3D> " (format "%2d:%02d" h =
m)) (when (setq remove (and org-clock-out-remove-zero-time-clocks (=3D =
(+ h m) 0))) (beginning-of-line 1) (delete-region (point) =
(point-at-eol)) (and (looking-at "\n") (> (point-max) (1+ (point))) =
(delete-char 1))) (move-marker org-clock-marker nil) (move-marker =
org-clock-hd-marker nil) (when org-log-note-clock-out (org-add-log-setup =
(quote clock-out) nil nil nil nil (concat "# Task: " (org-get-heading t) =
"\n\n"))) (when org-clock-mode-line-timer (cancel-timer =
org-clock-mode-line-timer) (setq org-clock-mode-line-timer nil)) (when =
org-clock-idle-timer (cancel-timer org-clock-idle-timer) (setq =
org-clock-idle-timer nil)) (setq global-mode-string (delq (quote =
org-mode-line-string) global-mode-string)) (setq frame-title-format =
(delq (quote org-frame-title-string) frame-title-format)) (when =
org-clock-out-switch-to-state (save-excursion (org-back-to-heading t) =
(let ((org-inhibit-logging t) (org-clock-out-when-done nil)) (cond =
((functionp org-clock-out-switch-to-state) (looking-at =
org-complex-heading-regexp) (let (...) (if newstate ...))) ((and =
org-clock-out-switch-to-state (not ...)) (org-todo =
org-clock-out-switch-to-state)))))) (force-mode-line-update) (message =
(concat "Clock stopped at %s after HH:MM =3D " org-time-clocksum-format =
"%s") te h m (if remove " =3D> LINE REMOVED" "")) (run-hooks (quote =
org-clock-out-hook)) (unless (org-clocking-p) =
(org-clock-delete-current)))
  (save-excursion (with-no-warnings (set-buffer (org-clocking-buffer))) =
(save-restriction (widen) (goto-char org-clock-marker) =
(beginning-of-line 1) (if (and (looking-at (concat "[  ]*" =
org-keyword-time-regexp)) (equal (match-string 1) org-clock-string)) =
(setq ts (match-string 2)) (if fail-quietly (throw (quote exit) nil) =
(error "Clock start time is gone"))) (goto-char (match-end 0)) =
(delete-region (point) (point-at-eol)) (insert "--") (setq te =
(org-insert-time-stamp (or at-time (current-time)) (quote with-hm) =
(quote inactive))) (setq s (- (org-float-time (apply (quote encode-time) =
(org-parse-time-string te))) (org-float-time (apply (quote encode-time) =
(org-parse-time-string ts)))) h (floor (/ s 3600)) s (- s (* 3600 h)) m =
(floor (/ s 60)) s (- s (* 60 s))) (insert " =3D> " (format "%2d:%02d" h =
m)) (when (setq remove (and org-clock-out-remove-zero-time-clocks (=3D =
(+ h m) 0))) (beginning-of-line 1) (delete-region (point) =
(point-at-eol)) (and (looking-at "\n") (> (point-max) (1+ (point))) =
(delete-char 1))) (move-marker org-clock-marker nil) (move-marker =
org-clock-hd-marker nil) (when org-log-note-clock-out (org-add-log-setup =
(quote clock-out) nil nil nil nil (concat "# Task: " (org-get-heading t) =
"\n\n"))) (when org-clock-mode-line-timer (cancel-timer =
org-clock-mode-line-timer) (setq org-clock-mode-line-timer nil)) (when =
org-clock-idle-timer (cancel-timer org-clock-idle-timer) (setq =
org-clock-idle-timer nil)) (setq global-mode-string (delq (quote =
org-mode-line-string) global-mode-string)) (setq frame-title-format =
(delq (quote org-frame-title-string) frame-title-format)) (when =
org-clock-out-switch-to-state (save-excursion (org-back-to-heading t) =
(let ((org-inhibit-logging t) (org-clock-out-when-done nil)) (cond =
((functionp org-clock-out-switch-to-state) (looking-at =
org-complex-heading-regexp) (let ... ...)) ((and =
org-clock-out-switch-to-state ...) (org-todo =
org-clock-out-switch-to-state)))))) (force-mode-line-update) (message =
(concat "Clock stopped at %s after HH:MM =3D " org-time-clocksum-format =
"%s") te h m (if remove " =3D> LINE REMOVED" "")) (run-hooks (quote =
org-clock-out-hook)) (unless (org-clocking-p) =
(org-clock-delete-current))))
  (let (ts te s h m remove) (save-excursion (with-no-warnings =
(set-buffer (org-clocking-buffer))) (save-restriction (widen) (goto-char =
org-clock-marker) (beginning-of-line 1) (if (and (looking-at (concat "[  =
]*" org-keyword-time-regexp)) (equal (match-string 1) org-clock-string)) =
(setq ts (match-string 2)) (if fail-quietly (throw (quote exit) nil) =
(error "Clock start time is gone"))) (goto-char (match-end 0)) =
(delete-region (point) (point-at-eol)) (insert "--") (setq te =
(org-insert-time-stamp (or at-time (current-time)) (quote with-hm) =
(quote inactive))) (setq s (- (org-float-time (apply (quote encode-time) =
(org-parse-time-string te))) (org-float-time (apply (quote encode-time) =
(org-parse-time-string ts)))) h (floor (/ s 3600)) s (- s (* 3600 h)) m =
(floor (/ s 60)) s (- s (* 60 s))) (insert " =3D> " (format "%2d:%02d" h =
m)) (when (setq remove (and org-clock-out-remove-zero-time-clocks (=3D =
(+ h m) 0))) (beginning-of-line 1) (delete-region (point) =
(point-at-eol)) (and (looking-at "\n") (> (point-max) (1+ (point))) =
(delete-char 1))) (move-marker org-clock-marker nil) (move-marker =
org-clock-hd-marker nil) (when org-log-note-clock-out (org-add-log-setup =
(quote clock-out) nil nil nil nil (concat "# Task: " (org-get-heading t) =
"\n\n"))) (when org-clock-mode-line-timer (cancel-timer =
org-clock-mode-line-timer) (setq org-clock-mode-line-timer nil)) (when =
org-clock-idle-timer (cancel-timer org-clock-idle-timer) (setq =
org-clock-idle-timer nil)) (setq global-mode-string (delq (quote =
org-mode-line-string) global-mode-string)) (setq frame-title-format =
(delq (quote org-frame-title-string) frame-title-format)) (when =
org-clock-out-switch-to-state (save-excursion (org-back-to-heading t) =
(let ((org-inhibit-logging t) (org-clock-out-when-done nil)) (cond (... =
... ...) (... ...))))) (force-mode-line-update) (message (concat "Clock =
stopped at %s after HH:MM =3D " org-time-clocksum-format "%s") te h m =
(if remove " =3D> LINE REMOVED" "")) (run-hooks (quote =
org-clock-out-hook)) (unless (org-clocking-p) =
(org-clock-delete-current)))))
  (catch (quote exit) (when (not (org-clocking-p)) (setq =
global-mode-string (delq (quote org-mode-line-string) =
global-mode-string)) (setq frame-title-format (delq (quote =
org-frame-title-string) frame-title-format)) (force-mode-line-update) =
(if fail-quietly (throw (quote exit) t) (error "No active clock"))) (let =
(ts te s h m remove) (save-excursion (with-no-warnings (set-buffer =
(org-clocking-buffer))) (save-restriction (widen) (goto-char =
org-clock-marker) (beginning-of-line 1) (if (and (looking-at (concat "[  =
]*" org-keyword-time-regexp)) (equal (match-string 1) org-clock-string)) =
(setq ts (match-string 2)) (if fail-quietly (throw (quote exit) nil) =
(error "Clock start time is gone"))) (goto-char (match-end 0)) =
(delete-region (point) (point-at-eol)) (insert "--") (setq te =
(org-insert-time-stamp (or at-time (current-time)) (quote with-hm) =
(quote inactive))) (setq s (- (org-float-time (apply ... ...)) =
(org-float-time (apply ... ...))) h (floor (/ s 3600)) s (- s (* 3600 =
h)) m (floor (/ s 60)) s (- s (* 60 s))) (insert " =3D> " (format =
"%2d:%02d" h m)) (when (setq remove (and =
org-clock-out-remove-zero-time-clocks (=3D ... 0))) (beginning-of-line =
1) (delete-region (point) (point-at-eol)) (and (looking-at "\n") (> =
(point-max) (1+ ...)) (delete-char 1))) (move-marker org-clock-marker =
nil) (move-marker org-clock-hd-marker nil) (when org-log-note-clock-out =
(org-add-log-setup (quote clock-out) nil nil nil nil (concat "# Task: " =
(org-get-heading t) "\n\n"))) (when org-clock-mode-line-timer =
(cancel-timer org-clock-mode-line-timer) (setq org-clock-mode-line-timer =
nil)) (when org-clock-idle-timer (cancel-timer org-clock-idle-timer) =
(setq org-clock-idle-timer nil)) (setq global-mode-string (delq (quote =
org-mode-line-string) global-mode-string)) (setq frame-title-format =
(delq (quote org-frame-title-string) frame-title-format)) (when =
org-clock-out-switch-to-state (save-excursion (org-back-to-heading t) =
(let (... ...) (cond ... ...)))) (force-mode-line-update) (message =
(concat "Clock stopped at %s after HH:MM =3D " org-time-clocksum-format =
"%s") te h m (if remove " =3D> LINE REMOVED" "")) (run-hooks (quote =
org-clock-out-hook)) (unless (org-clocking-p) =
(org-clock-delete-current))))))
  org-clock-out(t)
  (let ((org-clock-clocking-in t)) (org-clock-out t))
  (progn (when (save-excursion (unless selected-task =
(org-back-to-heading t)) (and (equal (marker-buffer org-clock-hd-marker) =
(if selected-task (marker-buffer selected-task) (current-buffer))) (=3D =
(marker-position org-clock-hd-marker) (if selected-task (marker-position =
selected-task) (point))) (equal org-clock-current-task (nth 4 =
(org-heading-components))))) (message "Clock continues in \"%s\"" =
org-clock-heading) (throw (quote abort) nil)) (move-marker =
org-clock-interrupted-task (marker-position org-clock-marker) =
(marker-buffer org-clock-marker)) (let ((org-clock-clocking-in t)) =
(org-clock-out t)))
  (if interrupting (progn (when (save-excursion (unless selected-task =
(org-back-to-heading t)) (and (equal (marker-buffer org-clock-hd-marker) =
(if selected-task (marker-buffer selected-task) (current-buffer))) (=3D =
(marker-position org-clock-hd-marker) (if selected-task (marker-position =
selected-task) (point))) (equal org-clock-current-task (nth 4 =
(org-heading-components))))) (message "Clock continues in \"%s\"" =
org-clock-heading) (throw (quote abort) nil)) (move-marker =
org-clock-interrupted-task (marker-position org-clock-marker) =
(marker-buffer org-clock-marker)) (let ((org-clock-clocking-in t)) =
(org-clock-out t))))
  (when interrupting (when (save-excursion (unless selected-task =
(org-back-to-heading t)) (and (equal (marker-buffer org-clock-hd-marker) =
(if selected-task (marker-buffer selected-task) (current-buffer))) (=3D =
(marker-position org-clock-hd-marker) (if selected-task (marker-position =
selected-task) (point))) (equal org-clock-current-task (nth 4 =
(org-heading-components))))) (message "Clock continues in \"%s\"" =
org-clock-heading) (throw (quote abort) nil)) (move-marker =
org-clock-interrupted-task (marker-position org-clock-marker) =
(marker-buffer org-clock-marker)) (let ((org-clock-clocking-in t)) =
(org-clock-out t)))
  (let ((interrupting (and (not =
org-clock-resolving-clocks-due-to-idleness) (org-clocking-p))) ts =
selected-task target-pos (msg-extra "") (leftover (and (not =
org-clock-resolving-clocks) org-clock-leftover-time))) (when (and =
org-clock-auto-clock-resolution (or (not interrupting) (eq t =
org-clock-auto-clock-resolution)) (not org-clock-clocking-in) (not =
org-clock-resolving-clocks)) (setq org-clock-leftover-time nil) (let =
((org-clock-clocking-in t)) (org-resolve-clocks))) (when (equal select =
(quote (4))) (setq selected-task (org-clock-select-task "Clock-in on =
task: ")) (if selected-task (setq selected-task (copy-marker =
selected-task)) (error "Abort"))) (when (equal select (quote (16))) =
(org-clock-mark-default-task)) (when interrupting (when (save-excursion =
(unless selected-task (org-back-to-heading t)) (and (equal =
(marker-buffer org-clock-hd-marker) (if selected-task (marker-buffer =
selected-task) (current-buffer))) (=3D (marker-position =
org-clock-hd-marker) (if selected-task (marker-position selected-task) =
(point))) (equal org-clock-current-task (nth 4 =
(org-heading-components))))) (message "Clock continues in \"%s\"" =
org-clock-heading) (throw (quote abort) nil)) (move-marker =
org-clock-interrupted-task (marker-position org-clock-marker) =
(marker-buffer org-clock-marker)) (let ((org-clock-clocking-in t)) =
(org-clock-out t))) (setq target-pos (if (and (eobp) (not =
(org-at-heading-p))) (point-at-bol 0) (point))) (run-hooks (quote =
org-clock-in-prepare-hook)) (save-excursion (when (and selected-task =
(marker-buffer selected-task)) (set-buffer (org-base-buffer =
(marker-buffer selected-task))) (setq target-pos (marker-position =
selected-task)) (move-marker selected-task nil)) (save-excursion =
(save-restriction (widen) (goto-char target-pos) (org-back-to-heading t) =
(or interrupting (move-marker org-clock-interrupted-task nil)) =
(org-clock-history-push) (org-clock-set-current) (cond ((functionp =
org-clock-in-switch-to-state) (looking-at org-complex-heading-regexp) =
(let (...) (if newstate ...))) ((and org-clock-in-switch-to-state (not =
...)) (org-todo org-clock-in-switch-to-state))) (setq =
org-clock-heading-for-remember (and (looking-at =
org-complex-heading-regexp) (match-end 4) (org-trim (buffer-substring =
... ...)))) (setq org-clock-heading (cond ((and =
org-clock-heading-function ...) (funcall org-clock-heading-function)) =
((looking-at org-complex-heading-regexp) (replace-regexp-in-string =
"\\[\\[.*?\\]\\[\\(.*?\\)\\]\\]" "\\1" ...)) (t "???"))) (setq =
org-clock-heading (org-propertize org-clock-heading (quote face) nil)) =
(org-clock-find-position org-clock-in-resume) (cond ((and =
org-clock-in-resume (looking-at ...)) (message "Matched %s" =
(match-string 1)) (setq ts (concat "[" ... "]")) (goto-char (match-end =
1)) (setq org-clock-start-time (apply ... ...)) (setq org-clock-effort =
(org-get-effort)) (setq org-clock-total-time (org-clock-sum-current-item =
...))) ((eq org-clock-in-resume (quote auto-restart)) (message "Cannot =
restart clock because task does not contain unfinished clock") (ding) =
(sit-for 2) (throw (quote abort) nil)) (t (insert-before-markers "\n") =
(backward-char 1) (org-indent-line-function) (when (and ...) =
(beginning-of-line 1) (org-indent-line-to ...)) (insert org-clock-string =
" ") (setq org-clock-effort (org-get-effort)) (setq org-clock-total-time =
(org-clock-sum-current-item ...)) (setq org-clock-start-time (or ... =
start-time ...)) (setq ts (org-insert-time-stamp org-clock-start-time =
... ...)))) (move-marker org-clock-marker (point) (buffer-base-buffer)) =
(move-marker org-clock-hd-marker (save-excursion (org-back-to-heading t) =
(point)) (buffer-base-buffer)) (setq org-clock-has-been-used t) (when =
(or (eq org-clock-clocked-in-display (quote mode-line)) (eq =
org-clock-clocked-in-display (quote both))) (or global-mode-string (setq =
global-mode-string (quote ...))) (or (memq (quote org-mode-line-string) =
global-mode-string) (setq global-mode-string (append global-mode-string =
...)))) (when (or (eq org-clock-clocked-in-display (quote frame-title)) =
(eq org-clock-clocked-in-display (quote both))) (or (memq (quote =
org-frame-title-string) frame-title-format) (setq frame-title-format =
(append frame-title-format ...)))) (org-clock-update-mode-line) (when =
org-clock-mode-line-timer (cancel-timer org-clock-mode-line-timer) (setq =
org-clock-mode-line-timer nil)) (when org-clock-clocked-in-display (setq =
org-clock-mode-line-timer (run-with-timer org-clock-update-period =
org-clock-update-period (quote org-clock-update-mode-line)))) (when =
org-clock-idle-timer (cancel-timer org-clock-idle-timer) (setq =
org-clock-idle-timer nil)) (setq org-clock-idle-timer (run-with-timer 60 =
60 (quote org-resolve-clocks-if-idle))) (message "Clock starts at %s - =
%s" ts msg-extra) (run-hooks (quote org-clock-in-hook))))))
  (catch (quote abort) (let ((interrupting (and (not =
org-clock-resolving-clocks-due-to-idleness) (org-clocking-p))) ts =
selected-task target-pos (msg-extra "") (leftover (and (not =
org-clock-resolving-clocks) org-clock-leftover-time))) (when (and =
org-clock-auto-clock-resolution (or (not interrupting) (eq t =
org-clock-auto-clock-resolution)) (not org-clock-clocking-in) (not =
org-clock-resolving-clocks)) (setq org-clock-leftover-time nil) (let =
((org-clock-clocking-in t)) (org-resolve-clocks))) (when (equal select =
(quote (4))) (setq selected-task (org-clock-select-task "Clock-in on =
task: ")) (if selected-task (setq selected-task (copy-marker =
selected-task)) (error "Abort"))) (when (equal select (quote (16))) =
(org-clock-mark-default-task)) (when interrupting (when (save-excursion =
(unless selected-task (org-back-to-heading t)) (and (equal =
(marker-buffer org-clock-hd-marker) (if selected-task ... ...)) (=3D =
(marker-position org-clock-hd-marker) (if selected-task ... ...)) (equal =
org-clock-current-task (nth 4 ...)))) (message "Clock continues in =
\"%s\"" org-clock-heading) (throw (quote abort) nil)) (move-marker =
org-clock-interrupted-task (marker-position org-clock-marker) =
(marker-buffer org-clock-marker)) (let ((org-clock-clocking-in t)) =
(org-clock-out t))) (setq target-pos (if (and (eobp) (not =
(org-at-heading-p))) (point-at-bol 0) (point))) (run-hooks (quote =
org-clock-in-prepare-hook)) (save-excursion (when (and selected-task =
(marker-buffer selected-task)) (set-buffer (org-base-buffer =
(marker-buffer selected-task))) (setq target-pos (marker-position =
selected-task)) (move-marker selected-task nil)) (save-excursion =
(save-restriction (widen) (goto-char target-pos) (org-back-to-heading t) =
(or interrupting (move-marker org-clock-interrupted-task nil)) =
(org-clock-history-push) (org-clock-set-current) (cond ((functionp =
org-clock-in-switch-to-state) (looking-at org-complex-heading-regexp) =
(let ... ...)) ((and org-clock-in-switch-to-state ...) (org-todo =
org-clock-in-switch-to-state))) (setq org-clock-heading-for-remember =
(and (looking-at org-complex-heading-regexp) (match-end 4) (org-trim =
...))) (setq org-clock-heading (cond (... ...) (... ...) (t "???"))) =
(setq org-clock-heading (org-propertize org-clock-heading (quote face) =
nil)) (org-clock-find-position org-clock-in-resume) (cond ((and =
org-clock-in-resume ...) (message "Matched %s" ...) (setq ts ...) =
(goto-char ...) (setq org-clock-start-time ...) (setq org-clock-effort =
...) (setq org-clock-total-time ...)) ((eq org-clock-in-resume ...) =
(message "Cannot restart clock because task does not contain unfinished =
clock") (ding) (sit-for 2) (throw ... nil)) (t (insert-before-markers =
"\n") (backward-char 1) (org-indent-line-function) (when ... ... ...) =
(insert org-clock-string " ") (setq org-clock-effort ...) (setq =
org-clock-total-time ...) (setq org-clock-start-time ...) (setq ts =
...))) (move-marker org-clock-marker (point) (buffer-base-buffer)) =
(move-marker org-clock-hd-marker (save-excursion (org-back-to-heading t) =
(point)) (buffer-base-buffer)) (setq org-clock-has-been-used t) (when =
(or (eq org-clock-clocked-in-display ...) (eq =
org-clock-clocked-in-display ...)) (or global-mode-string (setq =
global-mode-string ...)) (or (memq ... global-mode-string) (setq =
global-mode-string ...))) (when (or (eq org-clock-clocked-in-display =
...) (eq org-clock-clocked-in-display ...)) (or (memq ... =
frame-title-format) (setq frame-title-format ...))) =
(org-clock-update-mode-line) (when org-clock-mode-line-timer =
(cancel-timer org-clock-mode-line-timer) (setq org-clock-mode-line-timer =
nil)) (when org-clock-clocked-in-display (setq org-clock-mode-line-timer =
(run-with-timer org-clock-update-period org-clock-update-period ...))) =
(when org-clock-idle-timer (cancel-timer org-clock-idle-timer) (setq =
org-clock-idle-timer nil)) (setq org-clock-idle-timer (run-with-timer 60 =
60 (quote org-resolve-clocks-if-idle))) (message "Clock starts at %s - =
%s" ts msg-extra) (run-hooks (quote org-clock-in-hook)))))))
  org-clock-in(nil)
  call-interactively(org-clock-in)
  (cond ((commandp org-speed-command) (setq this-command =
org-speed-command) (call-interactively org-speed-command)) ((functionp =
org-speed-command) (funcall org-speed-command)) ((and org-speed-command =
(listp org-speed-command)) (eval org-speed-command)) (t (let =
(org-use-speed-commands) (call-interactively (quote =
org-self-insert-command)))))
  (cond ((and org-use-speed-commands (setq org-speed-command =
(run-hook-with-args-until-success (quote org-speed-command-hook) =
(this-command-keys)))) (cond ((commandp org-speed-command) (setq =
this-command org-speed-command) (call-interactively org-speed-command)) =
((functionp org-speed-command) (funcall org-speed-command)) ((and =
org-speed-command (listp org-speed-command)) (eval org-speed-command)) =
(t (let (org-use-speed-commands) (call-interactively (quote =
org-self-insert-command)))))) ((and (org-table-p) (progn (and (featurep =
(quote org-table)) org-table-auto-blank-field (member last-command =
(quote (org-cycle org-return org-shifttab org-ctrl-c-ctrl-c =
yas/expand))) (if (or (equal ... 32) (looking-at "[^|\n]*  |")) (let =
(org-table-may-need-update) (org-table-blank-field)) =
(org-table-blank-field))) t) (eq N 1) (looking-at "[^|\n]*  |")) (let =
(org-table-may-need-update) (goto-char (1- (match-end 0))) =
(backward-delete-char 1) (goto-char (match-beginning 0)) =
(self-insert-command N))) (t (setq org-table-may-need-update t) =
(self-insert-command N) (org-fix-tags-on-the-fly) (if =
org-self-insert-cluster-for-undo (if (not (eq last-command (quote =
org-self-insert-command))) (setq org-self-insert-command-undo-counter 1) =
(if (>=3D org-self-insert-command-undo-counter 20) (setq =
org-self-insert-command-undo-counter 1) (and (> =
org-self-insert-command-undo-counter 0) buffer-undo-list (listp =
buffer-undo-list) (not (cadr buffer-undo-list)) (setcdr buffer-undo-list =
(cddr buffer-undo-list))) (setq org-self-insert-command-undo-counter (1+ =
org-self-insert-command-undo-counter)))))))
  org-self-insert-command(1)
  call-interactively(org-self-insert-command nil nil)

Date=

--Apple-Mail=_575C729E-D265-479B-B286-B84175C870E0
Content-Transfer-Encoding: quoted-printable
Content-Type: text/html;
	charset=us-ascii

<html><head></head><body style=3D"word-wrap: break-word; =
-webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><div =
id=3D"content" style=3D"font-size: 1em; font-family: 'Palatino =
Linotype', Palatino, 'URW Palladio L', 'Book Antiqua', Baskerville, =
'Bookman Old Style', 'Bitstream Charter', 'Nimbus Roman No9 L', =
Garamond, 'New Century Schoolbook', 'Century Schoolbook', 'Century =
Schoolbook L', Georgia, serif; "><p>It appears that there is a small =
problem with&nbsp;<code style=3D"font-family: courier, monospace; =
font-size: 13px; ">commit =
37fafb7b9e4e8e1eeb6b8faa76a1621c28970ef5</code>&nbsp;(Option for clock =
and timer to be displayed in frame-title). The default value of<code =
style=3D"font-family: courier, monospace; font-size: 13px; =
">frame-title-format</code>&nbsp;in my setup is&nbsp;<code =
style=3D"font-family: courier, monospace; font-size: 13px; =
">t</code>&nbsp;and this causes an error when clocking in/out.</p><div =
id=3D"outline-container-1" class=3D"outline-2"><h2 id=3D"sec-1" =
style=3D"color: rgb(95, 123, 147); margin-bottom: 0.5em; height: auto; =
border-top-width: 2px; border-right-width: 2px; border-bottom-width: =
2px; border-left-width: 2px; border-top-style: solid; =
border-right-style: solid; border-bottom-style: solid; =
border-left-style: solid; border-top-color: rgb(222, 222, 222); =
border-right-color: rgb(222, 222, 222); border-bottom-color: rgb(222, =
222, 222); border-left-color: rgb(222, 222, 222); padding-top: 0px; =
padding-right: 0.2em; padding-bottom: 0px; padding-left: 0.2em; =
font-size: 24px; ">Setup</h2><div class=3D"outline-text-2" id=3D"text-1" =
style=3D"margin-left: 0.5em; "><pre class=3D"example" =
style=3D"border-top-width: 1pt; border-right-width: 1pt; =
border-bottom-width: 1pt; border-left-width: 1pt; border-top-style: =
solid; border-right-style: solid; border-bottom-style: solid; =
border-left-style: solid; border-top-color: rgb(174, 189, 204); =
border-right-color: rgb(174, 189, 204); border-bottom-color: rgb(174, =
189, 204); border-left-color: rgb(174, 189, 204); background-color: =
rgb(243, 245, 247); padding-top: 5pt; padding-right: 5pt; =
padding-bottom: 5pt; padding-left: 5pt; font-family: courier, monospace; =
font-size: 14px; overflow-x: auto; overflow-y: auto; ">M-x emacs-version
GNU Emacs 24.1.50.1 (x86_64-apple-darwin, NS apple-appkit-1038.36) of =
2012-04-21 on <a href=3D"http://bob.porkrind.org">bob.porkrind.org</a>

M-x org-version
Org-mode version 7.8.09 (release_7.8.09-335-geabf89 @ =
/Users/mlm/.emacs.d/el-get/org-mode/lisp/org-install.el)

M-x describe-variable &lt;RET&gt; frame-title-format

frame-title-format is a variable defined in `C source code'.
Its value is t

</pre></div></div><div id=3D"outline-container-2" class=3D"outline-2"><h2 =
id=3D"sec-2" style=3D"color: rgb(95, 123, 147); margin-bottom: 0.5em; =
height: auto; border-top-width: 2px; border-right-width: 2px; =
border-bottom-width: 2px; border-left-width: 2px; border-top-style: =
solid; border-right-style: solid; border-bottom-style: solid; =
border-left-style: solid; border-top-color: rgb(222, 222, 222); =
border-right-color: rgb(222, 222, 222); border-bottom-color: rgb(222, =
222, 222); border-left-color: rgb(222, 222, 222); padding-top: 0px; =
padding-right: 0.2em; padding-bottom: 0px; padding-left: 0.2em; =
font-size: 24px; ">Comments</h2><div class=3D"outline-text-2" =
id=3D"text-2" style=3D"margin-left: 0.5em; "><p>In both of the =
backtrace-outputs below, the offending&nbsp;<code style=3D"font-family: =
courier, monospace; font-size: 13px; ">delq(org-frame-title-string =
t)</code>&nbsp;refers to&nbsp;<code style=3D"font-family: courier, =
monospace; font-size: 13px; ">org-clock-out</code>&nbsp;in&nbsp;<code =
style=3D"font-family: courier, monospace; font-size: 13px; =
">org-clock.el</code>, starting at line 1365. The second argument =
of&nbsp;<code style=3D"font-family: courier, monospace; font-size: 13px; =
">delq</code>is supposed to be a list and&nbsp;<code style=3D"font-family:=
 courier, monospace; font-size: 13px; ">t</code>&nbsp;is not a =
list.</p><p>The workaround is to&nbsp;<code style=3D"font-family: =
courier, monospace; font-size: 13px; ">setq-default</code>&nbsp;<code =
style=3D"font-family: courier, monospace; font-size: 13px; =
">frame-title-format</code>&nbsp;in&nbsp;<code style=3D"font-family: =
courier, monospace; font-size: 13px; ">~/.emacs</code>&nbsp;and that =
avoids the error.</p><p>Note that I had not even realized that there =
were options on how to display the current clock (<code =
style=3D"font-family: courier, monospace; font-size: 13px; =
">org-clock-clocked-in-display</code>) and did not have a setting of =
this variable before today.</p></div></div><div id=3D"outline-container-3"=
 class=3D"outline-2"><h2 id=3D"sec-3" style=3D"color: rgb(95, 123, 147); =
margin-bottom: 0.5em; height: auto; border-top-width: 2px; =
border-right-width: 2px; border-bottom-width: 2px; border-left-width: =
2px; border-top-style: solid; border-right-style: solid; =
border-bottom-style: solid; border-left-style: solid; border-top-color: =
rgb(222, 222, 222); border-right-color: rgb(222, 222, 222); =
border-bottom-color: rgb(222, 222, 222); border-left-color: rgb(222, =
222, 222); padding-top: 0px; padding-right: 0.2em; padding-bottom: 0px; =
padding-left: 0.2em; font-size: 24px; ">When Clocking In</h2><div =
class=3D"outline-text-2" id=3D"text-3" style=3D"margin-left: 0.5em; =
"><pre class=3D"example" style=3D"border-top-width: 1pt; =
border-right-width: 1pt; border-bottom-width: 1pt; border-left-width: =
1pt; border-top-style: solid; border-right-style: solid; =
border-bottom-style: solid; border-left-style: solid; border-top-color: =
rgb(174, 189, 204); border-right-color: rgb(174, 189, 204); =
border-bottom-color: rgb(174, 189, 204); border-left-color: rgb(174, =
189, 204); background-color: rgb(243, 245, 247); padding-top: 5pt; =
padding-right: 5pt; padding-bottom: 5pt; padding-left: 5pt; font-family: =
courier, monospace; font-size: 14px; overflow-x: auto; overflow-y: auto; =
">Debugger entered--Lisp error: (wrong-type-argument listp t)
  memq(org-frame-title-string t)
  (or (memq (quote org-frame-title-string) frame-title-format) (setq =
frame-title-format (append frame-title-format (quote =
(org-frame-title-string)))))
  (progn (or (memq (quote org-frame-title-string) frame-title-format) =
(setq frame-title-format (append frame-title-format (quote =
(org-frame-title-string))))))
  (if (or (eq org-clock-clocked-in-display (quote frame-title)) (eq =
org-clock-clocked-in-display (quote both))) (progn (or (memq (quote =
org-frame-title-string) frame-title-format) (setq frame-title-format =
(append frame-title-format (quote (org-frame-title-string)))))))
  (when (or (eq org-clock-clocked-in-display (quote frame-title)) (eq =
org-clock-clocked-in-display (quote both))) (or (memq (quote =
org-frame-title-string) frame-title-format) (setq frame-title-format =
(append frame-title-format (quote (org-frame-title-string))))))
  (save-restriction (widen) (goto-char target-pos) (org-back-to-heading =
t) (or interrupting (move-marker org-clock-interrupted-task nil)) =
(org-clock-history-push) (org-clock-set-current) (cond ((functionp =
org-clock-in-switch-to-state) (looking-at org-complex-heading-regexp) =
(let ((newstate (funcall org-clock-in-switch-to-state (match-string =
2)))) (if newstate (org-todo newstate)))) ((and =
org-clock-in-switch-to-state (not (looking-at (concat org-outline-regexp =
"[  ]*" org-clock-in-switch-to-state "\\&gt;")))) (org-todo =
org-clock-in-switch-to-state))) (setq org-clock-heading-for-remember =
(and (looking-at org-complex-heading-regexp) (match-end 4) (org-trim =
(buffer-substring (match-end 1) (match-end 4))))) (setq =
org-clock-heading (cond ((and org-clock-heading-function (functionp =
org-clock-heading-function)) (funcall org-clock-heading-function)) =
((looking-at org-complex-heading-regexp) (replace-regexp-in-string =
"\\[\\[.*?\\]\\[\\(.*?\\)\\]\\]" "<a href=3D"smb://1">\\1</a>" =
(match-string 4))) (t "???"))) (setq org-clock-heading (org-propertize =
org-clock-heading (quote face) nil)) (org-clock-find-position =
org-clock-in-resume) (cond ((and org-clock-in-resume (looking-at (concat =
"^[   ]*" org-clock-string " =
\\[\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}" " *\\sw+.? =
+[012][0-9]:[0-5][0-9]\\)<a href=3D"smb://][">\\][</a>   ]*$"))) =
(message "Matched %s" (match-string 1)) (setq ts (concat "[" =
(match-string 1) "]")) (goto-char (match-end 1)) (setq =
org-clock-start-time (apply (quote encode-time) (org-parse-time-string =
(match-string 1)))) (setq org-clock-effort (org-get-effort)) (setq =
org-clock-total-time (org-clock-sum-current-item =
(org-clock-get-sum-start)))) ((eq org-clock-in-resume (quote =
auto-restart)) (message "Cannot restart clock because task does not =
contain unfinished clock") (ding) (sit-for 2) (throw (quote abort) nil)) =
(t (insert-before-markers "\n") (backward-char 1) =
(org-indent-line-function) (when (and (save-excursion (end-of-line 0) =
(org-in-item-p))) (beginning-of-line 1) (org-indent-line-to (- =
(org-get-indentation) 2))) (insert org-clock-string " ") (setq =
org-clock-effort (org-get-effort)) (setq org-clock-total-time =
(org-clock-sum-current-item (org-clock-get-sum-start))) (setq =
org-clock-start-time (or (and leftover (y-or-n-p (format "You stopped =
another clock %d mins ago; start this one from then? " ...)) leftover) =
start-time (current-time))) (setq ts (org-insert-time-stamp =
org-clock-start-time (quote with-hm) (quote inactive))))) (move-marker =
org-clock-marker (point) (buffer-base-buffer)) (move-marker =
org-clock-hd-marker (save-excursion (org-back-to-heading t) (point)) =
(buffer-base-buffer)) (setq org-clock-has-been-used t) (when (or (eq =
org-clock-clocked-in-display (quote mode-line)) (eq =
org-clock-clocked-in-display (quote both))) (or global-mode-string (setq =
global-mode-string (quote ("")))) (or (memq (quote org-mode-line-string) =
global-mode-string) (setq global-mode-string (append global-mode-string =
(quote (org-mode-line-string)))))) (when (or (eq =
org-clock-clocked-in-display (quote frame-title)) (eq =
org-clock-clocked-in-display (quote both))) (or (memq (quote =
org-frame-title-string) frame-title-format) (setq frame-title-format =
(append frame-title-format (quote (org-frame-title-string)))))) =
(org-clock-update-mode-line) (when org-clock-mode-line-timer =
(cancel-timer org-clock-mode-line-timer) (setq org-clock-mode-line-timer =
nil)) (when org-clock-clocked-in-display (setq org-clock-mode-line-timer =
(run-with-timer org-clock-update-period org-clock-update-period (quote =
org-clock-update-mode-line)))) (when org-clock-idle-timer (cancel-timer =
org-clock-idle-timer) (setq org-clock-idle-timer nil)) (setq =
org-clock-idle-timer (run-with-timer 60 60 (quote =
org-resolve-clocks-if-idle))) (message "Clock starts at %s - %s" ts =
msg-extra) (run-hooks (quote org-clock-in-hook)))
  (save-excursion (save-restriction (widen) (goto-char target-pos) =
(org-back-to-heading t) (or interrupting (move-marker =
org-clock-interrupted-task nil)) (org-clock-history-push) =
(org-clock-set-current) (cond ((functionp org-clock-in-switch-to-state) =
(looking-at org-complex-heading-regexp) (let ((newstate (funcall =
org-clock-in-switch-to-state ...))) (if newstate (org-todo newstate)))) =
((and org-clock-in-switch-to-state (not (looking-at (concat =
org-outline-regexp "[   ]*" org-clock-in-switch-to-state "\\&gt;")))) =
(org-todo org-clock-in-switch-to-state))) (setq =
org-clock-heading-for-remember (and (looking-at =
org-complex-heading-regexp) (match-end 4) (org-trim (buffer-substring =
(match-end 1) (match-end 4))))) (setq org-clock-heading (cond ((and =
org-clock-heading-function (functionp org-clock-heading-function)) =
(funcall org-clock-heading-function)) ((looking-at =
org-complex-heading-regexp) (replace-regexp-in-string =
"\\[\\[.*?\\]\\[\\(.*?\\)\\]\\]" "<a href=3D"smb://1">\\1</a>" =
(match-string 4))) (t "???"))) (setq org-clock-heading (org-propertize =
org-clock-heading (quote face) nil)) (org-clock-find-position =
org-clock-in-resume) (cond ((and org-clock-in-resume (looking-at (concat =
"^[   ]*" org-clock-string " =
\\[\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}" " *\\sw+.? =
+[012][0-9]:[0-5][0-9]\\)<a href=3D"smb://][">\\][</a>   ]*$"))) =
(message "Matched %s" (match-string 1)) (setq ts (concat "[" =
(match-string 1) "]")) (goto-char (match-end 1)) (setq =
org-clock-start-time (apply (quote encode-time) (org-parse-time-string =
(match-string 1)))) (setq org-clock-effort (org-get-effort)) (setq =
org-clock-total-time (org-clock-sum-current-item =
(org-clock-get-sum-start)))) ((eq org-clock-in-resume (quote =
auto-restart)) (message "Cannot restart clock because task does not =
contain unfinished clock") (ding) (sit-for 2) (throw (quote abort) nil)) =
(t (insert-before-markers "\n") (backward-char 1) =
(org-indent-line-function) (when (and (save-excursion (end-of-line 0) =
(org-in-item-p))) (beginning-of-line 1) (org-indent-line-to (- =
(org-get-indentation) 2))) (insert org-clock-string " ") (setq =
org-clock-effort (org-get-effort)) (setq org-clock-total-time =
(org-clock-sum-current-item (org-clock-get-sum-start))) (setq =
org-clock-start-time (or (and leftover (y-or-n-p ...) leftover) =
start-time (current-time))) (setq ts (org-insert-time-stamp =
org-clock-start-time (quote with-hm) (quote inactive))))) (move-marker =
org-clock-marker (point) (buffer-base-buffer)) (move-marker =
org-clock-hd-marker (save-excursion (org-back-to-heading t) (point)) =
(buffer-base-buffer)) (setq org-clock-has-been-used t) (when (or (eq =
org-clock-clocked-in-display (quote mode-line)) (eq =
org-clock-clocked-in-display (quote both))) (or global-mode-string (setq =
global-mode-string (quote ("")))) (or (memq (quote org-mode-line-string) =
global-mode-string) (setq global-mode-string (append global-mode-string =
(quote (org-mode-line-string)))))) (when (or (eq =
org-clock-clocked-in-display (quote frame-title)) (eq =
org-clock-clocked-in-display (quote both))) (or (memq (quote =
org-frame-title-string) frame-title-format) (setq frame-title-format =
(append frame-title-format (quote (org-frame-title-string)))))) =
(org-clock-update-mode-line) (when org-clock-mode-line-timer =
(cancel-timer org-clock-mode-line-timer) (setq org-clock-mode-line-timer =
nil)) (when org-clock-clocked-in-display (setq org-clock-mode-line-timer =
(run-with-timer org-clock-update-period org-clock-update-period (quote =
org-clock-update-mode-line)))) (when org-clock-idle-timer (cancel-timer =
org-clock-idle-timer) (setq org-clock-idle-timer nil)) (setq =
org-clock-idle-timer (run-with-timer 60 60 (quote =
org-resolve-clocks-if-idle))) (message "Clock starts at %s - %s" ts =
msg-extra) (run-hooks (quote org-clock-in-hook))))
  (save-excursion (when (and selected-task (marker-buffer =
selected-task)) (set-buffer (org-base-buffer (marker-buffer =
selected-task))) (setq target-pos (marker-position selected-task)) =
(move-marker selected-task nil)) (save-excursion (save-restriction =
(widen) (goto-char target-pos) (org-back-to-heading t) (or interrupting =
(move-marker org-clock-interrupted-task nil)) (org-clock-history-push) =
(org-clock-set-current) (cond ((functionp org-clock-in-switch-to-state) =
(looking-at org-complex-heading-regexp) (let ((newstate ...)) (if =
newstate (org-todo newstate)))) ((and org-clock-in-switch-to-state (not =
(looking-at ...))) (org-todo org-clock-in-switch-to-state))) (setq =
org-clock-heading-for-remember (and (looking-at =
org-complex-heading-regexp) (match-end 4) (org-trim (buffer-substring =
(match-end 1) (match-end 4))))) (setq org-clock-heading (cond ((and =
org-clock-heading-function (functionp org-clock-heading-function)) =
(funcall org-clock-heading-function)) ((looking-at =
org-complex-heading-regexp) (replace-regexp-in-string =
"\\[\\[.*?\\]\\[\\(.*?\\)\\]\\]" "<a href=3D"smb://1">\\1</a>" =
(match-string 4))) (t "???"))) (setq org-clock-heading (org-propertize =
org-clock-heading (quote face) nil)) (org-clock-find-position =
org-clock-in-resume) (cond ((and org-clock-in-resume (looking-at (concat =
"^[  ]*" org-clock-string " =
\\[\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}" " *\\sw+.? =
+[012][0-9]:[0-5][0-9]\\)<a href=3D"smb://][">\\][</a>   ]*$"))) =
(message "Matched %s" (match-string 1)) (setq ts (concat "[" =
(match-string 1) "]")) (goto-char (match-end 1)) (setq =
org-clock-start-time (apply (quote encode-time) (org-parse-time-string =
...))) (setq org-clock-effort (org-get-effort)) (setq =
org-clock-total-time (org-clock-sum-current-item =
(org-clock-get-sum-start)))) ((eq org-clock-in-resume (quote =
auto-restart)) (message "Cannot restart clock because task does not =
contain unfinished clock") (ding) (sit-for 2) (throw (quote abort) nil)) =
(t (insert-before-markers "\n") (backward-char 1) =
(org-indent-line-function) (when (and (save-excursion ... ...)) =
(beginning-of-line 1) (org-indent-line-to (- ... 2))) (insert =
org-clock-string " ") (setq org-clock-effort (org-get-effort)) (setq =
org-clock-total-time (org-clock-sum-current-item =
(org-clock-get-sum-start))) (setq org-clock-start-time (or (and leftover =
... leftover) start-time (current-time))) (setq ts =
(org-insert-time-stamp org-clock-start-time (quote with-hm) (quote =
inactive))))) (move-marker org-clock-marker (point) =
(buffer-base-buffer)) (move-marker org-clock-hd-marker (save-excursion =
(org-back-to-heading t) (point)) (buffer-base-buffer)) (setq =
org-clock-has-been-used t) (when (or (eq org-clock-clocked-in-display =
(quote mode-line)) (eq org-clock-clocked-in-display (quote both))) (or =
global-mode-string (setq global-mode-string (quote ("")))) (or (memq =
(quote org-mode-line-string) global-mode-string) (setq =
global-mode-string (append global-mode-string (quote ...))))) (when (or =
(eq org-clock-clocked-in-display (quote frame-title)) (eq =
org-clock-clocked-in-display (quote both))) (or (memq (quote =
org-frame-title-string) frame-title-format) (setq frame-title-format =
(append frame-title-format (quote ...))))) (org-clock-update-mode-line) =
(when org-clock-mode-line-timer (cancel-timer org-clock-mode-line-timer) =
(setq org-clock-mode-line-timer nil)) (when org-clock-clocked-in-display =
(setq org-clock-mode-line-timer (run-with-timer org-clock-update-period =
org-clock-update-period (quote org-clock-update-mode-line)))) (when =
org-clock-idle-timer (cancel-timer org-clock-idle-timer) (setq =
org-clock-idle-timer nil)) (setq org-clock-idle-timer (run-with-timer 60 =
60 (quote org-resolve-clocks-if-idle))) (message "Clock starts at %s - =
%s" ts msg-extra) (run-hooks (quote org-clock-in-hook)))))
  (let ((interrupting (and (not =
org-clock-resolving-clocks-due-to-idleness) (org-clocking-p))) ts =
selected-task target-pos (msg-extra "") (leftover (and (not =
org-clock-resolving-clocks) org-clock-leftover-time))) (when (and =
org-clock-auto-clock-resolution (or (not interrupting) (eq t =
org-clock-auto-clock-resolution)) (not org-clock-clocking-in) (not =
org-clock-resolving-clocks)) (setq org-clock-leftover-time nil) (let =
((org-clock-clocking-in t)) (org-resolve-clocks))) (when (equal select =
(quote (4))) (setq selected-task (org-clock-select-task "Clock-in on =
task: ")) (if selected-task (setq selected-task (copy-marker =
selected-task)) (error "Abort"))) (when (equal select (quote (16))) =
(org-clock-mark-default-task)) (when interrupting (when (save-excursion =
(unless selected-task (org-back-to-heading t)) (and (equal =
(marker-buffer org-clock-hd-marker) (if selected-task (marker-buffer =
selected-task) (current-buffer))) (=3D (marker-position =
org-clock-hd-marker) (if selected-task (marker-position selected-task) =
(point))) (equal org-clock-current-task (nth 4 =
(org-heading-components))))) (message "Clock continues in \"%s\"" =
org-clock-heading) (throw (quote abort) nil)) (move-marker =
org-clock-interrupted-task (marker-position org-clock-marker) =
(marker-buffer org-clock-marker)) (let ((org-clock-clocking-in t)) =
(org-clock-out t))) (setq target-pos (if (and (eobp) (not =
(org-at-heading-p))) (point-at-bol 0) (point))) (run-hooks (quote =
org-clock-in-prepare-hook)) (save-excursion (when (and selected-task =
(marker-buffer selected-task)) (set-buffer (org-base-buffer =
(marker-buffer selected-task))) (setq target-pos (marker-position =
selected-task)) (move-marker selected-task nil)) (save-excursion =
(save-restriction (widen) (goto-char target-pos) (org-back-to-heading t) =
(or interrupting (move-marker org-clock-interrupted-task nil)) =
(org-clock-history-push) (org-clock-set-current) (cond ((functionp =
org-clock-in-switch-to-state) (looking-at org-complex-heading-regexp) =
(let (...) (if newstate ...))) ((and org-clock-in-switch-to-state (not =
...)) (org-todo org-clock-in-switch-to-state))) (setq =
org-clock-heading-for-remember (and (looking-at =
org-complex-heading-regexp) (match-end 4) (org-trim (buffer-substring =
... ...)))) (setq org-clock-heading (cond ((and =
org-clock-heading-function ...) (funcall org-clock-heading-function)) =
((looking-at org-complex-heading-regexp) (replace-regexp-in-string =
"\\[\\[.*?\\]\\[\\(.*?\\)\\]\\]" "<a href=3D"smb://1">\\1</a>" ...)) (t =
"???"))) (setq org-clock-heading (org-propertize org-clock-heading =
(quote face) nil)) (org-clock-find-position org-clock-in-resume) (cond =
((and org-clock-in-resume (looking-at ...)) (message "Matched %s" =
(match-string 1)) (setq ts (concat "[" ... "]")) (goto-char (match-end =
1)) (setq org-clock-start-time (apply ... ...)) (setq org-clock-effort =
(org-get-effort)) (setq org-clock-total-time (org-clock-sum-current-item =
...))) ((eq org-clock-in-resume (quote auto-restart)) (message "Cannot =
restart clock because task does not contain unfinished clock") (ding) =
(sit-for 2) (throw (quote abort) nil)) (t (insert-before-markers "\n") =
(backward-char 1) (org-indent-line-function) (when (and ...) =
(beginning-of-line 1) (org-indent-line-to ...)) (insert org-clock-string =
" ") (setq org-clock-effort (org-get-effort)) (setq org-clock-total-time =
(org-clock-sum-current-item ...)) (setq org-clock-start-time (or ... =
start-time ...)) (setq ts (org-insert-time-stamp org-clock-start-time =
... ...)))) (move-marker org-clock-marker (point) (buffer-base-buffer)) =
(move-marker org-clock-hd-marker (save-excursion (org-back-to-heading t) =
(point)) (buffer-base-buffer)) (setq org-clock-has-been-used t) (when =
(or (eq org-clock-clocked-in-display (quote mode-line)) (eq =
org-clock-clocked-in-display (quote both))) (or global-mode-string (setq =
global-mode-string (quote ...))) (or (memq (quote org-mode-line-string) =
global-mode-string) (setq global-mode-string (append global-mode-string =
...)))) (when (or (eq org-clock-clocked-in-display (quote frame-title)) =
(eq org-clock-clocked-in-display (quote both))) (or (memq (quote =
org-frame-title-string) frame-title-format) (setq frame-title-format =
(append frame-title-format ...)))) (org-clock-update-mode-line) (when =
org-clock-mode-line-timer (cancel-timer org-clock-mode-line-timer) (setq =
org-clock-mode-line-timer nil)) (when org-clock-clocked-in-display (setq =
org-clock-mode-line-timer (run-with-timer org-clock-update-period =
org-clock-update-period (quote org-clock-update-mode-line)))) (when =
org-clock-idle-timer (cancel-timer org-clock-idle-timer) (setq =
org-clock-idle-timer nil)) (setq org-clock-idle-timer (run-with-timer 60 =
60 (quote org-resolve-clocks-if-idle))) (message "Clock starts at %s - =
%s" ts msg-extra) (run-hooks (quote org-clock-in-hook))))))
  (catch (quote abort) (let ((interrupting (and (not =
org-clock-resolving-clocks-due-to-idleness) (org-clocking-p))) ts =
selected-task target-pos (msg-extra "") (leftover (and (not =
org-clock-resolving-clocks) org-clock-leftover-time))) (when (and =
org-clock-auto-clock-resolution (or (not interrupting) (eq t =
org-clock-auto-clock-resolution)) (not org-clock-clocking-in) (not =
org-clock-resolving-clocks)) (setq org-clock-leftover-time nil) (let =
((org-clock-clocking-in t)) (org-resolve-clocks))) (when (equal select =
(quote (4))) (setq selected-task (org-clock-select-task "Clock-in on =
task: ")) (if selected-task (setq selected-task (copy-marker =
selected-task)) (error "Abort"))) (when (equal select (quote (16))) =
(org-clock-mark-default-task)) (when interrupting (when (save-excursion =
(unless selected-task (org-back-to-heading t)) (and (equal =
(marker-buffer org-clock-hd-marker) (if selected-task ... ...)) (=3D =
(marker-position org-clock-hd-marker) (if selected-task ... ...)) (equal =
org-clock-current-task (nth 4 ...)))) (message "Clock continues in =
\"%s\"" org-clock-heading) (throw (quote abort) nil)) (move-marker =
org-clock-interrupted-task (marker-position org-clock-marker) =
(marker-buffer org-clock-marker)) (let ((org-clock-clocking-in t)) =
(org-clock-out t))) (setq target-pos (if (and (eobp) (not =
(org-at-heading-p))) (point-at-bol 0) (point))) (run-hooks (quote =
org-clock-in-prepare-hook)) (save-excursion (when (and selected-task =
(marker-buffer selected-task)) (set-buffer (org-base-buffer =
(marker-buffer selected-task))) (setq target-pos (marker-position =
selected-task)) (move-marker selected-task nil)) (save-excursion =
(save-restriction (widen) (goto-char target-pos) (org-back-to-heading t) =
(or interrupting (move-marker org-clock-interrupted-task nil)) =
(org-clock-history-push) (org-clock-set-current) (cond ((functionp =
org-clock-in-switch-to-state) (looking-at org-complex-heading-regexp) =
(let ... ...)) ((and org-clock-in-switch-to-state ...) (org-todo =
org-clock-in-switch-to-state))) (setq org-clock-heading-for-remember =
(and (looking-at org-complex-heading-regexp) (match-end 4) (org-trim =
...))) (setq org-clock-heading (cond (... ...) (... ...) (t "???"))) =
(setq org-clock-heading (org-propertize org-clock-heading (quote face) =
nil)) (org-clock-find-position org-clock-in-resume) (cond ((and =
org-clock-in-resume ...) (message "Matched %s" ...) (setq ts ...) =
(goto-char ...) (setq org-clock-start-time ...) (setq org-clock-effort =
...) (setq org-clock-total-time ...)) ((eq org-clock-in-resume ...) =
(message "Cannot restart clock because task does not contain unfinished =
clock") (ding) (sit-for 2) (throw ... nil)) (t (insert-before-markers =
"\n") (backward-char 1) (org-indent-line-function) (when ... ... ...) =
(insert org-clock-string " ") (setq org-clock-effort ...) (setq =
org-clock-total-time ...) (setq org-clock-start-time ...) (setq ts =
...))) (move-marker org-clock-marker (point) (buffer-base-buffer)) =
(move-marker org-clock-hd-marker (save-excursion (org-back-to-heading t) =
(point)) (buffer-base-buffer)) (setq org-clock-has-been-used t) (when =
(or (eq org-clock-clocked-in-display ...) (eq =
org-clock-clocked-in-display ...)) (or global-mode-string (setq =
global-mode-string ...)) (or (memq ... global-mode-string) (setq =
global-mode-string ...))) (when (or (eq org-clock-clocked-in-display =
...) (eq org-clock-clocked-in-display ...)) (or (memq ... =
frame-title-format) (setq frame-title-format ...))) =
(org-clock-update-mode-line) (when org-clock-mode-line-timer =
(cancel-timer org-clock-mode-line-timer) (setq org-clock-mode-line-timer =
nil)) (when org-clock-clocked-in-display (setq org-clock-mode-line-timer =
(run-with-timer org-clock-update-period org-clock-update-period ...))) =
(when org-clock-idle-timer (cancel-timer org-clock-idle-timer) (setq =
org-clock-idle-timer nil)) (setq org-clock-idle-timer (run-with-timer 60 =
60 (quote org-resolve-clocks-if-idle))) (message "Clock starts at %s - =
%s" ts msg-extra) (run-hooks (quote org-clock-in-hook)))))))
  org-clock-in(nil)
  call-interactively(org-clock-in)
  (cond ((commandp org-speed-command) (setq this-command =
org-speed-command) (call-interactively org-speed-command)) ((functionp =
org-speed-command) (funcall org-speed-command)) ((and org-speed-command =
(listp org-speed-command)) (eval org-speed-command)) (t (let =
(org-use-speed-commands) (call-interactively (quote =
org-self-insert-command)))))
  (cond ((and org-use-speed-commands (setq org-speed-command =
(run-hook-with-args-until-success (quote org-speed-command-hook) =
(this-command-keys)))) (cond ((commandp org-speed-command) (setq =
this-command org-speed-command) (call-interactively org-speed-command)) =
((functionp org-speed-command) (funcall org-speed-command)) ((and =
org-speed-command (listp org-speed-command)) (eval org-speed-command)) =
(t (let (org-use-speed-commands) (call-interactively (quote =
org-self-insert-command)))))) ((and (org-table-p) (progn (and (featurep =
(quote org-table)) org-table-auto-blank-field (member last-command =
(quote (org-cycle org-return org-shifttab org-ctrl-c-ctrl-c =
yas/expand))) (if (or (equal ... 32) (looking-at "[^|\n]*  |")) (let =
(org-table-may-need-update) (org-table-blank-field)) =
(org-table-blank-field))) t) (eq N 1) (looking-at "[^|\n]*  |")) (let =
(org-table-may-need-update) (goto-char (1- (match-end 0))) =
(backward-delete-char 1) (goto-char (match-beginning 0)) =
(self-insert-command N))) (t (setq org-table-may-need-update t) =
(self-insert-command N) (org-fix-tags-on-the-fly) (if =
org-self-insert-cluster-for-undo (if (not (eq last-command (quote =
org-self-insert-command))) (setq org-self-insert-command-undo-counter 1) =
(if (&gt;=3D org-self-insert-command-undo-counter 20) (setq =
org-self-insert-command-undo-counter 1) (and (&gt; =
org-self-insert-command-undo-counter 0) buffer-undo-list (listp =
buffer-undo-list) (not (cadr buffer-undo-list)) (setcdr buffer-undo-list =
(cddr buffer-undo-list))) (setq org-self-insert-command-undo-counter (1+ =
org-self-insert-command-undo-counter)))))))
  org-self-insert-command(1)
  call-interactively(org-self-insert-command nil nil)
  recursive-edit()
  debug(error (wrong-type-argument listp t))
  delq(org-frame-title-string t)
  (setq frame-title-format (delq (quote org-frame-title-string) =
frame-title-format))
  (save-restriction (widen) (goto-char org-clock-marker) =
(beginning-of-line 1) (if (and (looking-at (concat "[  ]*" =
org-keyword-time-regexp)) (equal (match-string 1) org-clock-string)) =
(setq ts (match-string 2)) (if fail-quietly (throw (quote exit) nil) =
(error "Clock start time is gone"))) (goto-char (match-end 0)) =
(delete-region (point) (point-at-eol)) (insert "--") (setq te =
(org-insert-time-stamp (or at-time (current-time)) (quote with-hm) =
(quote inactive))) (setq s (- (org-float-time (apply (quote encode-time) =
(org-parse-time-string te))) (org-float-time (apply (quote encode-time) =
(org-parse-time-string ts)))) h (floor (/ s 3600)) s (- s (* 3600 h)) m =
(floor (/ s 60)) s (- s (* 60 s))) (insert " =3D&gt; " (format =
"%2d:%02d" h m)) (when (setq remove (and =
org-clock-out-remove-zero-time-clocks (=3D (+ h m) 0))) =
(beginning-of-line 1) (delete-region (point) (point-at-eol)) (and =
(looking-at "\n") (&gt; (point-max) (1+ (point))) (delete-char 1))) =
(move-marker org-clock-marker nil) (move-marker org-clock-hd-marker nil) =
(when org-log-note-clock-out (org-add-log-setup (quote clock-out) nil =
nil nil nil (concat "# Task: " (org-get-heading t) "\n\n"))) (when =
org-clock-mode-line-timer (cancel-timer org-clock-mode-line-timer) (setq =
org-clock-mode-line-timer nil)) (when org-clock-idle-timer (cancel-timer =
org-clock-idle-timer) (setq org-clock-idle-timer nil)) (setq =
global-mode-string (delq (quote org-mode-line-string) =
global-mode-string)) (setq frame-title-format (delq (quote =
org-frame-title-string) frame-title-format)) (when =
org-clock-out-switch-to-state (save-excursion (org-back-to-heading t) =
(let ((org-inhibit-logging t) (org-clock-out-when-done nil)) (cond =
((functionp org-clock-out-switch-to-state) (looking-at =
org-complex-heading-regexp) (let (...) (if newstate ...))) ((and =
org-clock-out-switch-to-state (not ...)) (org-todo =
org-clock-out-switch-to-state)))))) (force-mode-line-update) (message =
(concat "Clock stopped at %s after HH:MM =3D " org-time-clocksum-format =
"%s") te h m (if remove " =3D&gt; LINE REMOVED" "")) (run-hooks (quote =
org-clock-out-hook)) (unless (org-clocking-p) =
(org-clock-delete-current)))
  (save-excursion (with-no-warnings (set-buffer (org-clocking-buffer))) =
(save-restriction (widen) (goto-char org-clock-marker) =
(beginning-of-line 1) (if (and (looking-at (concat "[  ]*" =
org-keyword-time-regexp)) (equal (match-string 1) org-clock-string)) =
(setq ts (match-string 2)) (if fail-quietly (throw (quote exit) nil) =
(error "Clock start time is gone"))) (goto-char (match-end 0)) =
(delete-region (point) (point-at-eol)) (insert "--") (setq te =
(org-insert-time-stamp (or at-time (current-time)) (quote with-hm) =
(quote inactive))) (setq s (- (org-float-time (apply (quote encode-time) =
(org-parse-time-string te))) (org-float-time (apply (quote encode-time) =
(org-parse-time-string ts)))) h (floor (/ s 3600)) s (- s (* 3600 h)) m =
(floor (/ s 60)) s (- s (* 60 s))) (insert " =3D&gt; " (format =
"%2d:%02d" h m)) (when (setq remove (and =
org-clock-out-remove-zero-time-clocks (=3D (+ h m) 0))) =
(beginning-of-line 1) (delete-region (point) (point-at-eol)) (and =
(looking-at "\n") (&gt; (point-max) (1+ (point))) (delete-char 1))) =
(move-marker org-clock-marker nil) (move-marker org-clock-hd-marker nil) =
(when org-log-note-clock-out (org-add-log-setup (quote clock-out) nil =
nil nil nil (concat "# Task: " (org-get-heading t) "\n\n"))) (when =
org-clock-mode-line-timer (cancel-timer org-clock-mode-line-timer) (setq =
org-clock-mode-line-timer nil)) (when org-clock-idle-timer (cancel-timer =
org-clock-idle-timer) (setq org-clock-idle-timer nil)) (setq =
global-mode-string (delq (quote org-mode-line-string) =
global-mode-string)) (setq frame-title-format (delq (quote =
org-frame-title-string) frame-title-format)) (when =
org-clock-out-switch-to-state (save-excursion (org-back-to-heading t) =
(let ((org-inhibit-logging t) (org-clock-out-when-done nil)) (cond =
((functionp org-clock-out-switch-to-state) (looking-at =
org-complex-heading-regexp) (let ... ...)) ((and =
org-clock-out-switch-to-state ...) (org-todo =
org-clock-out-switch-to-state)))))) (force-mode-line-update) (message =
(concat "Clock stopped at %s after HH:MM =3D " org-time-clocksum-format =
"%s") te h m (if remove " =3D&gt; LINE REMOVED" "")) (run-hooks (quote =
org-clock-out-hook)) (unless (org-clocking-p) =
(org-clock-delete-current))))
  (let (ts te s h m remove) (save-excursion (with-no-warnings =
(set-buffer (org-clocking-buffer))) (save-restriction (widen) (goto-char =
org-clock-marker) (beginning-of-line 1) (if (and (looking-at (concat "[  =
]*" org-keyword-time-regexp)) (equal (match-string 1) org-clock-string)) =
(setq ts (match-string 2)) (if fail-quietly (throw (quote exit) nil) =
(error "Clock start time is gone"))) (goto-char (match-end 0)) =
(delete-region (point) (point-at-eol)) (insert "--") (setq te =
(org-insert-time-stamp (or at-time (current-time)) (quote with-hm) =
(quote inactive))) (setq s (- (org-float-time (apply (quote encode-time) =
(org-parse-time-string te))) (org-float-time (apply (quote encode-time) =
(org-parse-time-string ts)))) h (floor (/ s 3600)) s (- s (* 3600 h)) m =
(floor (/ s 60)) s (- s (* 60 s))) (insert " =3D&gt; " (format =
"%2d:%02d" h m)) (when (setq remove (and =
org-clock-out-remove-zero-time-clocks (=3D (+ h m) 0))) =
(beginning-of-line 1) (delete-region (point) (point-at-eol)) (and =
(looking-at "\n") (&gt; (point-max) (1+ (point))) (delete-char 1))) =
(move-marker org-clock-marker nil) (move-marker org-clock-hd-marker nil) =
(when org-log-note-clock-out (org-add-log-setup (quote clock-out) nil =
nil nil nil (concat "# Task: " (org-get-heading t) "\n\n"))) (when =
org-clock-mode-line-timer (cancel-timer org-clock-mode-line-timer) (setq =
org-clock-mode-line-timer nil)) (when org-clock-idle-timer (cancel-timer =
org-clock-idle-timer) (setq org-clock-idle-timer nil)) (setq =
global-mode-string (delq (quote org-mode-line-string) =
global-mode-string)) (setq frame-title-format (delq (quote =
org-frame-title-string) frame-title-format)) (when =
org-clock-out-switch-to-state (save-excursion (org-back-to-heading t) =
(let ((org-inhibit-logging t) (org-clock-out-when-done nil)) (cond (... =
... ...) (... ...))))) (force-mode-line-update) (message (concat "Clock =
stopped at %s after HH:MM =3D " org-time-clocksum-format "%s") te h m =
(if remove " =3D&gt; LINE REMOVED" "")) (run-hooks (quote =
org-clock-out-hook)) (unless (org-clocking-p) =
(org-clock-delete-current)))))
  (catch (quote exit) (when (not (org-clocking-p)) (setq =
global-mode-string (delq (quote org-mode-line-string) =
global-mode-string)) (setq frame-title-format (delq (quote =
org-frame-title-string) frame-title-format)) (force-mode-line-update) =
(if fail-quietly (throw (quote exit) t) (error "No active clock"))) (let =
(ts te s h m remove) (save-excursion (with-no-warnings (set-buffer =
(org-clocking-buffer))) (save-restriction (widen) (goto-char =
org-clock-marker) (beginning-of-line 1) (if (and (looking-at (concat "[  =
]*" org-keyword-time-regexp)) (equal (match-string 1) org-clock-string)) =
(setq ts (match-string 2)) (if fail-quietly (throw (quote exit) nil) =
(error "Clock start time is gone"))) (goto-char (match-end 0)) =
(delete-region (point) (point-at-eol)) (insert "--") (setq te =
(org-insert-time-stamp (or at-time (current-time)) (quote with-hm) =
(quote inactive))) (setq s (- (org-float-time (apply ... ...)) =
(org-float-time (apply ... ...))) h (floor (/ s 3600)) s (- s (* 3600 =
h)) m (floor (/ s 60)) s (- s (* 60 s))) (insert " =3D&gt; " (format =
"%2d:%02d" h m)) (when (setq remove (and =
org-clock-out-remove-zero-time-clocks (=3D ... 0))) (beginning-of-line =
1) (delete-region (point) (point-at-eol)) (and (looking-at "\n") (&gt; =
(point-max) (1+ ...)) (delete-char 1))) (move-marker org-clock-marker =
nil) (move-marker org-clock-hd-marker nil) (when org-log-note-clock-out =
(org-add-log-setup (quote clock-out) nil nil nil nil (concat "# Task: " =
(org-get-heading t) "\n\n"))) (when org-clock-mode-line-timer =
(cancel-timer org-clock-mode-line-timer) (setq org-clock-mode-line-timer =
nil)) (when org-clock-idle-timer (cancel-timer org-clock-idle-timer) =
(setq org-clock-idle-timer nil)) (setq global-mode-string (delq (quote =
org-mode-line-string) global-mode-string)) (setq frame-title-format =
(delq (quote org-frame-title-string) frame-title-format)) (when =
org-clock-out-switch-to-state (save-excursion (org-back-to-heading t) =
(let (... ...) (cond ... ...)))) (force-mode-line-update) (message =
(concat "Clock stopped at %s after HH:MM =3D " org-time-clocksum-format =
"%s") te h m (if remove " =3D&gt; LINE REMOVED" "")) (run-hooks (quote =
org-clock-out-hook)) (unless (org-clocking-p) =
(org-clock-delete-current))))))
  org-clock-out()
  call-interactively(org-clock-out)
  (cond ((commandp org-speed-command) (setq this-command =
org-speed-command) (call-interactively org-speed-command)) ((functionp =
org-speed-command) (funcall org-speed-command)) ((and org-speed-command =
(listp org-speed-command)) (eval org-speed-command)) (t (let =
(org-use-speed-commands) (call-interactively (quote =
org-self-insert-command)))))
  (cond ((and org-use-speed-commands (setq org-speed-command =
(run-hook-with-args-until-success (quote org-speed-command-hook) =
(this-command-keys)))) (cond ((commandp org-speed-command) (setq =
this-command org-speed-command) (call-interactively org-speed-command)) =
((functionp org-speed-command) (funcall org-speed-command)) ((and =
org-speed-command (listp org-speed-command)) (eval org-speed-command)) =
(t (let (org-use-speed-commands) (call-interactively (quote =
org-self-insert-command)))))) ((and (org-table-p) (progn (and (featurep =
(quote org-table)) org-table-auto-blank-field (member last-command =
(quote (org-cycle org-return org-shifttab org-ctrl-c-ctrl-c =
yas/expand))) (if (or (equal ... 32) (looking-at "[^|\n]*  |")) (let =
(org-table-may-need-update) (org-table-blank-field)) =
(org-table-blank-field))) t) (eq N 1) (looking-at "[^|\n]*  |")) (let =
(org-table-may-need-update) (goto-char (1- (match-end 0))) =
(backward-delete-char 1) (goto-char (match-beginning 0)) =
(self-insert-command N))) (t (setq org-table-may-need-update t) =
(self-insert-command N) (org-fix-tags-on-the-fly) (if =
org-self-insert-cluster-for-undo (if (not (eq last-command (quote =
org-self-insert-command))) (setq org-self-insert-command-undo-counter 1) =
(if (&gt;=3D org-self-insert-command-undo-counter 20) (setq =
org-self-insert-command-undo-counter 1) (and (&gt; =
org-self-insert-command-undo-counter 0) buffer-undo-list (listp =
buffer-undo-list) (not (cadr buffer-undo-list)) (setcdr buffer-undo-list =
(cddr buffer-undo-list))) (setq org-self-insert-command-undo-counter (1+ =
org-self-insert-command-undo-counter)))))))
  org-self-insert-command(1)
  call-interactively(org-self-insert-command nil nil)
  recursive-edit()
  debug(error (wrong-type-argument listp t))
  delq(org-frame-title-string t)
  (setq frame-title-format (delq (quote org-frame-title-string) =
frame-title-format))
  (save-restriction (widen) (goto-char org-clock-marker) =
(beginning-of-line 1) (if (and (looking-at (concat "[  ]*" =
org-keyword-time-regexp)) (equal (match-string 1) org-clock-string)) =
(setq ts (match-string 2)) (if fail-quietly (throw (quote exit) nil) =
(error "Clock start time is gone"))) (goto-char (match-end 0)) =
(delete-region (point) (point-at-eol)) (insert "--") (setq te =
(org-insert-time-stamp (or at-time (current-time)) (quote with-hm) =
(quote inactive))) (setq s (- (org-float-time (apply (quote encode-time) =
(org-parse-time-string te))) (org-float-time (apply (quote encode-time) =
(org-parse-time-string ts)))) h (floor (/ s 3600)) s (- s (* 3600 h)) m =
(floor (/ s 60)) s (- s (* 60 s))) (insert " =3D&gt; " (format =
"%2d:%02d" h m)) (when (setq remove (and =
org-clock-out-remove-zero-time-clocks (=3D (+ h m) 0))) =
(beginning-of-line 1) (delete-region (point) (point-at-eol)) (and =
(looking-at "\n") (&gt; (point-max) (1+ (point))) (delete-char 1))) =
(move-marker org-clock-marker nil) (move-marker org-clock-hd-marker nil) =
(when org-log-note-clock-out (org-add-log-setup (quote clock-out) nil =
nil nil nil (concat "# Task: " (org-get-heading t) "\n\n"))) (when =
org-clock-mode-line-timer (cancel-timer org-clock-mode-line-timer) (setq =
org-clock-mode-line-timer nil)) (when org-clock-idle-timer (cancel-timer =
org-clock-idle-timer) (setq org-clock-idle-timer nil)) (setq =
global-mode-string (delq (quote org-mode-line-string) =
global-mode-string)) (setq frame-title-format (delq (quote =
org-frame-title-string) frame-title-format)) (when =
org-clock-out-switch-to-state (save-excursion (org-back-to-heading t) =
(let ((org-inhibit-logging t) (org-clock-out-when-done nil)) (cond =
((functionp org-clock-out-switch-to-state) (looking-at =
org-complex-heading-regexp) (let (...) (if newstate ...))) ((and =
org-clock-out-switch-to-state (not ...)) (org-todo =
org-clock-out-switch-to-state)))))) (force-mode-line-update) (message =
(concat "Clock stopped at %s after HH:MM =3D " org-time-clocksum-format =
"%s") te h m (if remove " =3D&gt; LINE REMOVED" "")) (run-hooks (quote =
org-clock-out-hook)) (unless (org-clocking-p) =
(org-clock-delete-current)))
  (save-excursion (with-no-warnings (set-buffer (org-clocking-buffer))) =
(save-restriction (widen) (goto-char org-clock-marker) =
(beginning-of-line 1) (if (and (looking-at (concat "[  ]*" =
org-keyword-time-regexp)) (equal (match-string 1) org-clock-string)) =
(setq ts (match-string 2)) (if fail-quietly (throw (quote exit) nil) =
(error "Clock start time is gone"))) (goto-char (match-end 0)) =
(delete-region (point) (point-at-eol)) (insert "--") (setq te =
(org-insert-time-stamp (or at-time (current-time)) (quote with-hm) =
(quote inactive))) (setq s (- (org-float-time (apply (quote encode-time) =
(org-parse-time-string te))) (org-float-time (apply (quote encode-time) =
(org-parse-time-string ts)))) h (floor (/ s 3600)) s (- s (* 3600 h)) m =
(floor (/ s 60)) s (- s (* 60 s))) (insert " =3D&gt; " (format =
"%2d:%02d" h m)) (when (setq remove (and =
org-clock-out-remove-zero-time-clocks (=3D (+ h m) 0))) =
(beginning-of-line 1) (delete-region (point) (point-at-eol)) (and =
(looking-at "\n") (&gt; (point-max) (1+ (point))) (delete-char 1))) =
(move-marker org-clock-marker nil) (move-marker org-clock-hd-marker nil) =
(when org-log-note-clock-out (org-add-log-setup (quote clock-out) nil =
nil nil nil (concat "# Task: " (org-get-heading t) "\n\n"))) (when =
org-clock-mode-line-timer (cancel-timer org-clock-mode-line-timer) (setq =
org-clock-mode-line-timer nil)) (when org-clock-idle-timer (cancel-timer =
org-clock-idle-timer) (setq org-clock-idle-timer nil)) (setq =
global-mode-string (delq (quote org-mode-line-string) =
global-mode-string)) (setq frame-title-format (delq (quote =
org-frame-title-string) frame-title-format)) (when =
org-clock-out-switch-to-state (save-excursion (org-back-to-heading t) =
(let ((org-inhibit-logging t) (org-clock-out-when-done nil)) (cond =
((functionp org-clock-out-switch-to-state) (looking-at =
org-complex-heading-regexp) (let ... ...)) ((and =
org-clock-out-switch-to-state ...) (org-todo =
org-clock-out-switch-to-state)))))) (force-mode-line-update) (message =
(concat "Clock stopped at %s after HH:MM =3D " org-time-clocksum-format =
"%s") te h m (if remove " =3D&gt; LINE REMOVED" "")) (run-hooks (quote =
org-clock-out-hook)) (unless (org-clocking-p) =
(org-clock-delete-current))))
  (let (ts te s h m remove) (save-excursion (with-no-warnings =
(set-buffer (org-clocking-buffer))) (save-restriction (widen) (goto-char =
org-clock-marker) (beginning-of-line 1) (if (and (looking-at (concat "[  =
]*" org-keyword-time-regexp)) (equal (match-string 1) org-clock-string)) =
(setq ts (match-string 2)) (if fail-quietly (throw (quote exit) nil) =
(error "Clock start time is gone"))) (goto-char (match-end 0)) =
(delete-region (point) (point-at-eol)) (insert "--") (setq te =
(org-insert-time-stamp (or at-time (current-time)) (quote with-hm) =
(quote inactive))) (setq s (- (org-float-time (apply (quote encode-time) =
(org-parse-time-string te))) (org-float-time (apply (quote encode-time) =
(org-parse-time-string ts)))) h (floor (/ s 3600)) s (- s (* 3600 h)) m =
(floor (/ s 60)) s (- s (* 60 s))) (insert " =3D&gt; " (format =
"%2d:%02d" h m)) (when (setq remove (and =
org-clock-out-remove-zero-time-clocks (=3D (+ h m) 0))) =
(beginning-of-line 1) (delete-region (point) (point-at-eol)) (and =
(looking-at "\n") (&gt; (point-max) (1+ (point))) (delete-char 1))) =
(move-marker org-clock-marker nil) (move-marker org-clock-hd-marker nil) =
(when org-log-note-clock-out (org-add-log-setup (quote clock-out) nil =
nil nil nil (concat "# Task: " (org-get-heading t) "\n\n"))) (when =
org-clock-mode-line-timer (cancel-timer org-clock-mode-line-timer) (setq =
org-clock-mode-line-timer nil)) (when org-clock-idle-timer (cancel-timer =
org-clock-idle-timer) (setq org-clock-idle-timer nil)) (setq =
global-mode-string (delq (quote org-mode-line-string) =
global-mode-string)) (setq frame-title-format (delq (quote =
org-frame-title-string) frame-title-format)) (when =
org-clock-out-switch-to-state (save-excursion (org-back-to-heading t) =
(let ((org-inhibit-logging t) (org-clock-out-when-done nil)) (cond (... =
... ...) (... ...))))) (force-mode-line-update) (message (concat "Clock =
stopped at %s after HH:MM =3D " org-time-clocksum-format "%s") te h m =
(if remove " =3D&gt; LINE REMOVED" "")) (run-hooks (quote =
org-clock-out-hook)) (unless (org-clocking-p) =
(org-clock-delete-current)))))
  (catch (quote exit) (when (not (org-clocking-p)) (setq =
global-mode-string (delq (quote org-mode-line-string) =
global-mode-string)) (setq frame-title-format (delq (quote =
org-frame-title-string) frame-title-format)) (force-mode-line-update) =
(if fail-quietly (throw (quote exit) t) (error "No active clock"))) (let =
(ts te s h m remove) (save-excursion (with-no-warnings (set-buffer =
(org-clocking-buffer))) (save-restriction (widen) (goto-char =
org-clock-marker) (beginning-of-line 1) (if (and (looking-at (concat "[  =
]*" org-keyword-time-regexp)) (equal (match-string 1) org-clock-string)) =
(setq ts (match-string 2)) (if fail-quietly (throw (quote exit) nil) =
(error "Clock start time is gone"))) (goto-char (match-end 0)) =
(delete-region (point) (point-at-eol)) (insert "--") (setq te =
(org-insert-time-stamp (or at-time (current-time)) (quote with-hm) =
(quote inactive))) (setq s (- (org-float-time (apply ... ...)) =
(org-float-time (apply ... ...))) h (floor (/ s 3600)) s (- s (* 3600 =
h)) m (floor (/ s 60)) s (- s (* 60 s))) (insert " =3D&gt; " (format =
"%2d:%02d" h m)) (when (setq remove (and =
org-clock-out-remove-zero-time-clocks (=3D ... 0))) (beginning-of-line =
1) (delete-region (point) (point-at-eol)) (and (looking-at "\n") (&gt; =
(point-max) (1+ ...)) (delete-char 1))) (move-marker org-clock-marker =
nil) (move-marker org-clock-hd-marker nil) (when org-log-note-clock-out =
(org-add-log-setup (quote clock-out) nil nil nil nil (concat "# Task: " =
(org-get-heading t) "\n\n"))) (when org-clock-mode-line-timer =
(cancel-timer org-clock-mode-line-timer) (setq org-clock-mode-line-timer =
nil)) (when org-clock-idle-timer (cancel-timer org-clock-idle-timer) =
(setq org-clock-idle-timer nil)) (setq global-mode-string (delq (quote =
org-mode-line-string) global-mode-string)) (setq frame-title-format =
(delq (quote org-frame-title-string) frame-title-format)) (when =
org-clock-out-switch-to-state (save-excursion (org-back-to-heading t) =
(let (... ...) (cond ... ...)))) (force-mode-line-update) (message =
(concat "Clock stopped at %s after HH:MM =3D " org-time-clocksum-format =
"%s") te h m (if remove " =3D&gt; LINE REMOVED" "")) (run-hooks (quote =
org-clock-out-hook)) (unless (org-clocking-p) =
(org-clock-delete-current))))))
  org-clock-out(t)
  (let ((org-clock-clocking-in t)) (org-clock-out t))
  (progn (when (save-excursion (unless selected-task =
(org-back-to-heading t)) (and (equal (marker-buffer org-clock-hd-marker) =
(if selected-task (marker-buffer selected-task) (current-buffer))) (=3D =
(marker-position org-clock-hd-marker) (if selected-task (marker-position =
selected-task) (point))) (equal org-clock-current-task (nth 4 =
(org-heading-components))))) (message "Clock continues in \"%s\"" =
org-clock-heading) (throw (quote abort) nil)) (move-marker =
org-clock-interrupted-task (marker-position org-clock-marker) =
(marker-buffer org-clock-marker)) (let ((org-clock-clocking-in t)) =
(org-clock-out t)))
  (if interrupting (progn (when (save-excursion (unless selected-task =
(org-back-to-heading t)) (and (equal (marker-buffer org-clock-hd-marker) =
(if selected-task (marker-buffer selected-task) (current-buffer))) (=3D =
(marker-position org-clock-hd-marker) (if selected-task (marker-position =
selected-task) (point))) (equal org-clock-current-task (nth 4 =
(org-heading-components))))) (message "Clock continues in \"%s\"" =
org-clock-heading) (throw (quote abort) nil)) (move-marker =
org-clock-interrupted-task (marker-position org-clock-marker) =
(marker-buffer org-clock-marker)) (let ((org-clock-clocking-in t)) =
(org-clock-out t))))
  (when interrupting (when (save-excursion (unless selected-task =
(org-back-to-heading t)) (and (equal (marker-buffer org-clock-hd-marker) =
(if selected-task (marker-buffer selected-task) (current-buffer))) (=3D =
(marker-position org-clock-hd-marker) (if selected-task (marker-position =
selected-task) (point))) (equal org-clock-current-task (nth 4 =
(org-heading-components))))) (message "Clock continues in \"%s\"" =
org-clock-heading) (throw (quote abort) nil)) (move-marker =
org-clock-interrupted-task (marker-position org-clock-marker) =
(marker-buffer org-clock-marker)) (let ((org-clock-clocking-in t)) =
(org-clock-out t)))
  (let ((interrupting (and (not =
org-clock-resolving-clocks-due-to-idleness) (org-clocking-p))) ts =
selected-task target-pos (msg-extra "") (leftover (and (not =
org-clock-resolving-clocks) org-clock-leftover-time))) (when (and =
org-clock-auto-clock-resolution (or (not interrupting) (eq t =
org-clock-auto-clock-resolution)) (not org-clock-clocking-in) (not =
org-clock-resolving-clocks)) (setq org-clock-leftover-time nil) (let =
((org-clock-clocking-in t)) (org-resolve-clocks))) (when (equal select =
(quote (4))) (setq selected-task (org-clock-select-task "Clock-in on =
task: ")) (if selected-task (setq selected-task (copy-marker =
selected-task)) (error "Abort"))) (when (equal select (quote (16))) =
(org-clock-mark-default-task)) (when interrupting (when (save-excursion =
(unless selected-task (org-back-to-heading t)) (and (equal =
(marker-buffer org-clock-hd-marker) (if selected-task (marker-buffer =
selected-task) (current-buffer))) (=3D (marker-position =
org-clock-hd-marker) (if selected-task (marker-position selected-task) =
(point))) (equal org-clock-current-task (nth 4 =
(org-heading-components))))) (message "Clock continues in \"%s\"" =
org-clock-heading) (throw (quote abort) nil)) (move-marker =
org-clock-interrupted-task (marker-position org-clock-marker) =
(marker-buffer org-clock-marker)) (let ((org-clock-clocking-in t)) =
(org-clock-out t))) (setq target-pos (if (and (eobp) (not =
(org-at-heading-p))) (point-at-bol 0) (point))) (run-hooks (quote =
org-clock-in-prepare-hook)) (save-excursion (when (and selected-task =
(marker-buffer selected-task)) (set-buffer (org-base-buffer =
(marker-buffer selected-task))) (setq target-pos (marker-position =
selected-task)) (move-marker selected-task nil)) (save-excursion =
(save-restriction (widen) (goto-char target-pos) (org-back-to-heading t) =
(or interrupting (move-marker org-clock-interrupted-task nil)) =
(org-clock-history-push) (org-clock-set-current) (cond ((functionp =
org-clock-in-switch-to-state) (looking-at org-complex-heading-regexp) =
(let (...) (if newstate ...))) ((and org-clock-in-switch-to-state (not =
...)) (org-todo org-clock-in-switch-to-state))) (setq =
org-clock-heading-for-remember (and (looking-at =
org-complex-heading-regexp) (match-end 4) (org-trim (buffer-substring =
... ...)))) (setq org-clock-heading (cond ((and =
org-clock-heading-function ...) (funcall org-clock-heading-function)) =
((looking-at org-complex-heading-regexp) (replace-regexp-in-string =
"\\[\\[.*?\\]\\[\\(.*?\\)\\]\\]" "<a href=3D"smb://1">\\1</a>" ...)) (t =
"???"))) (setq org-clock-heading (org-propertize org-clock-heading =
(quote face) nil)) (org-clock-find-position org-clock-in-resume) (cond =
((and org-clock-in-resume (looking-at ...)) (message "Matched %s" =
(match-string 1)) (setq ts (concat "[" ... "]")) (goto-char (match-end =
1)) (setq org-clock-start-time (apply ... ...)) (setq org-clock-effort =
(org-get-effort)) (setq org-clock-total-time (org-clock-sum-current-item =
...))) ((eq org-clock-in-resume (quote auto-restart)) (message "Cannot =
restart clock because task does not contain unfinished clock") (ding) =
(sit-for 2) (throw (quote abort) nil)) (t (insert-before-markers "\n") =
(backward-char 1) (org-indent-line-function) (when (and ...) =
(beginning-of-line 1) (org-indent-line-to ...)) (insert org-clock-string =
" ") (setq org-clock-effort (org-get-effort)) (setq org-clock-total-time =
(org-clock-sum-current-item ...)) (setq org-clock-start-time (or ... =
start-time ...)) (setq ts (org-insert-time-stamp org-clock-start-time =
... ...)))) (move-marker org-clock-marker (point) (buffer-base-buffer)) =
(move-marker org-clock-hd-marker (save-excursion (org-back-to-heading t) =
(point)) (buffer-base-buffer)) (setq org-clock-has-been-used t) (when =
(or (eq org-clock-clocked-in-display (quote mode-line)) (eq =
org-clock-clocked-in-display (quote both))) (or global-mode-string (setq =
global-mode-string (quote ...))) (or (memq (quote org-mode-line-string) =
global-mode-string) (setq global-mode-string (append global-mode-string =
...)))) (when (or (eq org-clock-clocked-in-display (quote frame-title)) =
(eq org-clock-clocked-in-display (quote both))) (or (memq (quote =
org-frame-title-string) frame-title-format) (setq frame-title-format =
(append frame-title-format ...)))) (org-clock-update-mode-line) (when =
org-clock-mode-line-timer (cancel-timer org-clock-mode-line-timer) (setq =
org-clock-mode-line-timer nil)) (when org-clock-clocked-in-display (setq =
org-clock-mode-line-timer (run-with-timer org-clock-update-period =
org-clock-update-period (quote org-clock-update-mode-line)))) (when =
org-clock-idle-timer (cancel-timer org-clock-idle-timer) (setq =
org-clock-idle-timer nil)) (setq org-clock-idle-timer (run-with-timer 60 =
60 (quote org-resolve-clocks-if-idle))) (message "Clock starts at %s - =
%s" ts msg-extra) (run-hooks (quote org-clock-in-hook))))))
  (catch (quote abort) (let ((interrupting (and (not =
org-clock-resolving-clocks-due-to-idleness) (org-clocking-p))) ts =
selected-task target-pos (msg-extra "") (leftover (and (not =
org-clock-resolving-clocks) org-clock-leftover-time))) (when (and =
org-clock-auto-clock-resolution (or (not interrupting) (eq t =
org-clock-auto-clock-resolution)) (not org-clock-clocking-in) (not =
org-clock-resolving-clocks)) (setq org-clock-leftover-time nil) (let =
((org-clock-clocking-in t)) (org-resolve-clocks))) (when (equal select =
(quote (4))) (setq selected-task (org-clock-select-task "Clock-in on =
task: ")) (if selected-task (setq selected-task (copy-marker =
selected-task)) (error "Abort"))) (when (equal select (quote (16))) =
(org-clock-mark-default-task)) (when interrupting (when (save-excursion =
(unless selected-task (org-back-to-heading t)) (and (equal =
(marker-buffer org-clock-hd-marker) (if selected-task ... ...)) (=3D =
(marker-position org-clock-hd-marker) (if selected-task ... ...)) (equal =
org-clock-current-task (nth 4 ...)))) (message "Clock continues in =
\"%s\"" org-clock-heading) (throw (quote abort) nil)) (move-marker =
org-clock-interrupted-task (marker-position org-clock-marker) =
(marker-buffer org-clock-marker)) (let ((org-clock-clocking-in t)) =
(org-clock-out t))) (setq target-pos (if (and (eobp) (not =
(org-at-heading-p))) (point-at-bol 0) (point))) (run-hooks (quote =
org-clock-in-prepare-hook)) (save-excursion (when (and selected-task =
(marker-buffer selected-task)) (set-buffer (org-base-buffer =
(marker-buffer selected-task))) (setq target-pos (marker-position =
selected-task)) (move-marker selected-task nil)) (save-excursion =
(save-restriction (widen) (goto-char target-pos) (org-back-to-heading t) =
(or interrupting (move-marker org-clock-interrupted-task nil)) =
(org-clock-history-push) (org-clock-set-current) (cond ((functionp =
org-clock-in-switch-to-state) (looking-at org-complex-heading-regexp) =
(let ... ...)) ((and org-clock-in-switch-to-state ...) (org-todo =
org-clock-in-switch-to-state))) (setq org-clock-heading-for-remember =
(and (looking-at org-complex-heading-regexp) (match-end 4) (org-trim =
...))) (setq org-clock-heading (cond (... ...) (... ...) (t "???"))) =
(setq org-clock-heading (org-propertize org-clock-heading (quote face) =
nil)) (org-clock-find-position org-clock-in-resume) (cond ((and =
org-clock-in-resume ...) (message "Matched %s" ...) (setq ts ...) =
(goto-char ...) (setq org-clock-start-time ...) (setq org-clock-effort =
...) (setq org-clock-total-time ...)) ((eq org-clock-in-resume ...) =
(message "Cannot restart clock because task does not contain unfinished =
clock") (ding) (sit-for 2) (throw ... nil)) (t (insert-before-markers =
"\n") (backward-char 1) (org-indent-line-function) (when ... ... ...) =
(insert org-clock-string " ") (setq org-clock-effort ...) (setq =
org-clock-total-time ...) (setq org-clock-start-time ...) (setq ts =
...))) (move-marker org-clock-marker (point) (buffer-base-buffer)) =
(move-marker org-clock-hd-marker (save-excursion (org-back-to-heading t) =
(point)) (buffer-base-buffer)) (setq org-clock-has-been-used t) (when =
(or (eq org-clock-clocked-in-display ...) (eq =
org-clock-clocked-in-display ...)) (or global-mode-string (setq =
global-mode-string ...)) (or (memq ... global-mode-string) (setq =
global-mode-string ...))) (when (or (eq org-clock-clocked-in-display =
...) (eq org-clock-clocked-in-display ...)) (or (memq ... =
frame-title-format) (setq frame-title-format ...))) =
(org-clock-update-mode-line) (when org-clock-mode-line-timer =
(cancel-timer org-clock-mode-line-timer) (setq org-clock-mode-line-timer =
nil)) (when org-clock-clocked-in-display (setq org-clock-mode-line-timer =
(run-with-timer org-clock-update-period org-clock-update-period ...))) =
(when org-clock-idle-timer (cancel-timer org-clock-idle-timer) (setq =
org-clock-idle-timer nil)) (setq org-clock-idle-timer (run-with-timer 60 =
60 (quote org-resolve-clocks-if-idle))) (message "Clock starts at %s - =
%s" ts msg-extra) (run-hooks (quote org-clock-in-hook)))))))
  org-clock-in(nil)
  call-interactively(org-clock-in)
  (cond ((commandp org-speed-command) (setq this-command =
org-speed-command) (call-interactively org-speed-command)) ((functionp =
org-speed-command) (funcall org-speed-command)) ((and org-speed-command =
(listp org-speed-command)) (eval org-speed-command)) (t (let =
(org-use-speed-commands) (call-interactively (quote =
org-self-insert-command)))))
  (cond ((and org-use-speed-commands (setq org-speed-command =
(run-hook-with-args-until-success (quote org-speed-command-hook) =
(this-command-keys)))) (cond ((commandp org-speed-command) (setq =
this-command org-speed-command) (call-interactively org-speed-command)) =
((functionp org-speed-command) (funcall org-speed-command)) ((and =
org-speed-command (listp org-speed-command)) (eval org-speed-command)) =
(t (let (org-use-speed-commands) (call-interactively (quote =
org-self-insert-command)))))) ((and (org-table-p) (progn (and (featurep =
(quote org-table)) org-table-auto-blank-field (member last-command =
(quote (org-cycle org-return org-shifttab org-ctrl-c-ctrl-c =
yas/expand))) (if (or (equal ... 32) (looking-at "[^|\n]*  |")) (let =
(org-table-may-need-update) (org-table-blank-field)) =
(org-table-blank-field))) t) (eq N 1) (looking-at "[^|\n]*  |")) (let =
(org-table-may-need-update) (goto-char (1- (match-end 0))) =
(backward-delete-char 1) (goto-char (match-beginning 0)) =
(self-insert-command N))) (t (setq org-table-may-need-update t) =
(self-insert-command N) (org-fix-tags-on-the-fly) (if =
org-self-insert-cluster-for-undo (if (not (eq last-command (quote =
org-self-insert-command))) (setq org-self-insert-command-undo-counter 1) =
(if (&gt;=3D org-self-insert-command-undo-counter 20) (setq =
org-self-insert-command-undo-counter 1) (and (&gt; =
org-self-insert-command-undo-counter 0) buffer-undo-list (listp =
buffer-undo-list) (not (cadr buffer-undo-list)) (setcdr buffer-undo-list =
(cddr buffer-undo-list))) (setq org-self-insert-command-undo-counter (1+ =
org-self-insert-command-undo-counter)))))))
  org-self-insert-command(1)
  call-interactively(org-self-insert-command nil nil)

</pre></div></div><div id=3D"outline-container-4" class=3D"outline-2"><h2 =
id=3D"sec-4" style=3D"color: rgb(95, 123, 147); margin-bottom: 0.5em; =
height: auto; border-top-width: 2px; border-right-width: 2px; =
border-bottom-width: 2px; border-left-width: 2px; border-top-style: =
solid; border-right-style: solid; border-bottom-style: solid; =
border-left-style: solid; border-top-color: rgb(222, 222, 222); =
border-right-color: rgb(222, 222, 222); border-bottom-color: rgb(222, =
222, 222); border-left-color: rgb(222, 222, 222); padding-top: 0px; =
padding-right: 0.2em; padding-bottom: 0px; padding-left: 0.2em; =
font-size: 24px; ">When Clocking Out</h2><div class=3D"outline-text-2" =
id=3D"text-4" style=3D"margin-left: 0.5em; "><pre class=3D"example" =
style=3D"border-top-width: 1pt; border-right-width: 1pt; =
border-bottom-width: 1pt; border-left-width: 1pt; border-top-style: =
solid; border-right-style: solid; border-bottom-style: solid; =
border-left-style: solid; border-top-color: rgb(174, 189, 204); =
border-right-color: rgb(174, 189, 204); border-bottom-color: rgb(174, =
189, 204); border-left-color: rgb(174, 189, 204); background-color: =
rgb(243, 245, 247); padding-top: 5pt; padding-right: 5pt; =
padding-bottom: 5pt; padding-left: 5pt; font-family: courier, monospace; =
font-size: 14px; overflow-x: auto; overflow-y: auto; ">Debugger =
entered--Lisp error: (wrong-type-argument listp t)
  delq(org-frame-title-string t)
  (setq frame-title-format (delq (quote org-frame-title-string) =
frame-title-format))
  (save-restriction (widen) (goto-char org-clock-marker) =
(beginning-of-line 1) (if (and (looking-at (concat "[  ]*" =
org-keyword-time-regexp)) (equal (match-string 1) org-clock-string)) =
(setq ts (match-string 2)) (if fail-quietly (throw (quote exit) nil) =
(error "Clock start time is gone"))) (goto-char (match-end 0)) =
(delete-region (point) (point-at-eol)) (insert "--") (setq te =
(org-insert-time-stamp (or at-time (current-time)) (quote with-hm) =
(quote inactive))) (setq s (- (org-float-time (apply (quote encode-time) =
(org-parse-time-string te))) (org-float-time (apply (quote encode-time) =
(org-parse-time-string ts)))) h (floor (/ s 3600)) s (- s (* 3600 h)) m =
(floor (/ s 60)) s (- s (* 60 s))) (insert " =3D&gt; " (format =
"%2d:%02d" h m)) (when (setq remove (and =
org-clock-out-remove-zero-time-clocks (=3D (+ h m) 0))) =
(beginning-of-line 1) (delete-region (point) (point-at-eol)) (and =
(looking-at "\n") (&gt; (point-max) (1+ (point))) (delete-char 1))) =
(move-marker org-clock-marker nil) (move-marker org-clock-hd-marker nil) =
(when org-log-note-clock-out (org-add-log-setup (quote clock-out) nil =
nil nil nil (concat "# Task: " (org-get-heading t) "\n\n"))) (when =
org-clock-mode-line-timer (cancel-timer org-clock-mode-line-timer) (setq =
org-clock-mode-line-timer nil)) (when org-clock-idle-timer (cancel-timer =
org-clock-idle-timer) (setq org-clock-idle-timer nil)) (setq =
global-mode-string (delq (quote org-mode-line-string) =
global-mode-string)) (setq frame-title-format (delq (quote =
org-frame-title-string) frame-title-format)) (when =
org-clock-out-switch-to-state (save-excursion (org-back-to-heading t) =
(let ((org-inhibit-logging t) (org-clock-out-when-done nil)) (cond =
((functionp org-clock-out-switch-to-state) (looking-at =
org-complex-heading-regexp) (let (...) (if newstate ...))) ((and =
org-clock-out-switch-to-state (not ...)) (org-todo =
org-clock-out-switch-to-state)))))) (force-mode-line-update) (message =
(concat "Clock stopped at %s after HH:MM =3D " org-time-clocksum-format =
"%s") te h m (if remove " =3D&gt; LINE REMOVED" "")) (run-hooks (quote =
org-clock-out-hook)) (unless (org-clocking-p) =
(org-clock-delete-current)))
  (save-excursion (with-no-warnings (set-buffer (org-clocking-buffer))) =
(save-restriction (widen) (goto-char org-clock-marker) =
(beginning-of-line 1) (if (and (looking-at (concat "[  ]*" =
org-keyword-time-regexp)) (equal (match-string 1) org-clock-string)) =
(setq ts (match-string 2)) (if fail-quietly (throw (quote exit) nil) =
(error "Clock start time is gone"))) (goto-char (match-end 0)) =
(delete-region (point) (point-at-eol)) (insert "--") (setq te =
(org-insert-time-stamp (or at-time (current-time)) (quote with-hm) =
(quote inactive))) (setq s (- (org-float-time (apply (quote encode-time) =
(org-parse-time-string te))) (org-float-time (apply (quote encode-time) =
(org-parse-time-string ts)))) h (floor (/ s 3600)) s (- s (* 3600 h)) m =
(floor (/ s 60)) s (- s (* 60 s))) (insert " =3D&gt; " (format =
"%2d:%02d" h m)) (when (setq remove (and =
org-clock-out-remove-zero-time-clocks (=3D (+ h m) 0))) =
(beginning-of-line 1) (delete-region (point) (point-at-eol)) (and =
(looking-at "\n") (&gt; (point-max) (1+ (point))) (delete-char 1))) =
(move-marker org-clock-marker nil) (move-marker org-clock-hd-marker nil) =
(when org-log-note-clock-out (org-add-log-setup (quote clock-out) nil =
nil nil nil (concat "# Task: " (org-get-heading t) "\n\n"))) (when =
org-clock-mode-line-timer (cancel-timer org-clock-mode-line-timer) (setq =
org-clock-mode-line-timer nil)) (when org-clock-idle-timer (cancel-timer =
org-clock-idle-timer) (setq org-clock-idle-timer nil)) (setq =
global-mode-string (delq (quote org-mode-line-string) =
global-mode-string)) (setq frame-title-format (delq (quote =
org-frame-title-string) frame-title-format)) (when =
org-clock-out-switch-to-state (save-excursion (org-back-to-heading t) =
(let ((org-inhibit-logging t) (org-clock-out-when-done nil)) (cond =
((functionp org-clock-out-switch-to-state) (looking-at =
org-complex-heading-regexp) (let ... ...)) ((and =
org-clock-out-switch-to-state ...) (org-todo =
org-clock-out-switch-to-state)))))) (force-mode-line-update) (message =
(concat "Clock stopped at %s after HH:MM =3D " org-time-clocksum-format =
"%s") te h m (if remove " =3D&gt; LINE REMOVED" "")) (run-hooks (quote =
org-clock-out-hook)) (unless (org-clocking-p) =
(org-clock-delete-current))))
  (let (ts te s h m remove) (save-excursion (with-no-warnings =
(set-buffer (org-clocking-buffer))) (save-restriction (widen) (goto-char =
org-clock-marker) (beginning-of-line 1) (if (and (looking-at (concat "[  =
]*" org-keyword-time-regexp)) (equal (match-string 1) org-clock-string)) =
(setq ts (match-string 2)) (if fail-quietly (throw (quote exit) nil) =
(error "Clock start time is gone"))) (goto-char (match-end 0)) =
(delete-region (point) (point-at-eol)) (insert "--") (setq te =
(org-insert-time-stamp (or at-time (current-time)) (quote with-hm) =
(quote inactive))) (setq s (- (org-float-time (apply (quote encode-time) =
(org-parse-time-string te))) (org-float-time (apply (quote encode-time) =
(org-parse-time-string ts)))) h (floor (/ s 3600)) s (- s (* 3600 h)) m =
(floor (/ s 60)) s (- s (* 60 s))) (insert " =3D&gt; " (format =
"%2d:%02d" h m)) (when (setq remove (and =
org-clock-out-remove-zero-time-clocks (=3D (+ h m) 0))) =
(beginning-of-line 1) (delete-region (point) (point-at-eol)) (and =
(looking-at "\n") (&gt; (point-max) (1+ (point))) (delete-char 1))) =
(move-marker org-clock-marker nil) (move-marker org-clock-hd-marker nil) =
(when org-log-note-clock-out (org-add-log-setup (quote clock-out) nil =
nil nil nil (concat "# Task: " (org-get-heading t) "\n\n"))) (when =
org-clock-mode-line-timer (cancel-timer org-clock-mode-line-timer) (setq =
org-clock-mode-line-timer nil)) (when org-clock-idle-timer (cancel-timer =
org-clock-idle-timer) (setq org-clock-idle-timer nil)) (setq =
global-mode-string (delq (quote org-mode-line-string) =
global-mode-string)) (setq frame-title-format (delq (quote =
org-frame-title-string) frame-title-format)) (when =
org-clock-out-switch-to-state (save-excursion (org-back-to-heading t) =
(let ((org-inhibit-logging t) (org-clock-out-when-done nil)) (cond (... =
... ...) (... ...))))) (force-mode-line-update) (message (concat "Clock =
stopped at %s after HH:MM =3D " org-time-clocksum-format "%s") te h m =
(if remove " =3D&gt; LINE REMOVED" "")) (run-hooks (quote =
org-clock-out-hook)) (unless (org-clocking-p) =
(org-clock-delete-current)))))
  (catch (quote exit) (when (not (org-clocking-p)) (setq =
global-mode-string (delq (quote org-mode-line-string) =
global-mode-string)) (setq frame-title-format (delq (quote =
org-frame-title-string) frame-title-format)) (force-mode-line-update) =
(if fail-quietly (throw (quote exit) t) (error "No active clock"))) (let =
(ts te s h m remove) (save-excursion (with-no-warnings (set-buffer =
(org-clocking-buffer))) (save-restriction (widen) (goto-char =
org-clock-marker) (beginning-of-line 1) (if (and (looking-at (concat "[  =
]*" org-keyword-time-regexp)) (equal (match-string 1) org-clock-string)) =
(setq ts (match-string 2)) (if fail-quietly (throw (quote exit) nil) =
(error "Clock start time is gone"))) (goto-char (match-end 0)) =
(delete-region (point) (point-at-eol)) (insert "--") (setq te =
(org-insert-time-stamp (or at-time (current-time)) (quote with-hm) =
(quote inactive))) (setq s (- (org-float-time (apply ... ...)) =
(org-float-time (apply ... ...))) h (floor (/ s 3600)) s (- s (* 3600 =
h)) m (floor (/ s 60)) s (- s (* 60 s))) (insert " =3D&gt; " (format =
"%2d:%02d" h m)) (when (setq remove (and =
org-clock-out-remove-zero-time-clocks (=3D ... 0))) (beginning-of-line =
1) (delete-region (point) (point-at-eol)) (and (looking-at "\n") (&gt; =
(point-max) (1+ ...)) (delete-char 1))) (move-marker org-clock-marker =
nil) (move-marker org-clock-hd-marker nil) (when org-log-note-clock-out =
(org-add-log-setup (quote clock-out) nil nil nil nil (concat "# Task: " =
(org-get-heading t) "\n\n"))) (when org-clock-mode-line-timer =
(cancel-timer org-clock-mode-line-timer) (setq org-clock-mode-line-timer =
nil)) (when org-clock-idle-timer (cancel-timer org-clock-idle-timer) =
(setq org-clock-idle-timer nil)) (setq global-mode-string (delq (quote =
org-mode-line-string) global-mode-string)) (setq frame-title-format =
(delq (quote org-frame-title-string) frame-title-format)) (when =
org-clock-out-switch-to-state (save-excursion (org-back-to-heading t) =
(let (... ...) (cond ... ...)))) (force-mode-line-update) (message =
(concat "Clock stopped at %s after HH:MM =3D " org-time-clocksum-format =
"%s") te h m (if remove " =3D&gt; LINE REMOVED" "")) (run-hooks (quote =
org-clock-out-hook)) (unless (org-clocking-p) =
(org-clock-delete-current))))))
  org-clock-out()
  call-interactively(org-clock-out)
  (cond ((commandp org-speed-command) (setq this-command =
org-speed-command) (call-interactively org-speed-command)) ((functionp =
org-speed-command) (funcall org-speed-command)) ((and org-speed-command =
(listp org-speed-command)) (eval org-speed-command)) (t (let =
(org-use-speed-commands) (call-interactively (quote =
org-self-insert-command)))))
  (cond ((and org-use-speed-commands (setq org-speed-command =
(run-hook-with-args-until-success (quote org-speed-command-hook) =
(this-command-keys)))) (cond ((commandp org-speed-command) (setq =
this-command org-speed-command) (call-interactively org-speed-command)) =
((functionp org-speed-command) (funcall org-speed-command)) ((and =
org-speed-command (listp org-speed-command)) (eval org-speed-command)) =
(t (let (org-use-speed-commands) (call-interactively (quote =
org-self-insert-command)))))) ((and (org-table-p) (progn (and (featurep =
(quote org-table)) org-table-auto-blank-field (member last-command =
(quote (org-cycle org-return org-shifttab org-ctrl-c-ctrl-c =
yas/expand))) (if (or (equal ... 32) (looking-at "[^|\n]*  |")) (let =
(org-table-may-need-update) (org-table-blank-field)) =
(org-table-blank-field))) t) (eq N 1) (looking-at "[^|\n]*  |")) (let =
(org-table-may-need-update) (goto-char (1- (match-end 0))) =
(backward-delete-char 1) (goto-char (match-beginning 0)) =
(self-insert-command N))) (t (setq org-table-may-need-update t) =
(self-insert-command N) (org-fix-tags-on-the-fly) (if =
org-self-insert-cluster-for-undo (if (not (eq last-command (quote =
org-self-insert-command))) (setq org-self-insert-command-undo-counter 1) =
(if (&gt;=3D org-self-insert-command-undo-counter 20) (setq =
org-self-insert-command-undo-counter 1) (and (&gt; =
org-self-insert-command-undo-counter 0) buffer-undo-list (listp =
buffer-undo-list) (not (cadr buffer-undo-list)) (setcdr buffer-undo-list =
(cddr buffer-undo-list))) (setq org-self-insert-command-undo-counter (1+ =
org-self-insert-command-undo-counter)))))))
  org-self-insert-command(1)
  call-interactively(org-self-insert-command nil nil)
  recursive-edit()
  debug(error (wrong-type-argument listp t))
  delq(org-frame-title-string t)
  (setq frame-title-format (delq (quote org-frame-title-string) =
frame-title-format))
  (save-restriction (widen) (goto-char org-clock-marker) =
(beginning-of-line 1) (if (and (looking-at (concat "[  ]*" =
org-keyword-time-regexp)) (equal (match-string 1) org-clock-string)) =
(setq ts (match-string 2)) (if fail-quietly (throw (quote exit) nil) =
(error "Clock start time is gone"))) (goto-char (match-end 0)) =
(delete-region (point) (point-at-eol)) (insert "--") (setq te =
(org-insert-time-stamp (or at-time (current-time)) (quote with-hm) =
(quote inactive))) (setq s (- (org-float-time (apply (quote encode-time) =
(org-parse-time-string te))) (org-float-time (apply (quote encode-time) =
(org-parse-time-string ts)))) h (floor (/ s 3600)) s (- s (* 3600 h)) m =
(floor (/ s 60)) s (- s (* 60 s))) (insert " =3D&gt; " (format =
"%2d:%02d" h m)) (when (setq remove (and =
org-clock-out-remove-zero-time-clocks (=3D (+ h m) 0))) =
(beginning-of-line 1) (delete-region (point) (point-at-eol)) (and =
(looking-at "\n") (&gt; (point-max) (1+ (point))) (delete-char 1))) =
(move-marker org-clock-marker nil) (move-marker org-clock-hd-marker nil) =
(when org-log-note-clock-out (org-add-log-setup (quote clock-out) nil =
nil nil nil (concat "# Task: " (org-get-heading t) "\n\n"))) (when =
org-clock-mode-line-timer (cancel-timer org-clock-mode-line-timer) (setq =
org-clock-mode-line-timer nil)) (when org-clock-idle-timer (cancel-timer =
org-clock-idle-timer) (setq org-clock-idle-timer nil)) (setq =
global-mode-string (delq (quote org-mode-line-string) =
global-mode-string)) (setq frame-title-format (delq (quote =
org-frame-title-string) frame-title-format)) (when =
org-clock-out-switch-to-state (save-excursion (org-back-to-heading t) =
(let ((org-inhibit-logging t) (org-clock-out-when-done nil)) (cond =
((functionp org-clock-out-switch-to-state) (looking-at =
org-complex-heading-regexp) (let (...) (if newstate ...))) ((and =
org-clock-out-switch-to-state (not ...)) (org-todo =
org-clock-out-switch-to-state)))))) (force-mode-line-update) (message =
(concat "Clock stopped at %s after HH:MM =3D " org-time-clocksum-format =
"%s") te h m (if remove " =3D&gt; LINE REMOVED" "")) (run-hooks (quote =
org-clock-out-hook)) (unless (org-clocking-p) =
(org-clock-delete-current)))
  (save-excursion (with-no-warnings (set-buffer (org-clocking-buffer))) =
(save-restriction (widen) (goto-char org-clock-marker) =
(beginning-of-line 1) (if (and (looking-at (concat "[  ]*" =
org-keyword-time-regexp)) (equal (match-string 1) org-clock-string)) =
(setq ts (match-string 2)) (if fail-quietly (throw (quote exit) nil) =
(error "Clock start time is gone"))) (goto-char (match-end 0)) =
(delete-region (point) (point-at-eol)) (insert "--") (setq te =
(org-insert-time-stamp (or at-time (current-time)) (quote with-hm) =
(quote inactive))) (setq s (- (org-float-time (apply (quote encode-time) =
(org-parse-time-string te))) (org-float-time (apply (quote encode-time) =
(org-parse-time-string ts)))) h (floor (/ s 3600)) s (- s (* 3600 h)) m =
(floor (/ s 60)) s (- s (* 60 s))) (insert " =3D&gt; " (format =
"%2d:%02d" h m)) (when (setq remove (and =
org-clock-out-remove-zero-time-clocks (=3D (+ h m) 0))) =
(beginning-of-line 1) (delete-region (point) (point-at-eol)) (and =
(looking-at "\n") (&gt; (point-max) (1+ (point))) (delete-char 1))) =
(move-marker org-clock-marker nil) (move-marker org-clock-hd-marker nil) =
(when org-log-note-clock-out (org-add-log-setup (quote clock-out) nil =
nil nil nil (concat "# Task: " (org-get-heading t) "\n\n"))) (when =
org-clock-mode-line-timer (cancel-timer org-clock-mode-line-timer) (setq =
org-clock-mode-line-timer nil)) (when org-clock-idle-timer (cancel-timer =
org-clock-idle-timer) (setq org-clock-idle-timer nil)) (setq =
global-mode-string (delq (quote org-mode-line-string) =
global-mode-string)) (setq frame-title-format (delq (quote =
org-frame-title-string) frame-title-format)) (when =
org-clock-out-switch-to-state (save-excursion (org-back-to-heading t) =
(let ((org-inhibit-logging t) (org-clock-out-when-done nil)) (cond =
((functionp org-clock-out-switch-to-state) (looking-at =
org-complex-heading-regexp) (let ... ...)) ((and =
org-clock-out-switch-to-state ...) (org-todo =
org-clock-out-switch-to-state)))))) (force-mode-line-update) (message =
(concat "Clock stopped at %s after HH:MM =3D " org-time-clocksum-format =
"%s") te h m (if remove " =3D&gt; LINE REMOVED" "")) (run-hooks (quote =
org-clock-out-hook)) (unless (org-clocking-p) =
(org-clock-delete-current))))
  (let (ts te s h m remove) (save-excursion (with-no-warnings =
(set-buffer (org-clocking-buffer))) (save-restriction (widen) (goto-char =
org-clock-marker) (beginning-of-line 1) (if (and (looking-at (concat "[  =
]*" org-keyword-time-regexp)) (equal (match-string 1) org-clock-string)) =
(setq ts (match-string 2)) (if fail-quietly (throw (quote exit) nil) =
(error "Clock start time is gone"))) (goto-char (match-end 0)) =
(delete-region (point) (point-at-eol)) (insert "--") (setq te =
(org-insert-time-stamp (or at-time (current-time)) (quote with-hm) =
(quote inactive))) (setq s (- (org-float-time (apply (quote encode-time) =
(org-parse-time-string te))) (org-float-time (apply (quote encode-time) =
(org-parse-time-string ts)))) h (floor (/ s 3600)) s (- s (* 3600 h)) m =
(floor (/ s 60)) s (- s (* 60 s))) (insert " =3D&gt; " (format =
"%2d:%02d" h m)) (when (setq remove (and =
org-clock-out-remove-zero-time-clocks (=3D (+ h m) 0))) =
(beginning-of-line 1) (delete-region (point) (point-at-eol)) (and =
(looking-at "\n") (&gt; (point-max) (1+ (point))) (delete-char 1))) =
(move-marker org-clock-marker nil) (move-marker org-clock-hd-marker nil) =
(when org-log-note-clock-out (org-add-log-setup (quote clock-out) nil =
nil nil nil (concat "# Task: " (org-get-heading t) "\n\n"))) (when =
org-clock-mode-line-timer (cancel-timer org-clock-mode-line-timer) (setq =
org-clock-mode-line-timer nil)) (when org-clock-idle-timer (cancel-timer =
org-clock-idle-timer) (setq org-clock-idle-timer nil)) (setq =
global-mode-string (delq (quote org-mode-line-string) =
global-mode-string)) (setq frame-title-format (delq (quote =
org-frame-title-string) frame-title-format)) (when =
org-clock-out-switch-to-state (save-excursion (org-back-to-heading t) =
(let ((org-inhibit-logging t) (org-clock-out-when-done nil)) (cond (... =
... ...) (... ...))))) (force-mode-line-update) (message (concat "Clock =
stopped at %s after HH:MM =3D " org-time-clocksum-format "%s") te h m =
(if remove " =3D&gt; LINE REMOVED" "")) (run-hooks (quote =
org-clock-out-hook)) (unless (org-clocking-p) =
(org-clock-delete-current)))))
  (catch (quote exit) (when (not (org-clocking-p)) (setq =
global-mode-string (delq (quote org-mode-line-string) =
global-mode-string)) (setq frame-title-format (delq (quote =
org-frame-title-string) frame-title-format)) (force-mode-line-update) =
(if fail-quietly (throw (quote exit) t) (error "No active clock"))) (let =
(ts te s h m remove) (save-excursion (with-no-warnings (set-buffer =
(org-clocking-buffer))) (save-restriction (widen) (goto-char =
org-clock-marker) (beginning-of-line 1) (if (and (looking-at (concat "[  =
]*" org-keyword-time-regexp)) (equal (match-string 1) org-clock-string)) =
(setq ts (match-string 2)) (if fail-quietly (throw (quote exit) nil) =
(error "Clock start time is gone"))) (goto-char (match-end 0)) =
(delete-region (point) (point-at-eol)) (insert "--") (setq te =
(org-insert-time-stamp (or at-time (current-time)) (quote with-hm) =
(quote inactive))) (setq s (- (org-float-time (apply ... ...)) =
(org-float-time (apply ... ...))) h (floor (/ s 3600)) s (- s (* 3600 =
h)) m (floor (/ s 60)) s (- s (* 60 s))) (insert " =3D&gt; " (format =
"%2d:%02d" h m)) (when (setq remove (and =
org-clock-out-remove-zero-time-clocks (=3D ... 0))) (beginning-of-line =
1) (delete-region (point) (point-at-eol)) (and (looking-at "\n") (&gt; =
(point-max) (1+ ...)) (delete-char 1))) (move-marker org-clock-marker =
nil) (move-marker org-clock-hd-marker nil) (when org-log-note-clock-out =
(org-add-log-setup (quote clock-out) nil nil nil nil (concat "# Task: " =
(org-get-heading t) "\n\n"))) (when org-clock-mode-line-timer =
(cancel-timer org-clock-mode-line-timer) (setq org-clock-mode-line-timer =
nil)) (when org-clock-idle-timer (cancel-timer org-clock-idle-timer) =
(setq org-clock-idle-timer nil)) (setq global-mode-string (delq (quote =
org-mode-line-string) global-mode-string)) (setq frame-title-format =
(delq (quote org-frame-title-string) frame-title-format)) (when =
org-clock-out-switch-to-state (save-excursion (org-back-to-heading t) =
(let (... ...) (cond ... ...)))) (force-mode-line-update) (message =
(concat "Clock stopped at %s after HH:MM =3D " org-time-clocksum-format =
"%s") te h m (if remove " =3D&gt; LINE REMOVED" "")) (run-hooks (quote =
org-clock-out-hook)) (unless (org-clocking-p) =
(org-clock-delete-current))))))
  org-clock-out(t)
  (let ((org-clock-clocking-in t)) (org-clock-out t))
  (progn (when (save-excursion (unless selected-task =
(org-back-to-heading t)) (and (equal (marker-buffer org-clock-hd-marker) =
(if selected-task (marker-buffer selected-task) (current-buffer))) (=3D =
(marker-position org-clock-hd-marker) (if selected-task (marker-position =
selected-task) (point))) (equal org-clock-current-task (nth 4 =
(org-heading-components))))) (message "Clock continues in \"%s\"" =
org-clock-heading) (throw (quote abort) nil)) (move-marker =
org-clock-interrupted-task (marker-position org-clock-marker) =
(marker-buffer org-clock-marker)) (let ((org-clock-clocking-in t)) =
(org-clock-out t)))
  (if interrupting (progn (when (save-excursion (unless selected-task =
(org-back-to-heading t)) (and (equal (marker-buffer org-clock-hd-marker) =
(if selected-task (marker-buffer selected-task) (current-buffer))) (=3D =
(marker-position org-clock-hd-marker) (if selected-task (marker-position =
selected-task) (point))) (equal org-clock-current-task (nth 4 =
(org-heading-components))))) (message "Clock continues in \"%s\"" =
org-clock-heading) (throw (quote abort) nil)) (move-marker =
org-clock-interrupted-task (marker-position org-clock-marker) =
(marker-buffer org-clock-marker)) (let ((org-clock-clocking-in t)) =
(org-clock-out t))))
  (when interrupting (when (save-excursion (unless selected-task =
(org-back-to-heading t)) (and (equal (marker-buffer org-clock-hd-marker) =
(if selected-task (marker-buffer selected-task) (current-buffer))) (=3D =
(marker-position org-clock-hd-marker) (if selected-task (marker-position =
selected-task) (point))) (equal org-clock-current-task (nth 4 =
(org-heading-components))))) (message "Clock continues in \"%s\"" =
org-clock-heading) (throw (quote abort) nil)) (move-marker =
org-clock-interrupted-task (marker-position org-clock-marker) =
(marker-buffer org-clock-marker)) (let ((org-clock-clocking-in t)) =
(org-clock-out t)))
  (let ((interrupting (and (not =
org-clock-resolving-clocks-due-to-idleness) (org-clocking-p))) ts =
selected-task target-pos (msg-extra "") (leftover (and (not =
org-clock-resolving-clocks) org-clock-leftover-time))) (when (and =
org-clock-auto-clock-resolution (or (not interrupting) (eq t =
org-clock-auto-clock-resolution)) (not org-clock-clocking-in) (not =
org-clock-resolving-clocks)) (setq org-clock-leftover-time nil) (let =
((org-clock-clocking-in t)) (org-resolve-clocks))) (when (equal select =
(quote (4))) (setq selected-task (org-clock-select-task "Clock-in on =
task: ")) (if selected-task (setq selected-task (copy-marker =
selected-task)) (error "Abort"))) (when (equal select (quote (16))) =
(org-clock-mark-default-task)) (when interrupting (when (save-excursion =
(unless selected-task (org-back-to-heading t)) (and (equal =
(marker-buffer org-clock-hd-marker) (if selected-task (marker-buffer =
selected-task) (current-buffer))) (=3D (marker-position =
org-clock-hd-marker) (if selected-task (marker-position selected-task) =
(point))) (equal org-clock-current-task (nth 4 =
(org-heading-components))))) (message "Clock continues in \"%s\"" =
org-clock-heading) (throw (quote abort) nil)) (move-marker =
org-clock-interrupted-task (marker-position org-clock-marker) =
(marker-buffer org-clock-marker)) (let ((org-clock-clocking-in t)) =
(org-clock-out t))) (setq target-pos (if (and (eobp) (not =
(org-at-heading-p))) (point-at-bol 0) (point))) (run-hooks (quote =
org-clock-in-prepare-hook)) (save-excursion (when (and selected-task =
(marker-buffer selected-task)) (set-buffer (org-base-buffer =
(marker-buffer selected-task))) (setq target-pos (marker-position =
selected-task)) (move-marker selected-task nil)) (save-excursion =
(save-restriction (widen) (goto-char target-pos) (org-back-to-heading t) =
(or interrupting (move-marker org-clock-interrupted-task nil)) =
(org-clock-history-push) (org-clock-set-current) (cond ((functionp =
org-clock-in-switch-to-state) (looking-at org-complex-heading-regexp) =
(let (...) (if newstate ...))) ((and org-clock-in-switch-to-state (not =
...)) (org-todo org-clock-in-switch-to-state))) (setq =
org-clock-heading-for-remember (and (looking-at =
org-complex-heading-regexp) (match-end 4) (org-trim (buffer-substring =
... ...)))) (setq org-clock-heading (cond ((and =
org-clock-heading-function ...) (funcall org-clock-heading-function)) =
((looking-at org-complex-heading-regexp) (replace-regexp-in-string =
"\\[\\[.*?\\]\\[\\(.*?\\)\\]\\]" "<a href=3D"smb://1">\\1</a>" ...)) (t =
"???"))) (setq org-clock-heading (org-propertize org-clock-heading =
(quote face) nil)) (org-clock-find-position org-clock-in-resume) (cond =
((and org-clock-in-resume (looking-at ...)) (message "Matched %s" =
(match-string 1)) (setq ts (concat "[" ... "]")) (goto-char (match-end =
1)) (setq org-clock-start-time (apply ... ...)) (setq org-clock-effort =
(org-get-effort)) (setq org-clock-total-time (org-clock-sum-current-item =
...))) ((eq org-clock-in-resume (quote auto-restart)) (message "Cannot =
restart clock because task does not contain unfinished clock") (ding) =
(sit-for 2) (throw (quote abort) nil)) (t (insert-before-markers "\n") =
(backward-char 1) (org-indent-line-function) (when (and ...) =
(beginning-of-line 1) (org-indent-line-to ...)) (insert org-clock-string =
" ") (setq org-clock-effort (org-get-effort)) (setq org-clock-total-time =
(org-clock-sum-current-item ...)) (setq org-clock-start-time (or ... =
start-time ...)) (setq ts (org-insert-time-stamp org-clock-start-time =
... ...)))) (move-marker org-clock-marker (point) (buffer-base-buffer)) =
(move-marker org-clock-hd-marker (save-excursion (org-back-to-heading t) =
(point)) (buffer-base-buffer)) (setq org-clock-has-been-used t) (when =
(or (eq org-clock-clocked-in-display (quote mode-line)) (eq =
org-clock-clocked-in-display (quote both))) (or global-mode-string (setq =
global-mode-string (quote ...))) (or (memq (quote org-mode-line-string) =
global-mode-string) (setq global-mode-string (append global-mode-string =
...)))) (when (or (eq org-clock-clocked-in-display (quote frame-title)) =
(eq org-clock-clocked-in-display (quote both))) (or (memq (quote =
org-frame-title-string) frame-title-format) (setq frame-title-format =
(append frame-title-format ...)))) (org-clock-update-mode-line) (when =
org-clock-mode-line-timer (cancel-timer org-clock-mode-line-timer) (setq =
org-clock-mode-line-timer nil)) (when org-clock-clocked-in-display (setq =
org-clock-mode-line-timer (run-with-timer org-clock-update-period =
org-clock-update-period (quote org-clock-update-mode-line)))) (when =
org-clock-idle-timer (cancel-timer org-clock-idle-timer) (setq =
org-clock-idle-timer nil)) (setq org-clock-idle-timer (run-with-timer 60 =
60 (quote org-resolve-clocks-if-idle))) (message "Clock starts at %s - =
%s" ts msg-extra) (run-hooks (quote org-clock-in-hook))))))
  (catch (quote abort) (let ((interrupting (and (not =
org-clock-resolving-clocks-due-to-idleness) (org-clocking-p))) ts =
selected-task target-pos (msg-extra "") (leftover (and (not =
org-clock-resolving-clocks) org-clock-leftover-time))) (when (and =
org-clock-auto-clock-resolution (or (not interrupting) (eq t =
org-clock-auto-clock-resolution)) (not org-clock-clocking-in) (not =
org-clock-resolving-clocks)) (setq org-clock-leftover-time nil) (let =
((org-clock-clocking-in t)) (org-resolve-clocks))) (when (equal select =
(quote (4))) (setq selected-task (org-clock-select-task "Clock-in on =
task: ")) (if selected-task (setq selected-task (copy-marker =
selected-task)) (error "Abort"))) (when (equal select (quote (16))) =
(org-clock-mark-default-task)) (when interrupting (when (save-excursion =
(unless selected-task (org-back-to-heading t)) (and (equal =
(marker-buffer org-clock-hd-marker) (if selected-task ... ...)) (=3D =
(marker-position org-clock-hd-marker) (if selected-task ... ...)) (equal =
org-clock-current-task (nth 4 ...)))) (message "Clock continues in =
\"%s\"" org-clock-heading) (throw (quote abort) nil)) (move-marker =
org-clock-interrupted-task (marker-position org-clock-marker) =
(marker-buffer org-clock-marker)) (let ((org-clock-clocking-in t)) =
(org-clock-out t))) (setq target-pos (if (and (eobp) (not =
(org-at-heading-p))) (point-at-bol 0) (point))) (run-hooks (quote =
org-clock-in-prepare-hook)) (save-excursion (when (and selected-task =
(marker-buffer selected-task)) (set-buffer (org-base-buffer =
(marker-buffer selected-task))) (setq target-pos (marker-position =
selected-task)) (move-marker selected-task nil)) (save-excursion =
(save-restriction (widen) (goto-char target-pos) (org-back-to-heading t) =
(or interrupting (move-marker org-clock-interrupted-task nil)) =
(org-clock-history-push) (org-clock-set-current) (cond ((functionp =
org-clock-in-switch-to-state) (looking-at org-complex-heading-regexp) =
(let ... ...)) ((and org-clock-in-switch-to-state ...) (org-todo =
org-clock-in-switch-to-state))) (setq org-clock-heading-for-remember =
(and (looking-at org-complex-heading-regexp) (match-end 4) (org-trim =
...))) (setq org-clock-heading (cond (... ...) (... ...) (t "???"))) =
(setq org-clock-heading (org-propertize org-clock-heading (quote face) =
nil)) (org-clock-find-position org-clock-in-resume) (cond ((and =
org-clock-in-resume ...) (message "Matched %s" ...) (setq ts ...) =
(goto-char ...) (setq org-clock-start-time ...) (setq org-clock-effort =
...) (setq org-clock-total-time ...)) ((eq org-clock-in-resume ...) =
(message "Cannot restart clock because task does not contain unfinished =
clock") (ding) (sit-for 2) (throw ... nil)) (t (insert-before-markers =
"\n") (backward-char 1) (org-indent-line-function) (when ... ... ...) =
(insert org-clock-string " ") (setq org-clock-effort ...) (setq =
org-clock-total-time ...) (setq org-clock-start-time ...) (setq ts =
...))) (move-marker org-clock-marker (point) (buffer-base-buffer)) =
(move-marker org-clock-hd-marker (save-excursion (org-back-to-heading t) =
(point)) (buffer-base-buffer)) (setq org-clock-has-been-used t) (when =
(or (eq org-clock-clocked-in-display ...) (eq =
org-clock-clocked-in-display ...)) (or global-mode-string (setq =
global-mode-string ...)) (or (memq ... global-mode-string) (setq =
global-mode-string ...))) (when (or (eq org-clock-clocked-in-display =
...) (eq org-clock-clocked-in-display ...)) (or (memq ... =
frame-title-format) (setq frame-title-format ...))) =
(org-clock-update-mode-line) (when org-clock-mode-line-timer =
(cancel-timer org-clock-mode-line-timer) (setq org-clock-mode-line-timer =
nil)) (when org-clock-clocked-in-display (setq org-clock-mode-line-timer =
(run-with-timer org-clock-update-period org-clock-update-period ...))) =
(when org-clock-idle-timer (cancel-timer org-clock-idle-timer) (setq =
org-clock-idle-timer nil)) (setq org-clock-idle-timer (run-with-timer 60 =
60 (quote org-resolve-clocks-if-idle))) (message "Clock starts at %s - =
%s" ts msg-extra) (run-hooks (quote org-clock-in-hook)))))))
  org-clock-in(nil)
  call-interactively(org-clock-in)
  (cond ((commandp org-speed-command) (setq this-command =
org-speed-command) (call-interactively org-speed-command)) ((functionp =
org-speed-command) (funcall org-speed-command)) ((and org-speed-command =
(listp org-speed-command)) (eval org-speed-command)) (t (let =
(org-use-speed-commands) (call-interactively (quote =
org-self-insert-command)))))
  (cond ((and org-use-speed-commands (setq org-speed-command =
(run-hook-with-args-until-success (quote org-speed-command-hook) =
(this-command-keys)))) (cond ((commandp org-speed-command) (setq =
this-command org-speed-command) (call-interactively org-speed-command)) =
((functionp org-speed-command) (funcall org-speed-command)) ((and =
org-speed-command (listp org-speed-command)) (eval org-speed-command)) =
(t (let (org-use-speed-commands) (call-interactively (quote =
org-self-insert-command)))))) ((and (org-table-p) (progn (and (featurep =
(quote org-table)) org-table-auto-blank-field (member last-command =
(quote (org-cycle org-return org-shifttab org-ctrl-c-ctrl-c =
yas/expand))) (if (or (equal ... 32) (looking-at "[^|\n]*  |")) (let =
(org-table-may-need-update) (org-table-blank-field)) =
(org-table-blank-field))) t) (eq N 1) (looking-at "[^|\n]*  |")) (let =
(org-table-may-need-update) (goto-char (1- (match-end 0))) =
(backward-delete-char 1) (goto-char (match-beginning 0)) =
(self-insert-command N))) (t (setq org-table-may-need-update t) =
(self-insert-command N) (org-fix-tags-on-the-fly) (if =
org-self-insert-cluster-for-undo (if (not (eq last-command (quote =
org-self-insert-command))) (setq org-self-insert-command-undo-counter 1) =
(if (&gt;=3D org-self-insert-command-undo-counter 20) (setq =
org-self-insert-command-undo-counter 1) (and (&gt; =
org-self-insert-command-undo-counter 0) buffer-undo-list (listp =
buffer-undo-list) (not (cadr buffer-undo-list)) (setcdr buffer-undo-list =
(cddr buffer-undo-list))) (setq org-self-insert-command-undo-counter (1+ =
org-self-insert-command-undo-counter)))))))
  org-self-insert-command(1)
  call-interactively(org-self-insert-command nil nil)

</pre></div></div></div><div id=3D"postamble" style=3D"margin-top: 20px; =
color: white; font: normal normal normal 75%/normal sans-serif; =
background-color: gray; padding-top: 2px; padding-right: 2px; =
padding-bottom: 2px; padding-left: 2px; text-align: center; font-family: =
'Palatino Linotype', Palatino, 'URW Palladio L', 'Book Antiqua', =
Baskerville, 'Bookman Old Style', 'Bitstream Charter', 'Nimbus Roman No9 =
L', Garamond, 'New Century Schoolbook', 'Century Schoolbook', 'Century =
Schoolbook L', Georgia, serif; font-size: 16px; position: static; =
z-index: auto; "><p class=3D"date" style=3D"display: inline-block; =
border-right-style: solid; border-right-width: 1px; padding-right: 6px; =
">Date</p></div></body></html>=

--Apple-Mail=_575C729E-D265-479B-B286-B84175C870E0--