|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ r ┃
Length: 4144 (0x1030)
Names: »register.elc«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/register.elc«
0x0000…0020 0a 28 64 65 66 76 61 72 20 72 65 67 69 73 74 65 72 2d 61 6c 69 73 74 20 6e 69 6c 20 22 5c 0a 41 ┆ (defvar register-alist nil "\ A┆
0x0020…0040 6c 69 73 74 20 6f 66 20 65 6c 65 6d 65 6e 74 73 20 28 4e 41 4d 45 20 2e 20 43 4f 4e 54 45 4e 54 ┆list of elements (NAME . CONTENT┆
0x0040…0060 53 29 2c 20 6f 6e 65 20 66 6f 72 20 65 61 63 68 20 45 6d 61 63 73 20 72 65 67 69 73 74 65 72 2e ┆S), one for each Emacs register.┆
0x0060…0080 0a 4e 41 4d 45 20 69 73 20 61 20 63 68 61 72 61 63 74 65 72 20 28 61 20 6e 75 6d 62 65 72 29 2e ┆ NAME is a character (a number).┆
0x0080…00a0 20 20 43 4f 4e 54 45 4e 54 53 20 69 73 20 61 20 73 74 72 69 6e 67 2c 20 6e 75 6d 62 65 72 2c 0a ┆ CONTENTS is a string, number, ┆
0x00a0…00c0 6d 61 72 6b 20 6f 72 20 6c 69 73 74 2e 20 20 41 20 6c 69 73 74 20 72 65 70 72 65 73 65 6e 74 73 ┆mark or list. A list represents┆
0x00c0…00e0 20 61 20 72 65 63 74 61 6e 67 6c 65 3b 20 69 74 73 20 65 6c 65 6d 65 6e 74 73 20 61 72 65 20 73 ┆ a rectangle; its elements are s┆
0x00e0…0100 74 72 69 6e 67 73 2e 22 29 0a 0a 28 64 65 66 75 6e 20 67 65 74 2d 72 65 67 69 73 74 65 72 20 28 ┆trings.") (defun get-register (┆
0x0100…0120 63 68 61 72 29 20 22 5c 0a 52 65 74 75 72 6e 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20 45 6d 61 63 ┆char) "\ Return contents of Emac┆
0x0120…0140 73 20 72 65 67 69 73 74 65 72 20 6e 61 6d 65 64 20 43 48 41 52 2c 20 6f 72 20 6e 69 6c 20 69 66 ┆s register named CHAR, or nil if┆
0x0140…0160 20 6e 6f 6e 65 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 08 09 5c 22 41 87 22 20 5b 63 68 ┆ none." (byte-code " \"A " [ch┆
0x0160…0180 61 72 20 72 65 67 69 73 74 65 72 2d 61 6c 69 73 74 20 61 73 73 71 5d 20 33 29 29 0a 0a 28 64 65 ┆ar register-alist assq] 3)) (de┆
0x0180…01a0 66 75 6e 20 73 65 74 2d 72 65 67 69 73 74 65 72 20 28 63 68 61 72 20 76 61 6c 75 65 29 20 22 5c ┆fun set-register (char value) "\┆
0x01a0…01c0 0a 53 65 74 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20 45 6d 61 63 73 20 72 65 67 69 73 74 65 72 20 ┆ Set contents of Emacs register ┆
0x01c0…01e0 6e 61 6d 65 64 20 43 48 41 52 20 74 6f 20 56 41 4c 55 45 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 ┆named CHAR to VALUE." (byte-code┆
0x01e0…0200 20 22 c4 09 0a 5c 22 18 08 83 10 00 c5 08 0b 5c 22 82 1b 00 09 0b 42 89 10 88 08 0a 42 89 12 29 ┆ " \" \" B B )┆
0x0200…0220 87 22 20 5b 61 65 6c 74 20 63 68 61 72 20 72 65 67 69 73 74 65 72 2d 61 6c 69 73 74 20 76 61 6c ┆ " [aelt char register-alist val┆
0x0220…0240 75 65 20 61 73 73 71 20 73 65 74 63 64 72 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 70 6f 69 6e ┆ue assq setcdr] 4)) (defun poin┆
0x0240…0260 74 2d 74 6f 2d 72 65 67 69 73 74 65 72 20 28 63 68 61 72 29 20 22 5c 0a 53 74 6f 72 65 20 63 75 ┆t-to-register (char) "\ Store cu┆
0x0260…0280 72 72 65 6e 74 20 6c 6f 63 61 74 69 6f 6e 20 6f 66 20 70 6f 69 6e 74 20 69 6e 20 61 20 72 65 67 ┆rrent location of point in a reg┆
0x0280…02a0 69 73 74 65 72 2e 0a 41 72 67 75 6d 65 6e 74 20 69 73 20 61 20 63 68 61 72 61 63 74 65 72 2c 20 ┆ister. Argument is a character, ┆
0x02a0…02c0 6e 61 6d 69 6e 67 20 74 68 65 20 72 65 67 69 73 74 65 72 2e 22 20 28 69 6e 74 65 72 61 63 74 69 ┆naming the register." (interacti┆
0x02c0…02e0 76 65 20 22 63 50 6f 69 6e 74 20 74 6f 20 72 65 67 69 73 74 65 72 3a 20 22 29 20 28 62 79 74 65 ┆ve "cPoint to register: ") (byte┆
0x02e0…0300 2d 63 6f 64 65 20 22 c1 88 c2 08 c3 20 5c 22 87 22 20 5b 63 68 61 72 20 6e 69 6c 20 73 65 74 2d ┆-code " \" " [char nil set-┆
0x0300…0320 72 65 67 69 73 74 65 72 20 70 6f 69 6e 74 2d 6d 61 72 6b 65 72 5d 20 34 29 29 0a 0a 28 64 65 66 ┆register point-marker] 4)) (def┆
0x0320…0340 75 6e 20 72 65 67 69 73 74 65 72 2d 74 6f 2d 70 6f 69 6e 74 20 28 63 68 61 72 29 20 22 5c 0a 4d ┆un register-to-point (char) "\ M┆
0x0340…0360 6f 76 65 20 70 6f 69 6e 74 20 74 6f 20 6c 6f 63 61 74 69 6f 6e 20 73 74 6f 72 65 64 20 69 6e 20 ┆ove point to location stored in ┆
0x0360…0380 61 20 72 65 67 69 73 74 65 72 2e 0a 41 72 67 75 6d 65 6e 74 20 69 73 20 61 20 63 68 61 72 61 63 ┆a register. Argument is a charac┆
0x0380…03a0 74 65 72 2c 20 6e 61 6d 69 6e 67 20 74 68 65 20 72 65 67 69 73 74 65 72 2e 22 20 28 69 6e 74 65 ┆ter, naming the register." (inte┆
0x03a0…03c0 72 61 63 74 69 76 65 20 22 63 52 65 67 69 73 74 65 72 20 74 6f 20 70 6f 69 6e 74 3a 20 22 29 20 ┆ractive "cRegister to point: ") ┆
0x03c0…03e0 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 88 c3 09 21 18 c4 08 21 83 17 00 c5 c6 08 21 21 88 08 62 ┆(byte-code " ! ! !! b┆
0x03e0…0400 82 1a 00 c7 c8 21 29 87 22 20 5b 76 61 6c 20 63 68 61 72 20 6e 69 6c 20 67 65 74 2d 72 65 67 69 ┆ !) " [val char nil get-regi┆
0x0400…0420 73 74 65 72 20 6d 61 72 6b 65 72 70 20 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 20 6d 61 ┆ster markerp switch-to-buffer ma┆
0x0420…0440 72 6b 65 72 2d 62 75 66 66 65 72 20 65 72 72 6f 72 20 22 52 65 67 69 73 74 65 72 20 64 6f 65 73 ┆rker-buffer error "Register does┆
0x0440…0460 6e 27 74 20 63 6f 6e 74 61 69 6e 20 61 20 62 75 66 66 65 72 20 70 6f 73 69 74 69 6f 6e 22 5d 20 ┆n't contain a buffer position"] ┆
0x0460…0480 36 29 29 0a 0a 28 64 65 66 75 6e 20 76 69 65 77 2d 72 65 67 69 73 74 65 72 20 28 63 68 61 72 29 ┆6)) (defun view-register (char)┆
0x0480…04a0 20 22 5c 0a 44 69 73 70 6c 61 79 20 77 68 61 74 20 69 73 20 63 6f 6e 74 61 69 6e 65 64 20 69 6e ┆ "\ Display what is contained in┆
0x04a0…04c0 20 72 65 67 69 73 74 65 72 20 6e 61 6d 65 64 20 52 45 47 49 53 54 45 52 2e 0a 52 45 47 49 53 54 ┆ register named REGISTER. REGIST┆
0x04c0…04e0 45 52 20 69 73 20 61 20 63 68 61 72 61 63 74 65 72 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 ┆ER is a character." (interactive┆
0x04e0…0500 20 22 63 56 69 65 77 20 72 65 67 69 73 74 65 72 3a 20 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 ┆ "cView register: ") (byte-code ┆
0x0500…0520 22 c2 88 c3 09 21 18 08 3f 83 14 00 c4 c5 c6 09 21 5c 22 82 7b 00 c7 90 c8 c9 21 88 c8 c6 09 21 ┆" ! ? !\" { ! !┆
0x0520…0540 21 88 c8 ca 21 88 cb 08 21 83 30 00 c8 08 21 82 7a 00 cc 08 21 83 4e 00 c8 cd 21 88 c8 ce cf 08 ┆! ! ! 0 ! z ! N ! ┆
0x0540…0560 21 21 21 88 c8 d0 21 88 c8 d1 08 5c 5c 21 82 7a 00 08 3a 83 73 00 c8 d2 21 88 08 41 89 10 88 08 ┆!!! ! \\! z : s ! A ┆
0x0560…0580 85 70 00 c8 08 40 21 88 d3 20 88 08 41 89 10 88 82 5c 5c 00 82 7a 00 c8 d4 21 88 c8 08 21 91 29 ┆ p @! A \\ z ! ! )┆
0x0580…05a0 87 22 20 5b 76 61 6c 20 63 68 61 72 20 6e 69 6c 20 67 65 74 2d 72 65 67 69 73 74 65 72 20 6d 65 ┆ " [val char nil get-register me┆
0x05a0…05c0 73 73 61 67 65 20 22 52 65 67 69 73 74 65 72 20 25 73 20 69 73 20 65 6d 70 74 79 22 20 73 69 6e ┆ssage "Register %s is empty" sin┆
0x05c0…05e0 67 6c 65 2d 6b 65 79 2d 64 65 73 63 72 69 70 74 69 6f 6e 20 22 2a 4f 75 74 70 75 74 2a 22 20 70 ┆gle-key-description "*Output*" p┆
0x05e0…0600 72 69 6e 63 20 22 52 65 67 69 73 74 65 72 20 22 20 22 20 63 6f 6e 74 61 69 6e 73 20 22 20 69 6e ┆rinc "Register " " contains " in┆
0x0600…0620 74 65 67 65 72 70 20 6d 61 72 6b 65 72 70 20 22 61 20 62 75 66 66 65 72 20 70 6f 73 69 74 69 6f ┆tegerp markerp "a buffer positio┆
0x0620…0640 6e 3a 0a 62 75 66 66 65 72 20 22 20 62 75 66 66 65 72 2d 6e 61 6d 65 20 6d 61 72 6b 65 72 2d 62 ┆n: buffer " buffer-name marker-b┆
0x0640…0660 75 66 66 65 72 20 22 2c 20 70 6f 73 69 74 69 6f 6e 20 22 20 30 20 22 74 68 65 20 72 65 63 74 61 ┆uffer ", position " 0 "the recta┆
0x0660…0680 6e 67 6c 65 3a 0a 22 20 74 65 72 70 72 69 20 22 74 68 65 20 73 74 72 69 6e 67 3a 0a 22 5d 20 32 ┆ngle: " terpri "the string: "] 2┆
0x0680…06a0 33 29 29 0a 0a 28 64 65 66 75 6e 20 69 6e 73 65 72 74 2d 72 65 67 69 73 74 65 72 20 28 63 68 61 ┆3)) (defun insert-register (cha┆
0x06a0…06c0 72 20 26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 29 20 22 5c 0a 49 6e 73 65 72 74 20 63 6f 6e 74 65 ┆r &optional arg) "\ Insert conte┆
0x06c0…06e0 6e 74 73 20 6f 66 20 72 65 67 69 73 74 65 72 20 52 45 47 2e 20 20 52 45 47 20 69 73 20 61 20 63 ┆nts of register REG. REG is a c┆
0x06e0…0700 68 61 72 61 63 74 65 72 2e 0a 4e 6f 72 6d 61 6c 6c 79 20 70 75 74 73 20 70 6f 69 6e 74 20 62 65 ┆haracter. Normally puts point be┆
0x0700…0720 66 6f 72 65 20 61 6e 64 20 6d 61 72 6b 20 61 66 74 65 72 20 74 68 65 20 69 6e 73 65 72 74 65 64 ┆fore and mark after the inserted┆
0x0720…0740 20 74 65 78 74 2e 0a 49 66 20 6f 70 74 69 6f 6e 61 6c 20 73 65 63 6f 6e 64 20 61 72 67 20 69 73 ┆ text. If optional second arg is┆
0x0740…0760 20 6e 6f 6e 2d 6e 69 6c 2c 20 70 75 74 73 20 6d 61 72 6b 20 62 65 66 6f 72 65 20 61 6e 64 20 70 ┆ non-nil, puts mark before and p┆
0x0760…0780 6f 69 6e 74 20 61 66 74 65 72 2e 0a 49 6e 74 65 72 61 63 74 69 76 65 6c 79 2c 20 73 65 63 6f 6e ┆oint after. Interactively, secon┆
0x0780…07a0 64 20 61 72 67 20 69 73 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 70 72 65 66 69 78 20 61 72 67 20 69 ┆d arg is non-nil if prefix arg i┆
0x07a0…07c0 73 20 73 75 70 70 6c 69 65 64 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 63 49 6e 73 65 ┆s supplied." (interactive "cInse┆
0x07c0…07e0 72 74 20 72 65 67 69 73 74 65 72 3a 20 0a 50 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 ┆rt register: P") (byte-code " ┆
0x07e0…0800 c4 20 88 c5 09 21 18 08 3a 83 14 00 c6 08 21 82 36 00 08 3b 83 1e 00 08 63 82 36 00 c7 08 21 86 ┆ ! : ! 6 ; c 6 ! ┆
0x0800…0820 27 00 c8 08 21 83 33 00 c9 ca 08 5c 5c 70 5c 22 82 36 00 cb cc 21 29 88 0a 86 3e 00 cd 20 87 22 ┆' ! 3 \\p\" 6 !) > "┆
0x0820…0840 20 5b 76 61 6c 20 63 68 61 72 20 61 72 67 20 6e 69 6c 20 70 75 73 68 2d 6d 61 72 6b 20 67 65 74 ┆ [val char arg nil push-mark get┆
0x0840…0860 2d 72 65 67 69 73 74 65 72 20 69 6e 73 65 72 74 2d 72 65 63 74 61 6e 67 6c 65 20 69 6e 74 65 67 ┆-register insert-rectangle integ┆
0x0860…0880 65 72 70 20 6d 61 72 6b 65 72 70 20 70 72 69 6e 63 20 30 20 65 72 72 6f 72 20 22 52 65 67 69 73 ┆erp markerp princ 0 error "Regis┆
0x0880…08a0 74 65 72 20 64 6f 65 73 20 6e 6f 74 20 63 6f 6e 74 61 69 6e 20 74 65 78 74 22 20 65 78 63 68 61 ┆ter does not contain text" excha┆
0x08a0…08c0 6e 67 65 2d 70 6f 69 6e 74 2d 61 6e 64 2d 6d 61 72 6b 5d 20 39 29 29 0a 0a 28 64 65 66 75 6e 20 ┆nge-point-and-mark] 9)) (defun ┆
0x08c0…08e0 63 6f 70 79 2d 74 6f 2d 72 65 67 69 73 74 65 72 20 28 63 68 61 72 20 73 74 61 72 74 20 65 6e 64 ┆copy-to-register (char start end┆
0x08e0…0900 20 26 6f 70 74 69 6f 6e 61 6c 20 64 65 6c 65 74 65 2d 66 6c 61 67 29 20 22 5c 0a 43 6f 70 79 20 ┆ &optional delete-flag) "\ Copy ┆
0x0900…0920 72 65 67 69 6f 6e 20 69 6e 74 6f 20 72 65 67 69 73 74 65 72 20 52 45 47 2e 0a 57 69 74 68 20 70 ┆region into register REG. With p┆
0x0920…0940 72 65 66 69 78 20 61 72 67 2c 20 64 65 6c 65 74 65 20 61 73 20 77 65 6c 6c 2e 0a 43 61 6c 6c 65 ┆refix arg, delete as well. Calle┆
0x0940…0960 64 20 66 72 6f 6d 20 70 72 6f 67 72 61 6d 2c 20 74 61 6b 65 73 20 66 6f 75 72 20 61 72 67 73 3a ┆d from program, takes four args:┆
0x0960…0980 0a 52 45 47 2c 20 53 54 41 52 54 2c 20 45 4e 44 20 61 6e 64 20 44 45 4c 45 54 45 2d 46 4c 41 47 ┆ REG, START, END and DELETE-FLAG┆
0x0980…09a0 2e 0a 53 54 41 52 54 20 61 6e 64 20 45 4e 44 20 61 72 65 20 62 75 66 66 65 72 20 70 6f 73 69 74 ┆. START and END are buffer posit┆
0x09a0…09c0 69 6f 6e 73 20 69 6e 64 69 63 61 74 69 6e 67 20 77 68 61 74 20 74 6f 20 63 6f 70 79 2e 22 20 28 ┆ions indicating what to copy." (┆
0x09c0…09e0 69 6e 74 65 72 61 63 74 69 76 65 20 22 63 43 6f 70 79 20 74 6f 20 72 65 67 69 73 74 65 72 3a 20 ┆interactive "cCopy to register: ┆
0x09e0…0a00 0a 72 0a 50 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 88 c5 08 c6 09 0a 5c 22 5c 22 88 0b ┆ r P") (byte-code " \"\" ┆
0x0a00…0a20 83 15 00 c7 09 0a 5c 22 82 16 00 c4 87 22 20 5b 63 68 61 72 20 73 74 61 72 74 20 65 6e 64 20 64 ┆ \" " [char start end d┆
0x0a20…0a40 65 6c 65 74 65 2d 66 6c 61 67 20 6e 69 6c 20 73 65 74 2d 72 65 67 69 73 74 65 72 20 62 75 66 66 ┆elete-flag nil set-register buff┆
0x0a40…0a60 65 72 2d 73 75 62 73 74 72 69 6e 67 20 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 5d 20 35 29 29 0a ┆er-substring delete-region] 5)) ┆
0x0a60…0a80 0a 28 64 65 66 75 6e 20 61 70 70 65 6e 64 2d 74 6f 2d 72 65 67 69 73 74 65 72 20 28 63 68 61 72 ┆ (defun append-to-register (char┆
0x0a80…0aa0 20 73 74 61 72 74 20 65 6e 64 20 26 6f 70 74 69 6f 6e 61 6c 20 64 65 6c 65 74 65 2d 66 6c 61 67 ┆ start end &optional delete-flag┆
0x0aa0…0ac0 29 20 22 5c 0a 41 70 70 65 6e 64 20 72 65 67 69 6f 6e 20 74 6f 20 74 65 78 74 20 69 6e 20 72 65 ┆) "\ Append region to text in re┆
0x0ac0…0ae0 67 69 73 74 65 72 20 52 45 47 2e 0a 57 69 74 68 20 70 72 65 66 69 78 20 61 72 67 2c 20 64 65 6c ┆gister REG. With prefix arg, del┆
0x0ae0…0b00 65 74 65 20 61 73 20 77 65 6c 6c 2e 0a 43 61 6c 6c 65 64 20 66 72 6f 6d 20 70 72 6f 67 72 61 6d ┆ete as well. Called from program┆
0x0b00…0b20 2c 20 74 61 6b 65 73 20 66 6f 75 72 20 61 72 67 73 3a 0a 52 45 47 2c 20 53 54 41 52 54 2c 20 45 ┆, takes four args: REG, START, E┆
0x0b20…0b40 4e 44 20 61 6e 64 20 44 45 4c 45 54 45 2d 46 4c 41 47 2e 0a 53 54 41 52 54 20 61 6e 64 20 45 4e ┆ND and DELETE-FLAG. START and EN┆
0x0b40…0b60 44 20 61 72 65 20 62 75 66 66 65 72 20 70 6f 73 69 74 69 6f 6e 73 20 69 6e 64 69 63 61 74 69 6e ┆D are buffer positions indicatin┆
0x0b60…0b80 67 20 77 68 61 74 20 74 6f 20 61 70 70 65 6e 64 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 ┆g what to append." (interactive ┆
0x0b80…0ba0 22 63 41 70 70 65 6e 64 20 74 6f 20 72 65 67 69 73 74 65 72 3a 20 0a 72 0a 50 22 29 20 28 62 79 ┆"cAppend to register: r P") (by┆
0x0ba0…0bc0 74 65 2d 63 6f 64 65 20 22 c4 88 c5 08 21 3b 86 0c 00 c6 c7 21 88 c8 08 c5 08 21 c9 09 0a 5c 22 ┆te-code " !; ! ! \"┆
0x0bc0…0be0 50 5c 22 88 0b 83 24 00 ca 09 0a 5c 22 82 25 00 c4 87 22 20 5b 63 68 61 72 20 73 74 61 72 74 20 ┆P\" $ \" % " [char start ┆
0x0be0…0c00 65 6e 64 20 64 65 6c 65 74 65 2d 66 6c 61 67 20 6e 69 6c 20 67 65 74 2d 72 65 67 69 73 74 65 72 ┆end delete-flag nil get-register┆
0x0c00…0c20 20 65 72 72 6f 72 20 22 52 65 67 69 73 74 65 72 20 64 6f 65 73 20 6e 6f 74 20 63 6f 6e 74 61 69 ┆ error "Register does not contai┆
0x0c20…0c40 6e 20 74 65 78 74 22 20 73 65 74 2d 72 65 67 69 73 74 65 72 20 62 75 66 66 65 72 2d 73 75 62 73 ┆n text" set-register buffer-subs┆
0x0c40…0c60 74 72 69 6e 67 20 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 5d 20 39 29 29 0a 0a 28 64 65 66 75 6e ┆tring delete-region] 9)) (defun┆
0x0c60…0c80 20 70 72 65 70 65 6e 64 2d 74 6f 2d 72 65 67 69 73 74 65 72 20 28 63 68 61 72 20 73 74 61 72 74 ┆ prepend-to-register (char start┆
0x0c80…0ca0 20 65 6e 64 20 26 6f 70 74 69 6f 6e 61 6c 20 64 65 6c 65 74 65 2d 66 6c 61 67 29 20 22 5c 0a 50 ┆ end &optional delete-flag) "\ P┆
0x0ca0…0cc0 72 65 70 65 6e 64 20 72 65 67 69 6f 6e 20 74 6f 20 74 65 78 74 20 69 6e 20 72 65 67 69 73 74 65 ┆repend region to text in registe┆
0x0cc0…0ce0 72 20 52 45 47 2e 0a 57 69 74 68 20 70 72 65 66 69 78 20 61 72 67 2c 20 64 65 6c 65 74 65 20 61 ┆r REG. With prefix arg, delete a┆
0x0ce0…0d00 73 20 77 65 6c 6c 2e 0a 43 61 6c 6c 65 64 20 66 72 6f 6d 20 70 72 6f 67 72 61 6d 2c 20 74 61 6b ┆s well. Called from program, tak┆
0x0d00…0d20 65 73 20 66 6f 75 72 20 61 72 67 73 3a 0a 52 45 47 2c 20 53 54 41 52 54 2c 20 45 4e 44 20 61 6e ┆es four args: REG, START, END an┆
0x0d20…0d40 64 20 44 45 4c 45 54 45 2d 46 4c 41 47 2e 0a 53 54 41 52 54 20 61 6e 64 20 45 4e 44 20 61 72 65 ┆d DELETE-FLAG. START and END are┆
0x0d40…0d60 20 62 75 66 66 65 72 20 70 6f 73 69 74 69 6f 6e 73 20 69 6e 64 69 63 61 74 69 6e 67 20 77 68 61 ┆ buffer positions indicating wha┆
0x0d60…0d80 74 20 74 6f 20 70 72 65 70 65 6e 64 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 63 50 72 ┆t to prepend." (interactive "cPr┆
0x0d80…0da0 65 70 65 6e 64 20 74 6f 20 72 65 67 69 73 74 65 72 3a 20 0a 72 0a 50 22 29 20 28 62 79 74 65 2d ┆epend to register: r P") (byte-┆
0x0da0…0dc0 63 6f 64 65 20 22 c4 88 c5 08 21 3b 86 0c 00 c6 c7 21 88 c8 08 c9 09 0a 5c 22 c5 08 21 50 5c 22 ┆code " !; ! \" !P\"┆
0x0dc0…0de0 88 0b 83 24 00 ca 09 0a 5c 22 82 25 00 c4 87 22 20 5b 63 68 61 72 20 73 74 61 72 74 20 65 6e 64 ┆ $ \" % " [char start end┆
0x0de0…0e00 20 64 65 6c 65 74 65 2d 66 6c 61 67 20 6e 69 6c 20 67 65 74 2d 72 65 67 69 73 74 65 72 20 65 72 ┆ delete-flag nil get-register er┆
0x0e00…0e20 72 6f 72 20 22 52 65 67 69 73 74 65 72 20 64 6f 65 73 20 6e 6f 74 20 63 6f 6e 74 61 69 6e 20 74 ┆ror "Register does not contain t┆
0x0e20…0e40 65 78 74 22 20 73 65 74 2d 72 65 67 69 73 74 65 72 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 ┆ext" set-register buffer-substri┆
0x0e40…0e60 6e 67 20 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 5d 20 38 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f ┆ng delete-region] 8)) (defun co┆
0x0e60…0e80 70 79 2d 72 65 63 74 61 6e 67 6c 65 2d 74 6f 2d 72 65 67 69 73 74 65 72 20 28 63 68 61 72 20 73 ┆py-rectangle-to-register (char s┆
0x0e80…0ea0 74 61 72 74 20 65 6e 64 20 26 6f 70 74 69 6f 6e 61 6c 20 64 65 6c 65 74 65 2d 66 6c 61 67 29 20 ┆tart end &optional delete-flag) ┆
0x0ea0…0ec0 22 5c 0a 43 6f 70 79 20 72 65 63 74 61 6e 67 75 6c 61 72 20 72 65 67 69 6f 6e 20 69 6e 74 6f 20 ┆"\ Copy rectangular region into ┆
0x0ec0…0ee0 72 65 67 69 73 74 65 72 20 52 45 47 2e 0a 57 69 74 68 20 70 72 65 66 69 78 20 61 72 67 2c 20 64 ┆register REG. With prefix arg, d┆
0x0ee0…0f00 65 6c 65 74 65 20 61 73 20 77 65 6c 6c 2e 0a 43 61 6c 6c 65 64 20 66 72 6f 6d 20 70 72 6f 67 72 ┆elete as well. Called from progr┆
0x0f00…0f20 61 6d 2c 20 74 61 6b 65 73 20 66 6f 75 72 20 61 72 67 73 3a 0a 52 45 47 2c 20 53 54 41 52 54 2c ┆am, takes four args: REG, START,┆
0x0f20…0f40 20 45 4e 44 20 61 6e 64 20 44 45 4c 45 54 45 2d 46 4c 41 47 2e 0a 53 54 41 52 54 20 61 6e 64 20 ┆ END and DELETE-FLAG. START and ┆
0x0f40…0f60 45 4e 44 20 61 72 65 20 62 75 66 66 65 72 20 70 6f 73 69 74 69 6f 6e 73 20 67 69 76 69 6e 67 20 ┆END are buffer positions giving ┆
0x0f60…0f80 74 77 6f 20 63 6f 72 6e 65 72 73 20 6f 66 20 72 65 63 74 61 6e 67 6c 65 2e 22 20 28 69 6e 74 65 ┆two corners of rectangle." (inte┆
0x0f80…0fa0 72 61 63 74 69 76 65 20 22 63 43 6f 70 79 20 72 65 63 74 61 6e 67 6c 65 20 74 6f 20 72 65 67 69 ┆ractive "cCopy rectangle to regi┆
0x0fa0…0fc0 73 74 65 72 3a 20 0a 72 0a 50 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 88 c5 08 09 83 0f ┆ster: r P") (byte-code " ┆
0x0fc0…0fe0 00 c6 0a 0b 5c 22 82 13 00 c7 0a 0b 5c 22 5c 22 87 22 20 5b 63 68 61 72 20 64 65 6c 65 74 65 2d ┆ \" \"\" " [char delete-┆
0x0fe0…1000 66 6c 61 67 20 73 74 61 72 74 20 65 6e 64 20 6e 69 6c 20 73 65 74 2d 72 65 67 69 73 74 65 72 20 ┆flag start end nil set-register ┆
0x1000…1020 64 65 6c 65 74 65 2d 65 78 74 72 61 63 74 2d 72 65 63 74 61 6e 67 6c 65 20 65 78 74 72 61 63 74 ┆delete-extract-rectangle extract┆
0x1020…1030 2d 72 65 63 74 61 6e 67 6c 65 5d 20 36 29 29 0a ┆-rectangle] 6)) ┆