diff options
author | Bastien Guerry <bzg@altern.org> | 2013-01-03 13:22:05 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2013-01-03 13:22:05 +0100 |
commit | 7716b9c890061514541e040f7f5fbd67e0dccd00 (patch) | |
tree | 662d1b5f8a225e32752f826466269544e859d9e4 | |
parent | 3f4ad90975ec6ec3f23d7463a9203fdb898092a4 (diff) | |
download | 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.el | 3 |
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 |