Function: byte-compile--suspicious-defcustom-choice

byte-compile--suspicious-defcustom-choice is a byte-compiled function defined in bytecomp.el.gz.

Signature

(byte-compile--suspicious-defcustom-choice TYPE)

Documentation

Say whether defcustom TYPE looks odd.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/bytecomp.el.gz
(defun byte-compile--suspicious-defcustom-choice (type)
  "Say whether defcustom TYPE looks odd."
  ;; Check whether there's anything like (choice (const :tag "foo" ;; 'bar)).
  ;; We don't actually follow the syntax for defcustom types, but this
  ;; should be good enough.
  (catch 'found
    (if (and (consp type)
             (proper-list-p type))
        (if (memq (car type) '(const other))
            (when (assq 'quote type)
              (throw 'found t))
          (when (memq t (mapcar #'byte-compile--suspicious-defcustom-choice
                                type))
            (throw 'found t)))
      nil)))