tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

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>
This commit is contained in:
Nicolas Goaziou 2016-02-21 16:28:15 +01:00
parent 7125fa1947
commit 28d3e729e4
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lisp/org-mobile.el
View File

@ -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))