From dc59011473063715619d59c915de2ebae8325005 Mon Sep 17 00:00:00 2001 From: Tassilo Horn Date: Fri, 8 Jul 2011 08:30:31 +0200 Subject: [PATCH] org-mobile.el: Fix org-mobile-push with custom functions --- lisp/org-mobile.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/org-mobile.el b/lisp/org-mobile.el index 7582d0124..2e818e647 100644 --- a/lisp/org-mobile.el +++ b/lisp/org-mobile.el @@ -575,8 +575,9 @@ The table of checksums is written to the file mobile-checksums." " " match "")) settings)) (push (list type match settings) new)) - ((symbolp (nth 2 e)) - ;; A user-defined function, not sure how to handle that yet + ((or (functionp (nth 2 e)) (symbolp (nth 2 e))) + ;; A user-defined function, which can do anything, so simply + ;; ignore it. ) (t ;; a block agenda