try

magit · Oct 16, 2024 · 08aa192 · 08aa192
1 parent 45a77c5
commit 08aa192
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/lisp/transient.el b/lisp/transient.el
@@ -85,6 +85,12 @@ similar defect.") :emergency))
 (defvar Man-notify-method)
 (defvar pp-default-function) ; since Emacs 29.1
 
+(when (< emacs-major-version 28)
+  (pcase-defmacro cl-type (type)
+    "Pcase pattern that matches objects of TYPE.
+TYPE is a type descriptor as accepted by `cl-typep', which see."
+    `(pred (cl-typep _ ',type))))
+
 (defmacro transient--with-emergency-exit (id &rest body)
   (declare (indent defun))
   (unless (keywordp id)