Re: Help debugging a problem when saving org-agenda files with C-x s

[Carsten Dominik <carsten.dominik@gmail.com>]

Did you restart Emacs?  My idea was that the first time you call this,  
you change the file name of a buffer, and the second time the problem  
happens.

- Carsten

On May 14, 2009, at 6:43 PM, Tassilo Horn wrote:

> Carsten Dominik <carsten.dominik@gmail.com> writes:
>
> Hi Carsten,
>
>>> --8<---------------cut here---------------start------------->8---
>>> (defun th-org-mode-init ()
>>> (add-hook 'after-save-hook 'th-org-update-agenda-file t t))
>>>
>>> (add-hook 'org-mode-hook 'th-org-mode-init)
>>>
>>> ;; TODO: This errors when calling C-x s after modifying things in  
>>> the agenda.
>>> (defun th-org-update-agenda-file (&optional force)
>>> (interactive)
>>> (when (and (eq major-mode 'org-mode)
>>>            (member buffer-file-name org-agenda-files))
>>>   (save-excursion
>>>     (save-window-excursion
>>>       (let ((file "/tmp/org-agenda.txt"))
>>>         (org-agenda-list)
>>>         (org-write-agenda file))))))
>>> --8<---------------cut here---------------end--------------->8---
>>>
>>> This works fine when I save an agenda file while in its buffer, but
>>> when I edit the file via agenda commands and hit `C-x s', I'm asked
>>> if I want to save "/home/horn/repos/org/uni.org" and say yes, I get
>>> this error:
>>
>> This probably happens because you are relying on org-agenda-list  
>> which
>> is supposed to display the agenda window and in this way set the
>> selected window and buffer.  In non-interactive use, the buffer is
>> created, but display is delayed until after the next idle moment.
>>
>> Not tested, but this may help:
>>
>> Replace (org-agenda-write) with this:
>>
>> (with-current-buffer org-agenda-buffer-name (org-write-agenda file))
>
> No, I'm sorry.  I still get the error, and it's already triggered in  
> the
> call to `org-agenda-list' before `org-write-agenda' is called.  The
> error is thrown in `org-agenda-get-day-entries'.
>
> Bye,
> Tassilo