forked from mirrors/org-mode
org-mobile: Fix TODO keywords generation
* lisp/org-mobile.el (org-mobile-create-index-file): Call `org-delete-all' later since it is a destructive operation. Reported-by: Ian Dunn <dunni@gnu.org> <http://permalink.gmane.org/gmane.emacs.orgmode/107900>
This commit is contained in:
parent
5485170263
commit
bffa144f54
|
@ -441,15 +441,16 @@ agenda view showing the flagged items."
|
|||
target-file)
|
||||
(insert "#+READONLY\n")
|
||||
(dolist (entry def-todo)
|
||||
(let* ((kwds (mapcar (lambda (x) (if (string-match "(" x)
|
||||
(let ((kwds (mapcar (lambda (x)
|
||||
(if (string-match "(" x)
|
||||
(substring x 0 (match-beginning 0))
|
||||
x))
|
||||
(cdr entry)))
|
||||
(dwds (or (member "|" kwds) (last kwds)))
|
||||
(cdr entry))))
|
||||
(insert "#+TODO: " (mapconcat #'identity kwds " ") "\n")
|
||||
(let* ((dwds (or (member "|" kwds) (last kwds)))
|
||||
(twds (org-delete-all dwds kwds)))
|
||||
(insert "#+TODO: " (mapconcat 'identity kwds " ") "\n")
|
||||
(setq todo-kwds (org-delete-all twds todo-kwds))
|
||||
(setq done-kwds (org-delete-all dwds done-kwds))))
|
||||
(setq done-kwds (org-delete-all dwds done-kwds)))))
|
||||
(when (or todo-kwds done-kwds)
|
||||
(insert "#+TODO: " (mapconcat 'identity todo-kwds " ") " | "
|
||||
(mapconcat 'identity done-kwds " ") "\n"))
|
||||
|
|
Loading…
Reference in a new issue