Re: [O] clock-in clock-out problems

[hymie!]

In our last episode, the evil Dr. Lacto had captured our hero,
  Nick Dokos <address@hidden>, who said:
>address@hidden (hymie!) writes:
>
>> (This is the "Messages" that you asked for in the other post)
>>
>> ("emacs" "zz.org")
>> For information about GNU Emacs and the GNU system, type C-x h C-a.
>> Restoring clock data
>> Loading /home/hymie/.emacs.d/org-clock-save.el (source)...done
>> Resume clock (clock test) (y or n)  y
>> Matched 2014-08-18 Mon 16:20
>> Entering debugger...
>> Quit
>>

Sorry.  I missed the "backtrace".  I hope this works, the lines are
longer than the permitted 78 characters.

Debugger entered--Lisp error: (wrong-type-argument integer-or-marker-p nil)
  goto-char(nil)
  (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-entry-get (point) 
org-effort-property)) (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) (if (and (save-excursion (end-of-line 0) 
(org-in-item-p))) (progn (beginning-of-line 1) (org-indent-line-to (- 
(org-get-indentation) 2)))) (insert org-clock-string " ") (setq 
org-clock-effort (org-entry-get (point) org-effort-property)) (setq 
org-clock-total-time (org-clock-sum-current-item (org-clock-get-sum-start))) 
(setq org-clock-start-time (or (and org-clock-continuously org-clock-out-time) 
(and leftover (y-or-n-p (format "You stopped another clock %d mins ago; start 
this one from then? " (/ ... 60))) leftover) start-time (org-current-time 
org-clock-rounding-minutes t))) (setq ts (org-insert-time-stamp 
org-clock-start-time (quote with-hm) (quote inactive)))))
  (save-restriction (widen) (goto-char target-pos) (org-back-to-heading t) (or 
interrupting (move-marker org-clock-interrupted-task nil)) (run-hooks (quote 
org-clock-in-prepare-hook)) (org-clock-history-push) (setq 
org-clock-current-task (nth 4 (org-heading-components))) (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 (cond ((and 
org-clock-heading-function (functionp org-clock-heading-function)) (funcall 
org-clock-heading-function)) ((nth 4 (org-heading-components)) 
(replace-regexp-in-string "\\[\\[.*?\\]\\[\\(.*?\\)\\]\\]" "\\1" 
(match-string-no-properties 4))) (t "???"))) (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-entry-get (point) org-effort-property)) (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) (if (and (save-excursion (end-of-line 0) (org-in-item-p))) 
(progn (beginning-of-line 1) (org-indent-line-to (- (org-get-indentation) 2)))) 
(insert org-clock-string " ") (setq org-clock-effort (org-entry-get (point) 
org-effort-property)) (setq org-clock-total-time (org-clock-sum-current-item 
(org-clock-get-sum-start))) (setq org-clock-start-time (or (and 
org-clock-continuously org-clock-out-time) (and leftover (y-or-n-p (format "You 
stopped another clock %d mins ago; start this one from then? " ...)) leftover) 
start-time (org-current-time org-clock-rounding-minutes t))) (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) (if (or (eq 
org-clock-clocked-in-display (quote mode-line)) (eq 
org-clock-clocked-in-display (quote both))) (progn (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))))))) (if (or (eq org-clock-clocked-in-display (quote 
frame-title)) (eq org-clock-clocked-in-display (quote both))) (progn (setq 
frame-title-format org-clock-frame-title-format))) (org-clock-update-mode-line) 
(if org-clock-mode-line-timer (progn (cancel-timer org-clock-mode-line-timer) 
(setq org-clock-mode-line-timer nil))) (if org-clock-clocked-in-display (progn 
(setq org-clock-mode-line-timer (run-with-timer org-clock-update-period 
org-clock-update-period (quote org-clock-update-mode-line))))) (if 
org-clock-idle-timer (progn (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 
org--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)) (run-hooks (quote org-clock-in-prepare-hook)) 
(org-clock-history-push) (setq org-clock-current-task (nth 4 
(org-heading-components))) (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 (cond ((and 
org-clock-heading-function (functionp org-clock-heading-function)) (funcall 
org-clock-heading-function)) ((nth 4 (org-heading-components)) 
(replace-regexp-in-string "\\[\\[.*?\\]\\[\\(.*?\\)\\]\\]" "\\1" 
(match-string-no-properties 4))) (t "???"))) (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-entry-get (point) org-effort-property)) (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) (if (and (save-excursion (end-of-line 0) (org-in-item-p))) 
(progn (beginning-of-line 1) (org-indent-line-to (- ... 2)))) (insert 
org-clock-string " ") (setq org-clock-effort (org-entry-get (point) 
org-effort-property)) (setq org-clock-total-time (org-clock-sum-current-item 
(org-clock-get-sum-start))) (setq org-clock-start-time (or (and 
org-clock-continuously org-clock-out-time) (and leftover (y-or-n-p ...) 
leftover) start-time (org-current-time org-clock-rounding-minutes t))) (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) (if (or (eq 
org-clock-clocked-in-display (quote mode-line)) (eq 
org-clock-clocked-in-display (quote both))) (progn (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 
...)))))) (if (or (eq org-clock-clocked-in-display (quote frame-title)) (eq 
org-clock-clocked-in-display (quote both))) (progn (setq frame-title-format 
org-clock-frame-title-format))) (org-clock-update-mode-line) (if 
org-clock-mode-line-timer (progn (cancel-timer org-clock-mode-line-timer) (setq 
org-clock-mode-line-timer nil))) (if org-clock-clocked-in-display (progn (setq 
org-clock-mode-line-timer (run-with-timer org-clock-update-period 
org-clock-update-period (quote org-clock-update-mode-line))))) (if 
org-clock-idle-timer (progn (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 
org--msg-extra) (run-hooks (quote org-clock-in-hook))))
  (save-excursion (if (and selected-task (marker-buffer selected-task)) (progn 
(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)) (run-hooks (quote org-clock-in-prepare-hook)) 
(org-clock-history-push) (setq org-clock-current-task (nth 4 
(org-heading-components))) (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 (cond 
((and org-clock-heading-function (functionp org-clock-heading-function)) 
(funcall org-clock-heading-function)) ((nth 4 (org-heading-components)) 
(replace-regexp-in-string "\\[\\[.*?\\]\\[\\(.*?\\)\\]\\]" "\\1" 
(match-string-no-properties 4))) (t "???"))) (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-entry-get (point) 
org-effort-property)) (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) (if (and (save-excursion ... ...)) (progn 
(beginning-of-line 1) (org-indent-line-to ...))) (insert org-clock-string " ") 
(setq org-clock-effort (org-entry-get (point) org-effort-property)) (setq 
org-clock-total-time (org-clock-sum-current-item (org-clock-get-sum-start))) 
(setq org-clock-start-time (or (and org-clock-continuously org-clock-out-time) 
(and leftover ... leftover) start-time (org-current-time 
org-clock-rounding-minutes t))) (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) (if (or (eq org-clock-clocked-in-display (quote 
mode-line)) (eq org-clock-clocked-in-display (quote both))) (progn (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 ...))))) (if (or (eq org-clock-clocked-in-display (quote 
frame-title)) (eq org-clock-clocked-in-display (quote both))) (progn (setq 
frame-title-format org-clock-frame-title-format))) (org-clock-update-mode-line) 
(if org-clock-mode-line-timer (progn (cancel-timer org-clock-mode-line-timer) 
(setq org-clock-mode-line-timer nil))) (if org-clock-clocked-in-display (progn 
(setq org-clock-mode-line-timer (run-with-timer org-clock-update-period 
org-clock-update-period (quote org-clock-update-mode-line))))) (if 
org-clock-idle-timer (progn (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 
org--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 (org--msg-extra "") (leftover 
(and (not org-clock-resolving-clocks) org-clock-leftover-time))) (if (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)) (progn (setq org-clock-leftover-time nil) (let 
((org-clock-clocking-in t)) (org-resolve-clocks)))) (if (equal select (quote 
(64))) (progn (let ((org-clock-continuously t)) (org-clock-in nil 
org-clock-out-time)))) (if (equal select (quote (4))) (progn (setq 
selected-task (org-clock-select-task "Clock-in on task: ")) (if selected-task 
(setq selected-task (copy-marker selected-task)) (error "Abort")))) (if (equal 
select (quote (16))) (progn (org-clock-mark-default-task))) (if interrupting 
(progn (if (save-excursion (if selected-task nil (org-back-to-heading t)) (and 
(equal (marker-buffer org-clock-hd-marker) (if selected-task ... ...)) (= 
(marker-position org-clock-hd-marker) (if selected-task ... ...)) (equal 
org-clock-current-task (nth 4 ...)))) (progn (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 nil t)))) 
(setq target-pos (if (and (eobp) (not (org-at-heading-p))) (point-at-bol 0) 
(point))) (save-excursion (if (and selected-task (marker-buffer selected-task)) 
(progn (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)) (run-hooks (quote org-clock-in-prepare-hook)) 
(org-clock-history-push) (setq org-clock-current-task (nth 4 
(org-heading-components))) (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 (cond ((and 
org-clock-heading-function ...) (funcall org-clock-heading-function)) ((nth 4 
...) (replace-regexp-in-string "\\[\\[.*?\\]\\[\\(.*?\\)\\]\\]" "\\1" ...)) (t 
"???"))) (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-entry-get ... 
org-effort-property)) (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) (if (and ...) (progn ... ...)) (insert org-clock-string " ") 
(setq org-clock-effort (org-entry-get ... org-effort-property)) (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) (if (or (eq org-clock-clocked-in-display (quote 
mode-line)) (eq org-clock-clocked-in-display (quote both))) (progn (or 
global-mode-string (setq global-mode-string ...)) (or (memq ... 
global-mode-string) (setq global-mode-string ...)))) (if (or (eq 
org-clock-clocked-in-display (quote frame-title)) (eq 
org-clock-clocked-in-display (quote both))) (progn (setq frame-title-format 
org-clock-frame-title-format))) (org-clock-update-mode-line) (if 
org-clock-mode-line-timer (progn (cancel-timer org-clock-mode-line-timer) (setq 
org-clock-mode-line-timer nil))) (if org-clock-clocked-in-display (progn (setq 
org-clock-mode-line-timer (run-with-timer org-clock-update-period 
org-clock-update-period ...)))) (if org-clock-idle-timer (progn (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 org--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 (org--msg-extra "") (leftover (and (not org-clock-resolving-clocks) 
org-clock-leftover-time))) (if (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)) (progn (setq 
org-clock-leftover-time nil) (let ((org-clock-clocking-in t)) 
(org-resolve-clocks)))) (if (equal select (quote (64))) (progn (let 
((org-clock-continuously t)) (org-clock-in nil org-clock-out-time)))) (if 
(equal select (quote (4))) (progn (setq selected-task (org-clock-select-task 
"Clock-in on task: ")) (if selected-task (setq selected-task (copy-marker 
selected-task)) (error "Abort")))) (if (equal select (quote (16))) (progn 
(org-clock-mark-default-task))) (if interrupting (progn (if (save-excursion (if 
selected-task nil (org-back-to-heading t)) (and (equal ... ...) (= ... ...) 
(equal org-clock-current-task ...))) (progn (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 nil t)))) 
(setq target-pos (if (and (eobp) (not (org-at-heading-p))) (point-at-bol 0) 
(point))) (save-excursion (if (and selected-task (marker-buffer selected-task)) 
(progn (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)) (run-hooks (quote org-clock-in-prepare-hook)) 
(org-clock-history-push) (setq org-clock-current-task (nth 4 
(org-heading-components))) (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 (cond (... ...) (... ...) (t "???"))) 
(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) (if ... ...) (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) (if (or (eq org-clock-clocked-in-display ...) (eq 
org-clock-clocked-in-display ...)) (progn (or global-mode-string ...) (or ... 
...))) (if (or (eq org-clock-clocked-in-display ...) (eq 
org-clock-clocked-in-display ...)) (progn (setq frame-title-format 
org-clock-frame-title-format))) (org-clock-update-mode-line) (if 
org-clock-mode-line-timer (progn (cancel-timer org-clock-mode-line-timer) (setq 
org-clock-mode-line-timer nil))) (if org-clock-clocked-in-display (progn (setq 
org-clock-mode-line-timer ...))) (if org-clock-idle-timer (progn (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 org--msg-extra) (run-hooks (quote 
org-clock-in-hook)))))))
  org-clock-in()
  (let ((org-clock-auto-clock-resolution nil)) (org-clock-in) (if 
(outline-invisible-p) (org-show-context)))
  (save-current-buffer (set-buffer (find-file (car resume-clock))) (goto-char 
(cdr resume-clock)) (let ((org-clock-auto-clock-resolution nil)) (org-clock-in) 
(if (outline-invisible-p) (org-show-context))))
  (progn (save-current-buffer (set-buffer (find-file (car resume-clock))) 
(goto-char (cdr resume-clock)) (let ((org-clock-auto-clock-resolution nil)) 
(org-clock-in) (if (outline-invisible-p) (org-show-context)))))
  (if (file-exists-p (car resume-clock)) (progn (save-current-buffer 
(set-buffer (find-file (car resume-clock))) (goto-char (cdr resume-clock)) (let 
((org-clock-auto-clock-resolution nil)) (org-clock-in) (if 
(outline-invisible-p) (org-show-context))))))
  (progn (if (file-exists-p (car resume-clock)) (progn (save-current-buffer 
(set-buffer (find-file (car resume-clock))) (goto-char (cdr resume-clock)) (let 
((org-clock-auto-clock-resolution nil)) (org-clock-in) (if 
(outline-invisible-p) (org-show-context)))))))
  (if (and resume-clock org-clock-persist (file-exists-p (car resume-clock)) 
(or (not org-clock-persist-query-resume) (y-or-n-p (concat "Resume clock (" 
(save-current-buffer (set-buffer (find-file ...)) (save-excursion (goto-char 
...) (org-back-to-heading t) (and ... ...))) ") ")))) (progn (if (file-exists-p 
(car resume-clock)) (progn (save-current-buffer (set-buffer (find-file (car 
resume-clock))) (goto-char (cdr resume-clock)) (let 
((org-clock-auto-clock-resolution nil)) (org-clock-in) (if 
(outline-invisible-p) (org-show-context))))))))
  (if (not (file-readable-p filename)) (message "Not restoring clock data; %s 
not found" org-clock-persist-file) (message "%s" "Restoring clock data") (setq 
org-clock-loaded t) (load-file filename) (if stored-clock-history (progn (let 
((wconfig (current-window-configuration))) (unwind-protect (progn (mapc 
(function ...) stored-clock-history)) (set-window-configuration wconfig))))) 
(if (and resume-clock org-clock-persist (file-exists-p (car resume-clock)) (or 
(not org-clock-persist-query-resume) (y-or-n-p (concat "Resume clock (" 
(save-current-buffer (set-buffer ...) (save-excursion ... ... ...)) ") ")))) 
(progn (if (file-exists-p (car resume-clock)) (progn (save-current-buffer 
(set-buffer (find-file ...)) (goto-char (cdr resume-clock)) (let (...) 
(org-clock-in) (if ... ...))))))))
  (let ((filename (expand-file-name org-clock-persist-file)) 
(org-clock-in-resume (quote auto-restart)) resume-clock stored-clock-history) 
(if (not (file-readable-p filename)) (message "Not restoring clock data; %s not 
found" org-clock-persist-file) (message "%s" "Restoring clock data") (setq 
org-clock-loaded t) (load-file filename) (if stored-clock-history (progn (let 
((wconfig (current-window-configuration))) (unwind-protect (progn (mapc ... 
stored-clock-history)) (set-window-configuration wconfig))))) (if (and 
resume-clock org-clock-persist (file-exists-p (car resume-clock)) (or (not 
org-clock-persist-query-resume) (y-or-n-p (concat "Resume clock (" 
(save-current-buffer ... ...) ") ")))) (progn (if (file-exists-p (car 
resume-clock)) (progn (save-current-buffer (set-buffer ...) (goto-char ...) 
(let ... ... ...))))))))
  (progn (let ((filename (expand-file-name org-clock-persist-file)) 
(org-clock-in-resume (quote auto-restart)) resume-clock stored-clock-history) 
(if (not (file-readable-p filename)) (message "Not restoring clock data; %s not 
found" org-clock-persist-file) (message "%s" "Restoring clock data") (setq 
org-clock-loaded t) (load-file filename) (if stored-clock-history (progn (let 
((wconfig ...)) (unwind-protect (progn ...) (set-window-configuration 
wconfig))))) (if (and resume-clock org-clock-persist (file-exists-p (car 
resume-clock)) (or (not org-clock-persist-query-resume) (y-or-n-p (concat 
"Resume clock (" ... ") ")))) (progn (if (file-exists-p (car resume-clock)) 
(progn (save-current-buffer ... ... ...))))))))
  (if (and org-clock-persist (not org-clock-loaded)) (progn (let ((filename 
(expand-file-name org-clock-persist-file)) (org-clock-in-resume (quote 
auto-restart)) resume-clock stored-clock-history) (if (not (file-readable-p 
filename)) (message "Not restoring clock data; %s not found" 
org-clock-persist-file) (message "%s" "Restoring clock data") (setq 
org-clock-loaded t) (load-file filename) (if stored-clock-history (progn (let 
(...) (unwind-protect ... ...)))) (if (and resume-clock org-clock-persist 
(file-exists-p (car resume-clock)) (or (not org-clock-persist-query-resume) 
(y-or-n-p ...))) (progn (if (file-exists-p ...) (progn ...))))))))
  org-clock-load()
  run-hooks(change-major-mode-after-body-hook text-mode-hook outline-mode-hook 
org-mode-hook)
  apply(run-hooks (change-major-mode-after-body-hook text-mode-hook 
outline-mode-hook org-mode-hook))
  run-mode-hooks(org-mode-hook)
  org-mode()
  set-auto-mode-0(org-mode nil)
  set-auto-mode()
  normal-mode(t)
  after-find-file(nil t)
  find-file-noselect-1(#<buffer zz.org> "~/org/zz.org" nil nil "~/org/zz.org" 
(2131490 2056))
  find-file-noselect("/home/hymie/org/zz.org" nil nil nil)
  find-file("/home/hymie/org/zz.org")
  command-line-1(("zz.org"))
  command-line()
  normal-top-level()


>If that's the case, and assuming I'm in the right place in the source
>code, *Messages* shows the correct value for the matched string but the
>backtrace shows that match-end returned nil which means that the regexp
>*did not match*.  Both of these two cannot be right (unless there is a bug
>in the emacs regexp matching code, which for now at least, I'm
>discounting).