summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2013-01-03 12:22:05 (GMT)
committer Bastien Guerry <bzg@altern.org>2013-01-03 12:22:05 (GMT)
commit7716b9c890061514541e040f7f5fbd67e0dccd00 (patch)
tree662d1b5f8a225e32752f826466269544e859d9e4
parent3f4ad90975ec6ec3f23d7463a9203fdb898092a4 (diff)
downloadorg-mode-7716b9c890061514541e040f7f5fbd67e0dccd00.zip
org-mode-7716b9c890061514541e040f7f5fbd67e0dccd00.tar.gz
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.
-rw-r--r--lisp/org-mobile.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/org-mobile.el b/lisp/org-mobile.el
index 052ab42..f5c8d1c 100644
--- 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