From: hymie@lactose.homelinux.net (hymie!)
To: emacs-orgmode@gnu.org
Subject: Re: clock-in clock-out problems
Date: Tue, 19 Aug 2014 03:23:41 +0000 (UTC) [thread overview]
Message-ID: <lsufvs$5b5$1@ger.gmane.org> (raw)
In-Reply-To: 87d2bxpjet.fsf@alphaville.bos.redhat.com
In our last episode, the evil Dr. Lacto had captured our hero,
Nick Dokos <ndokos@gmail.com>, who said:
>hymie@lactose.homelinux.net (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-excursi
on (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 doe
s 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-clo
ck-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-headi
ng-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-cl
ock-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-clo
ck-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-su
m-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 or
g-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 se
lect (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-b
uffer 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 ...)) (set
q 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 "Abo
rt")))) (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-cloc
k-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-cha
r ...) (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).
next prev parent reply other threads:[~2014-08-19 3:24 UTC|newest]
Thread overview: 16+ messages / expand[flat|nested] mbox.gz Atom feed top
2014-08-18 15:40 clock-in clock-out problems hymie!
2014-08-18 18:26 ` Joost Helberg
2014-08-18 19:02 ` hymie!
2014-08-18 20:10 ` Nick Dokos
2014-08-18 20:18 ` Nick Dokos
2014-08-18 20:55 ` hymie!
2014-08-18 21:39 ` Nick Dokos
2014-08-19 3:23 ` hymie! [this message]
2014-08-19 15:01 ` hymie!
2014-08-19 15:51 ` Nick Dokos
2014-08-19 18:21 ` hymie!
2014-08-19 20:46 ` hymie!
2014-08-19 22:42 ` Nick Dokos
2014-08-22 13:55 ` Bastien
2014-08-19 7:55 ` Sebastien Vauban
2014-08-19 12:32 ` Nick Dokos
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to='lsufvs$5b5$1@ger.gmane.org' \
--to=hymie@lactose.homelinux.net \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).