;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. #@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 (memq (type-of cl-x) cl-struct-registerv-tags) t)) nil] 9 (#$ . 83)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop registerv-p compiler-macro registerv-p--cmacro] 4)#@13 (fn CL-X) (defalias 'registerv-p #[257 "\301!>\205 \302\207" [cl-struct-registerv-tags type-of t] 3 (#$ . 462)]) (byte-code "\300\301\302\303#\300\301\304\305#\306\307\310\301#\300\207" [function-put registerv-p side-effect-free error-free pure t define-symbol-prop registerv cl-deftype-satisfies] 6)#@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 (progn (or (registerv-p cl-x) (signal 'wrong-type-argument (list 'registerv cl-x))) (aref cl-x 1))) nil] 9 (#$ . 773)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop registerv-data compiler-macro registerv-data--cmacro] 4)#@59 Access slot "data" of `registerv' struct CL-X. (fn CL-X) (defalias 'registerv-data #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-registerv-tags type-of signal wrong-type-argument registerv 1] 5 (#$ . 1212)]) (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 (progn (or (registerv-p cl-x) (signal 'wrong-type-argument (list 'registerv cl-x))) (aref cl-x 2))) nil] 9 (#$ . 1667)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop registerv-print-func compiler-macro registerv-print-func--cmacro] 4)#@65 Access slot "print-func" of `registerv' struct CL-X. (fn CL-X) (defalias 'registerv-print-func #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-registerv-tags type-of signal wrong-type-argument registerv 2] 5 (#$ . 2137)]) (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 (progn (or (registerv-p cl-x) (signal 'wrong-type-argument (list 'registerv cl-x))) (aref cl-x 3))) nil] 9 (#$ . 2616)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop registerv-jump-func compiler-macro registerv-jump-func--cmacro] 4)#@64 Access slot "jump-func" of `registerv' struct CL-X. (fn CL-X) (defalias 'registerv-jump-func #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-registerv-tags type-of signal wrong-type-argument registerv 3] 5 (#$ . 3081)]) (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 (progn (or (registerv-p cl-x) (signal 'wrong-type-argument (list 'registerv cl-x))) (aref cl-x 4))) nil] 9 (#$ . 3556)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop registerv-insert-func compiler-macro registerv-insert-func--cmacro] 4)#@66 Access slot "insert-func" of `registerv' struct CL-X. (fn CL-X) (defalias 'registerv-insert-func #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-registerv-tags type-of signal wrong-type-argument registerv 4] 5 (#$ . 4031)]) (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 (record 'registerv data print-func jump-func insert-func)) nil] 15 (#$ . 4515)]) (byte-code "\300\301\302\303#\300\207" [define-symbol-prop registerv--make compiler-macro registerv--make--cmacro] 4)#@100 Constructor for objects of type `registerv'. (fn &optional DATA PRINT-FUNC JUMP-FUNC INSERT-FUNC) (defalias 'registerv--make #[1024 "\300\301%\207" [record registerv] 10 (#$ . 5004)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put registerv--make side-effect-free t cl-struct-define registerv nil cl-structure-object record ((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\203H\211@\304>\2031\211A\204)\305\306@\"\210\211AA\262\202\307>A@\203?\310\262\202\305\311@\"\210\202\210\312\313%\207" [plist-member :print-func :jump-func :insert-func (:print-func :jump-func :insert-func :allow-other-keys) error "Missing argument for %s" :allow-other-keys nil "Keyword argument %s not one of (:print-func :jump-func :insert-func)" record registerv] 11 (#$ . 5543)]) (make-obsolete 'registerv-make "Use your own type with methods on register-val-(insert|describe|jump-to)" "27.1")#@781 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 (buffer . BUFFER-NAME) represents the buffer BUFFER-NAME. 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 (a.k.a. "frameset") plus a saved value of point. (defvar register-alist nil (#$ . 6685)) (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 #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 #1#] "If non-nil, time to wait in seconds before popping up register 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 (#$ . 8498)])#@169 Set contents of Emacs register named REGISTER to VALUE. Return VALUE. See the documentation of the variable `register-alist' for possible VALUEs. (fn REGISTER VALUE) (defalias 'set-register #[514 "\236\211\203\211\241\210\202B\211\262B\207" [register-alist] 5 (#$ . 8673)])#@54 Return a one-line description of register C. (fn C) (defalias 'register-describe-oneline #[257 "\301\302\303\304\305\306\"\307\216\310!)\210rq\210\311 +#\312\313\"\203&\211\314\225\315O\207\207" [standard-output replace-regexp-in-string "\n[ ]*" " " generate-new-buffer " *string-output*" t #[0 "\301!\207" [standard-output kill-buffer] 2] describe-register-1 buffer-string string-match "Register.+? contains \\(?:an? \\|the \\)?" 0 nil] 7 (#$ . 8967)])#@89 Function that is the default value of 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 (#$ . 9436)])#@198 Function to format a register for previewing. Called with one argument, a cons (NAME . CONTENTS) as found in `register-alist'. The function should return a string, the description of the argument. (defvar register-preview-function 'register-preview-default (#$ . 9687))#@236 Pop up a window showing the registers 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<\303\304B\305!\211\306\211rq\210r q\210\306\307\310\")\262\311\")\262\312\306!\2038\306\"\2029\211)\266\204\207" [register-alist standard-output cursor-in-non-selected-windows display-buffer-below-selected ((window-height . fit-window-to-buffer) (preserve-size nil . t)) temp-buffer-window-setup nil mapc #[257 "\301@!\205 !c\207" [register-preview-function get-register] 3 "\n\n(fn ELEM)"] temp-buffer-window-show functionp] 9 (#$ . 9963)])#@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\"# \nB\306\211:\203.@\262\311!\204'B\262A\262\202\211\237\266\203\307\312#\216\313\314\315\316#!>\203R\317\304!\2048\320\304\321\"\210\2028 \322=\204d \323=\204d \324=\203g\325 \210\326 !\203q \202t\327\330!)\207" [register-preview-delay help-char help-event-list last-input-event "*Register Preview*" run-with-timer nil make-closure #[0 "\301\300!?\205\n\302\300!\207" [V0 get-buffer-window register-preview] 2] get-register #[0 "\302\300!\203\n\303\300!\210\304\301!\305!\203\306!\210\210\307\301!\205!\310\301!\207" [V0 V1 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"] 9 (#$ . 10716)])#@357 Store current location of point in REGISTER. With prefix argument ARG, store current frame configuration (a.k.a. "frameset"). Use \[jump-to-register] to go to that location or restore that configuration. Argument is a character, the name of the register. Interactively, prompt for 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 (#$ . 11992) (byte-code "\301\203 \302\202\n\303!D\207" [current-prefix-arg register-read-with-preview "Frame configuration to register: " "Point to register: "] 2)])#@273 Store the window configuration of the selected frame in REGISTER. Use \[jump-to-register] to restore the configuration. Argument is a character, the name of the register. Interactively, prompt for 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 (#$ . 12736) (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")#@323 Store the window configurations of all frames in REGISTER. (This window configuration is also known as "frameset"). Use \[jump-to-register] to restore the configuration. Argument is a character, the name of the register. Interactively, prompt for 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 (#$ . 13369) (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)#@941 Go to location stored in REGISTER, or restore configuration stored there. Push the mark if going to the location moves point, unless called in succession. If the register contains a file name, find that file. If the register contains a buffer name, switch to that buffer. (To put a file or buffer name in a register, you must use `set-register'.) If the register contains a window configuration (one frame) or a frameset (all frames), restore the configuration of that frame or of all frames accordingly. First argument REGISTER is a character, the name of the register. Optional second arg DELETE non-nil (interactively, prefix argument) says to delete any existing frames that the frameset doesn't mention. (Otherwise, these frames are iconified.) This argument is currently ignored if the register contains anything but a frameset. Interactively, prompt for REGISTER using `register-read-with-preview'. (fn REGISTER &optional DELETE) (defalias 'jump-to-register #[513 "\300!\301\"\207" [get-register register-val-jump-to] 6 (#$ . 14202) (byte-code "\301\302!D\207" [current-prefix-arg register-read-with-preview "Jump to register: "] 2)]) (byte-code "\300\301\302\301\303\304#\305#\210\306\301\304\303\304\307%\210\306\301\304\310\304\311%\210\306\301\304\312\304\313%\210\306\301\304\314\315\316%\207" [defalias register-val-jump-to cl-generic-define (_val _arg) nil "Execute the \"jump\" operation of VAL.\nVAL is the contents of a register as returned by `get-register'.\nARG is the value of the prefix argument or nil.\n\n(fn VAL ARG)" cl-generic-define-method #[514 "\300\301!\207" [user-error "Register doesn't contain a buffer position or configuration"] 4 "\n\n(fn VAL ARG)"] ((val registerv) _arg) #[514 "\301!>\204\302\303\304D\"\210\305H\204\306\307\310\311C$\210\301!>\204,\302\303\304D\"\210\305H\301!>\204>\302\303\304D\"\210\312H!\207" [cl-struct-registerv-tags type-of signal wrong-type-argument registerv 3 cl--assertion-failed (registerv-jump-func val) "Don't know how to jump to register value %S" nil 1] 7 "\n\n(fn VAL ARG)"] ((val marker) _arg) #[514 "\301!\204\n\302\303!\210\304\301!!\210`\305!U\204!\306=\204!\307 \210b\207" [last-command marker-buffer user-error "That register's buffer no longer exists" switch-to-buffer marker-position jump-to-register push-mark] 5 "\n\n(fn VAL ARG)"] ((val cons) delete) curried #[257 "\300!\210\301\302\303\"\207" [cl--generic-isnot-nnm-p nil make-closure #[128 "\301\302\300#\303\304#\207" [V0 make-closure #[128 "\302\301\206\300\"\207" [V0 V1 apply] 4 "\n\n(fn &rest ARGS)"] apply #[771 "\300@!\203\301@?\"\210A@b\207\302@!\203$\303@!\210A@b\207@\304=\2030\305A!\207@\306=\203<\307A!\207@\310=\203e\311A@!\204Z\312\313\314A@\"!\204Z\315\316!\210\305A@!\210\3178b\207\"\207" [frame-configuration-p set-frame-configuration window-configuration-p set-window-configuration file find-file buffer switch-to-buffer file-query find-buffer-visiting y-or-n-p format "Visit file %s again? " user-error "Register access aborted" 2] 7 "\n\n(fn CL--CNM VAL DELETE)"]] 6 "\n\n(fn VAL DELETE)"]] 5 "\n\n(fn CL--NM)"]] 6)#@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 (#$ . 17350)])#@342 Store NUMBER in REGISTER. REGISTER is a character, the name of the register. If NUMBER is nil, a decimal number is read from the buffer at point, and point moves to the end of that number. Interactively, NUMBER is the prefix arg (none means nil). Interactively, prompt for 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 (#$ . 17658) (byte-code "\301\302!D\207" [current-prefix-arg register-read-with-preview "Number to register: "] 3)])#@370 Augment contents of REGISTER using PREFIX. Interactively, PREFIX is the raw prefix argument. 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, prompt for REGISTER using `register-read-with-preview'. (fn PREFIX REGISTER) (defalias 'increment-register #[514 "\300!\211\247\203\301!\302\\\"\207\211\203\211;\203%\303\304 \305 $\207\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 (#$ . 18342) (byte-code "\301\302!D\207" [current-prefix-arg register-read-with-preview "Increment register: "] 3)])#@192 Display the description of the contents of REGISTER. REGISTER is a character, the name of the register. Interactively, prompt for REGISTER using `register-read-with-preview'. (fn REGISTER) (defalias 'view-register #[257 "\306!\211\204\307\310\311!\"\207r\312\313!q\210p\314 \210\315\211\316\211\316\317 \210\320\321!+\210\211\322\316\"\323!)\210\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 (#$ . 19125) (byte-code "\300\301!C\207" [register-read-with-preview "View register: "] 2)])#@77 Display the list of nonempty registers with brief descriptions of contents. (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\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 (#$ . 19952) nil])#@35 (fn REGISTER &optional VERBOSE) (defalias 'describe-register-1 #[513 "\300\301!\210\300\302!!\210\300\303!\210\304!\305\"\207" [princ "Register " single-key-description " contains " get-register register-val-describe] 6 (#$ . 20661)]) (byte-code "\300\301\302\301\303\304#\305#\210\306\301\304\303\304\307%\210\306\301\304\310\304\311%\210\306\301\304\312\304\313%\210\306\301\304\314\304\315%\210\306\301\304\316\304\317%\210\306\301\304\320\304\321%\207" [defalias register-val-describe cl-generic-define (val verbose) nil "Print description of register value VAL to `standard-output'.\nSecond argument VERBOSE means produce a more detailed description.\n\n(fn VAL VERBOSE)" cl-generic-define-method #[514 "\300\301!\210\211\205 \302!\207" [princ "Garbage:\n" prin1] 4 "\n\n(fn VAL VERBOSE)"] ((val registerv) _verbose) #[514 "\301!>\204\302\303\304D\"\210\305H\203;\301!>\204$\302\303\304D\"\210\305H\301!>\2046\302\303\304D\"\210\306H!\207\307\310!\207" [cl-struct-registerv-tags type-of signal wrong-type-argument registerv 2 1 princ "[UNPRINTABLE CONTENTS]."] 7 "\n\n(fn VAL VERBOSE)"] ((val number) _verbose) #[514 "\300!\207" [princ] 4 "\n\n(fn VAL VERBOSE)"] ((val marker) _verbose) #[514 "\300!\211\204 \301\302!\207\301\303!\210\301\304!!\210\301\305!\210\301\306!!\207" [marker-buffer princ "a marker in no buffer" "a buffer position:\n buffer " buffer-name ", position " marker-position] 6 "\n\n(fn VAL VERBOSE)"] ((val cons) verbose) #[514 "\300@!\203Q@\301!\302 \303\304\305\306!\203M\302 p\307\310#\216\311\312\"\210\313 \307\314\"\216\315 !\210\316\317\320\302 !\321# =?\205D\322P*\262\266\202\202N\323\"!\207\324@!\203\\\303\325!\207@\326=\203p\303\327!\210\330A!\210\303\331!\207@\332=\203\204\303\333!\210\330A!\210\303\331!\207@\334=\203\244\303\335!\210\330A@!\210\303\336!\210\303AA@!\210\303\331!\207\211\203\303\303\337!\210\205\313\303\340!\210\303@!\210\341 \210A\262\202\254\303\342!\210\303@!\207" [window-configuration-p window-configuration-frame selected-frame princ format "a window configuration: %s." frame-live-p make-closure #[0 "\302\301!\203 \303\301\304\"\210\305\300!\205\300q\207" [V0 V1 frame-live-p select-frame norecord buffer-live-p] 3] select-frame norecord current-window-configuration #[0 "\301\300!\207" [V0 set-window-configuration] 2] set-window-configuration mapconcat #[257 "\300\301!!\207" [buffer-name window-buffer] 4 "\n\n(fn W)"] window-list ", " " in another frame" "dead frame" frame-configuration-p "a frame configuration." file "the file " prin1 "." buffer "the buffer " file-query "a file-query reference:\n file " ",\n position " "the rectangle:\n" " " terpri "a rectangle starting with "] 15 "\n\n(fn VAL VERBOSE)"] ((val string) verbose) #[514 "\301!\262\302=\203\303\304G\305$\210\202\306\304G$\210\211\203*\307\310!\210\307!\207\311\312\313\314\304\315 \316Z]^\"\"\203F\307\317!\210\307\320\304\"!\207\311\321\"\203Q\307\322!\207\307\323!\207" [yank-excluded-properties copy-sequence t set-text-properties 0 nil remove-list-of-text-properties princ "the text:\n" string-match format "[^ \n].\\{,%d\\}" 20 window-width 6 "text starting with\n " match-string "^[ \n]+$" "whitespace" "the empty string"] 9 "\n\n(fn VAL VERBOSE)"]] 6)#@405 Insert contents of REGISTER at point. REGISTER is a character, the name of the register. Normally puts point before and mark after the inserted text, but if optional second argument ARG is non-nil, puts mark before and point after. Interactively, ARG is nil if prefix arg is supplied, and t otherwise. Interactively, prompt for REGISTER using `register-read-with-preview'. (fn REGISTER &optional ARG) (defalias 'insert-register #[513 "\300 \210\301!\302!\266\211?\205\303 \207" [push-mark get-register register-val-insert exchange-point-and-mark] 5 (#$ . 23975) (byte-code "\301 \210\302\303!?D\207" [current-prefix-arg barf-if-buffer-read-only register-read-with-preview "Insert register: "] 2)]) (byte-code "\300\301\302\301\303\304#\305#\210\306\301\304\303\304\307%\210\306\301\304\310\304\311%\210\306\301\304\312\304\313%\210\306\301\304\314\304\315%\210\306\301\304\316\304\317%\210\306\301\304\320\321\322%\207" [defalias register-val-insert cl-generic-define (_val) nil "Insert register value VAL in current buffer at point.\n\n(fn VAL)" cl-generic-define-method #[257 "\300\301!\207" [user-error "Register does not contain text"] 3 "\n\n(fn VAL)"] ((val registerv)) #[257 "\301!>\204\302\303\304D\"\210\211\305H\204\306\307\310\311C$\210\301!>\204,\302\303\304D\"\210\211\305H\301!>\204>\302\303\304D\"\210\312H!\207" [cl-struct-registerv-tags type-of signal wrong-type-argument registerv 4 cl--assertion-failed (registerv-insert-func val) "Don't know how to insert register value %S" nil 1] 6 "\n\n(fn VAL)"] ((val cons)) #[257 "\300!\207" [insert-rectangle] 3 "\n\n(fn VAL)"] ((val string)) #[257 "\300!\207" [insert-for-yank] 3 "\n\n(fn VAL)"] ((val number)) #[257 "\300p\"\207" [princ] 4 "\n\n(fn VAL)"] ((val marker)) curried #[257 "\300!\210\301\302\303\"\207" [cl--generic-isnot-nnm-p nil make-closure #[128 "\301\302\300#\303\304#\207" [V0 make-closure #[128 "\302\301\206\300\"\207" [V0 V1 apply] 4 "\n\n(fn &rest ARGS)"] apply #[514 "\300!\203 \301\300!p\"\207!\207" [marker-position princ] 5 "\n\n(fn CL--CNM VAL)"]] 6 "\n\n(fn VAL)"]] 5 "\n\n(fn CL--NM)"]] 6)#@573 Copy region of text between START and END into REGISTER. If DELETE-FLAG is non-nil (interactively, prefix arg), delete the region after copying. Called from Lisp, 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, means START..END denotes the region. Interactively, prompt for REGISTER using `register-read-with-preview' and use mark and point as START and END; REGION is always non-nil in this case. (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 (#$ . 26105) (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)])#@443 Append region of text between START and END to REGISTER. If DELETE-FLAG is non-nil (interactively, prefix arg), delete the region after appending. Called from Lisp, takes four args: REGISTER, START, END and DELETE-FLAG. START and END are buffer positions indicating what to append. Interactively, prompt for REGISTER using `register-read-with-preview', and use mark and point as START and END. (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 (#$ . 27117) (byte-code "\301\302!\303 \304 F\207" [current-prefix-arg register-read-with-preview "Append to register: " region-beginning region-end] 4)])#@449 Prepend region of text between START and END to REGISTER. If DELETE-FLAG is non-nil (interactively, prefix arg), delete the region after prepending. Called from program, takes four args: REGISTER, START, END and DELETE-FLAG. START and END are buffer positions indicating what to prepend. Interactively, prompt for REGISTER using `register-read-with-preview', and use mark and point as START and END. (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 (#$ . 28082) (byte-code "\301\302!\303 \304 F\207" [current-prefix-arg register-read-with-preview "Prepend to register: " region-beginning region-end] 4)])#@523 Copy rectangular region of text between START and END into REGISTER. If DELETE-FLAG is non-nil (interactively, prefix arg), delete the region after copying. To insert this register into a buffer, use \[insert-register]. Called from Lisp, takes four args: REGISTER, START, END and DELETE-FLAG. START and END are buffer positions giving two corners of rectangle. Interactively, prompt for REGISTER using `register-read-with-preview', and use mark and point as START and END. (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 (#$ . 29056) (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)