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

; * lisp/emacs-lisp/cond-star.el: Tidy up dummy macro definitions.

Browse source
This commit is contained in:
Sean Whitton 2025-11-25 20:30:21 +00:00
parent 449e15de5b
commit 39e9f96ba0
1 changed files with 23 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -97,10 +97,10 @@ are passed along to the rest of the clauses in this `cond*' construct.
;; highlighting.
;;;###autoload
(defmacro match* (pattern _datum)
(defmacro match* (_pattern _datum)
"This specifies matching DATUM against PATTERN.
It is not really a Lisp function, and it is meaningful
only in the CONDITION of a `cond*' clause.
This is not really a Lisp operator; it is meaningful only in the
CONDITION of a `cond*' clause.
`_' matches any value.
KEYWORD matches that keyword.
@ -160,32 +160,32 @@ ATOM (meaning any other kind of non-list not described above)
\(constrain SYMBOL EXP)
matches datum if the form EXP is true.
EXP can refer to symbols bound earlier in the pattern."
;; FIXME: `byte-compile-warn-x' is not necessarily defined here.
(byte-compile-warn-x pattern "`match*' used other than as a `cond*' condition"))
(macroexp-warn-and-return "`match*' used other than as a `cond*' condition"
nil 'suspicious))
;;;###autoload
(defmacro bind* (&rest bindings)
"This macro evaluates BINDINGS like `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 bindings "`bind*' used other than as a `cond*' condition"))
(defmacro bind* (&rest _bindings)
"Evaluate BINDINGS like `let*'.
This is not really a Lisp operator; it is meaningful only in the
CONDITION of a `cond*' clause. See `cond*' for details."
(macroexp-warn-and-return "`bind*' used other than as a `cond*' condition"
nil 'suspicious))
;;;###autoload
(defmacro bind-and* (&rest bindings)
"This macro evaluates BINDINGS like `if-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 bindings "`bind-and*' used other than as a `cond*' condition"))
(defmacro bind-and* (&rest _bindings)
"Evaluate BINDINGS like `if-let*'.
This is not really a Lisp operator; it is meaningful only in the
CONDITION of a `cond*' clause. See `cond*' for details."
(macroexp-warn-and-return "`bind-and*' used other than as a `cond*' condition"
nil 'suspicious))
;;;###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"))
(defmacro pcase* (_pattern _datum)
"Evaluate PATTERN and DATUM like an element of BINDINGS in `pcase-let'.
This is not really a Lisp operator; it is meaningful only in the
CONDITION of a `cond*' clause. See `cond*' for details."
(macroexp-warn-and-return "`pcase*' used other than as a `cond*' condition"
nil 'suspicious))
(defun cond*-non-exit-clause-p (clause)
"If CLAUSE, a cond* clause, is a non-exit clause, return t."