tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

org-mobile: Tiny fix in creating index.org file

Browse source 
* 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
This commit is contained in:
Sergey Gordienko 2015-06-26 17:44:20 +03:00 committed by Nicolas Goaziou
parent 5f3d8037a5
commit c15db80e32
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/org-mobile.el
View file

@ -439,14 +439,14 @@ agenda view showing the flagged items."
(if org-mobile-use-encryption
org-mobile-encryption-tempfile
target-file)
(while (setq entry (pop def-todo))
(insert "#+READONLY\n")
(while (setq entry (pop def-todo))
(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)))