;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\302\303\304\305\306\307%\210\310\311\312\313\306\303%\207" [require cl-lib custom-declare-group swap-regions nil "Swap text in regions." :group convenience custom-declare-face swap-regions-selection ((t (:inherit secondary-selection))) "Face marking the previous selected region."] 6) #@85 Swap text in two regions. (fn BUF-A REG-A-BEG REG-A-END BUF-B REG-B-BEG REG-B-END) (defalias 'swap-regions #[1542 "rq\210{)rq\210{)W\2033   \262\262 \262 \262 \262\262\262\262rq\210|\210b\210c\210)rq\210|\210b\210\211c)\207" [] 16 (#$ . 398) (byte-code "\301\302!\303\211\211\211\211\211\211C\304 \204\303\305\306 \"\210)\307 \210p\262\310 \262\311 \262\312 \210\211\313\"\240\210\314\242\315\316#\210\303\305\317 \"\210)\320\321\"\216\307 \210)p\262\310 \262\311 \262\312 \210\257\207" [message-log-max substitute-command-keys "Finish `\\[exit-recursive-edit]', abort `\\[abort-recursive-edit]'" nil use-region-p message "Select the first region (%s)" recursive-edit region-beginning region-end deactivate-mark make-overlay overlay-put face swap-regions-selection "Select the second region (%s)" make-closure #[0 "\301\300\242!\207" [V0 delete-overlay] 2]] 14)]) (provide 'swap-regions)