Function: cond*-non-exit-clause-p

cond*-non-exit-clause-p is a byte-compiled function defined in cond-star.el.gz.

Signature

(cond*-non-exit-clause-p CLAUSE)

Documentation

If CLAUSE, a cond* clause, is a non-exit clause, return t.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/cond-star.el.gz
(defun cond*-non-exit-clause-p (clause)
  "If CLAUSE, a cond* clause, is a non-exit clause, return t."
  (or
   ;; Starts with t.
   (and (cdr-safe clause)
        (eq (car clause) t))
   ;; Starts with a `bind*' pseudo-form.
   (and (consp (car clause))
        (eq (caar clause) 'bind*))
   ;; Has one element that's a `match*' or `pcase*' pseudo-form.
   (and (null (cdr-safe clause))
        (consp (car clause))
        (memq (caar clause) '(match* pcase*)))
   ;; Ends with keyword.
   (eq (car (last clause)) :non-exit)))