org-mobile.el (org-mobile-create-index-file): Possibly normalize `org-todo-keywords'
authorBastien Guerry <bzg@altern.org>
Thu, 3 Jan 2013 12:22:05 +0000 (13:22 +0100)
committerBastien Guerry <bzg@altern.org>
Thu, 3 Jan 2013 12:22:05 +0000 (13:22 +0100)
* org-mobile.el (org-mobile-create-index-file): Possibly
normalize `org-todo-keywords'.

Thanks to Ben Finney (and others) for reporting this.

lisp/org-mobile.el

index 052ab42..f5c8d1c 100644 (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