diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b029b8e7d..4d82f27bc 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -5,6 +5,8 @@ (org-mobile-inbox-for-pull): Document the best location for this file. (org-mobile-check-setup): Verify `org-directory'. + (org-mobile-create-index-file): Sort the files to be listed in + index.org. 2009-10-17 Carsten Dominik diff --git a/lisp/org-mobile.el b/lisp/org-mobile.el index 113e1a922..c5291f743 100644 --- a/lisp/org-mobile.el +++ b/lisp/org-mobile.el @@ -261,7 +261,8 @@ agenda view showing the flagged items." (defun org-mobile-create-index-file () "Write the index file in the WebDAV directory." - (let ((files-alist org-mobile-files-alist) + (let ((files-alist (sort (copy-sequence org-mobile-files-alist) + (lambda (a b) (string< (cdr a) (cdr b))))) (def-todo (default-value 'org-todo-keywords)) (def-tags (default-value 'org-tag-alist)) file link-name todo-kwds done-kwds tags drawers entry kwds dwds twds)