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

[Carsten Dominik <dominik@uva.nl>]

Fixed, thanks

- Carsten

On Apr 16, 2010, at 9:15 PM, Bernt Hansen wrote:

> 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 <dominik@uva.nl> 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 <dominik@uva.nl> 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.
>> Emacs-orgmode@gnu.org
>> http://lists.gnu.org/mailman/listinfo/emacs-orgmode

- Carsten