[elpa] externals/transient 1c6afb817f 061/366: Teach the mode-related suffix predicates about lists of modes

[Jonas Bernoulli]

branch: externals/transient
commit 1c6afb817fb357ccaa01d3529a13d61c155de9c8
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@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