Re: [Orgmode] bug in dynamic block for clock table using :tags

[David Maus]

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