DataMuseum.dk

top - metrics - download

    Length: 19548 (0x4c5c)
    Names: »picture.elc«

└─⟦a05ed705a⟧ Bits:30007078 DKUUG GNU 2/12/89
    └─⟦46d41b2d0⟧ »./emacs-18.55.tar.Z« 
        └─⟦fa971747f⟧ 
            └─⟦this⟧ »dist-18.55/lisp/picture.elc« 

Hex Dump

0x0000…0020 0a 28 70 72 6f 76 69 64 65 20 28 71 75 6f 74 65 20 70 69 63 74 75 72 65 29 29 0a 0a 28 64 65 66   ┆ (provide (quote picture))  (def┆
0x0020…0040 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 6c 75 6d 6e 29   ┆un move-to-column-force (column)┆
0x0040…0060 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 6e 20 63 75 72   ┆ "\ Move to column COLUMN in cur┆
0x0060…0080 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 65 2d 74 6f 2d   ┆rent line. Differs from move-to-┆
0x0080…00a0 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 72 20 6d 6f 64   ┆column in that it creates or mod┆
0x00a0…00c0 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 72 79 20 74 6f   ┆ifies whitespace if necessary to┆
0x00c0…00e0 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 65 64 20 63 6f   ┆ attain exactly the specified co┆
0x00e0…0100 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 57 83 11 00 08   ┆lumn." (byte-code "  ! i   W    ┆
0x0100…0120 6a 82 2b 00 c4 09 08 5c 22 85 1b 00 68 c5 55 85 2b 00 c6 1a c7 c8 21 88 09 6a 88 c3 08 21 29 29   ┆j +    \"   h U +     !  j   !))┆
0x0120…0140 87 22 20 5b 63 6f 6c 75 6d 6e 20 63 6f 6c 20 69 6e 64 65 6e 74 2d 74 61 62 73 2d 6d 6f 64 65 20   ┆ " [column col indent-tabs-mode ┆
0x0140…0160 6d 6f 76 65 2d 74 6f 2d 63 6f 6c 75 6d 6e 20 2f 3d 20 39 20 6e 69 6c 20 64 65 6c 65 74 65 2d 63   ┆move-to-column /= 9 nil delete-c┆
0x0160…0180 68 61 72 20 2d 31 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 70 69 63 74 75 72 65 2d 65 6e 64 2d   ┆har -1] 5))  (defun picture-end-┆
0x0180…01a0 6f 66 2d 6c 69 6e 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 29 20 22 5c 0a 50 6f 73 69 74   ┆of-line (&optional arg) "\ Posit┆
0x01a0…01c0 69 6f 6e 20 70 6f 69 6e 74 20 61 66 74 65 72 20 6c 61 73 74 20 6e 6f 6e 2d 62 6c 61 6e 6b 20 63   ┆ion point after last non-blank c┆
0x01c0…01e0 68 61 72 61 63 74 65 72 20 6f 6e 20 63 75 72 72 65 6e 74 20 6c 69 6e 65 2e 0a 57 69 74 68 20 41   ┆haracter on current line. With A┆
0x01e0…0200 52 47 20 6e 6f 74 20 6e 69 6c 2c 20 6d 6f 76 65 20 66 6f 72 77 61 72 64 20 41 52 47 20 2d 20 31   ┆RG not nil, move forward ARG - 1┆
0x0200…0220 20 6c 69 6e 65 73 20 66 69 72 73 74 2e 0a 49 66 20 73 63 61 6e 20 72 65 61 63 68 65 73 20 65 6e   ┆ lines first. If scan reaches en┆
0x0220…0240 64 20 6f 66 20 62 75 66 66 65 72 2c 20 73 74 6f 70 20 74 68 65 72 65 20 77 69 74 68 6f 75 74 20   ┆d of buffer, stop there without ┆
0x0240…0260 65 72 72 6f 72 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 20 28 62 79 74 65 2d   ┆error." (interactive "P") (byte-┆
0x0260…0280 63 6f 64 65 20 22 c1 88 08 85 0c 00 c2 c3 08 21 53 21 88 c4 20 88 c5 c6 60 c7 20 88 5c 22 87 22   ┆code "         !S!      `   \" "┆
0x0280…02a0 20 5b 61 72 67 20 6e 69 6c 20 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 70 72 65 66 69 78 2d 6e 75   ┆ [arg nil forward-line prefix-nu┆
0x02a0…02c0 6d 65 72 69 63 2d 76 61 6c 75 65 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 20 73 6b   ┆meric-value beginning-of-line sk┆
0x02c0…02e0 69 70 2d 63 68 61 72 73 2d 62 61 63 6b 77 61 72 64 20 22 20 09 22 20 65 6e 64 2d 6f 66 2d 6c 69   ┆ip-chars-backward "  " end-of-li┆
0x02e0…0300 6e 65 5d 20 38 29 29 0a 0a 28 64 65 66 75 6e 20 70 69 63 74 75 72 65 2d 66 6f 72 77 61 72 64 2d   ┆ne] 8))  (defun picture-forward-┆
0x0300…0320 63 6f 6c 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 72 69 67 68   ┆column (arg) "\ Move cursor righ┆
0x0320…0340 74 2c 20 6d 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   ┆t, making whitespace if necessar┆
0x0340…0360 79 2e 0a 57 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   ┆y. With argument, move that many┆
0x0360…0380 20 63 6f 6c 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   ┆ columns." (interactive "p") (by┆
0x0380…03a0 74 65 2d 63 6f 64 65 20 22 c1 88 c2 69 08 5c 5c 21 87 22 20 5b 61 72 67 20 6e 69 6c 20 6d 6f 76   ┆te-code "   i \\! " [arg nil mov┆
0x03a0…03c0 65 2d 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 75 6e 20 70   ┆e-to-column-force] 3))  (defun p┆
0x03c0…03e0 69 63 74 75 72 65 2d 62 61 63 6b 77 61 72 64 2d 63 6f 6c 75 6d 6e 20 28 61 72 67 29 20 22 5c 0a   ┆icture-backward-column (arg) "\ ┆
0x03e0…0400 4d 6f 76 65 20 63 75 72 73 6f 72 20 6c 65 66 74 2c 20 6d 61 6b 69 6e 67 20 77 68 69 74 65 73 70   ┆Move cursor left, making whitesp┆
0x0400…0420 61 63 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   ┆ace if necessary. With argument,┆
0x0420…0440 20 6d 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   ┆ move that many columns." (inter┆
0x0440…0460 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 c2 69 08 5a 21 87   ┆active "p") (byte-code "   i Z! ┆
0x0460…0480 22 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   ┆" [arg nil move-to-column-force]┆
0x0480…04a0 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 2d 64 6f 77 6e 20 28   ┆ 3))  (defun picture-move-down (┆
0x04a0…04c0 61 72 67 29 20 22 5c 0a 4d 6f 76 65 20 76 65 72 74 69 63 61 6c 6c 79 20 64 6f 77 6e 2c 20 6d 61   ┆arg) "\ Move vertically down, ma┆
0x04c0…04e0 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┆
0x04e0…0500 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┆
0x0500…0520 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┆
0x0520…0540 20 22 c2 88 69 18 c3 09 21 88 c4 08 21 29 87 22 20 5b 63 6f 6c 20 61 72 67 20 6e 69 6c 20 70 69   ┆ "  i   !   !) " [col arg nil pi┆
0x0540…0560 63 74 75 72 65 2d 6e 65 77 6c 69 6e 65 20 6d 6f 76 65 2d 74 6f 2d 63 6f 6c 75 6d 6e 2d 66 6f 72   ┆cture-newline move-to-column-for┆
0x0560…0580 63 65 5d 20 33 29 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 70 69 63 74 75 72 65 2d 76 65 72 74 69   ┆ce] 3))  (defconst picture-verti┆
0x0580…05a0 63 61 6c 2d 73 74 65 70 20 30 20 22 5c 0a 41 6d 6f 75 6e 74 20 74 6f 20 6d 6f 76 65 20 76 65 72   ┆cal-step 0 "\ Amount to move ver┆
0x05a0…05c0 74 69 63 61 6c 6c 79 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   ┆tically after text character in ┆
0x05c0…05e0 50 69 63 74 75 72 65 20 6d 6f 64 65 2e 22 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 70 69 63 74 75   ┆Picture mode.")  (defconst pictu┆
0x05e0…0600 72 65 2d 68 6f 72 69 7a 6f 6e 74 61 6c 2d 73 74 65 70 20 31 20 22 5c 0a 41 6d 6f 75 6e 74 20 74   ┆re-horizontal-step 1 "\ Amount t┆
0x0600…0620 6f 20 6d 6f 76 65 20 68 6f 72 69 7a 6f 6e 74 61 6c 6c 79 20 61 66 74 65 72 20 74 65 78 74 20 63   ┆o move horizontally after text c┆
0x0620…0640 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 65   ┆haracter in Picture mode.")  (de┆
0x0640…0660 66 75 6e 20 70 69 63 74 75 72 65 2d 6d 6f 76 65 2d 75 70 20 28 61 72 67 29 20 22 5c 0a 4d 6f 76   ┆fun picture-move-up (arg) "\ Mov┆
0x0660…0680 65 20 76 65 72 74 69 63 61 6c 6c 79 20 75 70 2c 20 6d 61 6b 69 6e 67 20 77 68 69 74 65 73 70 61   ┆e vertically up, making whitespa┆
0x0680…06a0 63 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   ┆ce if necessary. With argument, ┆
0x06a0…06c0 6d 6f 76 65 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 61 63 74   ┆move that many lines." (interact┆
0x06c0…06e0 69 76 65 20 22 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   ┆ive "p") (byte-code "    [! " [a┆
0x06e0…0700 72 67 20 6e 69 6c 20 70 69 63 74 75 72 65 2d 6d 6f 76 65 2d 64 6f 77 6e 5d 20 32 29 29 0a 0a 28   ┆rg nil picture-move-down] 2))  (┆
0x0700…0720 64 65 66 75 6e 20 70 69 63 74 75 72 65 2d 6d 6f 76 65 6d 65 6e 74 2d 72 69 67 68 74 20 6e 69 6c   ┆defun picture-movement-right nil┆
0x0720…0740 20 22 5c 0a 4d 6f 76 65 20 72 69 67 68 74 20 61 66 74 65 72 20 73 65 6c 66 2d 69 6e 73 65 72 74   ┆ "\ Move right after self-insert┆
0x0740…0760 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 65 2e 22 20   ┆ing character in Picture mode." ┆
0x0760…0780 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 c1 c2 c3 5c   ┆(interactive) (byte-code "     \┆
0x0780…07a0 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 30 20 31 5d   ┆" " [nil picture-set-motion 0 1]┆
0x07a0…07c0 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 2d 6c 65   ┆ 3))  (defun picture-movement-le┆
0x07c0…07e0 66 74 20 6e 69 6c 20 22 5c 0a 4d 6f 76 65 20 6c 65 66 74 20 61 66 74 65 72 20 73 65 6c 66 2d 69   ┆ft nil "\ Move left after self-i┆
0x07e0…0800 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 65 20 6d 6f   ┆nserting character in Picture mo┆
0x0800…0820 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 65 20 22 c0   ┆de." (interactive) (byte-code " ┆
0x0820…0840 88 c1 c2 c3 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   ┆    \" " [nil picture-set-motion┆
0x0840…0860 20 30 20 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   ┆ 0 -1] 3))  (defun picture-movem┆
0x0860…0880 65 6e 74 2d 75 70 20 6e 69 6c 20 22 5c 0a 4d 6f 76 65 20 75 70 20 61 66 74 65 72 20 73 65 6c 66   ┆ent-up nil "\ Move up after self┆
0x0880…08a0 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 65 20   ┆-inserting character in Picture ┆
0x08a0…08c0 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 65 20   ┆mode." (interactive) (byte-code ┆
0x08c0…08e0 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 74 2d 6d 6f 74 69   ┆"     \" " [nil picture-set-moti┆
0x08e0…0900 6f 6e 20 2d 31 20 30 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   ┆on -1 0] 3))  (defun picture-mov┆
0x0900…0920 65 6d 65 6e 74 2d 64 6f 77 6e 20 6e 69 6c 20 22 5c 0a 4d 6f 76 65 20 64 6f 77 6e 20 61 66 74 65   ┆ement-down nil "\ Move down afte┆
0x0920…0940 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┆
0x0940…0960 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┆
0x0960…0980 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┆
0x0980…09a0 74 2d 6d 6f 74 69 6f 6e 20 31 20 30 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 70 69 63 74 75 72   ┆t-motion 1 0] 3))  (defun pictur┆
0x09a0…09c0 65 2d 6d 6f 76 65 6d 65 6e 74 2d 6e 77 20 6e 69 6c 20 22 5c 0a 4d 6f 76 65 20 75 70 20 61 6e 64   ┆e-movement-nw nil "\ Move up and┆
0x09c0…09e0 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 68 61 72 61   ┆ left after self-inserting chara┆
0x09e0…0a00 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 61 63 74   ┆cter in Picture mode." (interact┆
0x0a00…0a20 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 c2 c2 5c 22 87 22 20 5b 6e 69 6c 20   ┆ive) (byte-code "     \" " [nil ┆
0x0a20…0a40 70 69 63 74 75 72 65 2d 73 65 74 2d 6d 6f 74 69 6f 6e 20 2d 31 5d 20 33 29 29 0a 0a 28 64 65 66   ┆picture-set-motion -1] 3))  (def┆
0x0a40…0a60 75 6e 20 70 69 63 74 75 72 65 2d 6d 6f 76 65 6d 65 6e 74 2d 6e 65 20 6e 69 6c 20 22 5c 0a 4d 6f   ┆un picture-movement-ne nil "\ Mo┆
0x0a60…0a80 76 65 20 75 70 20 61 6e 64 20 72 69 67 68 74 20 61 66 74 65 72 20 73 65 6c 66 2d 69 6e 73 65 72   ┆ve up and right after self-inser┆
0x0a80…0aa0 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 65 2e 22   ┆ting character in Picture mode."┆
0x0aa0…0ac0 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 c1 c2 c3   ┆ (interactive) (byte-code "     ┆
0x0ac0…0ae0 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 2d 31 20   ┆\" " [nil picture-set-motion -1 ┆
0x0ae0…0b00 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 2d   ┆1] 3))  (defun picture-movement-┆
0x0b00…0b20 73 77 20 6e 69 6c 20 22 5c 0a 4d 6f 76 65 20 64 6f 77 6e 20 61 6e 64 20 6c 65 66 74 20 61 66 74   ┆sw nil "\ Move down and left aft┆
0x0b20…0b40 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┆
0x0b40…0b60 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┆
0x0b60…0b80 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┆
0x0b80…0ba0 65 74 2d 6d 6f 74 69 6f 6e 20 31 20 2d 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┆
0x0ba0…0bc0 75 72 65 2d 6d 6f 76 65 6d 65 6e 74 2d 73 65 20 6e 69 6c 20 22 5c 0a 4d 6f 76 65 20 64 6f 77 6e   ┆ure-movement-se nil "\ Move down┆
0x0bc0…0be0 20 61 6e 64 20 72 69 67 68 74 20 61 66 74 65 72 20 73 65 6c 66 2d 69 6e 73 65 72 74 69 6e 67 20   ┆ and right after self-inserting ┆
0x0be0…0c00 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 20 28 69 6e 74   ┆character in Picture mode." (int┆
0x0c00…0c20 65 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 c2 5c 22 87 22 20   ┆eractive) (byte-code "     \" " ┆
0x0c20…0c40 5b 6e 69 6c 20 70 69 63 74 75 72 65 2d 73 65 74 2d 6d 6f 74 69 6f 6e 20 31 5d 20 33 29 29 0a 0a   ┆[nil picture-set-motion 1] 3))  ┆
0x0c40…0c60 28 64 65 66 75 6e 20 70 69 63 74 75 72 65 2d 73 65 74 2d 6d 6f 74 69 6f 6e 20 28 76 65 72 74 20   ┆(defun picture-set-motion (vert ┆
0x0c60…0c80 68 6f 72 69 7a 29 20 22 5c 0a 53 65 74 20 56 45 52 54 49 43 41 4c 20 61 6e 64 20 48 4f 52 49 5a   ┆horiz) "\ Set VERTICAL and HORIZ┆
0x0c80…0ca0 4f 4e 54 41 4c 20 69 6e 63 72 65 6d 65 6e 74 73 20 66 6f 72 20 6d 6f 76 65 6d 65 6e 74 20 69 6e   ┆ONTAL increments for movement in┆
0x0ca0…0cc0 20 50 69 63 74 75 72 65 20 6d 6f 64 65 2e 0a 54 68 65 20 6d 6f 64 65 20 6c 69 6e 65 20 69 73 20   ┆ Picture mode. The mode line is ┆
0x0cc0…0ce0 75 70 64 61 74 65 64 20 74 6f 20 72 65 66 6c 65 63 74 20 74 68 65 20 63 75 72 72 65 6e 74 20 64   ┆updated to reflect the current d┆
0x0ce0…0d00 69 72 65 63 74 69 6f 6e 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 09 10 0b 89 12 88 c5 c6 c7   ┆irection." (byte-code "         ┆
0x0d00…0d20 c8 c9 ca 0b cb 5c 22 cc cd ca 09 cb 5c 22 54 5c 22 23 ce 5c 22 40 5c 22 89 14 88 cf d0 20 21 88   ┆     \"     \"T\"# \"@\"      ! ┆
0x0d20…0d40 d1 d2 21 87 22 20 5b 70 69 63 74 75 72 65 2d 76 65 72 74 69 63 61 6c 2d 73 74 65 70 20 76 65 72   ┆  ! " [picture-vertical-step ver┆
0x0d40…0d60 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 68 6f 72 69 7a 20   ┆t picture-horizontal-step horiz ┆
0x0d60…0d80 6d 6f 64 65 2d 6e 61 6d 65 20 66 6f 72 6d 61 74 20 22 50 69 63 74 75 72 65 3a 25 73 22 20 6e 74   ┆mode-name format "Picture:%s" nt┆
0x0d80…0da0 68 63 64 72 20 2b 20 31 20 25 20 32 20 2a 20 33 20 28 6e 77 20 75 70 20 6e 65 20 6c 65 66 74 20   ┆hcdr + 1 % 2 * 3 (nw up ne left ┆
0x0da0…0dc0 6e 6f 6e 65 20 72 69 67 68 74 20 73 77 20 64 6f 77 6e 20 73 65 29 20 73 65 74 2d 62 75 66 66 65   ┆none right sw down se) set-buffe┆
0x0dc0…0de0 72 2d 6d 6f 64 69 66 69 65 64 2d 70 20 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 2d 70 20 6d   ┆r-modified-p buffer-modified-p m┆
0x0de0…0e00 65 73 73 61 67 65 20 22 22 5d 20 31 32 29 29 0a 0a 28 64 65 66 75 6e 20 70 69 63 74 75 72 65 2d   ┆essage ""] 12))  (defun picture-┆
0x0e00…0e20 6d 6f 76 65 20 6e 69 6c 20 22 5c 0a 4d 6f 76 65 20 69 6e 20 64 69 72 65 63 74 69 6f 6e 20 6f 66   ┆move nil "\ Move in direction of┆
0x0e20…0e40 20 20 70 69 63 74 75 72 65 2d 76 65 72 74 69 63 61 6c 2d 73 74 65 70 20 20 61 6e 64 20 20 70 69   ┆  picture-vertical-step  and  pi┆
0x0e40…0e60 63 74 75 72 65 2d 68 6f 72 69 7a 6f 6e 74 61 6c 2d 73 74 65 70 2e 22 20 28 62 79 74 65 2d 63 6f   ┆cture-horizontal-step." (byte-co┆
0x0e60…0e80 64 65 20 22 c2 08 21 88 c3 09 21 87 22 20 5b 70 69 63 74 75 72 65 2d 76 65 72 74 69 63 61 6c 2d   ┆de "  !   ! " [picture-vertical-┆
0x0e80…0ea0 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 20 70 69 63   ┆step picture-horizontal-step pic┆
0x0ea0…0ec0 74 75 72 65 2d 6d 6f 76 65 2d 64 6f 77 6e 20 70 69 63 74 75 72 65 2d 66 6f 72 77 61 72 64 2d 63   ┆ture-move-down picture-forward-c┆
0x0ec0…0ee0 6f 6c 75 6d 6e 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 70 69 63 74 75 72 65 2d 6d 6f 74 69 6f   ┆olumn] 3))  (defun picture-motio┆
0x0ee0…0f00 6e 20 28 61 72 67 29 20 22 5c 0a 4d 6f 76 65 20 70 6f 69 6e 74 20 69 6e 20 64 69 72 65 63 74 69   ┆n (arg) "\ Move point in directi┆
0x0f00…0f20 6f 6e 20 6f 66 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   ┆on of current picture motion in ┆
0x0f20…0f40 50 69 63 74 75 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   ┆Picture mode. With ARG do it tha┆
0x0f40…0f60 74 20 6d 61 6e 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   ┆t many times.  Useful for deline┆
0x0f60…0f80 61 74 69 6e 67 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   ┆ating rectangles in conjunction ┆
0x0f80…0fa0 77 69 74 68 20 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   ┆with diagonal picture motion. Do┆
0x0fa0…0fc0 20 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   ┆ \\[command-apropos]  picture-mo┆
0x0fc0…0fe0 76 65 6d 65 6e 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   ┆vement  to see commands which co┆
0x0fe0…1000 6e 74 72 6f 6c 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   ┆ntrol motion." (interactive "p")┆
0x1000…1020 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 c4 c5 08 09 5c 22 21 88 c6 c5 08 0a 5c 22 21 87 22   ┆ (byte-code "      \"!     \"! "┆
0x1020…1040 20 5b 61 72 67 20 70 69 63 74 75 72 65 2d 76 65 72 74 69 63 61 6c 2d 73 74 65 70 20 70 69 63 74   ┆ [arg picture-vertical-step pict┆
0x1040…1060 75 72 65 2d 68 6f 72 69 7a 6f 6e 74 61 6c 2d 73 74 65 70 20 6e 69 6c 20 70 69 63 74 75 72 65 2d   ┆ure-horizontal-step nil picture-┆
0x1060…1080 6d 6f 76 65 2d 64 6f 77 6e 20 2a 20 70 69 63 74 75 72 65 2d 66 6f 72 77 61 72 64 2d 63 6f 6c 75   ┆move-down * picture-forward-colu┆
0x1080…10a0 6d 6e 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 70 69 63 74 75 72 65 2d 6d 6f 74 69 6f 6e 2d 72   ┆mn] 6))  (defun picture-motion-r┆
0x10a0…10c0 65 76 65 72 73 65 20 28 61 72 67 29 20 22 5c 0a 4d 6f 76 65 20 70 6f 69 6e 74 20 69 6e 20 64 69   ┆everse (arg) "\ Move point in di┆
0x10c0…10e0 72 65 63 74 69 6f 6e 20 6f 70 70 6f 73 69 74 65 20 6f 66 20 63 75 72 72 65 6e 74 20 70 69 63 74   ┆rection opposite of current pict┆
0x10e0…1100 75 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   ┆ure motion in Picture mode. With┆
0x1100…1120 20 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   ┆ ARG do it that many times.  Use┆
0x1120…1140 66 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   ┆ful for delineating rectangles i┆
0x1140…1160 6e 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   ┆n conjunction with diagonal pict┆
0x1160…1180 75 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   ┆ure motion. Do \\[command-apropo┆
0x1180…11a0 73 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   ┆s]  picture-movement  to see com┆
0x11a0…11c0 6d 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   ┆mands which control motion." (in┆
0x11c0…11e0 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 c2 08 5b   ┆teractive "p") (byte-code "    [┆
0x11e0…1200 21 87 22 20 5b 61 72 67 20 6e 69 6c 20 70 69 63 74 75 72 65 2d 6d 6f 74 69 6f 6e 5d 20 32 29 29   ┆! " [arg nil picture-motion] 2))┆
0x1200…1220 0a 0a 28 64 65 66 75 6e 20 70 69 63 74 75 72 65 2d 73 65 6c 66 2d 69 6e 73 65 72 74 20 28 61 72   ┆  (defun picture-self-insert (ar┆
0x1220…1240 67 29 20 22 5c 0a 49 6e 73 65 72 74 20 74 68 69 73 20 63 68 61 72 61 63 74 65 72 20 69 6e 20 70   ┆g) "\ Insert this character in p┆
0x1240…1260 6c 61 63 65 20 6f 66 20 63 68 61 72 61 63 74 65 72 20 70 72 65 76 69 6f 75 73 6c 79 20 61 74 20   ┆lace of character previously at ┆
0x1260…1280 74 68 65 20 63 75 72 73 6f 72 2e 0a 54 68 65 20 63 75 72 73 6f 72 20 74 68 65 6e 20 6d 6f 76 65   ┆the cursor. The cursor then move┆
0x1280…12a0 73 20 69 6e 20 74 68 65 20 64 69 72 65 63 74 69 6f 6e 20 79 6f 75 20 70 72 65 76 69 6f 75 73 6c   ┆s in the direction you previousl┆
0x12a0…12c0 79 20 73 70 65 63 69 66 69 65 64 0a 77 69 74 68 20 74 68 65 20 63 6f 6d 6d 61 6e 64 73 20 70 69   ┆y specified with the commands pi┆
0x12c0…12e0 63 74 75 72 65 2d 6d 6f 76 65 6d 65 6e 74 2d 72 69 67 68 74 2c 20 70 69 63 74 75 72 65 2d 6d 6f   ┆cture-movement-right, picture-mo┆
0x12e0…1300 76 65 6d 65 6e 74 2d 75 70 2c 20 65 74 63 2e 0a 44 6f 20 5c 5c 5b 63 6f 6d 6d 61 6e 64 2d 61 70   ┆vement-up, etc. Do \\[command-ap┆
0x1300…1320 72 6f 70 6f 73 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   ┆ropos]  picture-movement  to see┆
0x1320…1340 20 74 68 6f 73 65 20 63 6f 6d 6d 61 6e 64 73 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22   ┆ those commands." (interactive "┆
0x1340…1360 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 88 08 c3 56 85 23 00 08 53 89 10 88 c4 69 54   ┆p") (byte-code "    V #  S    iT┆
0x1360…1380 21 88 c5 c6 21 88 09 63 88 c7 c6 21 88 c8 20 88 82 02 00 87 22 20 5b 61 72 67 20 6c 61 73 74 2d   ┆!   !  c   !        " [arg last-┆
0x1380…13a0 69 6e 70 75 74 2d 63 68 61 72 20 6e 69 6c 20 30 20 6d 6f 76 65 2d 74 6f 2d 63 6f 6c 75 6d 6e 2d   ┆input-char nil 0 move-to-column-┆
0x13a0…13c0 66 6f 72 63 65 20 64 65 6c 65 74 65 2d 63 68 61 72 20 2d 31 20 66 6f 72 77 61 72 64 2d 63 68 61   ┆force delete-char -1 forward-cha┆
0x13c0…13e0 72 20 70 69 63 74 75 72 65 2d 6d 6f 76 65 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 70 69 63 74   ┆r picture-move] 6))  (defun pict┆
0x13e0…1400 75 72 65 2d 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   ┆ure-clear-column (arg) "\ Clear ┆
0x1400…1420 6f 75 74 20 41 52 47 20 63 6f 6c 75 6d 6e 73 20 61 66 74 65 72 20 70 6f 69 6e 74 20 77 69 74 68   ┆out ARG columns after point with┆
0x1420…1440 6f 75 74 20 6d 6f 76 69 6e 67 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 29 20 28   ┆out moving." (interactive "p") (┆
0x1440…1460 62 79 74 65 2d 63 6f 64 65 20 22 c4 88 60 18 69 19 09 0b 5c 5c 1a c5 0a 21 88 c6 08 60 5c 22 88   ┆byte-code "  ` i   \\   !   `\" ┆
0x1460…1480 8a 0a 09 5d 6a 29 2b 87 22 20 5b 6f 70 6f 69 6e 74 20 6f 72 69 67 69 6e 61 6c 2d 63 6f 6c 20 74   ┆   ]j)+ " [opoint original-col t┆
0x1480…14a0 61 72 67 65 74 2d 63 6f 6c 20 61 72 67 20 6e 69 6c 20 6d 6f 76 65 2d 74 6f 2d 63 6f 6c 75 6d 6e   ┆arget-col arg nil move-to-column┆
0x14a0…14c0 2d 66 6f 72 63 65 20 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 5d 20 34 29 29 0a 0a 28 64 65 66 75   ┆-force delete-region] 4))  (defu┆
0x14c0…14e0 6e 20 70 69 63 74 75 72 65 2d 62 61 63 6b 77 61 72 64 2d 63 6c 65 61 72 2d 63 6f 6c 75 6d 6e 20   ┆n picture-backward-clear-column ┆
0x14e0…1500 28 61 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 62   ┆(arg) "\ Clear out ARG columns b┆
0x1500…1520 65 66 6f 72 65 20 70 6f 69 6e 74 2c 20 6d 6f 76 69 6e 67 20 62 61 63 6b 20 6f 76 65 72 20 74 68   ┆efore point, moving back over th┆
0x1520…1540 65 6d 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   ┆em." (interactive "p") (byte-cod┆
0x1540…1560 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 65 2d 63 6c 65   ┆e "    [! " [arg nil picture-cle┆
0x1560…1580 61 72 2d 63 6f 6c 75 6d 6e 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 70 69 63 74 75 72 65 2d 63   ┆ar-column] 2))  (defun picture-c┆
0x1580…15a0 6c 65 61 72 2d 6c 69 6e 65 20 28 61 72 67 29 20 22 5c 0a 43 6c 65 61 72 20 6f 75 74 20 72 65 73   ┆lear-line (arg) "\ Clear out res┆
0x15a0…15c0 74 20 6f 66 20 6c 69 6e 65 3b 20 69 66 20 61 74 20 65 6e 64 20 6f 66 20 6c 69 6e 65 2c 20 61 64   ┆t of line; if at end of line, ad┆
0x15c0…15e0 76 61 6e 63 65 20 74 6f 20 6e 65 78 74 20 6c 69 6e 65 2e 0a 43 6c 65 61 72 65 64 2d 6f 75 74 20   ┆vance to next line. Cleared-out ┆
0x15e0…1600 6c 69 6e 65 20 74 65 78 74 20 67 6f 65 73 20 69 6e 74 6f 20 74 68 65 20 6b 69 6c 6c 20 72 69 6e   ┆line text goes into the kill rin┆
0x1600…1620 67 2c 20 61 73 20 64 6f 0a 6e 65 77 6c 69 6e 65 73 20 74 68 61 74 20 61 72 65 20 61 64 76 61 6e   ┆g, as do newlines that are advan┆
0x1620…1640 63 65 64 20 6f 76 65 72 2e 0a 57 69 74 68 20 61 72 67 75 6d 65 6e 74 2c 20 63 6c 65 61 72 20 6f   ┆ced over. With argument, clear o┆
0x1640…1660 75 74 20 28 61 6e 64 20 73 61 76 65 20 69 6e 20 6b 69 6c 6c 20 72 69 6e 67 29 20 74 68 61 74 20   ┆ut (and save in kill ring) that ┆
0x1660…1680 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 50 22 29 20 28   ┆many lines." (interactive "P") (┆
0x1680…16a0 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 08 83 21 00 c2 08 21 89 10 88 c3 08 21 88 c4 08 c5 56 83   ┆byte-code "    !   !     !    V ┆
0x16a0…16c0 1b 00 08 82 1d 00 08 5b 21 82 39 00 c6 c7 21 83 32 00 c8 60 c9 ca 21 88 60 5c 22 82 39 00 cb 60   ┆       [! 9   ! 2  `  ! `\" 9  `┆
0x16c0…16e0 cc 20 88 60 5c 22 87 22 20 5b 61 72 67 20 6e 69 6c 20 70 72 65 66 69 78 2d 6e 75 6d 65 72 69 63   ┆   `\" " [arg nil prefix-numeric┆
0x16e0…1700 2d 76 61 6c 75 65 20 6b 69 6c 6c 2d 6c 69 6e 65 20 6e 65 77 6c 69 6e 65 20 30 20 6c 6f 6f 6b 69   ┆-value kill-line newline 0 looki┆
0x1700…1720 6e 67 2d 61 74 20 22 5b 20 09 5d 2a 24 22 20 6b 69 6c 6c 2d 72 69 6e 67 2d 73 61 76 65 20 66 6f   ┆ng-at "[  ]*$" kill-ring-save fo┆
0x1720…1740 72 77 61 72 64 2d 6c 69 6e 65 20 31 20 6b 69 6c 6c 2d 72 65 67 69 6f 6e 20 65 6e 64 2d 6f 66 2d   ┆rward-line 1 kill-region end-of-┆
0x1740…1760 6c 69 6e 65 5d 20 31 30 29 29 0a 0a 28 64 65 66 75 6e 20 70 69 63 74 75 72 65 2d 6e 65 77 6c 69   ┆line] 10))  (defun picture-newli┆
0x1760…1780 6e 65 20 28 61 72 67 29 20 22 5c 0a 4d 6f 76 65 20 74 6f 20 74 68 65 20 62 65 67 69 6e 6e 69 6e   ┆ne (arg) "\ Move to the beginnin┆
0x1780…17a0 67 20 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 6c 69 6e 65 2e 0a 57 69 74 68 20 61 72   ┆g of the following line. With ar┆
0x17a0…17c0 67 75 6d 65 6e 74 2c 20 6d 6f 76 65 73 20 74 68 61 74 20 6d 61 6e 79 20 6c 69 6e 65 73 20 28 75   ┆gument, moves that many lines (u┆
0x17c0…17e0 70 2c 20 69 66 20 6e 65 67 61 74 69 76 65 20 61 72 67 75 6d 65 6e 74 29 3b 0a 61 6c 77 61 79 73   ┆p, if negative argument); always┆
0x17e0…1800 20 6d 6f 76 65 73 20 74 6f 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 61 20 6c 69 6e   ┆ moves to the beginning of a lin┆
0x1800…1820 65 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   ┆e." (interactive "p") (byte-code┆
0x1820…1840 20 22 c1 88 08 c2 57 83 0e 00 c3 08 21 82 2c 00 08 c2 56 85 2c 00 c4 20 88 6d 83 20 00 c5 20 82   ┆ "    W     ! ,   V ,    m      ┆
0x1840…1860 23 00 c6 c7 21 88 08 53 89 10 88 82 0e 00 87 22 20 5b 61 72 67 20 6e 69 6c 20 30 20 66 6f 72 77   ┆#   !  S       " [arg nil 0 forw┆
0x1860…1880 61 72 64 2d 6c 69 6e 65 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 6e 65 77 6c 69 6e 65 20 66 6f 72   ┆ard-line end-of-line newline for┆
0x1880…18a0 77 61 72 64 2d 63 68 61 72 20 31 5d 20 37 29 29 0a 0a 28 64 65 66 75 6e 20 70 69 63 74 75 72 65   ┆ward-char 1] 7))  (defun picture┆
0x18a0…18c0 2d 6f 70 65 6e 2d 6c 69 6e 65 20 28 61 72 67 29 20 22 5c 0a 49 6e 73 65 72 74 20 61 6e 20 65 6d   ┆-open-line (arg) "\ Insert an em┆
0x18c0…18e0 70 74 79 20 6c 69 6e 65 20 61 66 74 65 72 20 74 68 65 20 63 75 72 72 65 6e 74 20 6c 69 6e 65 2e   ┆pty line after the current line.┆
0x18e0…1900 0a 57 69 74 68 20 70 6f 73 69 74 69 76 65 20 61 72 67 75 6d 65 6e 74 20 69 6e 73 65 72 74 20 74   ┆ With positive argument insert t┆
0x1900…1920 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┆
[…truncated at 200 lines…]