Function: toolbarx-test-dropdown-default

toolbarx-test-dropdown-default is a byte-compiled function defined in toolbar-x.el.

Signature

(toolbarx-test-dropdown-default OBJ)

Documentation

Return a cons cell (GOOD-OBJ . VAL).

GOOD-OBJ is non-nil if OBJ yields a valid :default property object VAL of a dropdown group (see documentation of function toolbarx-process-dropdown-group.

Source Code

;; Defined in ~/.emacs.d/elpa/auctex-14.1.2/toolbar-x.el
(defun toolbarx-test-dropdown-default (obj)
  "Return a cons cell (GOOD-OBJ . VAL).
GOOD-OBJ is non-nil if OBJ yields a valid `:default' property
object VAL of a dropdown group (see documentation of function
`toolbarx-process-dropdown-group'."
  (let ((toolbarx-test-dropdown-default-simple
         (lambda (obj)
           (let* ((val (toolbarx-option-value obj))
                  (good-obj (or (integerp val)
                                (and (listp val)
                                     (let ((ok t))
                                       (dolist (i val ok)
                                         (setq ok (and ok (integerp i)))))))))
             (cons good-obj val)))))
    (toolbarx-eval-function-or-symbol obj
                                      toolbarx-test-dropdown-default-simple)))