mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 18:36:26 +00:00
Code Releases Activity

Fix order of TODO keywords with S-right

Browse source 
* lisp/org.el (org-set-regexps-and-options): Fix order of TODO
  keywords with S-right.

Thanks to Sébastien Vauban for reporting it.
<http://permalink.gmane.org/gmane.emacs.orgmode/92708>
This commit is contained in:
Nicolas Goaziou 2014-11-17 17:41:31 +01:00
parent 919722a6a6
commit 1dfa77dee4
1 changed files with 5 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/org.el
View file

@ -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)