mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/emacs-lisp/cond-star.el (pcase*): New dummy definition.

Browse source
This commit is contained in:
Sean Whitton 2025-11-25 14:22:58 +00:00
parent 3f6c7d1bfb
commit 1844ce4a0f
1 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/emacs-lisp/cond-star.el
View file

@ -93,7 +93,7 @@ are passed along to the rest of the clauses in this `cond*' construct.
;; FIXME: Want an Edebug declaration.
(cond*-convert clauses))
;; The following three macros are autoloaded for the sake of syntax
;; The following four macros are autoloaded for the sake of syntax
;; highlighting.
;;;###autoload
@ -169,7 +169,7 @@ ATOM (meaning any other kind of non-list not described above)
It is not really a Lisp function, and it is meaningful
only in the CONDITION of a `cond*' clause."
;; FIXME: `byte-compile-warn-x' is not necessarily defined here.
(byte-compile-warn-x bindings "`bind' used other than as a `cond*' condition"))
(byte-compile-warn-x bindings "`bind*' used other than as a `cond*' condition"))
;;;###autoload
(defmacro bind-and* (&rest bindings)
@ -179,6 +179,14 @@ only in the CONDITION of a `cond*' clause."
;; FIXME: `byte-compile-warn-x' is not necessarily defined here.
(byte-compile-warn-x bindings "`bind-and*' used other than as a `cond*' condition"))
;;;###autoload
(defmacro pcase* (pattern _datum)
"This macro evaluates BINDINGS like `pcase-let'.
It is not really a Lisp function, and it is meaningful
only in the CONDITION of a `cond*' clause."
;; FIXME: `byte-compile-warn-x' is not necessarily defined here.
(byte-compile-warn-x pattern "`pcase*' used other than as a `cond*' condition"))
(defun cond*-non-exit-clause-p (clause)
"If CLAUSE, a cond* clause, is a non-exit clause, return t."
(or (null (cdr-safe clause)) ;; clause has only one element.