diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-02-21 16:28:15 +0100 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-02-26 16:34:53 +0100 |
commit | 28d3e729e48414410009831d2aa9aae95d13e3c4 (patch) | |
tree | 808d92566269cd7598838f1764f09460b424b040 | |
parent | 7125fa194757081b865e135066644d00ae2bd950 (diff) | |
download | org-mode-28d3e729e48414410009831d2aa9aae95d13e3c4.tar.gz |
org-mobile: Fix Wrong type argument: sequencep, :startgrouptag
* lisp/org-mobile.el (org-mobile-create-index-file): Handle group tags.
Reported-by: John Hutchinson <johnrhutchinson@att.net>
<http://permalink.gmane.org/gmane.emacs.orgmode/105033>
-rw-r--r-- | lisp/org-mobile.el | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/lisp/org-mobile.el b/lisp/org-mobile.el index e6709e4..2c8b852 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)) |