|
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: ┃ p ┃
Length: 19565 (0x4c6d)
Names: »picture.elc«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/picture.elc«
0x0000…0020 0a 28 64 65 66 75 6e 20 6d 6f 76 65 2d 74 6f 2d 63 6f 6c 75 6d 6e 2d 66 6f 72 63 65 20 28 63 6f ┆ (defun move-to-column-force (co┆ 0x0020…0040 6c 75 6d 6e 29 20 22 5c 0a 4d 6f 76 65 20 74 6f 20 63 6f 6c 75 6d 6e 20 43 4f 4c 55 4d 4e 20 69 ┆lumn) "\ Move to column COLUMN i┆ 0x0040…0060 6e 20 63 75 72 72 65 6e 74 20 6c 69 6e 65 2e 0a 44 69 66 66 65 72 73 20 66 72 6f 6d 20 6d 6f 76 ┆n current line. Differs from mov┆ 0x0060…0080 65 2d 74 6f 2d 63 6f 6c 75 6d 6e 20 69 6e 20 74 68 61 74 20 69 74 20 63 72 65 61 74 65 73 20 6f ┆e-to-column in that it creates o┆ 0x0080…00a0 72 20 6d 6f 64 69 66 69 65 73 20 77 68 69 74 65 73 70 61 63 65 0a 69 66 20 6e 65 63 65 73 73 61 ┆r modifies whitespace if necessa┆ 0x00a0…00c0 72 79 20 74 6f 20 61 74 74 61 69 6e 20 65 78 61 63 74 6c 79 20 74 68 65 20 73 70 65 63 69 66 69 ┆ry to attain exactly the specifi┆ 0x00c0…00e0 65 64 20 63 6f 6c 75 6d 6e 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 08 21 88 69 19 09 08 ┆ed column." (byte-code " ! i ┆ 0x00e0…0100 57 83 11 00 08 6a 82 2f 00 c4 09 08 5c 22 85 1b 00 68 c5 55 83 2e 00 c6 1a c7 c8 21 88 09 6a 88 ┆W j / \" h U . ! j ┆ 0x0100…0120 c3 08 21 29 82 2f 00 c6 29 87 22 20 5b 63 6f 6c 75 6d 6e 20 63 6f 6c 20 69 6e 64 65 6e 74 2d 74 ┆ !) / ) " [column col indent-t┆ 0x0120…0140 61 62 73 2d 6d 6f 64 65 20 6d 6f 76 65 2d 74 6f 2d 63 6f 6c 75 6d 6e 20 2f 3d 20 39 20 6e 69 6c ┆abs-mode move-to-column /= 9 nil┆ 0x0140…0160 20 64 65 6c 65 74 65 2d 63 68 61 72 20 2d 31 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 70 69 63 ┆ delete-char -1] 5)) (defun pic┆ 0x0160…0180 74 75 72 65 2d 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 29 ┆ture-end-of-line (&optional arg)┆ 0x0180…01a0 20 22 5c 0a 50 6f 73 69 74 69 6f 6e 20 70 6f 69 6e 74 20 61 66 74 65 72 20 6c 61 73 74 20 6e 6f ┆ "\ Position point after last no┆ 0x01a0…01c0 6e 2d 62 6c 61 6e 6b 20 63 68 61 72 61 63 74 65 72 20 6f 6e 20 63 75 72 72 65 6e 74 20 6c 69 6e ┆n-blank character on current lin┆ 0x01c0…01e0 65 2e 0a 57 69 74 68 20 41 52 47 20 6e 6f 74 20 6e 69 6c 2c 20 6d 6f 76 65 20 66 6f 72 77 61 72 ┆e. With ARG not nil, move forwar┆ 0x01e0…0200 64 20 41 52 47 20 2d 20 31 20 6c 69 6e 65 73 20 66 69 72 73 74 2e 0a 49 66 20 73 63 61 6e 20 72 ┆d ARG - 1 lines first. If scan r┆ 0x0200…0220 65 61 63 68 65 73 20 65 6e 64 20 6f 66 20 62 75 66 66 65 72 2c 20 73 74 6f 70 20 74 68 65 72 65 ┆eaches end of buffer, stop there┆ 0x0220…0240 20 77 69 74 68 6f 75 74 20 65 72 72 6f 72 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 ┆ without error." (interactive "P┆ 0x0240…0260 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 08 83 0f 00 c2 c3 08 21 53 21 82 10 00 c1 88 ┆") (byte-code " !S! ┆ 0x0260…0280 c4 20 88 c5 c6 60 c7 20 88 5c 22 87 22 20 5b 61 72 67 20 6e 69 6c 20 66 6f 72 77 61 72 64 2d 6c ┆ ` \" " [arg nil forward-l┆ 0x0280…02a0 69 6e 65 20 70 72 65 66 69 78 2d 6e 75 6d 65 72 69 63 2d 76 61 6c 75 65 20 62 65 67 69 6e 6e 69 ┆ine prefix-numeric-value beginni┆ 0x02a0…02c0 6e 67 2d 6f 66 2d 6c 69 6e 65 20 73 6b 69 70 2d 63 68 61 72 73 2d 62 61 63 6b 77 61 72 64 20 22 ┆ng-of-line skip-chars-backward "┆ 0x02c0…02e0 20 09 22 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 5d 20 38 29 29 0a 0a 28 64 65 66 75 6e 20 70 69 63 ┆ " end-of-line] 8)) (defun pic┆ 0x02e0…0300 74 75 72 65 2d 66 6f 72 77 61 72 64 2d 63 6f 6c 75 6d 6e 20 28 61 72 67 29 20 22 5c 0a 4d 6f 76 ┆ture-forward-column (arg) "\ Mov┆ 0x0300…0320 65 20 63 75 72 73 6f 72 20 72 69 67 68 74 2c 20 6d 61 6b 69 6e 67 20 77 68 69 74 65 73 70 61 63 ┆e cursor right, making whitespac┆ 0x0320…0340 65 20 69 66 20 6e 65 63 65 73 73 61 72 79 2e 0a 57 69 74 68 20 61 72 67 75 6d 65 6e 74 2c 20 6d ┆e if necessary. With argument, m┆ 0x0340…0360 6f 76 65 20 74 68 61 74 20 6d 61 6e 79 20 63 6f 6c 75 6d 6e 73 2e 22 20 28 69 6e 74 65 72 61 63 ┆ove that many columns." (interac┆ 0x0360…0380 74 69 76 65 20 22 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 69 08 5c 5c 21 87 22 ┆tive "p") (byte-code " i \\! "┆ 0x0380…03a0 20 5b 61 72 67 20 6e 69 6c 20 6d 6f 76 65 2d 74 6f 2d 63 6f 6c 75 6d 6e 2d 66 6f 72 63 65 5d 20 ┆ [arg nil move-to-column-force] ┆ 0x03a0…03c0 33 29 29 0a 0a 28 64 65 66 75 6e 20 70 69 63 74 75 72 65 2d 62 61 63 6b 77 61 72 64 2d 63 6f 6c ┆3)) (defun picture-backward-col┆ 0x03c0…03e0 75 6d 6e 20 28 61 72 67 29 20 22 5c 0a 4d 6f 76 65 20 63 75 72 73 6f 72 20 6c 65 66 74 2c 20 6d ┆umn (arg) "\ Move cursor left, m┆ 0x03e0…0400 61 6b 69 6e 67 20 77 68 69 74 65 73 70 61 63 65 20 69 66 20 6e 65 63 65 73 73 61 72 79 2e 0a 57 ┆aking whitespace if necessary. W┆ 0x0400…0420 69 74 68 20 61 72 67 75 6d 65 6e 74 2c 20 6d 6f 76 65 20 74 68 61 74 20 6d 61 6e 79 20 63 6f 6c ┆ith argument, move that many col┆ 0x0420…0440 75 6d 6e 73 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 29 20 28 62 79 74 65 2d 63 ┆umns." (interactive "p") (byte-c┆ 0x0440…0460 6f 64 65 20 22 c1 88 c2 69 08 5a 21 87 22 20 5b 61 72 67 20 6e 69 6c 20 6d 6f 76 65 2d 74 6f 2d ┆ode " i Z! " [arg nil move-to-┆ 0x0460…0480 63 6f 6c 75 6d 6e 2d 66 6f 72 63 65 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 70 69 63 74 75 72 ┆column-force] 3)) (defun pictur┆ 0x0480…04a0 65 2d 6d 6f 76 65 2d 64 6f 77 6e 20 28 61 72 67 29 20 22 5c 0a 4d 6f 76 65 20 76 65 72 74 69 63 ┆e-move-down (arg) "\ Move vertic┆ 0x04a0…04c0 61 6c 6c 79 20 64 6f 77 6e 2c 20 6d 61 6b 69 6e 67 20 77 68 69 74 65 73 70 61 63 65 20 69 66 20 ┆ally down, making whitespace if ┆ 0x04c0…04e0 6e 65 63 65 73 73 61 72 79 2e 0a 57 69 74 68 20 61 72 67 75 6d 65 6e 74 2c 20 6d 6f 76 65 20 74 ┆necessary. With argument, move t┆ 0x04e0…0500 68 61 74 20 6d 61 6e 79 20 6c 69 6e 65 73 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 ┆hat many lines." (interactive "p┆ 0x0500…0520 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 88 69 18 c3 09 21 88 c4 08 21 29 87 22 20 5b 63 ┆") (byte-code " i ! !) " [c┆ 0x0520…0540 6f 6c 20 61 72 67 20 6e 69 6c 20 70 69 63 74 75 72 65 2d 6e 65 77 6c 69 6e 65 20 6d 6f 76 65 2d ┆ol arg nil picture-newline move-┆ 0x0540…0560 74 6f 2d 63 6f 6c 75 6d 6e 2d 66 6f 72 63 65 5d 20 33 29 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 ┆to-column-force] 3)) (defconst ┆ 0x0560…0580 70 69 63 74 75 72 65 2d 76 65 72 74 69 63 61 6c 2d 73 74 65 70 20 30 20 22 5c 0a 41 6d 6f 75 6e ┆picture-vertical-step 0 "\ Amoun┆ 0x0580…05a0 74 20 74 6f 20 6d 6f 76 65 20 76 65 72 74 69 63 61 6c 6c 79 20 61 66 74 65 72 20 74 65 78 74 20 ┆t to move vertically after text ┆ 0x05a0…05c0 63 68 61 72 61 63 74 65 72 20 69 6e 20 50 69 63 74 75 72 65 20 6d 6f 64 65 2e 22 29 0a 0a 28 64 ┆character in Picture mode.") (d┆ 0x05c0…05e0 65 66 63 6f 6e 73 74 20 70 69 63 74 75 72 65 2d 68 6f 72 69 7a 6f 6e 74 61 6c 2d 73 74 65 70 20 ┆efconst picture-horizontal-step ┆ 0x05e0…0600 31 20 22 5c 0a 41 6d 6f 75 6e 74 20 74 6f 20 6d 6f 76 65 20 68 6f 72 69 7a 6f 6e 74 61 6c 6c 79 ┆1 "\ Amount to move horizontally┆ 0x0600…0620 20 61 66 74 65 72 20 74 65 78 74 20 63 68 61 72 61 63 74 65 72 20 69 6e 20 50 69 63 74 75 72 65 ┆ after text character in Picture┆ 0x0620…0640 20 6d 6f 64 65 2e 22 29 0a 0a 28 64 65 66 75 6e 20 70 69 63 74 75 72 65 2d 6d 6f 76 65 2d 75 70 ┆ mode.") (defun picture-move-up┆ 0x0640…0660 20 28 61 72 67 29 20 22 5c 0a 4d 6f 76 65 20 76 65 72 74 69 63 61 6c 6c 79 20 75 70 2c 20 6d 61 ┆ (arg) "\ Move vertically up, ma┆ 0x0660…0680 6b 69 6e 67 20 77 68 69 74 65 73 70 61 63 65 20 69 66 20 6e 65 63 65 73 73 61 72 79 2e 0a 57 69 ┆king whitespace if necessary. Wi┆ 0x0680…06a0 74 68 20 61 72 67 75 6d 65 6e 74 2c 20 6d 6f 76 65 20 74 68 61 74 20 6d 61 6e 79 20 6c 69 6e 65 ┆th argument, move that many line┆ 0x06a0…06c0 73 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 ┆s." (interactive "p") (byte-code┆ 0x06c0…06e0 20 22 c1 88 c2 08 5b 21 87 22 20 5b 61 72 67 20 6e 69 6c 20 70 69 63 74 75 72 65 2d 6d 6f 76 65 ┆ " [! " [arg nil picture-move┆ 0x06e0…0700 2d 64 6f 77 6e 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 70 69 63 74 75 72 65 2d 6d 6f 76 65 6d ┆-down] 2)) (defun picture-movem┆ 0x0700…0720 65 6e 74 2d 72 69 67 68 74 20 6e 69 6c 20 22 5c 0a 4d 6f 76 65 20 72 69 67 68 74 20 61 66 74 65 ┆ent-right nil "\ Move right afte┆ 0x0720…0740 72 20 73 65 6c 66 2d 69 6e 73 65 72 74 69 6e 67 20 63 68 61 72 61 63 74 65 72 20 69 6e 20 50 69 ┆r self-inserting character in Pi┆ 0x0740…0760 63 74 75 72 65 20 6d 6f 64 65 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 ┆cture mode." (interactive) (byte┆ 0x0760…0780 2d 63 6f 64 65 20 22 c0 88 c1 c2 c3 5c 22 87 22 20 5b 6e 69 6c 20 70 69 63 74 75 72 65 2d 73 65 ┆-code " \" " [nil picture-se┆ 0x0780…07a0 74 2d 6d 6f 74 69 6f 6e 20 30 20 31 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 70 69 63 74 75 72 ┆t-motion 0 1] 3)) (defun pictur┆ 0x07a0…07c0 65 2d 6d 6f 76 65 6d 65 6e 74 2d 6c 65 66 74 20 6e 69 6c 20 22 5c 0a 4d 6f 76 65 20 6c 65 66 74 ┆e-movement-left nil "\ Move left┆ 0x07c0…07e0 20 61 66 74 65 72 20 73 65 6c 66 2d 69 6e 73 65 72 74 69 6e 67 20 63 68 61 72 61 63 74 65 72 20 ┆ after self-inserting character ┆ 0x07e0…0800 69 6e 20 50 69 63 74 75 72 65 20 6d 6f 64 65 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 ┆in Picture mode." (interactive) ┆ 0x0800…0820 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 c2 c3 5c 22 87 22 20 5b 6e 69 6c 20 70 69 63 74 75 ┆(byte-code " \" " [nil pictu┆ 0x0820…0840 72 65 2d 73 65 74 2d 6d 6f 74 69 6f 6e 20 30 20 2d 31 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 ┆re-set-motion 0 -1] 3)) (defun ┆ 0x0840…0860 70 69 63 74 75 72 65 2d 6d 6f 76 65 6d 65 6e 74 2d 75 70 20 6e 69 6c 20 22 5c 0a 4d 6f 76 65 20 ┆picture-movement-up nil "\ Move ┆ 0x0860…0880 75 70 20 61 66 74 65 72 20 73 65 6c 66 2d 69 6e 73 65 72 74 69 6e 67 20 63 68 61 72 61 63 74 65 ┆up after self-inserting characte┆ 0x0880…08a0 72 20 69 6e 20 50 69 63 74 75 72 65 20 6d 6f 64 65 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 ┆r in Picture mode." (interactive┆ 0x08a0…08c0 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 c2 c3 5c 22 87 22 20 5b 6e 69 6c 20 70 69 63 ┆) (byte-code " \" " [nil pic┆ 0x08c0…08e0 74 75 72 65 2d 73 65 74 2d 6d 6f 74 69 6f 6e 20 2d 31 20 30 5d 20 33 29 29 0a 0a 28 64 65 66 75 ┆ture-set-motion -1 0] 3)) (defu┆ 0x08e0…0900 6e 20 70 69 63 74 75 72 65 2d 6d 6f 76 65 6d 65 6e 74 2d 64 6f 77 6e 20 6e 69 6c 20 22 5c 0a 4d ┆n picture-movement-down nil "\ M┆ 0x0900…0920 6f 76 65 20 64 6f 77 6e 20 61 66 74 65 72 20 73 65 6c 66 2d 69 6e 73 65 72 74 69 6e 67 20 63 68 ┆ove down after self-inserting ch┆ 0x0920…0940 61 72 61 63 74 65 72 20 69 6e 20 50 69 63 74 75 72 65 20 6d 6f 64 65 2e 22 20 28 69 6e 74 65 72 ┆aracter in Picture mode." (inter┆ 0x0940…0960 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 c2 c3 5c 22 87 22 20 5b 6e ┆active) (byte-code " \" " [n┆ 0x0960…0980 69 6c 20 70 69 63 74 75 72 65 2d 73 65 74 2d 6d 6f 74 69 6f 6e 20 31 20 30 5d 20 33 29 29 0a 0a ┆il picture-set-motion 1 0] 3)) ┆ 0x0980…09a0 28 64 65 66 75 6e 20 70 69 63 74 75 72 65 2d 6d 6f 76 65 6d 65 6e 74 2d 6e 77 20 6e 69 6c 20 22 ┆(defun picture-movement-nw nil "┆ 0x09a0…09c0 5c 0a 4d 6f 76 65 20 75 70 20 61 6e 64 20 6c 65 66 74 20 61 66 74 65 72 20 73 65 6c 66 2d 69 6e ┆\ Move up and left after self-in┆ 0x09c0…09e0 73 65 72 74 69 6e 67 20 63 68 61 72 61 63 74 65 72 20 69 6e 20 50 69 63 74 75 72 65 20 6d 6f 64 ┆serting character in Picture mod┆ 0x09e0…0a00 65 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 ┆e." (interactive) (byte-code " ┆ 0x0a00…0a20 c1 c2 c2 5c 22 87 22 20 5b 6e 69 6c 20 70 69 63 74 75 72 65 2d 73 65 74 2d 6d 6f 74 69 6f 6e 20 ┆ \" " [nil picture-set-motion ┆ 0x0a20…0a40 2d 31 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 70 69 63 74 75 72 65 2d 6d 6f 76 65 6d 65 6e 74 ┆-1] 3)) (defun picture-movement┆ 0x0a40…0a60 2d 6e 65 20 6e 69 6c 20 22 5c 0a 4d 6f 76 65 20 75 70 20 61 6e 64 20 72 69 67 68 74 20 61 66 74 ┆-ne nil "\ Move up and right aft┆ 0x0a60…0a80 65 72 20 73 65 6c 66 2d 69 6e 73 65 72 74 69 6e 67 20 63 68 61 72 61 63 74 65 72 20 69 6e 20 50 ┆er self-inserting character in P┆ 0x0a80…0aa0 69 63 74 75 72 65 20 6d 6f 64 65 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 ┆icture mode." (interactive) (byt┆ 0x0aa0…0ac0 65 2d 63 6f 64 65 20 22 c0 88 c1 c2 c3 5c 22 87 22 20 5b 6e 69 6c 20 70 69 63 74 75 72 65 2d 73 ┆e-code " \" " [nil picture-s┆ 0x0ac0…0ae0 65 74 2d 6d 6f 74 69 6f 6e 20 2d 31 20 31 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 70 69 63 74 ┆et-motion -1 1] 3)) (defun pict┆ 0x0ae0…0b00 75 72 65 2d 6d 6f 76 65 6d 65 6e 74 2d 73 77 20 6e 69 6c 20 22 5c 0a 4d 6f 76 65 20 64 6f 77 6e ┆ure-movement-sw nil "\ Move down┆ 0x0b00…0b20 20 61 6e 64 20 6c 65 66 74 20 61 66 74 65 72 20 73 65 6c 66 2d 69 6e 73 65 72 74 69 6e 67 20 63 ┆ and left after self-inserting c┆ 0x0b20…0b40 68 61 72 61 63 74 65 72 20 69 6e 20 50 69 63 74 75 72 65 20 6d 6f 64 65 2e 22 20 28 69 6e 74 65 ┆haracter in Picture mode." (inte┆ 0x0b40…0b60 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 c2 c3 5c 22 87 22 20 5b ┆ractive) (byte-code " \" " [┆ 0x0b60…0b80 6e 69 6c 20 70 69 63 74 75 72 65 2d 73 65 74 2d 6d 6f 74 69 6f 6e 20 31 20 2d 31 5d 20 33 29 29 ┆nil picture-set-motion 1 -1] 3))┆ 0x0b80…0ba0 0a 0a 28 64 65 66 75 6e 20 70 69 63 74 75 72 65 2d 6d 6f 76 65 6d 65 6e 74 2d 73 65 20 6e 69 6c ┆ (defun picture-movement-se nil┆ 0x0ba0…0bc0 20 22 5c 0a 4d 6f 76 65 20 64 6f 77 6e 20 61 6e 64 20 72 69 67 68 74 20 61 66 74 65 72 20 73 65 ┆ "\ Move down and right after se┆ 0x0bc0…0be0 6c 66 2d 69 6e 73 65 72 74 69 6e 67 20 63 68 61 72 61 63 74 65 72 20 69 6e 20 50 69 63 74 75 72 ┆lf-inserting character in Pictur┆ 0x0be0…0c00 65 20 6d 6f 64 65 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 ┆e mode." (interactive) (byte-cod┆ 0x0c00…0c20 65 20 22 c0 88 c1 c2 c2 5c 22 87 22 20 5b 6e 69 6c 20 70 69 63 74 75 72 65 2d 73 65 74 2d 6d 6f ┆e " \" " [nil picture-set-mo┆ 0x0c20…0c40 74 69 6f 6e 20 31 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 70 69 63 74 75 72 65 2d 73 65 74 2d ┆tion 1] 3)) (defun picture-set-┆ 0x0c40…0c60 6d 6f 74 69 6f 6e 20 28 76 65 72 74 20 68 6f 72 69 7a 29 20 22 5c 0a 53 65 74 20 56 45 52 54 49 ┆motion (vert horiz) "\ Set VERTI┆ 0x0c60…0c80 43 41 4c 20 61 6e 64 20 48 4f 52 49 5a 4f 4e 54 41 4c 20 69 6e 63 72 65 6d 65 6e 74 73 20 66 6f ┆CAL and HORIZONTAL increments fo┆ 0x0c80…0ca0 72 20 6d 6f 76 65 6d 65 6e 74 20 69 6e 20 50 69 63 74 75 72 65 20 6d 6f 64 65 2e 0a 54 68 65 20 ┆r movement in Picture mode. The ┆ 0x0ca0…0cc0 6d 6f 64 65 20 6c 69 6e 65 20 69 73 20 75 70 64 61 74 65 64 20 74 6f 20 72 65 66 6c 65 63 74 20 ┆mode line is updated to reflect ┆ 0x0cc0…0ce0 74 68 65 20 63 75 72 72 65 6e 74 20 64 69 72 65 63 74 69 6f 6e 2e 22 20 28 62 79 74 65 2d 63 6f ┆the current direction." (byte-co┆ 0x0ce0…0d00 64 65 20 22 09 10 0b 89 12 88 c5 c6 c7 c8 c9 ca 0b cb 5c 22 cc cd ca 09 cb 5c 22 54 5c 22 23 ce ┆de " \" \"T\"# ┆ 0x0d00…0d20 5c 22 40 5c 22 89 14 88 cf d0 20 21 88 d1 d2 21 87 22 20 5b 70 69 63 74 75 72 65 2d 76 65 72 74 ┆\"@\" ! ! " [picture-vert┆ 0x0d20…0d40 69 63 61 6c 2d 73 74 65 70 20 76 65 72 74 20 70 69 63 74 75 72 65 2d 68 6f 72 69 7a 6f 6e 74 61 ┆ical-step vert picture-horizonta┆ 0x0d40…0d60 6c 2d 73 74 65 70 20 68 6f 72 69 7a 20 6d 6f 64 65 2d 6e 61 6d 65 20 66 6f 72 6d 61 74 20 22 50 ┆l-step horiz mode-name format "P┆ 0x0d60…0d80 69 63 74 75 72 65 3a 25 73 22 20 6e 74 68 63 64 72 20 2b 20 31 20 25 20 32 20 2a 20 33 20 28 6e ┆icture:%s" nthcdr + 1 % 2 * 3 (n┆ 0x0d80…0da0 77 20 75 70 20 6e 65 20 6c 65 66 74 20 6e 6f 6e 65 20 72 69 67 68 74 20 73 77 20 64 6f 77 6e 20 ┆w up ne left none right sw down ┆ 0x0da0…0dc0 73 65 29 20 73 65 74 2d 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 2d 70 20 62 75 66 66 65 72 ┆se) set-buffer-modified-p buffer┆ 0x0dc0…0de0 2d 6d 6f 64 69 66 69 65 64 2d 70 20 6d 65 73 73 61 67 65 20 22 22 5d 20 31 32 29 29 0a 0a 28 64 ┆-modified-p message ""] 12)) (d┆ 0x0de0…0e00 65 66 75 6e 20 70 69 63 74 75 72 65 2d 6d 6f 76 65 20 6e 69 6c 20 22 5c 0a 4d 6f 76 65 20 69 6e ┆efun picture-move nil "\ Move in┆ 0x0e00…0e20 20 64 69 72 65 63 74 69 6f 6e 20 6f 66 20 20 70 69 63 74 75 72 65 2d 76 65 72 74 69 63 61 6c 2d ┆ direction of picture-vertical-┆ 0x0e20…0e40 73 74 65 70 20 20 61 6e 64 20 20 70 69 63 74 75 72 65 2d 68 6f 72 69 7a 6f 6e 74 61 6c 2d 73 74 ┆step and picture-horizontal-st┆ 0x0e40…0e60 65 70 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 08 21 88 c3 09 21 87 22 20 5b 70 69 63 74 ┆ep." (byte-code " ! ! " [pict┆ 0x0e60…0e80 75 72 65 2d 76 65 72 74 69 63 61 6c 2d 73 74 65 70 20 70 69 63 74 75 72 65 2d 68 6f 72 69 7a 6f ┆ure-vertical-step picture-horizo┆ 0x0e80…0ea0 6e 74 61 6c 2d 73 74 65 70 20 70 69 63 74 75 72 65 2d 6d 6f 76 65 2d 64 6f 77 6e 20 70 69 63 74 ┆ntal-step picture-move-down pict┆ 0x0ea0…0ec0 75 72 65 2d 66 6f 72 77 61 72 64 2d 63 6f 6c 75 6d 6e 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 ┆ure-forward-column] 3)) (defun ┆ 0x0ec0…0ee0 70 69 63 74 75 72 65 2d 6d 6f 74 69 6f 6e 20 28 61 72 67 29 20 22 5c 0a 4d 6f 76 65 20 70 6f 69 ┆picture-motion (arg) "\ Move poi┆ 0x0ee0…0f00 6e 74 20 69 6e 20 64 69 72 65 63 74 69 6f 6e 20 6f 66 20 63 75 72 72 65 6e 74 20 70 69 63 74 75 ┆nt in direction of current pictu┆ 0x0f00…0f20 72 65 20 6d 6f 74 69 6f 6e 20 69 6e 20 50 69 63 74 75 72 65 20 6d 6f 64 65 2e 0a 57 69 74 68 20 ┆re motion in Picture mode. With ┆ 0x0f20…0f40 41 52 47 20 64 6f 20 69 74 20 74 68 61 74 20 6d 61 6e 79 20 74 69 6d 65 73 2e 20 20 55 73 65 66 ┆ARG do it that many times. Usef┆ 0x0f40…0f60 75 6c 20 66 6f 72 20 64 65 6c 69 6e 65 61 74 69 6e 67 20 72 65 63 74 61 6e 67 6c 65 73 20 69 6e ┆ul for delineating rectangles in┆ 0x0f60…0f80 0a 63 6f 6e 6a 75 6e 63 74 69 6f 6e 20 77 69 74 68 20 64 69 61 67 6f 6e 61 6c 20 70 69 63 74 75 ┆ conjunction with diagonal pictu┆ 0x0f80…0fa0 72 65 20 6d 6f 74 69 6f 6e 2e 0a 44 6f 20 5c 5c 5b 63 6f 6d 6d 61 6e 64 2d 61 70 72 6f 70 6f 73 ┆re motion. Do \\[command-apropos┆ 0x0fa0…0fc0 5d 20 20 70 69 63 74 75 72 65 2d 6d 6f 76 65 6d 65 6e 74 20 20 74 6f 20 73 65 65 20 63 6f 6d 6d ┆] picture-movement to see comm┆ 0x0fc0…0fe0 61 6e 64 73 20 77 68 69 63 68 20 63 6f 6e 74 72 6f 6c 20 6d 6f 74 69 6f 6e 2e 22 20 28 69 6e 74 ┆ands which control motion." (int┆ 0x0fe0…1000 65 72 61 63 74 69 76 65 20 22 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 c4 c5 08 09 ┆eractive "p") (byte-code " ┆ 0x1000…1020 5c 22 21 88 c6 c5 08 0a 5c 22 21 87 22 20 5b 61 72 67 20 70 69 63 74 75 72 65 2d 76 65 72 74 69 ┆\"! \"! " [arg picture-verti┆ 0x1020…1040 63 61 6c 2d 73 74 65 70 20 70 69 63 74 75 72 65 2d 68 6f 72 69 7a 6f 6e 74 61 6c 2d 73 74 65 70 ┆cal-step picture-horizontal-step┆ 0x1040…1060 20 6e 69 6c 20 70 69 63 74 75 72 65 2d 6d 6f 76 65 2d 64 6f 77 6e 20 2a 20 70 69 63 74 75 72 65 ┆ nil picture-move-down * picture┆ 0x1060…1080 2d 66 6f 72 77 61 72 64 2d 63 6f 6c 75 6d 6e 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 70 69 63 ┆-forward-column] 6)) (defun pic┆ 0x1080…10a0 74 75 72 65 2d 6d 6f 74 69 6f 6e 2d 72 65 76 65 72 73 65 20 28 61 72 67 29 20 22 5c 0a 4d 6f 76 ┆ture-motion-reverse (arg) "\ Mov┆ 0x10a0…10c0 65 20 70 6f 69 6e 74 20 69 6e 20 64 69 72 65 63 74 69 6f 6e 20 6f 70 70 6f 73 69 74 65 20 6f 66 ┆e point in direction opposite of┆ 0x10c0…10e0 20 63 75 72 72 65 6e 74 20 70 69 63 74 75 72 65 20 6d 6f 74 69 6f 6e 20 69 6e 20 50 69 63 74 75 ┆ current picture motion in Pictu┆ 0x10e0…1100 72 65 20 6d 6f 64 65 2e 0a 57 69 74 68 20 41 52 47 20 64 6f 20 69 74 20 74 68 61 74 20 6d 61 6e ┆re mode. With ARG do it that man┆ 0x1100…1120 79 20 74 69 6d 65 73 2e 20 20 55 73 65 66 75 6c 20 66 6f 72 20 64 65 6c 69 6e 65 61 74 69 6e 67 ┆y times. Useful for delineating┆ 0x1120…1140 20 72 65 63 74 61 6e 67 6c 65 73 20 69 6e 0a 63 6f 6e 6a 75 6e 63 74 69 6f 6e 20 77 69 74 68 20 ┆ rectangles in conjunction with ┆ 0x1140…1160 64 69 61 67 6f 6e 61 6c 20 70 69 63 74 75 72 65 20 6d 6f 74 69 6f 6e 2e 0a 44 6f 20 5c 5c 5b 63 ┆diagonal picture motion. Do \\[c┆ 0x1160…1180 6f 6d 6d 61 6e 64 2d 61 70 72 6f 70 6f 73 5d 20 20 70 69 63 74 75 72 65 2d 6d 6f 76 65 6d 65 6e ┆ommand-apropos] picture-movemen┆ 0x1180…11a0 74 20 20 74 6f 20 73 65 65 20 63 6f 6d 6d 61 6e 64 73 20 77 68 69 63 68 20 63 6f 6e 74 72 6f 6c ┆t to see commands which control┆ 0x11a0…11c0 20 6d 6f 74 69 6f 6e 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 29 20 28 62 79 74 ┆ motion." (interactive "p") (byt┆ 0x11c0…11e0 65 2d 63 6f 64 65 20 22 c1 88 c2 08 5b 21 87 22 20 5b 61 72 67 20 6e 69 6c 20 70 69 63 74 75 72 ┆e-code " [! " [arg nil pictur┆ 0x11e0…1200 65 2d 6d 6f 74 69 6f 6e 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 70 69 63 74 75 72 65 2d 73 65 ┆e-motion] 2)) (defun picture-se┆ 0x1200…1220 6c 66 2d 69 6e 73 65 72 74 20 28 61 72 67 29 20 22 5c 0a 49 6e 73 65 72 74 20 74 68 69 73 20 63 ┆lf-insert (arg) "\ Insert this c┆ 0x1220…1240 68 61 72 61 63 74 65 72 20 69 6e 20 70 6c 61 63 65 20 6f 66 20 63 68 61 72 61 63 74 65 72 20 70 ┆haracter in place of character p┆ 0x1240…1260 72 65 76 69 6f 75 73 6c 79 20 61 74 20 74 68 65 20 63 75 72 73 6f 72 2e 0a 54 68 65 20 63 75 72 ┆reviously at the cursor. The cur┆ 0x1260…1280 73 6f 72 20 74 68 65 6e 20 6d 6f 76 65 73 20 69 6e 20 74 68 65 20 64 69 72 65 63 74 69 6f 6e 20 ┆sor then moves in the direction ┆ 0x1280…12a0 79 6f 75 20 70 72 65 76 69 6f 75 73 6c 79 20 73 70 65 63 69 66 69 65 64 0a 77 69 74 68 20 74 68 ┆you previously specified with th┆ 0x12a0…12c0 65 20 63 6f 6d 6d 61 6e 64 73 20 70 69 63 74 75 72 65 2d 6d 6f 76 65 6d 65 6e 74 2d 72 69 67 68 ┆e commands picture-movement-righ┆ 0x12c0…12e0 74 2c 20 70 69 63 74 75 72 65 2d 6d 6f 76 65 6d 65 6e 74 2d 75 70 2c 20 65 74 63 2e 0a 44 6f 20 ┆t, picture-movement-up, etc. Do ┆ 0x12e0…1300 5c 5c 5b 63 6f 6d 6d 61 6e 64 2d 61 70 72 6f 70 6f 73 5d 20 20 70 69 63 74 75 72 65 2d 6d 6f 76 ┆\\[command-apropos] picture-mov┆ 0x1300…1320 65 6d 65 6e 74 20 20 74 6f 20 73 65 65 20 74 68 6f 73 65 20 63 6f 6d 6d 61 6e 64 73 2e 22 20 28 ┆ement to see those commands." (┆ 0x1320…1340 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 88 08 ┆interactive "p") (byte-code " ┆ 0x1340…1360 c3 56 85 23 00 08 53 89 10 88 c4 69 54 21 88 c5 c6 21 88 09 63 88 c7 c6 21 88 c8 20 88 82 02 00 ┆ V # S iT! ! c ! ┆ 0x1360…1380 87 22 20 5b 61 72 67 20 6c 61 73 74 2d 69 6e 70 75 74 2d 63 68 61 72 20 6e 69 6c 20 30 20 6d 6f ┆ " [arg last-input-char nil 0 mo┆ 0x1380…13a0 76 65 2d 74 6f 2d 63 6f 6c 75 6d 6e 2d 66 6f 72 63 65 20 64 65 6c 65 74 65 2d 63 68 61 72 20 2d ┆ve-to-column-force delete-char -┆ 0x13a0…13c0 31 20 66 6f 72 77 61 72 64 2d 63 68 61 72 20 70 69 63 74 75 72 65 2d 6d 6f 76 65 5d 20 36 29 29 ┆1 forward-char picture-move] 6))┆ 0x13c0…13e0 0a 0a 28 64 65 66 75 6e 20 70 69 63 74 75 72 65 2d 63 6c 65 61 72 2d 63 6f 6c 75 6d 6e 20 28 61 ┆ (defun picture-clear-column (a┆ 0x13e0…1400 72 67 29 20 22 5c 0a 43 6c 65 61 72 20 6f 75 74 20 41 52 47 20 63 6f 6c 75 6d 6e 73 20 61 66 74 ┆rg) "\ Clear out ARG columns aft┆ 0x1400…1420 65 72 20 70 6f 69 6e 74 20 77 69 74 68 6f 75 74 20 6d 6f 76 69 6e 67 2e 22 20 28 69 6e 74 65 72 ┆er point without moving." (inter┆ 0x1420…1440 61 63 74 69 76 65 20 22 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 88 60 18 69 19 09 0b ┆active "p") (byte-code " ` i ┆ 0x1440…1460 5c 5c 1a c5 0a 21 88 c6 08 60 5c 22 88 8a 0a 09 5d 6a 29 2b 87 22 20 5b 6f 70 6f 69 6e 74 20 6f ┆\\ ! `\" ]j)+ " [opoint o┆ 0x1460…1480 72 69 67 69 6e 61 6c 2d 63 6f 6c 20 74 61 72 67 65 74 2d 63 6f 6c 20 61 72 67 20 6e 69 6c 20 6d ┆riginal-col target-col arg nil m┆ 0x1480…14a0 6f 76 65 2d 74 6f 2d 63 6f 6c 75 6d 6e 2d 66 6f 72 63 65 20 64 65 6c 65 74 65 2d 72 65 67 69 6f ┆ove-to-column-force delete-regio┆ 0x14a0…14c0 6e 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 70 69 63 74 75 72 65 2d 62 61 63 6b 77 61 72 64 2d ┆n] 4)) (defun picture-backward-┆ 0x14c0…14e0 63 6c 65 61 72 2d 63 6f 6c 75 6d 6e 20 28 61 72 67 29 20 22 5c 0a 43 6c 65 61 72 20 6f 75 74 20 ┆clear-column (arg) "\ Clear out ┆ 0x14e0…1500 41 52 47 20 63 6f 6c 75 6d 6e 73 20 62 65 66 6f 72 65 20 70 6f 69 6e 74 2c 20 6d 6f 76 69 6e 67 ┆ARG columns before point, moving┆ 0x1500…1520 20 62 61 63 6b 20 6f 76 65 72 20 74 68 65 6d 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 ┆ back over them." (interactive "┆ 0x1520…1540 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 08 5b 21 87 22 20 5b 61 72 67 20 6e 69 ┆p") (byte-code " [! " [arg ni┆ 0x1540…1560 6c 20 70 69 63 74 75 72 65 2d 63 6c 65 61 72 2d 63 6f 6c 75 6d 6e 5d 20 32 29 29 0a 0a 28 64 65 ┆l picture-clear-column] 2)) (de┆ 0x1560…1580 66 75 6e 20 70 69 63 74 75 72 65 2d 63 6c 65 61 72 2d 6c 69 6e 65 20 28 61 72 67 29 20 22 5c 0a ┆fun picture-clear-line (arg) "\ ┆ 0x1580…15a0 43 6c 65 61 72 20 6f 75 74 20 72 65 73 74 20 6f 66 20 6c 69 6e 65 3b 20 69 66 20 61 74 20 65 6e ┆Clear out rest of line; if at en┆ 0x15a0…15c0 64 20 6f 66 20 6c 69 6e 65 2c 20 61 64 76 61 6e 63 65 20 74 6f 20 6e 65 78 74 20 6c 69 6e 65 2e ┆d of line, advance to next line.┆ 0x15c0…15e0 0a 43 6c 65 61 72 65 64 2d 6f 75 74 20 6c 69 6e 65 20 74 65 78 74 20 67 6f 65 73 20 69 6e 74 6f ┆ Cleared-out line text goes into┆ 0x15e0…1600 20 74 68 65 20 6b 69 6c 6c 20 72 69 6e 67 2c 20 61 73 20 64 6f 0a 6e 65 77 6c 69 6e 65 73 20 74 ┆ the kill ring, as do newlines t┆ 0x1600…1620 68 61 74 20 61 72 65 20 61 64 76 61 6e 63 65 64 20 6f 76 65 72 2e 0a 57 69 74 68 20 61 72 67 75 ┆hat are advanced over. With argu┆ 0x1620…1640 6d 65 6e 74 2c 20 63 6c 65 61 72 20 6f 75 74 20 28 61 6e 64 20 73 61 76 65 20 69 6e 20 6b 69 6c ┆ment, clear out (and save in kil┆ 0x1640…1660 6c 20 72 69 6e 67 29 20 74 68 61 74 20 6d 61 6e 79 20 6c 69 6e 65 73 2e 22 20 28 69 6e 74 65 72 ┆l ring) that many lines." (inter┆ 0x1660…1680 61 63 74 69 76 65 20 22 50 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 08 83 21 00 c2 08 ┆active "P") (byte-code " ! ┆ 0x1680…16a0 21 89 10 88 c3 08 21 88 c4 08 c5 56 83 1b 00 08 82 1d 00 08 5b 21 82 39 00 c6 c7 21 83 32 00 c8 ┆! ! V [! 9 ! 2 ┆ 0x16a0…16c0 60 c9 ca 21 88 60 5c 22 82 39 00 cb 60 cc 20 88 60 5c 22 87 22 20 5b 61 72 67 20 6e 69 6c 20 70 ┆` ! `\" 9 ` `\" " [arg nil p┆ 0x16c0…16e0 72 65 66 69 78 2d 6e 75 6d 65 72 69 63 2d 76 61 6c 75 65 20 6b 69 6c 6c 2d 6c 69 6e 65 20 6e 65 ┆refix-numeric-value kill-line ne┆ 0x16e0…1700 77 6c 69 6e 65 20 30 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 5b 20 09 5d 2a 24 22 20 6b 69 6c 6c ┆wline 0 looking-at "[ ]*$" kill┆ 0x1700…1720 2d 72 69 6e 67 2d 73 61 76 65 20 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 31 20 6b 69 6c 6c 2d 72 ┆-ring-save forward-line 1 kill-r┆ 0x1720…1740 65 67 69 6f 6e 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 5d 20 31 30 29 29 0a 0a 28 64 65 66 75 6e 20 ┆egion end-of-line] 10)) (defun ┆ 0x1740…1760 70 69 63 74 75 72 65 2d 6e 65 77 6c 69 6e 65 20 28 61 72 67 29 20 22 5c 0a 4d 6f 76 65 20 74 6f ┆picture-newline (arg) "\ Move to┆ 0x1760…1780 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 ┆ the beginning of the following ┆ 0x1780…17a0 6c 69 6e 65 2e 0a 57 69 74 68 20 61 72 67 75 6d 65 6e 74 2c 20 6d 6f 76 65 73 20 74 68 61 74 20 ┆line. With argument, moves that ┆ 0x17a0…17c0 6d 61 6e 79 20 6c 69 6e 65 73 20 28 75 70 2c 20 69 66 20 6e 65 67 61 74 69 76 65 20 61 72 67 75 ┆many lines (up, if negative argu┆ 0x17c0…17e0 6d 65 6e 74 29 3b 0a 61 6c 77 61 79 73 20 6d 6f 76 65 73 20 74 6f 20 74 68 65 20 62 65 67 69 6e ┆ment); always moves to the begin┆ 0x17e0…1800 6e 69 6e 67 20 6f 66 20 61 20 6c 69 6e 65 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 ┆ning of a line." (interactive "p┆ 0x1800…1820 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 08 c2 57 83 0e 00 c3 08 21 82 2c 00 08 c2 56 ┆") (byte-code " W ! , V┆ 0x1820…1840 85 2c 00 c4 20 88 6d 83 20 00 c5 20 82 23 00 c6 c7 21 88 08 53 89 10 88 82 0e 00 87 22 20 5b 61 ┆ , m # ! S " [a┆ 0x1840…1860 72 67 20 6e 69 6c 20 30 20 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 65 6e 64 2d 6f 66 2d 6c 69 6e ┆rg nil 0 forward-line end-of-lin┆ 0x1860…1880 65 20 6e 65 77 6c 69 6e 65 20 66 6f 72 77 61 72 64 2d 63 68 61 72 20 31 5d 20 37 29 29 0a 0a 28 ┆e newline forward-char 1] 7)) (┆ 0x1880…18a0 64 65 66 75 6e 20 70 69 63 74 75 72 65 2d 6f 70 65 6e 2d 6c 69 6e 65 20 28 61 72 67 29 20 22 5c ┆defun picture-open-line (arg) "\┆ 0x18a0…18c0 0a 49 6e 73 65 72 74 20 61 6e 20 65 6d 70 74 79 20 6c 69 6e 65 20 61 66 74 65 72 20 74 68 65 20 ┆ Insert an empty line after the ┆ 0x18c0…18e0 63 75 72 72 65 6e 74 20 6c 69 6e 65 2e 0a 57 69 74 68 20 70 6f 73 69 74 69 76 65 20 61 72 67 75 ┆current line. With positive argu┆ 0x18e0…1900 6d 65 6e 74 20 69 6e 73 65 72 74 20 74 68 61 74 20 6d 61 6e 79 20 6c 69 6e 65 73 2e 22 20 28 69 ┆ment insert that many lines." (i┆ 0x1900…1920 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 8a c2 ┆nteractive "p") (byte-code " ┆ […truncated at 200 lines…]