emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[O] [PATCH] org-mobile: Tiny fix in creating index.org file


From: Sergey Gordienko
Subject: [O] [PATCH] org-mobile: Tiny fix in creating index.org file
Date: Fri, 26 Jun 2015 17:44:20 +0300

* lisp/org-mobile.el (org-mobile-create-index-file):
Eliminate cloning of `#+READONLY' property in the `index.org' file.
A sublists of `org-todo-keywords' don't need to contain the `|'.

TINYCHANGE
---
 lisp/org-mobile.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/org-mobile.el b/lisp/org-mobile.el
index 2c13802..293de79 100644
--- a/lisp/org-mobile.el
+++ b/lisp/org-mobile.el
@@ -439,14 +439,14 @@ agenda view showing the flagged items."
        (if org-mobile-use-encryption
            org-mobile-encryption-tempfile
          target-file)
+      (insert "#+READONLY\n")
       (while (setq entry (pop def-todo))
-       (insert "#+READONLY\n")
        (setq kwds (mapcar (lambda (x) (if (string-match "(" x)
                                           (substring x 0 (match-beginning 0))
                                         x))
                           (cdr entry)))
        (insert "#+TODO: " (mapconcat 'identity kwds " ") "\n")
-       (setq dwds (member "|" kwds)
+       (setq dwds (or (member "|" kwds) (last kwds))
              twds (org-delete-all dwds kwds)
              todo-kwds (org-delete-all twds todo-kwds)
              done-kwds (org-delete-all dwds done-kwds)))
-- 
1.9.5 (Apple Git-50.3)




reply via email to

[Prev in Thread] Current Thread [Next in Thread]