JezK
Edit File: register.elc
;ELC ;;; Compiled by mockbuild@buildfarm03-new.corp.cloudlinux.com on Wed Aug 19 23:56:22 2026 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/register.el ;;; in Emacs version 24.3 ;;; 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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put registerv-data compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block registerv-data (or (and (memq (aref cl-x 0) cl-struct-registerv-tags)) (error "%s accessing a non-%s" 'registerv-data 'registerv)) (aref cl-x 1)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/register.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'registerv-data #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-registerv-tags 0 error "%s accessing a non-%s" registerv-data registerv 1] 4]) (byte-code "\301\302\303\304#\210\301\305\306\307#\210\310\301\305\311\312\313!!#\210)\301\207" [file put registerv-data gv-expander #[(_cl-do _cl-x) "\300\301\302\"\207" [error "%s is a read-only slot" registerv-data] 3] registerv-print-func compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block registerv-print-func (or (and (memq (aref cl-x 0) cl-struct-registerv-tags)) (error "%s accessing a non-%s" 'registerv-print-func 'registerv)) (aref cl-x 2)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/register.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'registerv-print-func #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-registerv-tags 0 error "%s accessing a non-%s" registerv-print-func registerv 2] 4]) (byte-code "\301\302\303\304#\210\301\305\306\307#\210\310\301\305\311\312\313!!#\210)\301\207" [file put registerv-print-func gv-expander #[(_cl-do _cl-x) "\300\301\302\"\207" [error "%s is a read-only slot" registerv-print-func] 3] registerv-jump-func compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block registerv-jump-func (or (and (memq (aref cl-x 0) cl-struct-registerv-tags)) (error "%s accessing a non-%s" 'registerv-jump-func 'registerv)) (aref cl-x 3)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/register.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'registerv-jump-func #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-registerv-tags 0 error "%s accessing a non-%s" registerv-jump-func registerv 3] 4]) (byte-code "\301\302\303\304#\210\301\305\306\307#\210\310\301\305\311\312\313!!#\210)\301\207" [file put registerv-jump-func gv-expander #[(_cl-do _cl-x) "\300\301\302\"\207" [error "%s is a read-only slot" registerv-jump-func] 3] registerv-insert-func compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block registerv-insert-func (or (and (memq (aref cl-x 0) cl-struct-registerv-tags)) (error "%s accessing a non-%s" 'registerv-insert-func 'registerv)) (aref cl-x 4)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/register.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'registerv-insert-func #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-registerv-tags 0 error "%s accessing a non-%s" registerv-insert-func registerv 4] 4]) (byte-code "\301\302\303\304#\210\301\305\306\307#\210\310\301\305\311\312\313!!#\210)\301\207" [file put registerv-insert-func gv-expander #[(_cl-do _cl-x) "\300\301\302\"\207" [error "%s is a read-only slot" registerv-insert-func] 3] registerv-p compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block registerv-p (and (vectorp cl-x) (>= (length cl-x) 5) (memq (aref cl-x 0) cl-struct-registerv-tags) t)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/register.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'registerv-p #[(cl-x) "\302!\205 G\303Y\205 \304H >\205 \305\207" [cl-x cl-struct-registerv-tags vectorp 5 0 t] 2]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put registerv--make compiler-macro #[(_cl-whole-arg &rest #1=#:--cl-rest--) "\211A@\211A@\211A@\211A@ \203& \305\306\307\310G\\D\"\210\311\312\313\307\211\211 \n \f& ,\207" [#1# data print-func jump-func insert-func signal wrong-number-of-arguments nil 5 cl--defsubst-expand (data print-func jump-func insert-func) (cl-block registerv--make (vector 'registerv data print-func jump-func insert-func))] 10 "\n\n(fn CL-WHOLE-ARG &cl-quote &optional DATA PRINT-FUNC JUMP-FUNC INSERT-FUNC)"] "/builddir/build/BUILD/emacs-24.3/lisp/register.el" compiler-macro-file purecopy file-name-nondirectory] 6) #@56 (fn &optional DATA PRINT-FUNC JUMP-FUNC INSERT-FUNC) (defalias 'registerv--make #[(&rest #1=#:--cl-rest--) "\211A@\211A@\211A@\211A@ \203& \305\306\307\310G\\D\"\210\311\312 \n \f%,\207" [#1# data print-func jump-func insert-func signal wrong-number-of-arguments registerv--make 4 vector registerv] 6 (#$ . 5107)]) (byte-code "\301C\302\301\303\304#\210\302\301\305\306#\210\302\301\307\310#\210\302\301\311\310#\210\302\312\313\314#\210\302\315\313\316#\210\302\317\313\314#\210\302\320\313\314#\210\302\321\313\314#\210\302\322\313\314#\207" [cl-struct-registerv-tags registerv put cl-struct-slots ((cl-tag-slot) (data nil :read-only t) (print-func nil :read-only t) (jump-func nil :read-only t) (insert-func nil :read-only t)) cl-struct-type (vector t) cl-struct-include nil cl-struct-print registerv--make side-effect-free t registerv-p error-free registerv-insert-func registerv-jump-func registerv-print-func registerv-data] 4) #@539 Create a register value object. DATA can be any value. PRINT-FUNC if provided controls how `list-registers' and `view-register' print the register. It should be a function receiving one argument DATA and print text that completes this sentence: Register X contains [TEXT PRINTED BY PRINT-FUNC] JUMP-FUNC if provided, controls how `jump-to-register' jumps to the register. INSERT-FUNC if provided, controls how `insert-register' insert the register. They both receive DATA as argument. (fn DATA &key PRINT-FUNC JUMP-FUNC INSERT-FUNC) (defalias 'registerv-make #[(data &rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@ \f\203> \f@\311>\203' \fAA\211\202 \312>A@\2035 \313\211\202 \314\315\f@\"\210\202 )\316\317 \n %+\207" [#1# print-func jump-func insert-func #2=#:--cl-keys-- data :print-func :jump-func :insert-func (:print-func :jump-func :insert-func :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:print-func :jump-func :insert-func)" vector registerv] 7 (#$ . 6064)]) #@683 Alist of elements (NAME . CONTENTS), one for each Emacs register. NAME is a character (a number). CONTENTS is a string, number, marker, list or a struct returned by `registerv-make'. A list of strings represents a rectangle. A list of the form (file . FILE-NAME) represents the file named FILE-NAME. A list of the form (file-query FILE-NAME POSITION) represents position POSITION in the file named FILE-NAME, but query before visiting it. A list of the form (WINDOW-CONFIGURATION POSITION) represents a saved window configuration plus a saved value of point. A list of the form (FRAME-CONFIGURATION POSITION) represents a saved frame configuration plus a saved value of point. (defvar register-alist nil (#$ . 7093)) (byte-code "\300\301\302\303\304\305\306\307&\210\310\311\302\312\304\301\313\314&\207" [custom-declare-group register nil "Register commands." :group convenience :version "24.3" custom-declare-variable register-separator "Register containing the text to put between collected texts, or nil if none.\n\nWhen collecting text with\n`append-to-register' (resp. `prepend-to-register') contents of\nthis register is added to the beginning (resp. end) of the marked\ntext." :type (choice (const :tag "None" nil) (character :tag "Use register" :value 43))] 8) #@67 Return contents of Emacs register named REGISTER, or nil if none. (defalias 'get-register #[(register) " \236A\207" [register register-alist] 2 (#$ . 8376)]) #@149 Set contents of Emacs register named REGISTER to VALUE. Returns VALUE. See the documentation of the variable `register-alist' for possible VALUEs. (defalias 'set-register #[(register value) " \236\211\203 \n \241\210\202 B B )\207" [register register-alist aelt value] 3 (#$ . 8542)]) #@236 Store current location of point in register REGISTER. With prefix argument, store current frame configuration. Use \[jump-to-register] to go to that location or restore that configuration. Argument is a character, naming the register. (defalias 'point-to-register #[(register &optional arg) "\302\303\304\305\306$\210\307 \203 \310 \311 D\202 \311 \"\207" [register arg add-hook kill-buffer-hook register-swap-out nil t set-register current-frame-configuration point-marker] 5 (#$ . 8842) "cPoint to register: \nP"]) #@176 Store the window configuration of the selected frame in register REGISTER. Use \[jump-to-register] to restore the configuration. Argument is a character, naming the register. (defalias 'window-configuration-to-register #[(register &optional _arg) "\301\302 \303 D\"\207" [register set-register current-window-configuration point-marker] 4 (#$ . 9369) "cWindow configuration to register: \nP"]) #@168 Store the window configuration of all frames in register REGISTER. Use \[jump-to-register] to restore the configuration. Argument is a character, naming the register. (defalias 'frame-configuration-to-register #[(register &optional _arg) "\301\302 \303 D\"\207" [register set-register current-frame-configuration point-marker] 4 (#$ . 9771) "cFrame configuration to register: \nP"]) (defalias 'register-to-point 'jump-to-register) #@545 Move point to location stored in a register. If the register contains a file name, find that file. (To put a file name in a register, you must use `set-register'.) If the register contains a window configuration (one frame) or a frame configuration (all frames), restore that frame or all frames accordingly. First argument is a character, naming the register. Optional second arg non-nil (interactively, prefix argument) says to delete any existing frames that the frame configuration doesn't mention. (Otherwise, these frames are iconified.) (defalias 'jump-to-register #[(register &optional delete) "\306!\307 !\203Z G\310Y\203Z \311H\n>\203Z \311H\n>\204' \312\313\314\315#\210 \316H\2044 \312\317\320!\"\210 \311H\n>\204B \312\313\314\315#\210 \316H \311H\n>\204S \312\313\321\315#\210 \322H!\202 :\203w \323 @!\203w \324 @ ?\"\210 \211 A@)b\202 :\203\222 \325 @!\203\222 \326 @!\210 \211 A@)b\202\327 !\203\255 \330 !\204\242 \312\331!\210\332\330 !!\210 b\202 :\203\300 @\333=\203\300 \334 A!\202 :\203\360 @\335=\203\360 \336 A@!\204\343 \337\340\341 A@\"!\204\343 \312\342!\210\334 A@!\210\343 8b\202\344\345!\203 \203 \345 !\203 \332\346 !!\210\347 !b\202\312\350!)\207" [register val cl-struct-registerv-tags delete x semantic-mode get-register vectorp 5 0 error "%s accessing a non-%s" registerv-jump-func registerv 3 "Don't know how to jump to register %s" single-key-description registerv-data 1 frame-configuration-p set-frame-configuration window-configuration-p set-window-configuration markerp marker-buffer "That register's buffer no longer exists" switch-to-buffer file find-file file-query find-buffer-visiting y-or-n-p format "Visit file %s again? " "Register access aborted" 2 fboundp semantic-foreign-tag-p semantic-tag-buffer semantic-tag-start "Register doesn't contain a buffer position or configuration"] 6 (#$ . 10210) "cJump to register: \nP"]) #@66 Turn markers into file-query references when a buffer is killed. (defalias 'register-swap-out #[nil "\2052 \304\211\2051 @\305\nA!\203) \306\nA!p=\203) \n\307\310\nA!E\241\210 A\211\204\f \304*\207" [buffer-file-name register-alist elem --dolist-tail-- nil markerp marker-buffer file-query marker-position] 6 (#$ . 12117)]) #@276 Store a number in a register. Two args, NUMBER and REGISTER (a character, naming the register). If NUMBER is nil, a decimal number is read from the buffer starting at point, and point moves to the end of that number. Interactively, NUMBER is the prefix arg (none means nil). (defalias 'number-to-register #[(number register) "\302 \203\f \303 !\202 \304\305!\203 \306\225b\210\307\310\306!!\202 \306\"\207" [register number set-register prefix-numeric-value looking-at "\\s-*-?[0-9]+" 0 string-to-number match-string] 5 (#$ . 12456) "P\ncNumber to register: "]) #@251 Augment contents of REGISTER. Interactively, PREFIX is in raw form. If REGISTER contains a number, add `prefix-numeric-value' of PREFIX to it. If REGISTER is empty or if it contains text, call `append-to-register' with `delete-flag' set to PREFIX. (defalias 'increment-register #[(prefix register) "\304!\211\247\203 \305\n!\306 \\\")\202. \203 ;\203+ \307\310 \311 \n$\202. \312\313!)\207" [register register-val prefix number get-register prefix-numeric-value set-register append-to-register region-beginning region-end error "Register does not contain a number or text"] 6 (#$ . 13029) "P\ncIncrement register: "]) #@95 Display what is contained in register named REGISTER. The Lisp value REGISTER is a character. (defalias 'view-register #[(register) "\306!\211\204 \307\310\311!\"\202C \nr\312\313!q\210p\314 \210 \315\211\316\211\316 \317 \210\320\321!\210+\211 \322\316\"\323!\210+)\207" [register val default-directory #1=#:old-dir buffer-read-only buffer-file-name get-register message "Register %s is empty" single-key-description get-buffer-create "*Output*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook describe-register-1 internal-temp-output-buffer-show buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output] 5 (#$ . 13665) "cView register: "]) #@72 Display a list of nonempty registers saying briefly what they contain. (defalias 'list-registers #[nil "\306!\307 \310\"\nr\311\312!q\210p\313 \210 \314\211\315\211\315 \316 \210\317\320!\210+\211 \314 \211 \205[ @\321@!\203Q \322@!\210\323 \210A\211\204; \314*\324!\210,\207" [register-alist list default-directory #1=#:old-dir buffer-read-only buffer-file-name copy-sequence sort #[(a b) "@ @W\207" [a b] 2] get-buffer-create "*Output*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook get-register describe-register-1 terpri internal-temp-output-buffer-show buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output elt --dolist-tail--] 4 (#$ . 14391) nil]) (defalias 'describe-register-1 #[(register &optional verbose) "\306\307!\210\306\310!!\210\306\311!\210\312!\313 !\203g G\314Y\203g \315H\n>\203g \315H\n>\2045 \316\317\320\321#\210 \322H\203a \315H\n>\204I \316\317\320\321#\210 \322H \315H\n>\204Z \316\317\323\321#\210 \324H!\202\232\306\325!\202\232 \247\203r \306 !\202\232\326 !\203\235 \327 !\211\204\206 \306\330!\202\231 \306\331!\210\306\332 !!\210\306\333!\210\306\334 !!)\202\232 :\203\257 \335 @!\203\257 \306\336!\202\232 :\203\301 \337 @!\203\301 \306\340!\202\232 :\203\334 @\341=\203\334 \306\342!\210\343 A!\210\306\344!\202\232 :\203 @\345=\203\306\346!\210\343 A@!\210\306\347!\210\306 AA@!\210\306\344!\202\232 :\2032\f\203'\306\350!\210 \205\232\306\351!\210\306 @!\210\352 \210 A\211\202\306\353!\210\306 @!\202\232 ;\203\217 \354=\203H\355\315 G\356 $\210\202P\357\315 G $\210\f\203^\306\360!\210\306 !\202\232\361\362\363\364\315\365 \366Z]^\" \"\203|\306\367!\210\306\370\315 \"!\202\232\361\371 \"\203\211\306\372!\202\232\306\373!\202\232\306\374!\210\f\205\232\343 !)\207" [register val cl-struct-registerv-tags buf verbose yank-excluded-properties princ "Register " single-key-description " contains " get-register vectorp 5 0 error "%s accessing a non-%s" registerv-print-func registerv 2 registerv-data 1 "[UNPRINTABLE CONTENTS]." markerp marker-buffer "a marker in no buffer" "a buffer position:\n buffer " buffer-name ", position " marker-position window-configuration-p "a window configuration." frame-configuration-p "a frame configuration." file "the file " prin1 "." file-query "a file-query reference:\n file " ",\n position " "the rectangle:\n" " " terpri "a rectangle starting with " t set-text-properties nil remove-list-of-text-properties "the text:\n" string-match format "[^ \n].\\{,%d\\}" 20 window-width 6 "text starting with\n " match-string "^[ \n]+$" "whitespace" "the empty string" "Garbage:\n"] 8]) #@261 Insert contents of register REGISTER. (REGISTER is a character.) Normally puts point before and mark after the inserted text. If optional second arg is non-nil, puts mark before and point after. Interactively, second arg is non-nil if prefix arg is supplied. (defalias 'insert-register #[(register &optional arg) "\305 \210\306!\307 !\203^ G\310Y\203^ \311H\n>\203^ \311H\n>\204* \312\313\314\315#\210 \316H\2047 \312\317\320!\"\210 \311H\n>\204E \312\313\314\315#\210 \316H \311H\n>\204V \312\313\321\315#\210 \322H!\210\202\264 :\203j \323 !\210\202\264 ;\203v \324 !\210\202\264 \247\203\203 \325 p\"\210\202\264 \326 !\203\231 \327 !\203\231 \325\327 !p\"\210\202\264 \330\331!\203\260 \203\260 \331 !\203\260 \332 !\210\202\264 \312\333!\210)\f?\205\274 \334 \207" [register val cl-struct-registerv-tags semantic-mode arg push-mark get-register vectorp 5 0 error "%s accessing a non-%s" registerv-insert-func registerv 4 "Don't know how to insert register %s" single-key-description registerv-data 1 insert-rectangle insert-for-yank princ markerp marker-position fboundp semantic-foreign-tag-p semantic-insert-foreign-tag "Register does not contain text" exchange-point-and-mark] 5 (#$ . 17106) "*cInsert register: \nP"]) #@206 Copy region into register REGISTER. With prefix arg, delete as well. Called from program, takes four args: REGISTER, START, END and DELETE-FLAG. START and END are buffer positions indicating what to copy. (defalias 'copy-to-register #[(register start end &optional delete-flag) "\305\306 \n\"\"\210\307\f\203 \n|\207\310\311!\205 \312 \207" [register start end deactivate-mark delete-flag set-register filter-buffer-substring t called-interactively-p interactive indicate-copied-region] 5 (#$ . 18351) "cCopy to register: \nr\nP"]) #@216 Append region to text in register REGISTER. With prefix arg, delete as well. Called from program, takes four args: REGISTER, START, END and DELETE-FLAG. START and END are buffer positions indicating what to append. (defalias 'append-to-register #[(register start end &optional delete-flag) "\306!\307 \n\" \205 \306 ! \310\204 \202. ;\203+ \f Q\202. \311\312!\"\210+\313\203= \n|\207\314\315!\205E \316 \207" [register start end register-separator separator text get-register filter-buffer-substring set-register error "Register does not contain text" t called-interactively-p interactive indicate-copied-region reg deactivate-mark delete-flag] 5 (#$ . 18895) "cAppend to register: \nr\nP"]) #@218 Prepend region to text in register REGISTER. With prefix arg, delete as well. Called from program, takes four args: REGISTER, START, END and DELETE-FLAG. START and END are buffer positions indicating what to prepend. (defalias 'prepend-to-register #[(register start end &optional delete-flag) "\306!\307 \n\" \205 \306 ! \310\204 \202. ;\203+ \fQ\202. \311\312!\"\210+\313\203= \n|\207\314\315!\205E \316 \207" [register start end register-separator separator text get-register filter-buffer-substring set-register error "Register does not contain text" t called-interactively-p interactive indicate-copied-region reg deactivate-mark delete-flag] 5 (#$ . 19613) "cPrepend to register: \nr\nP"]) #@292 Copy rectangular region into register REGISTER. With prefix arg, delete as well. To insert this register in the buffer, use \[insert-register]. Called from a program, takes four args: REGISTER, START, END and DELETE-FLAG. START and END are buffer positions giving two corners of rectangle. (defalias 'copy-rectangle-to-register #[(register start end &optional delete-flag) "\203 \306 \n\"\202 \307 \n\"\310\f \"\210?\205' \311\312!\205' \313\314 @G!)\207" [delete-flag start end rectangle register deactivate-mark delete-extract-rectangle extract-rectangle set-register called-interactively-p interactive t indicate-copied-region] 3 (#$ . 20335) "cCopy rectangle to register: \nr\nP"]) (provide 'register)