;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (require 'swoop-lib) (defvar swoop-edit-buffer "*Swoop Edit*") (defvar swoop-edit-map (byte-code "\300 \301\302\303#\210\301\304\303#\210\207" [make-sparse-keymap define-key "" swoop-edit-finish ""] 5)) (define-key swoop-map "" 'swoop-edit) #@70 Kill the edit buffer. The changes should have already been applied. (defalias 'swoop-edit-finish #[0 "\304!\210r q\210\305\306 \"\210\nb\210)\307 !\207" [swoop--target-window swoop--target-buffer swoop--target-last-position swoop-edit-buffer select-window set-window-buffer nil kill-buffer] 3 (#$ . 336) nil]) #@82 Modify the original buffer content, but it causes slow rendering. (fn $BUFCONT) (defalias 'swoop-modify-buffer-content #[257 "\207" [] 2 (#$ . 654)]) #@29 (fn $LINE &optional $BUF) (defalias 'swoop-line-beg-point #[513 "r\211\206pq\210\212eb\210\211Sy\266`*\207" [] 4 (#$ . 811)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put swoop-line-beg-point speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@29 (fn $LINE &optional $BUF) (defalias 'swoop-set-marker #[513 "r\211\206pq\210\212eb\210\211Sy\266\300 `\301\223*\207" [make-marker nil] 5 (#$ . 1095)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put swoop-set-marker speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@78 Modify matched lines. Changes are automatically applying to target buffers. (defalias 'swoop-edit #[0 "rq\210ed{)\302\303\304\305 %\210\306 \207" [swoop-buffer swoop--target-buffer run-with-timer 0 nil #[514 "\305!\203\n\306!\210 !\210\307 \210\310\311\312Q\313\314\315\316%c\210c\210\212eb\210\317ed\320#\210\321\316eb\210m\204\217\322`\323\"\206<db\210\324`\323\"\211\262\2030\324`\325\"\310\326\327\"\330\316\313\331\315\316\332\316\333\316& c\210\334\335 \336 \337\212rq\210eb\210\211Sy\266\340 `\321\223*$\210\341`\336 \342#\210\343\336 \336 T\344#\266\2020)\210)\345 p\"\210eb\210\346y\210\347\350\321\316#\210\351\352\353\321\316$\210\354\f!\207" [swoop-edit-buffer swoop-display-function inhibit-read-only swoop-last-pattern swoop-edit-map get-buffer kill-buffer erase-buffer propertize " " "\n" face swoop-line-buffer-name-face intangible t add-text-properties (read-only t rear-nonsticky t front-sticky t) nil next-single-property-change swl get-text-property swb format "%s:: " swp swoop-face-line-number rear-nonsticky read-only put-text-property point-at-bol point-at-eol swm make-marker remove-text-properties (read-only t) set-text-properties (read-only t rear-nonsticky t) swoop-overlay-word 1 re-search-forward "^[[:space:]]*\\([0-9]+\\)::[[:space:]]" add-hook after-change-functions swoop-edit-sync use-local-map] 16 "\n\n(fn $BUFCONT $BUFNAME)"] exit-minibuffer] 7 (#$ . 1400) nil]) #@36 Sync edit. (fn $BEG $END $LENGTH) (defalias 'swoop-edit-sync #[771 "\212b\210\301 \302\303\"\304!\305\302\306\"\205\260\302\306\"?\205\260\307U\203?\310\303$\210\212\311\312\313#\203>`S|\210)\314 \314\315 !Zrq\210)\316!\206V\317\320\"\321 \212\322\306\305$b\210`Z\262\323`\")\324!r\325\326\"\216\327@\330\"\210b\210\331\301 \321 \"\332\333\"\266\334!\210\203\236\335\336 \"\210\202\247\301 \321 |\210c\210\337!*\262\266\205\266\204)\207" [buffer-read-only point-at-bol get-text-property swm marker-buffer nil swp 0 put-text-property re-search-forward "\n" t line-number-at-pos window-start get-buffer-window display-buffer (nil (inhibit-same-window . t) (inhibit-switch-frame . t)) point-at-eol next-single-property-change buffer-substring-no-properties internal--before-with-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord overlays-in mapc #[257 "\300\301\"\211\205 \302\301\303#\207" [overlay-get invisible overlay-put nil] 6 "\n\n(fn $OV)"] recenter message "Buffer `%s' is read only." move-to-column] 17 (#$ . 2828)]) (provide 'swoop-edit)