Function: ebrowse-for-all-trees

ebrowse-for-all-trees is a macro defined in ebrowse.el.gz.

Signature

(ebrowse-for-all-trees SPEC &rest BODY)

Documentation

For all trees in SPEC, eval BODY.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/ebrowse.el.gz
(defmacro ebrowse-for-all-trees (spec &rest body)
  "For all trees in SPEC, eval BODY."
  (declare (indent 1) (debug ((sexp form) body)))
  (let ((spec-var (car spec))
	(array (cadr spec)))
    `(maphash (lambda (_k ,spec-var)
                (when ,spec-var
                  (cl-assert (cl-typep ,spec-var 'ebrowse-ts))
                  ,@body))
              ,array)))