From 16ff89c309b8bd9aa11183cc9620c56ed96e3ff7 Mon Sep 17 00:00:00 2001 From: Allen Li Date: Sat, 1 Jan 2022 01:38:35 -0800 Subject: [PATCH] org: Improve org-todo handling of negative prefix args * lisp/org.el (org-todo): Handle -1 prefix args consistently and error on other negative args. --- lisp/org.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/org.el b/lisp/org.el index e2f315a4c..6b48f660e 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -9785,7 +9785,8 @@ When called through ELisp, arg is also interpreted in the following way: nil cl (when (org-invisible-p) (org-end-of-subtree nil t)))) (when (equal arg '(16)) (setq arg 'nextset)) - (when (equal arg -1) (org-cancel-repeater) (setq arg nil)) + (when (equal (prefix-numeric-value arg) -1) (org-cancel-repeater) (setq arg nil)) + (when (< (prefix-numeric-value arg) -1) (user-error "Prefix argument %d not supported" arg)) (let ((org-blocker-hook org-blocker-hook) commentp case-fold-search) -- 2.34.1