branch: externals/transient
commit 1c6afb817fb357ccaa01d3529a13d61c155de9c8
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>
Teach the mode-related suffix predicates about lists of modes
---
lisp/transient.el | 16 ++++++++++++----
1 file changed, 12 insertions(+), 4 deletions(-)
diff --git a/lisp/transient.el b/lisp/transient.el
index cfe997394a..95ae0a0ad4 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -1459,10 +1459,18 @@ EDIT may be non-nil."
(if-not (not (funcall if-not)))
(if-non-nil (symbol-value if-non-nil))
(if-nil (not (symbol-value if-nil)))
- (if-mode (eq major-mode if-mode))
- (if-not-mode (not (eq major-mode if-not-mode)))
- (if-derived (derived-mode-p if-derived))
- (if-not-derived (not (derived-mode-p if-not-derived)))
+ (if-mode (if (atom if-mode)
+ (eq major-mode if-mode)
+ (memq major-mode if-mode)))
+ (if-not-mode (not (if (atom if-not-mode)
+ (eq major-mode if-not-mode)
+ (memq major-mode if-not-mode))))
+ (if-derived (if (atom if-derived)
+ (derived-mode-p if-derived)
+ (apply #'derived-mode-p if-derived)))
+ (if-not-derived (not (if (atom if-not-derived)
+ (derived-mode-p if-not-derived)
+ (apply #'derived-mode-p if-not-derived))))
(t))))
;;; Flow-Control
