From 1dfa77dee4f1c94c03875bc9522c808f10f58f8b Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Mon, 17 Nov 2014 17:41:31 +0100 Subject: [PATCH] Fix order of TODO keywords with S-right MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * lisp/org.el (org-set-regexps-and-options): Fix order of TODO keywords with S-right. Thanks to Sébastien Vauban for reporting it. --- lisp/org.el | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 1f33d2a80..aaa09d84a 100755 --- a/lisp/org.el +++ b/lisp/org.el @@ -5008,12 +5008,11 @@ related expressions." (org-set-local 'org-todo-sets nil) (org-set-local 'org-todo-log-states nil) (let ((todo-sequences - (reverse - (or (cdr (assq 'todo alist)) - (let ((d (default-value 'org-todo-keywords))) - (if (not (stringp (car d))) d - ;; XXX: Backward compatibility code. - (list (cons org-todo-interpretation d)))))))) + (or (nreverse (cdr (assq 'todo alist))) + (let ((d (default-value 'org-todo-keywords))) + (if (not (stringp (car d))) d + ;; XXX: Backward compatibility code. + (list (cons org-todo-interpretation d))))))) (dolist (sequence todo-sequences) (let* ((sequence (or (run-hook-with-args-until-success 'org-todo-setup-filter-hook sequence)