From bffa144f540471983bc77b1dad433f105571cef6 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Fri, 24 Jun 2016 09:16:39 +0200 Subject: [PATCH] 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 --- lisp/org-mobile.el | 19 ++++++++++--------- 1 file changed, 10 insertions(+), 9 deletions(-) diff --git a/lisp/org-mobile.el b/lisp/org-mobile.el index 9c691288a..986499c49 100644 --- a/lisp/org-mobile.el +++ b/lisp/org-mobile.el @@ -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) - (substring x 0 (match-beginning 0)) - x)) - (cdr entry))) - (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)))) + (let ((kwds (mapcar (lambda (x) + (if (string-match "(" x) + (substring x 0 (match-beginning 0)) + x)) + (cdr entry)))) + (insert "#+TODO: " (mapconcat #'identity kwds " ") "\n") + (let* ((dwds (or (member "|" kwds) (last kwds))) + (twds (org-delete-all dwds kwds))) + (setq todo-kwds (org-delete-all twds todo-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"))