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