Function: combobulate-ztree--with-loc

combobulate-ztree--with-loc is a macro defined in combobulate-ztree.el.

Signature

(combobulate-ztree--with-loc LOC VARS &rest BODY)

Documentation

Create a lexical context using LOC VARS.

Execute BODY in this context.

Source Code

;; Defined in /nix/store/b5fvrwzi3zvkabyzx0in6gw1cj963z46-emacs-packages-deps/share/emacs/site-lisp/combobulate-ztree.el
(defmacro combobulate-ztree--with-loc (loc vars &rest body)
  "Create a lexical context using LOC VARS.
Execute BODY in this context."
  (declare (indent defun))
  (let ((lex-ctx (mapcar (lambda (v)
                           (cl-case v
                             (node    `(node (combobulate-ztree-node ,loc)))
                             (context `(context (combobulate-ztree--context ,loc)))
                             (t       `(,v (combobulate-ztree--context ,loc (quote ,(intern (concat ":" (symbol-name v)))))))))
                         vars)))
    `(let* (,@lex-ctx) ,@body)))