ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix order of TODO keywords with S-right 

* 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-sets nil)
(org-set-local 'org-todo-log-states nil) (org-set-local 'org-todo-log-states nil)
(let ((todo-sequences (let ((todo-sequences
(reverse (or (nreverse (cdr (assq 'todo alist)))
(or (cdr (assq 'todo alist)) (let ((d (default-value 'org-todo-keywords)))
(let ((d (default-value 'org-todo-keywords))) (if (not (stringp (car d))) d
(if (not (stringp (car d))) d ;; XXX: Backward compatibility code.
;; XXX: Backward compatibility code. (list (cons org-todo-interpretation d)))))))
(list (cons org-todo-interpretation d))))))))
(dolist (sequence todo-sequences) (dolist (sequence todo-sequences)
(let* ((sequence (or (run-hook-with-args-until-success (let* ((sequence (or (run-hook-with-args-until-success
'org-todo-setup-filter-hook sequence) 'org-todo-setup-filter-hook sequence)