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.domi...@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



_______________________________________________
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode

Reply via email to