JezK
Edit File: cua-gmrk.elc
;ELC ;;; Compiled by mockbuild@buildfarm03-new.corp.cloudlinux.com on Wed Aug 19 23:55:07 2026 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/emulation/cua-gmrk.el ;;; in Emacs version 24.3.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (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) (defalias 'cua--deactivate-global-mark #[(&optional msg) "\203\n \306!\210\307\310 !\203 \307\211\223\210\n\203 \n\307\307 \205& \311\312!\207" [cua--global-mark-overlay cua--global-mark-marker cua--orig-blink-cursor-interval blink-cursor-interval cua--global-mark-active msg delete-overlay nil markerp message "Global Mark Cleared"] 3]) (defalias 'cua--activate-global-mark #[(&optional msg) "\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\205J \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" msg] 4]) (defalias 'cua--global-mark-active #[nil "\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]) #@434 Set or cancel the global marker. When the global marker is set, CUA cut and copy commands will automatically insert the 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. (defalias 'cua-toggle-global-mark #[(stay) "\204 \304 \210\305 \204 \204 \306\307!\207\310 \210\311\312!\207\n\204( \313\314 !!\210 b\210\315\307!\207" [cua--global-mark-initialized buffer-read-only stay 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] 3 (#$ . 1835) "P"]) (defalias 'cua--insert-at-global-mark #[(str &optional msg) "r\303!q\210\304!b\210\305 !\210\306 \210)\n\205% \307\310\n G\311\303!!\304!%\207" [cua--global-mark-marker str msg marker-buffer marker-position insert-for-yank cua--activate-global-mark message "%s %d to global mark in %s:%d" buffer-name] 7]) (defalias 'cua--delete-at-global-mark #[(arg &optional msg) "r\303!q\210\304!b\210\305 !\210)\n\205! \306\307\n \310\303!!\304!%\207" [cua--global-mark-marker arg msg marker-buffer marker-position delete-char message "%s %d chars at global mark in %s:%d" buffer-name] 7]) #@45 Copy region to global mark buffer/position. (defalias 'cua-copy-region-to-global-mark #[(start end) "\305 \203F p\212\306 !\232\203! \307\n \" \310 !b\210\fc\210)\2021 \306 !q\210\310 !b\210\311\n #\210\312 \210\313\314\315 \nZ!\316\306 !!\310 !$*\207\317 \210\313\320!\207" [src-buf cua--global-mark-marker start end text 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"] 6 (#$ . 3302) "r"]) #@40 Move region to global buffer/position. (defalias 'cua-cut-region-to-global-mark #[(start end) "\306 \203\201 p\212\307 !\232\203U \n\310 !W\203& \310 ! W\203& \311\312!\202 \313\n \"\314\n!\314 ! \310 !b\210c\210\315 \210\310 !\310\f!|\210 \316\211\223\210\f\316\211\223+\202 \307 !q\210\310 !b\210\317\n #\210\311\320\321 \nZ!\322\307 !!\310 !$\210\315 \210q\210\n |*\207\323 \210\311\324!\207" [src-buf cua--global-mark-marker start end p2 p1 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" text] 6 (#$ . 3899) "r"]) (defalias 'cua--copy-rectangle-to-global-mark #[(as-text) "\304 \203D p\305 r\306\n!q\210\307\n!b\210 \203/ \2034 \310@!\210A\211\203 \311c\210\202 \312\313\"\210\314 \210\315\316\317\306\n!!\307\n!#+\207\320 \210\315\321!\207" [text src-buf cua--global-mark-marker as-text 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"] 5]) (defalias 'cua--cut-rectangle-to-global-mark #[(as-text) "\306 \203\226 p\212\307 !\232\203p \310\311 !!\312\211\2035 \313 @\314\"\315=\203. \316\312\211\202 A\211\204 \n\203? \317\320!\202l \321 \322 \210\311 !b\210 \203d \f\203i \323\f@!\210\fA\211\203N \324c\210\202N \325\f\326\"\210\327 )*\202\224 \321 \322 \210\307 !q\210\311 !b\210\325\f\326\"\210)\317\330\331\307 !!\311 !#\210\327 *\207\332 \210\317\333!\207" [src-buf cua--global-mark-marker in-rect olist text as-text 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"] 6]) #@62 Copy active region/rectangle to global mark buffer/position. (defalias 'cua-copy-to-global-mark #[nil "\304 \203\n \305\304!\207\306 `\211\nX\204 \n \307 \n\"*\207" [cua--last-killed-rectangle cua--rectangle end start nil cua--copy-rectangle-to-global-mark mark cua-copy-region-to-global-mark] 4 (#$ . 6079) nil]) #@75 Copy the following N characters in buffer to global mark buffer/position. (defalias 'cua-copy-next-to-global-mark #[(n) "\303m\206 `\211\n\\b\210\304 `\")\207" [cua--last-killed-rectangle p n nil cua-copy-region-to-global-mark] 4 (#$ . 6405) "p"]) #@62 Move active region/rectangle to global mark buffer/position. (defalias 'cua-cut-to-global-mark #[nil "\203 \305 \207\306\n\203 \307\306!\207\310 `\211 X\204 \f\311\f \"*\207" [buffer-read-only cua--last-killed-rectangle cua--rectangle end start cua-copy-to-global-mark nil cua--cut-rectangle-to-global-mark mark cua-cut-region-to-global-mark] 4 (#$ . 6662) nil]) #@75 Move the following N characters in buffer to global mark buffer/position. (defalias 'cua-cut-next-to-global-mark #[(n) "\303m\206 `\211\n\\b\210\304 `\")\207" [cua--last-killed-rectangle p n nil cua-cut-region-to-global-mark] 4 (#$ . 7041) "p"]) #@54 Delete character following the global mark position. (defalias 'cua-delete-char-at-global-mark #[(arg) "\301\302\"\207" [arg cua--delete-at-global-mark "Deleted"] 3 (#$ . 7296) "p"]) #@51 Delete character before the global mark position. (defalias 'cua-delete-backward-char-at-global-mark #[(arg) "\301[\302\"\207" [arg cua--delete-at-global-mark "Deleted backward"] 3 (#$ . 7486) "p"]) #@60 Insert the character you type at the global mark position. (defalias 'cua-insert-char-at-global-mark #[nil "\300\301\302 \303H!\304\"\207" [cua--insert-at-global-mark char-to-string this-single-command-keys 0 "Inserted"] 4 (#$ . 7692) nil]) #@47 Insert a newline at the global mark position. (defalias 'cua-insert-newline-at-global-mark #[nil "\300\301!\207" [cua--insert-at-global-mark "\n"] 2 (#$ . 7939) nil]) #@57 Indent current line or rectangle to global mark column. (defalias 'cua-indent-to-global-mark-column #[nil "\304 \205D \305r\306 !q\210\307 !b\210i)\n\203\" \310\305\311#\210\202% j\210p\306 !=\205C \212\307 !b\210\312!\210 `\305\223\210\313 ``T#))\207" [col 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] 4 (#$ . 8112) "*"]) #@25 Cancel the global mark. (defalias 'cua-cancel-global-mark #[nil "\203\n \301 \210\202 \302 \203 \303\304!\210\305 \207" [mark-active cua-cancel cua--global-mark-active cua--deactivate-global-mark t cua--fallback] 2 (#$ . 8576) nil]) (defalias 'cua--global-mark-post-command #[nil "\305 \205S \205S \306\307!\210p\310 !=\203 \311\312 !!?\205S \313 `\314 \315\310 !\316\"\210\312 !b\210\311\312 !!\204L \317\320 \321Z\211\322V\203I \n\202J \323!\210\324\f!\210 b+\207" [cua-global-mark-keep-visible cua--global-mark-marker h p w 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] 3]) (defalias 'cua--init-global-mark #[nil "\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\324#\210\302\326\327#\210\302\330\331#\210\302\332\331#\210\302\333\331#\210\302\334\335#\210\336\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 [remap self-insert-iso] [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)