[O] [PATCH] org.el (org-todo): Respect state argument when called from elisp

[Renato Ferreira]

(org-todo): Fast selection should only be shown if a state argument was not used
* list/org.el (org-todo): Respect argument when called from elisp
when calling from elisp (such as in `org-clock-in').

TINYCHANGE
---
 lisp/org.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lisp/org.el b/lisp/org.el
index 2451273e0..1b91adc18 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -10100,9 +10100,6 @@ When called through ELisp, arg is also interpreted in 
the following way:
                                            (length tail) 2)
                                         org-todo-keywords-1)
                                  (org-last org-todo-keywords-1))))
-                            ((and org-todo-key-trigger 
org-use-fast-todo-selection)
-                             ;; Use fast selection.
-                             (org-fast-todo-selection this))
                             (arg
                              ;; User or caller requests a specific state.
                              (cond
@@ -10121,7 +10118,9 @@ When called through ELisp, arg is also interpreted in 
the following way:
                                (user-error "State `%s' not valid in this file" 
arg))
                               ((nth (1- (prefix-numeric-value arg))
                                     org-todo-keywords-1))))
+                            ((and org-todo-key-trigger 
org-use-fast-todo-selection)
+                             ;; Use fast selection.
+                             (org-fast-todo-selection this))
                             ((null member) (or head (car org-todo-keywords-1)))
                             ((equal this final-done-word) nil) ;-> make empty
                             ((null tail) nil) ;-> first entry
--
2.22.1

Message-ID: <address@hidden>