;ELC���
;;; Compiled
;;; in Emacs version 28.0.50
;;; with all optimizations.



(require 'cl-lib)
#@61 

(fn BUFFER OVERLAY DONT-ERASE RECOVER-POINT-P FLASH-P FN)
(defalias 'sly--call-refreshing #[1542 "rq\210\302\211`
\214\203�\303!\304	!}\210\305\306$\216\203/�db\210\2023�ed|\210)\203=�\307ed\"\210+\266)\207" [inhibit-read-only inhibit-point-motion-hooks t overlay-start overlay-end make-closure #[0 "\301 \210\300\205	�\302b\207" [V0 V1 V2] 1] sly-flash-region] 14 (#$ . 105)])
#@266 Delete a buffer region and run BODY which presumably refreshes it.
Region is OVERLAY or the whole buffer.
Recover point position if RECOVER-POINT-P.
Flash the resulting region if FLASH-P

(fn (&key OVERLAY DONT-ERASE (RECOVER-POINT-P t) FLASH-P BUFFER) &rest BODY)
(defalias 'sly-refreshing '(macro . #[128 "\211\203
�\211
A\262\242\202�\300\301\302GD\"\303
\304\"A@\303\305\"A@\303\306\"\206(�\307A@\303\310\"A@\303\311\"A@\211\203b�\211@\312>\203J�\211AA\262
\2027�\313>A@\203Y�\314\262
\2027�\315\316@\"\210\2027�\210\317
\206i�\320\321\322\314BBD\257\207" [signal wrong-number-of-arguments sly-refreshing plist-member :overlay :dont-erase :recover-point-p (nil t) :flash-p :buffer (:overlay :dont-erase :recover-point-p :flash-p :buffer :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:overlay :dont-erase :recover-point-p :flash-p :buffer)" sly--call-refreshing (current-buffer) function lambda] 17 (#$ . 512)]))
(byte-code "\300\301\302\303#\304\301\305\306#\210\307\310!\207" [function-put sly-refreshing lisp-indent-function 1 put edebug-form-spec (sexp &rest form) provide sly-common] 5)