HOME

Mini Shell 1.0
DIR:/proc/thread-self/root/usr/share/emacs/26.1/lisp/
Current File : //proc/thread-self/root/usr/share/emacs/26.1/lisp/register.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@68 compiler-macro for inlining `registerv-p'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'registerv-p--cmacro #[514 "\300\301\302\303\211\211&\207" [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] 9 (#$ . 408)])
(put 'registerv-p 'compiler-macro 'registerv-p--cmacro)
#@13 

(fn CL-X)
(defalias 'registerv-p #[257 "\301!\205\211G\302Y\205\211\303H>\205\304\207" [cl-struct-registerv-tags vectorp 5 0 t] 3 (#$ . 770)])
(byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put registerv-p side-effect-free error-free put registerv cl-deftype-satisfies] 5)
#@71 compiler-macro for inlining `registerv-data'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'registerv-data--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block registerv-data (or (and (memq (aref cl-x 0) cl-struct-registerv-tags)) (signal 'wrong-type-argument (list 'registerv cl-x))) (aref cl-x 1)) nil] 9 (#$ . 1074)])
(put 'registerv-data 'compiler-macro 'registerv-data--cmacro)
#@197 Access slot "data" of `(registerv (:constructor nil) (:constructor registerv--make (&optional data print-func jump-func insert-func)) (:copier nil) (:type vector) :named)' struct CL-X.

(fn CL-X)
(defalias 'registerv-data #[257 "\211\301H>\204\302\303\304D\"\210\211\305H\207" [cl-struct-registerv-tags 0 signal wrong-type-argument registerv 1] 5 (#$ . 1487)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put registerv-data side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" registerv-data] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@77 compiler-macro for inlining `registerv-print-func'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'registerv-print-func--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block registerv-print-func (or (and (memq (aref cl-x 0) cl-struct-registerv-tags)) (signal 'wrong-type-argument (list 'registerv cl-x))) (aref cl-x 2)) nil] 9 (#$ . 2078)])
(put 'registerv-print-func 'compiler-macro 'registerv-print-func--cmacro)
#@203 Access slot "print-func" of `(registerv (:constructor nil) (:constructor registerv--make (&optional data print-func jump-func insert-func)) (:copier nil) (:type vector) :named)' struct CL-X.

(fn CL-X)
(defalias 'registerv-print-func #[257 "\211\301H>\204\302\303\304D\"\210\211\305H\207" [cl-struct-registerv-tags 0 signal wrong-type-argument registerv 2] 5 (#$ . 2521)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put registerv-print-func side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" registerv-print-func] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@76 compiler-macro for inlining `registerv-jump-func'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'registerv-jump-func--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block registerv-jump-func (or (and (memq (aref cl-x 0) cl-struct-registerv-tags)) (signal 'wrong-type-argument (list 'registerv cl-x))) (aref cl-x 3)) nil] 9 (#$ . 3136)])
(put 'registerv-jump-func 'compiler-macro 'registerv-jump-func--cmacro)
#@202 Access slot "jump-func" of `(registerv (:constructor nil) (:constructor registerv--make (&optional data print-func jump-func insert-func)) (:copier nil) (:type vector) :named)' struct CL-X.

(fn CL-X)
(defalias 'registerv-jump-func #[257 "\211\301H>\204\302\303\304D\"\210\211\305H\207" [cl-struct-registerv-tags 0 signal wrong-type-argument registerv 3] 5 (#$ . 3574)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put registerv-jump-func side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" registerv-jump-func] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@78 compiler-macro for inlining `registerv-insert-func'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'registerv-insert-func--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block registerv-insert-func (or (and (memq (aref cl-x 0) cl-struct-registerv-tags)) (signal 'wrong-type-argument (list 'registerv cl-x))) (aref cl-x 4)) nil] 9 (#$ . 4185)])
(put 'registerv-insert-func 'compiler-macro 'registerv-insert-func--cmacro)
#@204 Access slot "insert-func" of `(registerv (:constructor nil) (:constructor registerv--make (&optional data print-func jump-func insert-func)) (:copier nil) (:type vector) :named)' struct CL-X.

(fn CL-X)
(defalias 'registerv-insert-func #[257 "\211\301H>\204\302\303\304D\"\210\211\305H\207" [cl-struct-registerv-tags 0 signal wrong-type-argument registerv 4] 5 (#$ . 4633)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put registerv-insert-func side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" registerv-insert-func] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@115 compiler-macro for inlining `registerv--make'.

(fn CL-WHOLE-ARG &optional DATA PRINT-FUNC JUMP-FUNC INSERT-FUNC)
(defalias 'registerv--make--cmacro #[1281 "\300\301\302\303\211\211				&	\207" [cl--defsubst-expand (data print-func jump-func insert-func) (cl-block registerv--make (vector 'registerv data print-func jump-func insert-func)) nil] 15 (#$ . 5253)])
(put 'registerv--make 'compiler-macro 'registerv--make--cmacro)
#@100 Constructor for objects of type `registerv'.

(fn &optional DATA PRINT-FUNC JUMP-FUNC INSERT-FUNC)
(defalias 'registerv--make #[1024 "\300\301%\207" [vector registerv] 10 (#$ . 5689)])
(byte-code "\300\301\302\303#\304\305\306\211\307\303\310\311\305\306&	\207" [function-put registerv--make side-effect-free t cl-struct-define registerv nil vector ((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-registerv-tags] 11)
#@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 #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\211\203=\211@\304>\203&\211AA\262\202\305>A@\2034\306\262\202\307\310@\"\210\202\210\311\312%\207" [plist-member :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] 11 (#$ . 6209)])
#@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 (#$ . 7185))
(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314DD\315\304\301\316\317&\210\310\320\312\313\321DD\322\306\323\316\324\304\301&	\207" [custom-declare-group register nil "Register commands." :group convenience :version "24.3" custom-declare-variable register-separator funcall function #[0 "\300\207" [nil] 1] "Register containing the text to put between collected texts, or nil if none.\n\nWhen collecting text with \\[append-to-register] (or \\[prepend-to-register]),\ncontents of this register is added to the beginning (or end, respectively)\nof the marked text." :type (choice (const :tag "None" nil) (character :tag "Use register" :value 43)) register-preview-delay #[0 "\300\207" [1] 1] "If non-nil, time to wait in seconds before popping up a preview window.\nIf nil, do not show register previews, unless `help-char' (or a member of\n`help-event-list') is pressed." "24.4" (choice number (const :tag "No preview unless requested" nil))] 10)
#@82 Return contents of Emacs register named REGISTER, or nil if none.

(fn REGISTER)
(defalias 'get-register #[257 "\301\"\207" [register-alist alist-get] 4 (#$ . 8884)])
#@170 Set contents of Emacs register named REGISTER to VALUE.  Returns VALUE.
See the documentation of the variable `register-alist' for possible VALUEs.

(fn REGISTER VALUE)
(defalias 'set-register #[514 "\236\203\241\202B\211\262B\211\207" [register-alist] 6 (#$ . 9060)])
#@45 One-line description of register C.

(fn C)
(defalias 'register-describe-oneline #[257 "\301\302\303\304\305\306!!\307\216\310!\210)rq\210\311 +#\312\313\"\203)\211\314\225\315O\202*\211\207" [standard-output replace-regexp-in-string "\n[ 	]*" " " get-buffer-create generate-new-buffer-name " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] describe-register-1 buffer-string string-match "Register.+? contains \\(?:an? \\|the \\)?" 0 nil] 7 (#$ . 9350)])
#@72 Default function for the variable `register-preview-function'.

(fn R)
(defalias 'register-preview-default #[257 "\300\301\302@!\303@!#\207" [format "%s: %s\n" single-key-description register-describe-oneline] 6 (#$ . 9838)])
#@140 Function to format a register for previewing.
Takes one argument, a cons (NAME . CONTENTS) as found in `register-alist'.
Returns a string.
(defvar register-preview-function 'register-preview-default (#$ . 10073))
#@230 Pop up a window to show register preview in BUFFER.
If SHOW-EMPTY is non-nil show the window even if no registers.
Format of each entry is controlled by the variable `register-preview-function'.

(fn BUFFER &optional SHOW-EMPTY)
(defalias 'register-preview #[513 "\211\204	:\205?\304\305B\306!\211\307\211rq\210r	q\210\307\310\311#c)\262\312\"\262)\313\307!\203;\307\"\202<\211)\266\205\207" [register-alist standard-output cursor-in-non-selected-windows register-preview-function display-buffer-below-selected ((window-height . fit-window-to-buffer) (preserve-size nil . t)) temp-buffer-window-setup nil mapconcat "" temp-buffer-window-show functionp] 11 (#$ . 10293)])
#@363 Read and return a register name, possibly showing existing registers.
Prompt with the string PROMPT.  If `register-alist' and
`register-preview-delay' are both non-nil, display a window
listing existing registers after `register-preview-delay' seconds.
If `help-char' (or a member of `help-event-list') is pressed,
display such a window regardless.

(fn PROMPT)
(defalias 'register-read-with-preview #[257 "\304\247\205\305\306\307\310\311\312\313!\314\"\315$#	\nB\306\211:\2036@\262\316!\204/B\262A\262\202\211\237\266\203\307\310\317\312\313\"\320\"\321$\216\322\323\324\325#!>\203c\326!\204I\327\330\"\210\202I\331=\204u\332=\204u\333=\203x\334 \210\335!\203\202\202\205\336\337!)\207" [register-preview-delay help-char help-event-list last-input-event "*Register Preview*" run-with-timer nil make-byte-code 0 "\301\300!?\205\n\302\300!\207" vconcat vector [get-buffer-window register-preview] 2 get-register "\302\301!\203\n\303\301!\210\304\300!\305!\203\306!\210\210\307\300!\205!\310\300!\207" [timerp cancel-timer get-buffer-window window-live-p delete-window get-buffer kill-buffer] 3 read-key propertize face minibuffer-prompt get-buffer-window register-preview show-empty 7 escape 27 keyboard-quit characterp error "Non-character input-event"] 11 (#$ . 10989)])
#@336 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.

Interactively, reads the register using `register-read-with-preview'.

(fn REGISTER &optional ARG)
(defalias 'point-to-register #[513 "\300\301\302\303\304$\210\305\203\306 \307 D\202\307 \"\207" [add-hook kill-buffer-hook register-swap-out nil t set-register current-frame-configuration point-marker] 7 (#$ . 12316) (byte-code "\301\302!D\207" [current-prefix-arg register-read-with-preview "Point to register: "] 2)])
#@276 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.

Interactively, reads the register using `register-read-with-preview'.

(fn REGISTER &optional ARG)
(defalias 'window-configuration-to-register #[513 "\300\301 \302 D\"\207" [set-register current-window-configuration point-marker] 6 (#$ . 12986) (byte-code "\301\302!D\207" [current-prefix-arg register-read-with-preview "Window configuration to register: "] 2)])
(set-advertised-calling-convention 'window-configuration-to-register '(register) "24.4")
#@268 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.

Interactively, reads the register using `register-read-with-preview'.

(fn REGISTER &optional ARG)
(defalias 'frame-configuration-to-register #[513 "\300\301 \302 D\"\207" [set-register current-frame-configuration point-marker] 6 (#$ . 13623) (byte-code "\301\302!D\207" [current-prefix-arg register-read-with-preview "Frame configuration to register: "] 2)])
(byte-code "\300\301\302\303#\210\304\301\305\303#\210\306\307\310\"\207" [set-advertised-calling-convention frame-configuration-to-register (register) "24.4" make-obsolete frameset-to-register defalias register-to-point jump-to-register] 4)
#@626 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 frameset
(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 frameset doesn't mention.
(Otherwise, these frames are iconified.)

Interactively, reads the register using `register-read-with-preview'.

(fn REGISTER &optional DELETE)
(defalias 'jump-to-register #[513 "\302!\303!\203`\211G\304Y\203`\211\305H>\203`\211\305H>\204'\306\307\310D\"\210\211\311H\2048\312\313\314\315\316!C$\210\211\305H>\204G\306\307\310D\"\210\211\311H\305H>\204Y\306\307\310D\"\210\317H!\202\211:\203z\320@!\203z\321@?\"\210\211A@b\202\211:\203\222\322@!\203\222\323@!\210\211A@b\202\324!\203\276\325!\204\242\326\327!\210\330\325!!\210`\331!U\204\271	\332=\204\271\333 \210\211b\202\211:\203\321\211@\334=\203\321\335A!\202\211:\203\211@\336=\203\337A@!\204\364\340\341\342A@\"!\204\364\326\343!\210\335A@!\210\3448b\202\326\345!\207" [cl-struct-registerv-tags last-command get-register vectorp 5 0 signal wrong-type-argument registerv 3 cl--assertion-failed (registerv-jump-func val) "Don't know how to jump to register %s" nil single-key-description 1 frame-configuration-p set-frame-configuration window-configuration-p set-window-configuration markerp marker-buffer user-error "That register's buffer no longer exists" switch-to-buffer marker-position jump-to-register push-mark file find-file file-query find-buffer-visiting y-or-n-p format "Visit file %s again? " "Register access aborted" 2 "Register doesn't contain a buffer position or configuration"] 9 (#$ . 14402) (byte-code "\301\302!D\207" [current-prefix-arg register-read-with-preview "Jump to register: "] 2)])
#@66 Turn markers into file-query references when a buffer is killed.
(defalias 'register-swap-out #[0 "\205.	\211\205,\211@\302A!\203%\303A!p=\203%\211\304\305A!E\241\210A\266\202\202\262\207" [buffer-file-name register-alist markerp marker-buffer file-query marker-position] 7 (#$ . 16422)])
#@369 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).

Interactively, reads the register using `register-read-with-preview'.

(fn NUMBER REGISTER)
(defalias 'number-to-register #[514 "\300\203\f\301!\202\302\303!\203\304\225b\210\305\306\304!!\202\304\"\207" [set-register prefix-numeric-value looking-at "\\s-*-?[0-9]+" 0 string-to-number match-string] 7 (#$ . 16731) (byte-code "\301\302!D\207" [current-prefix-arg register-read-with-preview "Number to register: "] 3)])
#@344 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.

Interactively, reads the register using `register-read-with-preview'.

(fn PREFIX REGISTER)
(defalias 'increment-register #[514 "\300!\211\247\203\301!\302\\\"\262\202.\211\203\211;\203+\303\304 \305 $\202.\306\307!\207" [get-register prefix-numeric-value set-register append-to-register region-beginning region-end user-error "Register does not contain a number or text"] 8 (#$ . 17443) (byte-code "\301\302!D\207" [current-prefix-arg register-read-with-preview "Increment register: "] 3)])
#@181 Display what is contained in register named REGISTER.
The Lisp value REGISTER is a character.

Interactively, reads the register using `register-read-with-preview'.

(fn REGISTER)
(defalias 'view-register #[257 "\306!\211\204\307\310\311!\"\202=r\312\313!q\210p\314 \210\315\211\316\211\316\317 \210\320\321!\210+\211\322\316\"\323!\210)\266\202\207" [default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only 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 standard-output] 8 (#$ . 18210) (byte-code "\300\301!C\207" [register-read-with-preview "View register: "] 2)])
#@72 Display a list of nonempty registers saying briefly what they contain.
(defalias 'list-registers #[0 "\306!\307\310\"\262	r\311\312!q\210p\313 \210\314\211\315\211\315\316 \210\317\320!\210+\211\211\205I\211@\321@!\203B\322@!\210\323 \210A\266\202\202-\262\324!\210)\266\202\207" [register-alist default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks copy-sequence sort #[514 "@@W\207" [] 4 "\n\n(fn A B)"] 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 inhibit-read-only standard-output] 8 (#$ . 19037) nil])
#@35 

(fn REGISTER &optional VERBOSE)
(defalias 'describe-register-1 #[513 "\302\303!\210\302\304!!\210\302\305!\210\306!\307!\203i\211G\310Y\203i\211\311H>\203i\211\311H>\2045\312\313\314D\"\210\211\315H\203c\211\311H>\204J\312\313\314D\"\210\211\315H\311H>\204\\\312\313\314D\"\210\316H!\202\241\302\317!\202\241\211\247\203t\302!\202\241\320!\203\237\321!\211\204\207\302\322!\202\232\302\323!\210\302\324!!\210\302\325!\210\302\326!!\262\202\241\211:\203\261\327@!\203\261\302\330!\202\241\211:\203\303\331@!\203\303\302\332!\202\241\211:\203\336\211@\333=\203\336\302\334!\210\335A!\210\302\336!\202\241\211:\203\211@\337=\203\302\340!\210\335A@!\210\302\341!\210\302AA@!\210\302\336!\202\241\211:\2034\203)\302\342!\210\211\205\241\302\343!\210\302@!\210\344 \210\211A\262\202\302\345!\210\302@!\202\241\211;\203\226\346!\262	\347=\203O\350\311G\351$\210\202W\352\311G	$\210\203e\302\353!\210\302!\202\241\354\355\356\357\311\360 \361Z]^\"\"\203\203\302\362!\210\302\363\311\"!\202\241\354\364\"\203\220\302\365!\202\241\302\366!\202\241\302\367!\210\205\241\335!\207" [cl-struct-registerv-tags yank-excluded-properties princ "Register " single-key-description " contains " get-register vectorp 5 0 signal wrong-type-argument registerv 2 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 " copy-sequence 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"] 10 (#$ . 19750)])
#@373 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 nil if prefix arg is supplied and t
otherwise.

Interactively, reads the register using `register-read-with-preview'.

(fn REGISTER &optional ARG)
(defalias 'insert-register #[513 "\301 \210\302!\303!\203d\211G\304Y\203d\211\305H>\203d\211\305H>\204*\306\307\310D\"\210\211\311H\204;\312\313\314\315\316!C$\210\211\305H>\204J\306\307\310D\"\210\211\311H\305H>\204\\\306\307\310D\"\210\317H!\210\202\243\211:\203p\320!\210\202\243\211;\203|\321!\210\202\243\211\247\203\211\322p\"\210\202\243\323!\203\237\324!\203\237\322\324!p\"\210\202\243\325\326!\210\210\211?\205\253\327 \207" [cl-struct-registerv-tags push-mark get-register vectorp 5 0 signal wrong-type-argument registerv 4 cl--assertion-failed (registerv-insert-func val) "Don't know how to insert register %s" nil single-key-description 1 insert-rectangle insert-for-yank princ markerp marker-position user-error "Register does not contain text" exchange-point-and-mark] 9 (#$ . 21744) (byte-code "\301 \210\302\303!?D\207" [current-prefix-arg barf-if-buffer-read-only register-read-with-preview "Insert register: "] 2)])
#@483 Copy region into register REGISTER.
With prefix arg, delete as well.
Called from program, takes five args: REGISTER, START, END, DELETE-FLAG,
and REGION.  START and END are buffer positions indicating what to copy.
The optional argument REGION if non-nil, indicates that we're not just
copying some text between START and END, but we're copying the region.

Interactively, reads the register using `register-read-with-preview'.

(fn REGISTER START END &optional DELETE-FLAG REGION)
(defalias 'copy-to-register #[1283 "\302\203\f!\202\303\"\203|\210\"\210\304\206,\305\306!\205,\307 \207" [region-extract-function deactivate-mark set-register filter-buffer-substring t called-interactively-p interactive indicate-copied-region] 10 (#$ . 23096) (byte-code "\301\302!\303 \304 \305\257\207" [current-prefix-arg register-read-with-preview "Copy to register: " region-beginning region-end t] 5)])
#@334 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.

Interactively, reads the register using `register-read-with-preview'.

(fn REGISTER START END &optional DELETE-FLAG)
(defalias 'append-to-register #[1027 "\302!\303\"\205\302!\304\204\202(;\203%Q\202(\305\306!\"\266\307\211\2035|\207\310\311!\205=\312 \207" [register-separator deactivate-mark get-register filter-buffer-substring set-register user-error "Register does not contain text" t called-interactively-p interactive indicate-copied-region] 12 (#$ . 24019) (byte-code "\301\302!\303 \304 F\207" [current-prefix-arg register-read-with-preview "Append to register: " region-beginning region-end] 4)])
#@336 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.

Interactively, reads the register using `register-read-with-preview'.

(fn REGISTER START END &optional DELETE-FLAG)
(defalias 'prepend-to-register #[1027 "\302!\303\"\205\302!\304\204\202);\203&Q\202)\305\306!\"\266\307\211\2036|\207\310\311!\205>\312 \207" [register-separator deactivate-mark get-register filter-buffer-substring set-register user-error "Register does not contain text" t called-interactively-p interactive indicate-copied-region] 12 (#$ . 24876) (byte-code "\301\302!\303 \304 F\207" [current-prefix-arg register-read-with-preview "Prepend to register: " region-beginning region-end] 4)])
#@410 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.

Interactively, reads the register using `register-read-with-preview'.

(fn REGISTER START END &optional DELETE-FLAG)
(defalias 'copy-rectangle-to-register #[1027 "\211\203\301\"\202\302\"\303\"\210?\205&\304\305!\205&\306\307@G!\207" [deactivate-mark delete-extract-rectangle extract-rectangle set-register called-interactively-p interactive t indicate-copied-region] 8 (#$ . 25738) (byte-code "\301\302!\303 \304 F\207" [current-prefix-arg register-read-with-preview "Copy rectangle to register: " region-beginning region-end] 4)])
(provide 'register)