[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org bfd63cc4f2 1/3: org: Improve org-todo handling of n
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org bfd63cc4f2 1/3: org: Improve org-todo handling of negative prefix args |
Date: |
Sat, 18 Jun 2022 02:58:02 -0400 (EDT) |
branch: externals/org
commit bfd63cc4f2ab12e45b3aeaa38b847b138107fd1a
Author: Allen Li <darkfeline@felesatra.moe>
Commit: Ihor Radchenko <yantar92@gmail.com>
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 32ce445ff3..3e9e146b4f 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -8901,7 +8901,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)