org-mobile.el (org-mobile-create-index-file): Possibly normalize `org-todo-keywords'

* org-mobile.el (org-mobile-create-index-file): Possibly
normalize `org-todo-keywords'.

Thanks to Ben Finney (and others) for reporting this.
This commit is contained in:
Bastien Guerry 2013-01-03 13:22:05 +01:00
parent 3f4ad90975
commit 7716b9c890

View file

@ -420,7 +420,8 @@ agenda view showing the flagged items."
(target-file (expand-file-name org-mobile-index-file
org-mobile-directory))
file link-name todo-kwds done-kwds tags drawers entry kwds dwds twds)
(when (stringp (car def-todo))
(setq def-todo (list (cons 'sequence def-todo))))
(org-agenda-prepare-buffers (mapcar 'car files-alist))
(setq done-kwds (org-uniquify org-done-keywords-for-agenda))
(setq todo-kwds (org-delete-all