ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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.
This commit is contained in:
Bastien Guerry 2013-01-03 13:22:05 +01:00
parent 3f4ad90975
commit 7716b9c890
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/org-mobile.el
View File

@ -420,7 +420,8 @@ agenda view showing the flagged items."
(target-file (expand-file-name org-mobile-index-file (target-file (expand-file-name org-mobile-index-file
org-mobile-directory)) org-mobile-directory))
file link-name todo-kwds done-kwds tags drawers entry kwds dwds twds) 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)) (org-agenda-prepare-buffers (mapcar 'car files-alist))
(setq done-kwds (org-uniquify org-done-keywords-for-agenda)) (setq done-kwds (org-uniquify org-done-keywords-for-agenda))
(setq todo-kwds (org-delete-all (setq todo-kwds (org-delete-all