[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Orgmode] bug in dynamic block for clock table using :tags
From: |
David Maus |
Subject: |
Re: [Orgmode] bug in dynamic block for clock table using :tags |
Date: |
Sun, 08 Aug 2010 14:06:06 +0200 |
User-agent: |
Wanderlust/2.15.9 (Almost Unreal) SEMI/1.14.6 (Maruoka) FLIM/1.14.9 (Gojō) APEL/10.8 Emacs/23.2 (i486-pc-linux-gnu) MULE/6.0 (HANACHIRUSATO) |
Noorul Islam wrote:
>This works fine on a debian lenny with
>GNU Emacs 23.2.2 (i686-pc-linux-gnu)
> of 2010-06-08 on sajida
>release_7.01g-53-g82218
>Org-mode version 7.01trans (release_7.01g.53.g82218.dirty)
But enters infitite loop with
Org-mode version 7.01trans (release_7.01h.88.gb8a0)
GNU Emacs 23.2.1 (i486-pc-linux-gnu, GTK+ Version 2.20.1)
of 2010-08-06 on murphy, modified by Debian
When C-c C-x C-r is called on the clocktable.
Backtrace of C-g attached.
HTH,
-- David
--
OpenPGP... 0x99ADB83B5A4478E6
Jabber.... address@hidden
Email..... address@hidden
Debugger entered--Lisp error: (quit)
outline-on-heading-p(t)
outline-back-to-heading(t)
outline-up-heading(1 t)
(while (> (funcall outline-level) 1) (outline-up-heading 1 t)
(put-text-property (point) (point-at-eol) :org-clock-force-headline-inclusion
t))
(progn (while (> ... 1) (outline-up-heading 1 t) (put-text-property ... ...
:org-clock-force-headline-inclusion t)))
(unwind-protect (progn (while ... ... ...)) (set-match-data
save-match-data-internal (quote evaporate)))
(let ((save-match-data-internal ...)) (unwind-protect (progn ...)
(set-match-data save-match-data-internal ...)))
(save-match-data (while (> ... 1) (outline-up-heading 1 t) (put-text-property
... ... :org-clock-force-headline-inclusion t)))
(save-excursion (save-match-data (while ... ... ...)))
(if headline-filter (save-excursion (save-match-data ...)))
(progn (if headline-included (loop for l from 0 to level do ...)) (setq time
(aref ltimes level)) (goto-char (match-beginning 0)) (put-text-property (point)
(point-at-eol) :org-clock-minutes time) (if headline-filter (save-excursion
...)))
(if (or headline-included headline-forced) (progn (if headline-included ...)
(setq time ...) (goto-char ...) (put-text-property ... ... :org-clock-minutes
time) (if headline-filter ...)))
(when (or headline-included headline-forced) (if headline-included (loop for
l from 0 to level do ...)) (setq time (aref ltimes level)) (goto-char
(match-beginning 0)) (put-text-property (point) (point-at-eol)
:org-clock-minutes time) (if headline-filter (save-excursion ...)))
(progn (when (or headline-included headline-forced) (if headline-included
...) (setq time ...) (goto-char ...) (put-text-property ... ...
:org-clock-minutes time) (if headline-filter ...)) (setq t1 0) (loop for l from
level to (1- lmax) do (aset ltimes l 0)))
(if (or (> t1 0) (> ... 0)) (progn (when ... ... ... ... ... ...) (setq t1 0)
(loop for l from level to ... do ...)))
(when (or (> t1 0) (> ... 0)) (when (or headline-included headline-forced)
(if headline-included ...) (setq time ...) (goto-char ...) (put-text-property
... ... :org-clock-minutes time) (if headline-filter ...)) (setq t1 0) (loop
for l from level to (1- lmax) do (aset ltimes l 0)))
(let* ((headline-forced ...) (headline-included ...)) (setq level (- ...
...)) (when (or ... ...) (when ... ... ... ... ... ...) (setq t1 0) (loop for l
from level to ... do ...)))
(cond ((match-end 2) (setq ts ... te ... ts ... te ... ts ... te ... dt ...
t1 ...)) ((match-end 4) (setq t1 ...)) (t (when ... ...) (let* ... ... ...)))
(while (re-search-backward re nil t) (cond (... ...) (... ...) (t ... ...)))
(save-excursion (goto-char (point-max)) (while (re-search-backward re nil t)
(cond ... ... ...)) (setq org-clock-file-total-minutes (aref ltimes 0)))
(let* ((bmp ...) (re ...) (lmax 30) (ltimes ...) (t1 0) (level 0) ts te dt
time) (if (stringp tstart) (setq tstart ...)) (if (stringp tend) (setq tend
...)) (if (consp tstart) (setq tstart ...)) (if (consp tend) (setq tend ...))
(remove-text-properties (point-min) (point-max) (quote ...)) (save-excursion
(goto-char ...) (while ... ...) (setq org-clock-file-total-minutes ...))
(set-buffer-modified-p bmp))
org-clock-sum(nil nil (lambda nil (let (...) (eval matcher))))
(if scope-is-list nil (org-clock-sum ts te (unless ... ...)) (goto-char
(point-min)) (setq st t) (while (or ... ...) (goto-char p) (when ... ...)))
(unless scope-is-list (org-clock-sum ts te (unless ... ...)) (goto-char
(point-min)) (setq st t) (while (or ... ...) (goto-char p) (when ... ...)))
(save-restriction (cond (...) (... ...) (... ...) (... ... ...) (... ... ...
...) (scope-is-list ...)) (goto-char pos) (unless scope-is-list (org-clock-sum
ts te ...) (goto-char ...) (setq st t) (while ... ... ...)) (setq tbl (nreverse
tbl)) (if tostring (if tbl ... nil) (goto-char ins) (insert-before-markers ...
... "|L|" ... "Headline|Time|\n") (setq total-time ...) (insert-before-markers
"|-\n|" ... ... "*Total time*| *" ... "*|\n|-\n") (setq tbl ...) (if ... ...)
(insert-before-markers ...) (backward-delete-char 1) (if ... ... ...)
(goto-char ipos) (skip-chars-forward "^|") (org-table-align) (when recalc ...
...) (when rm-file-column ... ...) total-time))
(let* ((hlchars ...) (ins ...) (total-time nil) (scope ...) (tostring ...)
(multifile ...) (header ...) (maxlevel ...) (step ...) (emph ...) (timestamp
...) (ts ...) (te ...) (block ...) (link ...) (tags ...) (matcher ...) ipos
time p level hlc hdl tsp props content recalc formula pcol cc beg end pos tbl
tbl1 range-text rm-file-column scope-is-list st) (setq
org-clock-file-total-minutes nil) (when step (unless ... ...)
(org-clocktable-steps params) (throw ... nil)) (when block (setq cc ... ts ...
te ... range-text ...)) (when (integerp ts) (setq ts ...)) (when (integerp te)
(setq te ...)) (when (and ts ...) (setq ts ...)) (when (and te ...) (setq te
...)) (if ts (setq ts ...)) (if te (setq te ...)) (move-marker ins (point))
(setq ipos (point)) (setq pos (point)) (cond (... ...) (... ...) (... ... ...)
(... ...)) (setq scope-is-list (and scope ...)) (save-restriction (cond ... ...
... ... ... ...) (goto-char pos) (unless scope-is-list ... ... ... ...) (setq
tbl ...) (if tostring ... ... ... ... ... ... ... ... ... ... ... ... ... ...
... total-time)))
(catch (quote exit) (let* (... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ... ... ipos time p level hlc hdl tsp props content recalc formula
pcol cc beg end pos tbl tbl1 range-text rm-file-column scope-is-list st) (setq
org-clock-file-total-minutes nil) (when step ... ... ...) (when block ...)
(when ... ...) (when ... ...) (when ... ...) (when ... ...) (if ts ...) (if te
...) (move-marker ins ...) (setq ipos ...) (setq pos ...) (cond ... ... ...
...) (setq scope-is-list ...) (save-restriction ... ... ... ... ...)))
org-dblock-write:clocktable((:name "clocktable" :maxlevel 8 :scope subtree
:tags "{DAILY}" :indentation-column 0 :content #("\n" 0 1 (fontified t))))
funcall(org-dblock-write:clocktable (:name "clocktable" :maxlevel 8 :scope
subtree :tags "{DAILY}" :indentation-column 0 :content #("\n" 0 1 (fontified
t))))
(let* ((pos ...) (line ...) (params ...) (name ...) (indent ...) (cmd ...))
(message "Updating dynamic block `%s' at line %d..." name line) (funcall cmd
params) (message "Updating dynamic block `%s' at line %d...done" name line)
(goto-char pos) (when (and indent ...) (setq indent ...) (save-excursion ...
... ... ...)))
(save-window-excursion (let* (... ... ... ... ... ...) (message "Updating
dynamic block `%s' at line %d..." name line) (funcall cmd params) (message
"Updating dynamic block `%s' at line %d...done" name line) (goto-char pos)
(when ... ... ...)))
org-update-dblock()
org-clock-report(nil)
call-interactively(org-clock-report nil nil)
pgpFyA5vw9x0I.pgp
Description: PGP signature