[Orgmode] Re: Support (or not) for Emacs 21, and XEmacs

[Bernt Hansen]

Another bug.

Attempting to get a clock report in the agenda.  (R in the daily agenda)

-Bernt

Debugger entered--Lisp error: (void-function org-dblock-write:)
  org-dblock-write:((:name nil :link nil :maxlevel 2 :tstart 733878 :tend 
733879 :scope agenda :indentation-column 0 :content "\n"))
  funcall(org-dblock-write: (:name nil :link nil :maxlevel 2 :tstart 733878 
:tend 733879 :scope agenda :indentation-column 0 :content "\n"))
  (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()
  (save-current-buffer (set-buffer temp-buffer) (org-mode) (org-create-dblock 
props) (org-update-dblock) (font-lock-fontify-buffer) (forward-line 2) 
(buffer-substring (point) (progn ... ...)))
  (with-current-buffer temp-buffer (org-mode) (org-create-dblock props) 
(org-update-dblock) (font-lock-fontify-buffer) (forward-line 2) 
(buffer-substring (point) (progn ... ...)))
  (unwind-protect (with-current-buffer temp-buffer (org-mode) 
(org-create-dblock props) (org-update-dblock) (font-lock-fontify-buffer) 
(forward-line 2) (buffer-substring ... ...)) (and (buffer-name temp-buffer) 
(kill-buffer temp-buffer)))
  (let ((temp-buffer ...)) (unwind-protect (with-current-buffer temp-buffer ... 
... ... ... ... ...) (and ... ...)))
  (with-temp-buffer (org-mode) (org-create-dblock props) (org-update-dblock) 
(font-lock-fontify-buffer) (forward-line 2) (buffer-substring (point) (progn 
... ...)))
  org-get-clocktable(:link nil :maxlevel 2 :tstart 733878 :tend 733879 :scope 
agenda)
  apply(org-get-clocktable (:link nil :maxlevel 2 :tstart 733878 :tend 733879 
:scope agenda))
  (setq tbl (apply (quote org-get-clocktable) p))
  (let ((org-agenda-files ...) (p org-agenda-clockreport-parameter-plist) tbl) 
(setq p (org-plist-delete p :block)) (setq p (plist-put p :tstart 
clocktable-start)) (setq p (plist-put p :tend clocktable-end)) (setq p 
(plist-put p :scope ...)) (setq tbl (apply ... p)) (insert tbl))
  (progn (let (... ... tbl) (setq p ...) (setq p ...) (setq p ...) (setq p ...) 
(setq tbl ...) (insert tbl)))
  (if (and org-agenda-clockreport-mode clocktable-start) (progn (let ... ... 
... ... ... ... ...)))
  (when (and org-agenda-clockreport-mode clocktable-start) (let (... ... tbl) 
(setq p ...) (setq p ...) (setq p ...) (setq p ...) (setq tbl ...) (insert 
tbl)))
  (let* ((org-agenda-start-on-weekday ...) (thefiles ...) (files thefiles) 
(today ...) (sd ...) (start ...) (day-numbers ...) (day-cnt 0) 
(inhibit-redisplay ...) s e rtn rtnall file date d start-pos end-pos todayp nd 
wd clocktable-start clocktable-end) (setq org-agenda-redo-command (list ... ... 
start-day ndays)) (setq ndays (or ndays org-agenda-ndays) nd ndays) (while (> 
ndays 1) (push ... day-numbers) (setq ndays ...)) (setq day-numbers (nreverse 
day-numbers)) (setq clocktable-start (car day-numbers) clocktable-end (1+ ...)) 
(org-prepare-agenda "Day/Week") (org-set-local (quote org-starting-day) (car 
day-numbers)) (org-set-local (quote org-include-all-loc) include-all) 
(org-set-local (quote org-agenda-span) (org-agenda-ndays-to-span nd)) (when 
(and ... ...) (setq files thefiles rtnall nil) (while ... ...) (when rtnall ... 
... ... ...)) (unless org-agenda-compact-blocks (let* ... ... ...) 
(add-text-properties s ... ...) (org-agenda-mark-header-line s)) (while (setq d 
...) (setq date ... wd ... s ...) (if ... ... ...) (setq files thefiles rtnall 
nil) (while ... ...) (if org-agenda-include-diary ...) (if ... ...)) (when (and 
org-agenda-clockreport-mode clocktable-start) (let ... ... ... ... ... ... 
...)) (goto-char (point-min)) (or org-agenda-multi (org-fit-agenda-window)) 
(unless (and ... ...) (goto-char ...) (recenter -1) (if ... ...)) (goto-char 
(or start-pos 1)) (add-text-properties (point-min) (point-max) (quote ...)) 
(org-finalize-agenda) (setq buffer-read-only t) (message ""))
  org-agenda-list(nil nil 1)
  eval((org-agenda-list (quote nil) nil 1))
  (let nil (eval org-agenda-redo-command))
  eval((let nil (eval org-agenda-redo-command)))
  org-let(nil (eval org-agenda-redo-command))
  (let* ((org-agenda-keep-modes t) (filter org-agenda-filter) (preset ...) 
(cols org-agenda-columns-active) (line ...) (window-line ...) (lprops ...)) 
(put (quote org-agenda-filter) :preset-filter nil) (and cols 
(org-columns-quit)) (message "Rebuilding agenda buffer...") (org-let lprops 
(quote ...)) (setq org-agenda-undo-list nil org-agenda-pending-undo-list nil) 
(message "Rebuilding agenda buffer...done") (put (quote org-agenda-filter) 
:preset-filter preset) (and (or filter preset) (org-agenda-filter-apply 
filter)) (and cols (interactive-p) (org-agenda-columns)) (org-goto-line line) 
(recenter window-line))
  org-agenda-redo()
  org-agenda-clockreport-mode()
  call-interactively(org-agenda-clockreport-mode)


Carsten Dominik <address@hidden> writes:

> On Apr 16, 2010, at 4:42 PM, Bernt Hansen wrote:
>
>> Thanks.  I'll beat on it some more :)
>
> What a team! :-)
>
>>
>> Regards,
>> Bernt
>>
>> Carsten Dominik <address@hidden> writes:
>>
>>> Hi Bernt, thanks a lot for this report - I believe I know
>>> what was causing this and have fixed it, still on that branch of
>>> course.
>>>
>>> - Carsten
>>>
>>> On Apr 16, 2010, at 3:13 PM, Bernt Hansen wrote:
>>>
>>>> Found a bug.
>>>>
>>
>> <snip>
>>
>>>> Clocking in doesn't work correctly.
>>>>
>>>> I have a task like this
>>>>
>>>> ,----[ x.org ]
>>>> | * TODO foo
>>>> |   :CLOCK:
>>>> |   CLOCK: [2010-04-16 Fri 09:10]--[2010-04-16 Fri 09:11] =>  0:01
>>>> |   :END:
>>>> |
>>>> | ** TODO Bar baz
>>>> |    [2010-04-16 Fri 09:10]
>>>> `----
>>>>
>>>> if the parent task is clocking I can't clock in the subtask - the
>>>> parent
>>>> task continues to clock and the point is moved to the headline of
>>>> the
>>>> parent task.  Same behaviour on both versions.
>>>>
>>>> Switching back to master until this is fixed since I can't function
>>>> without working clocking :)
>
> - Carsten
>
>
>
>
>
> _______________________________________________
> Emacs-orgmode mailing list
> Please use `Reply All' to send replies to the list.
> address@hidden
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode