Edit file File name : register.elc Content :;ELC ;;; Compiled ;;; in Emacs version 27.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 (memq (type-of cl-x) 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 \302\207" [cl-struct-registerv-tags type-of t] 3 (#$ . 735)]) (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 (progn (or (registerv-p cl-x) (signal 'wrong-type-argument (list 'registerv cl-x))) (aref cl-x 1))) nil] 9 (#$ . 1004)]) (put 'registerv-data 'compiler-macro 'registerv-data--cmacro) #@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 (#$ . 1391)]) (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 (#$ . 1847)]) (put 'registerv-print-func 'compiler-macro 'registerv-print-func--cmacro) #@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 (#$ . 2264)]) (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 (#$ . 2744)]) (put 'registerv-jump-func 'compiler-macro 'registerv-jump-func--cmacro) #@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 (#$ . 3156)]) (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 (#$ . 3632)]) (put 'registerv-insert-func 'compiler-macro 'registerv-insert-func--cmacro) #@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 (#$ . 4054)]) (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 (#$ . 4539)]) (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" [record registerv] 10 (#$ . 4975)]) (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\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)" record registerv] 11 (#$ . 5515)]) (make-obsolete 'registerv-make "Use your own type with methods on register-val-(insert|describe|jump-to)" "27.1") #@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 (#$ . 6605)) (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 (#$ . 8304)]) #@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\210\202 B\211\262B\207" [register-alist] 6 (#$ . 8480)]) #@45 One-line description of register C. (fn C) (defalias 'register-describe-oneline #[257 "\301\302\303\304\305!\306\216\307!\210)rq\210\310 +#\311\312\"\203' \313\314\225\"\202( \211\207" [standard-output replace-regexp-in-string "\n[ ]*" " " generate-new-buffer " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] describe-register-1 buffer-string string-match "Register.+? contains \\(?:an? \\|the \\)?" substring 0] 6 (#$ . 8770)]) #@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 (#$ . 9234)]) #@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 (#$ . 9469)) #@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= \303\304B\305!\211\306\211rq\210r q\210\306\307\310\")\262\311\"\262)\312\306!\2039 \306\"\202: \211)\266\205\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] 10 (#$ . 9688)]) #@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 (#$ . 10438)]) #@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 (#$ . 11765) (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)]) #@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 (#$ . 12489) (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 (#$ . 13126) (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) #@693 Move point to location stored in a register. Push the mark if jumping moves point, unless called in succession. 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 "\300!\301\"\207" [get-register register-val-jump-to] 6 (#$ . 13905) (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.\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) t #[771 "\300@!\203 \301@?\"\210A@b\207\302@!\203$ \303@!\210A@b\207@\304=\2030 \305A!\207@\306=\203Y \307A@!\204N \310\311\312A@\"!\204N \313\314!\210\305A@!\210\3158b\207\"\207" [frame-configuration-p set-frame-configuration window-configuration-p set-window-configuration file find-file 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) #@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 (#$ . 16424)]) #@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 (#$ . 16733) (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 (#$ . 17445) (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 (#$ . 18212) (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 (#$ . 19039) 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 (#$ . 19752)]) (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'.\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!\202 \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@!\203b @\301!\302 \303\304\305\306!\203^ \302 p\307\310\311\312\313\"\314\"\315$\216\316\317\"\210\320 \307\310\321\312\313!\322\"\323$\216\324 !\210\325\326\327\302 !\330# =?\205T \331P)\262)\266\202\202_ \332\"!\207\333@!\203m \303\334!\207@\335=\203\201 \303\336!\210\337A!\210\303\340!\207@\341=\203\241 \303\342!\210\337A@!\210\303\343!\210\303AA@!\210\303\340!\207\211\203\300 \303\344!\210\205\310 \303\345!\210\303@!\210\346 \210A\262\202\251 \303\347!\210\303@!\207" [window-configuration-p window-configuration-frame selected-frame princ format "a window configuration: %s." frame-live-p make-byte-code 0 "\302\300!\203 \303\300\304\"\210\305\301!\205 \301q\207" vconcat vector [frame-live-p select-frame norecord buffer-live-p] 3 select-frame norecord current-window-configuration "\301\300!\207" [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 "." file-query "a file-query reference:\n file " ",\n position " "the rectangle:\n" " " terpri "a rectangle starting with "] 17 "\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) #@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 "\300 \210\301!\302!\266\211?\205 \303 \207" [push-mark get-register register-val-insert exchange-point-and-mark] 5 (#$ . 22978) (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.\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)) t #[514 "\300!\203 \301\300!p\"\207!\207" [marker-position princ] 5 "\n\n(fn CL--CNM VAL)"]] 6) #@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 (#$ . 24789) (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 (#$ . 25712) (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 (#$ . 26569) (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 (#$ . 27431) (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) Save