org-mobile.el: Fix org-mobile-push with custom functions

2011-07-08 08:30:31 +02:00 · 2011-07-08 08:30:31 +02:00 · dc59011473
parent f305a6f81a
commit dc59011473
1 changed files with 3 additions and 2 deletions
--- 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 "</after>"))
 		    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