;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\2023ed|\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 \211A\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)