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.

diff --git a/lisp/org-mobile.el b/lisp/org-mobile.el
index 052ab42..f5c8d1c 100644 (file)
--- a/lisp/org-mobile.el
+++ b/lisp/org-mobile.el
@@ -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