;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\207" [require cua-base cua-rect] 2)
(defvar cua--global-mark-active nil)
(defvar cua--global-mark-marker nil)
(defvar cua--global-mark-overlay nil)
(defvar cua--global-mark-initialized nil)
(defvar cua--orig-blink-cursor-interval nil)
#@22 

(fn &optional MSG)
(defalias 'cua--deactivate-global-mark #[256 "\203\n\305!\210\306\307	!\203	\306\211\223\210\n\203\n\306\306\211\205&\310\311!\207" [cua--global-mark-overlay cua--global-mark-marker cua--orig-blink-cursor-interval blink-cursor-interval cua--global-mark-active delete-overlay nil markerp message "Global Mark Cleared"] 4 (#$ . 354)])
#@22 

(fn &optional MSG)
(defalias 'cua--activate-global-mark #[256 "\306!\204	\307 m\203\310c\210\311u\210`\312\223\210\313	!\203(\314	``T#\210\2024\315``T\"\316	\317\320#\210\n\203@\204@\f\n\321\211\205I\322\323!\207" [cua--global-mark-marker cua--global-mark-overlay cua-global-mark-blink-cursor-interval cua--orig-blink-cursor-interval blink-cursor-interval cua--global-mark-active markerp make-marker " " -1 nil overlayp move-overlay make-overlay overlay-put face cua-global-mark t message "Global Mark Set"] 5 (#$ . 726)])
(defalias 'cua--global-mark-active #[0 "\205\302	!\203\303	!\206\304\305!\210\305\207" [cua--global-mark-active cua--global-mark-marker markerp marker-buffer cua--deactivate-global-mark nil] 2])
#@456 Set or cancel the global marker.
When the global marker is set, CUA cut and copy commands will
automatically insert the inserted, deleted or copied text before
the global marker, even when the global marker is in another
buffer.

If the global marker isn't set, set the global marker at point in the current
buffer.  Otherwise jump to the global marker position and cancel it.
With prefix argument, don't jump to global mark when canceling it.

(fn STAY)
(defalias 'cua-toggle-global-mark #[257 "\204\303 \210\304 \204	\204\305\306!\207\307 \210\310\311!\207\211\204(\312\313\n!!\210\nb\210\314\306!\207" [cua--global-mark-initialized buffer-read-only cua--global-mark-marker cua--init-global-mark cua--global-mark-active cua--activate-global-mark t ding message "Cannot set global mark in read-only buffer" pop-to-buffer marker-buffer cua--deactivate-global-mark] 4 (#$ . 1476) "P"])
#@26 

(fn STR &optional MSG)
(defalias 'cua--insert-at-global-mark #[513 "r\301!q\210\302!b\210\303!\210\304 \210)\211\205%\305\306G\307\301!!\302!%\207" [cua--global-mark-marker marker-buffer marker-position insert-for-yank cua--activate-global-mark message "%s %d to global mark in %s:%d" buffer-name] 9 (#$ . 2375)])
#@26 

(fn ARG &optional MSG)
(defalias 'cua--delete-at-global-mark #[513 "r\301!q\210\302!b\210\303!\210)\211\205!\304\305\306\301!!\302!%\207" [cua--global-mark-marker marker-buffer marker-position delete-char message "%s %d chars at global mark in %s:%d" buffer-name] 9 (#$ . 2705)])
#@61 Copy region to global mark buffer/position.

(fn START END)
(defalias 'cua-copy-region-to-global-mark #[514 "\301 \203Ep\212\302!
\232\203\303\"\304!b\210\211c\266\202/\302!q\210\304!b\210\305
#\210\306 \210\307\310\311Z!\312\302!!\304!$)\207\313 \210\307\314!\207" [cua--global-mark-marker cua--global-mark-active marker-buffer cua--filter-buffer-noprops marker-position insert-buffer-substring-as-yank cua--activate-global-mark message "Copied %d to global mark in %s:%d" abs buffer-name cua--deactivate-global-mark "No Global Mark"] 9 (#$ . 3001) "r"])
#@56 Move region to global buffer/position.

(fn START END)
(defalias 'cua-cut-region-to-global-mark #[514 "\301 \203}p\212\302!
\232\203P\303!W\203%\303!W\203%\304\305!\202{\306\"\307!\307!\303!b\210c\210\310 \210\303!\303!|\210
\311\211\223\210\211\311\211\223\266\203\202{\302!q\210\303!b\210\312
#\210\304\313\314Z!\315\302!!\303!$\210\310 \210\211q\210|)\207\316 \210\304\317!\207" [cua--global-mark-marker cua--global-mark-active marker-buffer marker-position message "Can't move region into itself" cua--filter-buffer-noprops copy-marker cua--activate-global-mark nil insert-buffer-substring "Moved %d to global mark in %s:%d" abs buffer-name cua--deactivate-global-mark "No Global Mark"] 9 (#$ . 3581) "r"])
#@16 

(fn AS-TEXT)
(defalias 'cua--copy-rectangle-to-global-mark #[257 "\301 \203B\302 r\303!q\210\304!b\210
\203-\211\2032\305
@!\210\211A\211\262\203\306c\210\202\307
\310\"\210\311 \210\312\313\314\303!!\304!#)\207\315 \210\312\316!\207" [cua--global-mark-marker cua--global-mark-active cua--extract-rectangle marker-buffer marker-position insert-for-yank "\n" cua--insert-rectangle auto cua--activate-global-mark message "Copied rectangle to global mark in %s:%d" buffer-name cua--deactivate-global-mark "No Global Mark"] 7 (#$ . 4328)])
#@16 

(fn AS-TEXT)
(defalias 'cua--cut-rectangle-to-global-mark #[257 "\301 \203\227p\212\302!
\232\203r\303\304!!\305
\2033\306@\307\"\310=\203,\311\262
\305\262\202
A\262\202\211\203?\312\313!\266\202\202\225\314 \315 \210\304!b\210\203d\211\203i\316
@!\210\211A\211\262\203M\317c\210\202M\320
\321\"\210\322 \262
\266\202\202\225\314 \315 \210\302!q\210\304!b\210\320
\321\"\266\312\323\324\302!!\304!#\210\322 )\207\325 \210\312\326!\207" [cua--global-mark-marker cua--global-mark-active marker-buffer overlays-at marker-position nil overlay-get face cua-rectangle t message "Can't move rectangle into itself" cua--extract-rectangle cua--delete-rectangle insert-for-yank "\n" cua--insert-rectangle auto cua--activate-global-mark "Moved rectangle to global mark in %s:%d" buffer-name cua--deactivate-global-mark "No Global Mark"] 8 (#$ . 4884)])
#@62 Copy active region/rectangle to global mark buffer/position.
(defalias 'cua-copy-to-global-mark #[0 "\302	\203\n\303\302!\207\304 `

X\204\211\262\262\305\"\207" [cua--last-killed-rectangle cua--rectangle nil cua--copy-rectangle-to-global-mark mark cua-copy-region-to-global-mark] 5 (#$ . 5763) nil])
#@83 Copy the following N characters in buffer to global mark buffer/position.

(fn N)
(defalias 'cua-copy-next-to-global-mark #[257 "\301m\206`\211\\b\210\302
`\"\262
\207" [cua--last-killed-rectangle nil cua-copy-region-to-global-mark] 5 (#$ . 6079) "p"])
#@62 Move active region/rectangle to global mark buffer/position.
(defalias 'cua-cut-to-global-mark #[0 "\203\303 \207\304\n\203\305\304!\207\306 `

X\204 \211\262\262\307\"\207" [buffer-read-only cua--last-killed-rectangle cua--rectangle cua-copy-to-global-mark nil cua--cut-rectangle-to-global-mark mark cua-cut-region-to-global-mark] 5 (#$ . 6342) nil])
#@83 Move the following N characters in buffer to global mark buffer/position.

(fn N)
(defalias 'cua-cut-next-to-global-mark #[257 "\301m\206`\211\\b\210\302
`\"\262
\207" [cua--last-killed-rectangle nil cua-cut-region-to-global-mark] 5 (#$ . 6712) "p"])
#@64 Delete character following the global mark position.

(fn ARG)
(defalias 'cua-delete-char-at-global-mark #[257 "\300
\301\"\207" [cua--delete-at-global-mark "Deleted"] 4 (#$ . 6973) "p"])
#@61 Delete character before the global mark position.

(fn ARG)
(defalias 'cua-delete-backward-char-at-global-mark #[257 "\300
[\301\"\207" [cua--delete-at-global-mark "Deleted backward"] 4 (#$ . 7167) "p"])
#@60 Insert the character you type at the global mark position.
(defalias 'cua-insert-char-at-global-mark #[0 "\300\301\302 \303H!\304\"\207" [cua--insert-at-global-mark char-to-string this-single-command-keys 0 "Inserted"] 4 (#$ . 7377) nil])
#@47 Insert a newline at the global mark position.
(defalias 'cua-insert-newline-at-global-mark #[0 "\300\301!\207" [cua--insert-at-global-mark "\n"] 2 (#$ . 7622) nil])
#@57 Indent current line or rectangle to global mark column.
(defalias 'cua-indent-to-global-mark-column #[0 "\303 \205E\304r\305!q\210\306!b\210i\262
)	\203\"\307\304\310#\210\202%\211j\210p\305!=\205C\212\306!b\210\311
!\210`\304\223\210\312\n``T#)\262
\207" [cua--global-mark-marker cua--rectangle cua--global-mark-overlay cua--global-mark-active nil marker-buffer marker-position cua--indent-rectangle t move-to-column move-overlay] 5 (#$ . 7793) "*"])
#@25 Cancel the global mark.
(defalias 'cua-cancel-global-mark #[0 "\300 \203\301 \210\202\302 \203\303\304!\210\305 \207" [region-active-p cua-cancel cua--global-mark-active cua--deactivate-global-mark t cua--fallback] 2 (#$ . 8261) nil])
(defalias 'cua--global-mark-post-command #[0 "\302 \205R\205R\303\304!\210p\305	!=\203\306\307	!!?\205R\310 `\311\312\305	!\313\"\210\307	!b\210\306\307	!!\204J\314\315 \316Z\211\262\317V\203G
\202H\320!\210\321!\210
b\266\203\207" [cua-global-mark-keep-visible cua--global-mark-marker cua--global-mark-active sit-for 0 marker-buffer pos-visible-in-window-p marker-position selected-window nil switch-to-buffer-other-window t recenter window-height 4 1 (4) select-window] 6])
(defalias 'cua--init-global-mark #[0 "\302\303\304#\210\302\305\304#\210\302\306\307#\210\302\310\311#\210\302\312\313#\210\302\314\313#\210\302\315\316#\210\302\317\320#\210\302\321\320#\210\302\322\320#\210\302\323\324#\210\302\325\326#\210\302\327\330#\210\302\331\330#\210\302\332\330#\210\302\333\334#\210\335\211\207" [cua--global-mark-keymap cua--global-mark-initialized define-key [remap copy-region-as-kill] cua-copy-to-global-mark [remap kill-ring-save] [remap kill-region] cua-cut-to-global-mark [remap yank] cua-copy-next-to-global-mark [remap keyboard-escape-quit] cua-cancel-global-mark [remap keyboard-quit] [(control 100)] cua-cut-next-to-global-mark [remap delete-backward-char] cua-delete-backward-char-at-global-mark [remap backward-delete-char] [remap backward-delete-char-untabify] [remap self-insert-command] cua-insert-char-at-global-mark [t] (menu-item "sic" cua-insert-char-at-global-mark :filter cua--self-insert-char-p) [remap newline] cua-insert-newline-at-global-mark [remap newline-and-indent] "
" "	" cua-indent-to-global-mark-column t] 4])
(provide 'cua-gmrk)