;ELC   
;;; Compiled
;;; in Emacs version 28.0.50
;;; with all optimizations.


#@207 Bind variables after VARLIST then eval BODY.
VARLIST is of the same form as `let'. All variables should
contain markers or collections of markers. All markers are niled
after BODY.

(fn VARLIST &rest BODY)
(defalias 'm-buffer-with-markers '(macro . #[385 "\300\301!\302\303\"\304\305BDC\"\306\307\310BDF\207" [make-symbol "rtn-var" mapcar car append progn let* m-buffer-nil-marker list] 10 (#$ . 88)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put m-buffer-with-markers lisp-indent-function 1 put edebug-form-spec let] 5)
#@54 At MARKER location run BODY.

(fn MARKER &rest BODY)
(defalias 'm-buffer-with-current-marker '(macro . #[385 "\300\301D\302\303DBBE\207" [with-current-buffer marker-buffer save-excursion goto-char] 7 (#$ . 645)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put m-buffer-with-current-marker lisp-indent-function 1 put edebug-form-spec t] 5)
#@67 In BUFFER at LOCATION, run BODY.

(fn BUFFER LOCATION &rest BODY)
(defalias 'm-buffer-with-current-position '(macro . #[642 "\300\301\302DBBE\207" [with-current-buffer save-excursion goto-char] 8 (#$ . 1013)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put m-buffer-with-current-position lisp-indent-function 2 put edebug-form-spec t] 5)
#@163 At LOCATION, run BODY.
LOCATION should be a list. If a one element list, it is a marker.
If a two element, it is a buffer and position.

(fn LOCATION &rest BODY)
(defalias 'm-buffer-with-current-location '(macro . #[385 "\300\301!\302DC\303\304\305\306DE\307\310\311EBB\303\304\312\306	DE\313\310\311\nE\310\305EBBB\314BBBFE\207" [make-symbol "loc" let if = 1 length m-buffer-with-current-marker nth 0 2 m-buffer-with-current-position ((error "m-buffer-with-current-location requires a list of one or two elements"))] 15 (#$ . 1381)]))
(byte-code "\300\301\302\303#\304\301\305\306#\210\307\310!\207" [function-put m-buffer-with-current-location lisp-indent-function 1 put edebug-form-spec t provide m-buffer-macro] 5)