Hello, I use `org-agenda-to-appt' this way: --8<---------------cut here---------------start------------->8--- (org-agenda-to-appt t '((headline "TODO"))) --8<---------------cut here---------------end--------------->8--- But this works only with the following patch: --8<---------------cut here---------------start------------->8--- === modified file 'lisp/org/org-agenda.el' --- lisp/org/org-agenda.el 2011-09-02 16:38:40 +0000 +++ lisp/org/org-agenda.el 2011-10-23 19:43:51 +0000 @@ -8415,10 +8415,12 @@ (ok (or (null filter) (and (stringp filter) (string-match filter evt)) (and (listp filter) - (or (string-match - (cadr (assoc 'category filter)) cat) - (string-match - (cadr (assoc 'headline filter)) evt)))))) + (let ((cat-filter (cadr (assoc 'category filter))) + (evt-filter (cadr (assoc 'headline filter)))) + (or (or (eq cat-filter nil) + (string-match cat-filter cat)) + (or (eq evt-filter nil) + (string-match evt-filter evt)))))))) ;; FIXME: Shall we remove text-properties for the appt text? ;; (setq evt (set-text-properties 0 (length evt) nil evt)) (when (and ok tod) --8<---------------cut here---------------end--------------->8--- -- Peter
Hello, The following patch replaces the previous one: --8<---------------cut here---------------start------------->8--- === modified file 'lisp/org/org-agenda.el' --- lisp/org/org-agenda.el 2011-09-02 16:38:40 +0000 +++ lisp/org/org-agenda.el 2011-10-23 20:03:11 +0000 @@ -8415,10 +8415,12 @@ (ok (or (null filter) (and (stringp filter) (string-match filter evt)) (and (listp filter) - (or (string-match - (cadr (assoc 'category filter)) cat) - (string-match - (cadr (assoc 'headline filter)) evt)))))) + (let ((cat-filter (cadr (assoc 'category filter))) + (evt-filter (cadr (assoc 'headline filter)))) + (or (and (stringp cat-filter) + (string-match cat-filter cat)) + (and (stringp evt-filter) + (string-match evt-filter evt)))))))) ;; FIXME: Shall we remove text-properties for the appt text? ;; (setq evt (set-text-properties 0 (length evt) nil evt)) (when (and ok tod) --8<---------------cut here---------------end--------------->8--- Sorry for the noise... -- Peter
Hi Peter, pmlists@free.fr (Peter Münster) writes: > The following patch replaces the previous one: The patch is correct, thanks. Could you send it using git format-patch, taking care of adding a small ChangeLog for this? Since it is a small change, please add TINYCHANGE at the end of your commit message. Please read http://orgmode.org/worg/org-contribute.html if you have any question. It makes things way easier for me! Thanks a lot, -- Bastien