From 7716b9c890061514541e040f7f5fbd67e0dccd00 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Thu, 3 Jan 2013 13:22:05 +0100 Subject: [PATCH] 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. --- lisp/org-mobile.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/org-mobile.el b/lisp/org-mobile.el index 052ab426f..f5c8d1c60 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