[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[O] [PATCH] org.el (org-todo): Respect state argument when called from e
From: |
Renato Ferreira |
Subject: |
[O] [PATCH] org.el (org-todo): Respect state argument when called from elisp |
Date: |
Fri, 16 Aug 2019 11:44:38 -0300 |
(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>
- [O] [PATCH] org.el (org-todo): Respect state argument when called from elisp,
Renato Ferreira <=