From 28d3e729e48414410009831d2aa9aae95d13e3c4 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sun, 21 Feb 2016 16:28:15 +0100 Subject: [PATCH] org-mobile: Fix Wrong type argument: sequencep, :startgrouptag * lisp/org-mobile.el (org-mobile-create-index-file): Handle group tags. Reported-by: John Hutchinson --- lisp/org-mobile.el | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) diff --git a/lisp/org-mobile.el b/lisp/org-mobile.el index e6709e457..2c8b852e0 100644 --- a/lisp/org-mobile.el +++ b/lisp/org-mobile.el @@ -454,14 +454,16 @@ agenda view showing the flagged items." (insert "#+TODO: " (mapconcat 'identity todo-kwds " ") " | " (mapconcat 'identity done-kwds " ") "\n")) (setq def-tags (mapcar - (lambda (x) - (cond ((null x) nil) - ((stringp x) x) - ((eq (car x) :startgroup) "{") - ((eq (car x) :endgroup) "}") - ((eq (car x) :grouptags) nil) - ((eq (car x) :newline) nil) - ((listp x) (car x)))) + (lambda (tag) + (cl-case (car tag) + ((nil) nil) + (:startgroup "{") + (:endgroup "}") + (:startgrouptag "[") + (:endgrouptag "]") + (:grouptags ":") + (:newline nil) + (t (car tag)))) def-tags)) (setq def-tags (delq nil def-tags)) (setq tags (org-delete-all def-tags tags))