home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1993-07-05 | 18.6 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 1%
| dexvert
| Combustion 2 Particle Library (other/combustion2ParticleLibrary)
| ext
| Unsupported |
| 100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
| |
| 100%
| xdgMime
| text/x-emacs-lisp
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 69 6d 62 40 67 65 |piled by| jimb@ge|
|00000020| 65 63 68 2e 67 6e 75 2e | 61 69 2e 6d 69 74 2e 65 |ech.gnu.|ai.mit.e|
|00000030| 64 75 20 6f 6e 20 4d 6f | 6e 20 4a 75 6c 20 20 35 |du on Mo|n Jul 5|
|00000040| 20 32 33 3a 34 35 3a 35 | 30 20 31 39 39 33 0a 3b | 23:45:5|0 1993.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 67 64 |;; from |file /gd|
|00000060| 2f 67 6e 75 2f 65 6d 61 | 63 73 2f 31 39 2e 30 2f |/gnu/ema|cs/19.0/|
|00000070| 6c 69 73 70 2f 70 69 63 | 74 75 72 65 2e 65 6c 0a |lisp/pic|ture.el.|
|00000080| 3b 3b 3b 20 65 6d 61 63 | 73 20 76 65 72 73 69 6f |;;; emac|s versio|
|00000090| 6e 20 31 39 2e 31 35 2e | 31 36 2e 0a 3b 3b 3b 20 |n 19.15.|16..;;; |
|000000a0| 62 79 74 65 63 6f 6d 70 | 20 76 65 72 73 69 6f 6e |bytecomp| version|
|000000b0| 20 46 53 46 20 32 2e 31 | 30 0a 3b 3b 3b 20 6f 70 | FSF 2.1|0.;;; op|
|000000c0| 74 69 6d 69 7a 61 74 69 | 6f 6e 20 69 73 20 6f 6e |timizati|on is on|
|000000d0| 2e 0a 3b 3b 3b 20 74 68 | 69 73 20 66 69 6c 65 20 |..;;; th|is file |
|000000e0| 75 73 65 73 20 6f 70 63 | 6f 64 65 73 20 77 68 69 |uses opc|odes whi|
|000000f0| 63 68 20 64 6f 20 6e 6f | 74 20 65 78 69 73 74 20 |ch do no|t exist |
|00000100| 69 6e 20 45 6d 61 63 73 | 20 31 38 2e 0a 0a 28 69 |in Emacs| 18...(i|
|00000110| 66 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |f (and (|boundp '|
|00000120| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 29 0a 09 |emacs-ve|rsion)..|
|00000130| 20 28 6f 72 20 28 61 6e | 64 20 28 62 6f 75 6e 64 | (or (an|d (bound|
|00000140| 70 20 27 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |p 'epoch|::versio|
|00000150| 6e 29 20 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |n) epoch|::versio|
|00000160| 6e 29 0a 09 20 20 20 20 | 20 28 73 74 72 69 6e 67 |n).. | (string|
|00000170| 2d 6c 65 73 73 70 20 65 | 6d 61 63 73 2d 76 65 72 |-lessp e|macs-ver|
|00000180| 73 69 6f 6e 20 22 31 39 | 22 29 29 29 0a 20 20 20 |sion "19|"))). |
|00000190| 20 28 65 72 72 6f 72 20 | 22 54 68 69 73 20 66 69 | (error |"This fi|
|000001a0| 6c 65 20 77 61 73 20 63 | 6f 6d 70 69 6c 65 64 20 |le was c|ompiled |
|000001b0| 66 6f 72 20 45 6d 61 63 | 73 20 31 39 22 29 29 0a |for Emac|s 19")).|
|000001c0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 6d 6f 76 65 |.(defali|as 'move|
|000001d0| 2d 74 6f 2d 63 6f 6c 75 | 6d 6e 2d 66 6f 72 63 65 |-to-colu|mn-force|
|000001e0| 20 23 5b 28 63 6f 6c 75 | 6d 6e 29 20 22 c0 09 21 | #[(colu|mn) "..!|
|000001f0| 84 08 00 c2 11 c3 09 21 | 88 69 89 1c 09 57 83 1a |.......!|.i...W..|
|00000200| 00 09 6a 88 82 35 00 0c | 09 55 84 35 00 68 c5 55 |..j..5..|.U.5.h.U|
|00000210| 83 35 00 c6 1e 07 c8 c9 | 21 88 0c 6a 88 c3 09 21 |.5......|!..j...!|
|00000220| 88 29 ca 20 29 87 22 20 | 5b 6e 61 74 6e 75 6d 70 |.). )." |[natnump|
|00000230| 20 63 6f 6c 75 6d 6e 20 | 30 20 6d 6f 76 65 2d 74 | column |0 move-t|
|00000240| 6f 2d 63 6f 6c 75 6d 6e | 20 63 6f 6c 20 39 20 6e |o-column| col 9 n|
|00000250| 69 6c 20 69 6e 64 65 6e | 74 2d 74 61 62 73 2d 6d |il inden|t-tabs-m|
|00000260| 6f 64 65 20 64 65 6c 65 | 74 65 2d 63 68 61 72 20 |ode dele|te-char |
|00000270| 2d 31 20 68 73 63 72 6f | 6c 6c 2d 70 6f 69 6e 74 |-1 hscro|ll-point|
|00000280| 2d 76 69 73 69 62 6c 65 | 5d 20 33 20 22 5c 0a 4d |-visible|] 3 "\.M|
|00000290| 6f 76 65 20 74 6f 20 63 | 6f 6c 75 6d 6e 20 43 4f |ove to c|olumn CO|
|000002a0| 4c 55 4d 4e 20 69 6e 20 | 63 75 72 72 65 6e 74 20 |LUMN in |current |
|000002b0| 6c 69 6e 65 2e 0a 44 69 | 66 66 65 72 73 20 66 72 |line..Di|ffers fr|
|000002c0| 6f 6d 20 60 6d 6f 76 65 | 2d 74 6f 2d 63 6f 6c 75 |om `move|-to-colu|
|000002d0| 6d 6e 27 20 69 6e 20 74 | 68 61 74 20 69 74 20 63 |mn' in t|hat it c|
|000002e0| 72 65 61 74 65 73 20 6f | 72 20 6d 6f 64 69 66 69 |reates o|r modifi|
|000002f0| 65 73 20 77 68 69 74 65 | 73 70 61 63 65 0a 69 66 |es white|space.if|
|00000300| 20 6e 65 63 65 73 73 61 | 72 79 20 74 6f 20 61 74 | necessa|ry to at|
|00000310| 74 61 69 6e 20 65 78 61 | 63 74 6c 79 20 74 68 65 |tain exa|ctly the|
|00000320| 20 73 70 65 63 69 66 69 | 65 64 20 63 6f 6c 75 6d | specifi|ed colum|
|00000330| 6e 2e 22 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |n."]).(d|efalias |
|00000340| 27 70 69 63 74 75 72 65 | 2d 62 65 67 69 6e 6e 69 |'picture|-beginni|
|00000350| 6e 67 2d 6f 66 2d 6c 69 | 6e 65 20 23 5b 28 26 6f |ng-of-li|ne #[(&o|
|00000360| 70 74 69 6f 6e 61 6c 20 | 61 72 67 29 20 22 08 83 |ptional |arg) "..|
|00000370| 5c 6e 00 c1 08 21 53 79 | 88 c2 79 88 c3 20 87 22 |\n...!Sy|..y.. ."|
|00000380| 20 5b 61 72 67 20 70 72 | 65 66 69 78 2d 6e 75 6d | [arg pr|efix-num|
|00000390| 65 72 69 63 2d 76 61 6c | 75 65 20 30 20 68 73 63 |eric-val|ue 0 hsc|
|000003a0| 72 6f 6c 6c 2d 70 6f 69 | 6e 74 2d 76 69 73 69 62 |roll-poi|nt-visib|
|000003b0| 6c 65 5d 20 32 20 22 5c | 0a 50 6f 73 69 74 69 6f |le] 2 "\|.Positio|
|000003c0| 6e 20 70 6f 69 6e 74 20 | 61 74 20 74 68 65 20 62 |n point |at the b|
|000003d0| 65 67 69 6e 6e 69 6e 67 | 20 6f 66 20 74 68 65 20 |eginning| of the |
|000003e0| 6c 69 6e 65 2e 0a 57 69 | 74 68 20 41 52 47 20 6e |line..Wi|th ARG n|
|000003f0| 6f 74 20 6e 69 6c 2c 20 | 6d 6f 76 65 20 66 6f 72 |ot nil, |move for|
|00000400| 77 61 72 64 20 41 52 47 | 20 2d 20 31 20 6c 69 6e |ward ARG| - 1 lin|
|00000410| 65 73 20 66 69 72 73 74 | 2e 0a 49 66 20 73 63 61 |es first|..If sca|
|00000420| 6e 20 72 65 61 63 68 65 | 73 20 65 6e 64 20 6f 66 |n reache|s end of|
|00000430| 20 62 75 66 66 65 72 2c | 20 73 74 6f 70 20 74 68 | buffer,| stop th|
|00000440| 65 72 65 20 77 69 74 68 | 6f 75 74 20 65 72 72 6f |ere with|out erro|
|00000450| 72 2e 22 20 22 50 22 5d | 29 0a 28 64 65 66 61 6c |r." "P"]|).(defal|
|00000460| 69 61 73 20 27 70 69 63 | 74 75 72 65 2d 65 6e 64 |ias 'pic|ture-end|
|00000470| 2d 6f 66 2d 6c 69 6e 65 | 20 23 5b 28 26 6f 70 74 |-of-line| #[(&opt|
|00000480| 69 6f 6e 61 6c 20 61 72 | 67 29 20 22 08 83 5c 6e |ional ar|g) "..\n|
|00000490| 00 c1 08 21 53 79 88 c2 | 79 88 c3 60 c4 7f 88 78 |...!Sy..|y..`...x|
|000004a0| 88 c5 20 87 22 20 5b 61 | 72 67 20 70 72 65 66 69 |.. ." [a|rg prefi|
|000004b0| 78 2d 6e 75 6d 65 72 69 | 63 2d 76 61 6c 75 65 20 |x-numeri|c-value |
|000004c0| 30 20 22 20 09 22 20 6e | 69 6c 20 68 73 63 72 6f |0 " ." n|il hscro|
|000004d0| 6c 6c 2d 70 6f 69 6e 74 | 2d 76 69 73 69 62 6c 65 |ll-point|-visible|
|000004e0| 5d 20 33 20 22 5c 0a 50 | 6f 73 69 74 69 6f 6e 20 |] 3 "\.P|osition |
|000004f0| 70 6f 69 6e 74 20 61 66 | 74 65 72 20 6c 61 73 74 |point af|ter last|
|00000500| 20 6e 6f 6e 2d 62 6c 61 | 6e 6b 20 63 68 61 72 61 | non-bla|nk chara|
|00000510| 63 74 65 72 20 6f 6e 20 | 63 75 72 72 65 6e 74 20 |cter on |current |
|00000520| 6c 69 6e 65 2e 0a 57 69 | 74 68 20 41 52 47 20 6e |line..Wi|th ARG n|
|00000530| 6f 74 20 6e 69 6c 2c 20 | 6d 6f 76 65 20 66 6f 72 |ot nil, |move for|
|00000540| 77 61 72 64 20 41 52 47 | 20 2d 20 31 20 6c 69 6e |ward ARG| - 1 lin|
|00000550| 65 73 20 66 69 72 73 74 | 2e 0a 49 66 20 73 63 61 |es first|..If sca|
|00000560| 6e 20 72 65 61 63 68 65 | 73 20 65 6e 64 20 6f 66 |n reache|s end of|
|00000570| 20 62 75 66 66 65 72 2c | 20 73 74 6f 70 20 74 68 | buffer,| stop th|
|00000580| 65 72 65 20 77 69 74 68 | 6f 75 74 20 65 72 72 6f |ere with|out erro|
|00000590| 72 2e 22 20 22 50 22 5d | 29 0a 28 64 65 66 61 6c |r." "P"]|).(defal|
|000005a0| 69 61 73 20 27 70 69 63 | 74 75 72 65 2d 66 6f 72 |ias 'pic|ture-for|
|000005b0| 77 61 72 64 2d 63 6f 6c | 75 6d 6e 20 23 5b 28 61 |ward-col|umn #[(a|
|000005c0| 72 67 29 20 22 c0 69 09 | 5c 5c 21 87 22 20 5b 6d |rg) ".i.|\\!." [m|
|000005d0| 6f 76 65 2d 74 6f 2d 63 | 6f 6c 75 6d 6e 2d 66 6f |ove-to-c|olumn-fo|
|000005e0| 72 63 65 20 61 72 67 5d | 20 33 20 22 5c 0a 4d 6f |rce arg]| 3 "\.Mo|
|000005f0| 76 65 20 63 75 72 73 6f | 72 20 72 69 67 68 74 2c |ve curso|r right,|
|00000600| 20 6d 61 6b 69 6e 67 20 | 77 68 69 74 65 73 70 61 | making |whitespa|
|00000610| 63 65 20 69 66 20 6e 65 | 63 65 73 73 61 72 79 2e |ce if ne|cessary.|
|00000620| 0a 57 69 74 68 20 61 72 | 67 75 6d 65 6e 74 2c 20 |.With ar|gument, |
|00000630| 6d 6f 76 65 20 74 68 61 | 74 20 6d 61 6e 79 20 63 |move tha|t many c|
|00000640| 6f 6c 75 6d 6e 73 2e 22 | 20 22 70 22 5d 29 0a 28 |olumns."| "p"]).(|
|00000650| 64 65 66 61 6c 69 61 73 | 20 27 70 69 63 74 75 72 |defalias| 'pictur|
|00000660| 65 2d 62 61 63 6b 77 61 | 72 64 2d 63 6f 6c 75 6d |e-backwa|rd-colum|
|00000670| 6e 20 23 5b 28 61 72 67 | 29 20 22 c0 69 09 5a 21 |n #[(arg|) ".i.Z!|
|00000680| 87 22 20 5b 6d 6f 76 65 | 2d 74 6f 2d 63 6f 6c 75 |." [move|-to-colu|
|00000690| 6d 6e 2d 66 6f 72 63 65 | 20 61 72 67 5d 20 33 20 |mn-force| arg] 3 |
|000006a0| 22 5c 0a 4d 6f 76 65 20 | 63 75 72 73 6f 72 20 6c |"\.Move |cursor l|
|000006b0| 65 66 74 2c 20 6d 61 6b | 69 6e 67 20 77 68 69 74 |eft, mak|ing whit|
|000006c0| 65 73 70 61 63 65 20 69 | 66 20 6e 65 63 65 73 73 |espace i|f necess|
|000006d0| 61 72 79 2e 0a 57 69 74 | 68 20 61 72 67 75 6d 65 |ary..Wit|h argume|
|000006e0| 6e 74 2c 20 6d 6f 76 65 | 20 74 68 61 74 20 6d 61 |nt, move| that ma|
|000006f0| 6e 79 20 63 6f 6c 75 6d | 6e 73 2e 22 20 22 70 22 |ny colum|ns." "p"|
|00000700| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 70 69 |]).(defa|lias 'pi|
|00000710| 63 74 75 72 65 2d 6d 6f | 76 65 2d 64 6f 77 6e 20 |cture-mo|ve-down |
|00000720| 23 5b 28 61 72 67 29 20 | 22 69 18 c1 5c 6e 21 88 |#[(arg) |"i..\n!.|
|00000730| c3 08 21 29 87 22 20 5b | 63 6f 6c 20 70 69 63 74 |..!)." [|col pict|
|00000740| 75 72 65 2d 6e 65 77 6c | 69 6e 65 20 61 72 67 20 |ure-newl|ine arg |
|00000750| 6d 6f 76 65 2d 74 6f 2d | 63 6f 6c 75 6d 6e 2d 66 |move-to-|column-f|
|00000760| 6f 72 63 65 5d 20 32 20 | 22 5c 0a 4d 6f 76 65 20 |orce] 2 |"\.Move |
|00000770| 76 65 72 74 69 63 61 6c | 6c 79 20 64 6f 77 6e 2c |vertical|ly down,|
|00000780| 20 6d 61 6b 69 6e 67 20 | 77 68 69 74 65 73 70 61 | making |whitespa|
|00000790| 63 65 20 69 66 20 6e 65 | 63 65 73 73 61 72 79 2e |ce if ne|cessary.|
|000007a0| 0a 57 69 74 68 20 61 72 | 67 75 6d 65 6e 74 2c 20 |.With ar|gument, |
|000007b0| 6d 6f 76 65 20 74 68 61 | 74 20 6d 61 6e 79 20 6c |move tha|t many l|
|000007c0| 69 6e 65 73 2e 22 20 22 | 70 22 5d 29 0a 28 64 65 |ines." "|p"]).(de|
|000007d0| 66 63 6f 6e 73 74 20 70 | 69 63 74 75 72 65 2d 76 |fconst p|icture-v|
|000007e0| 65 72 74 69 63 61 6c 2d | 73 74 65 70 20 30 20 22 |ertical-|step 0 "|
|000007f0| 5c 0a 41 6d 6f 75 6e 74 | 20 74 6f 20 6d 6f 76 65 |\.Amount| to move|
|00000800| 20 76 65 72 74 69 63 61 | 6c 6c 79 20 61 66 74 65 | vertica|lly afte|
|00000810| 72 20 74 65 78 74 20 63 | 68 61 72 61 63 74 65 72 |r text c|haracter|
|00000820| 20 69 6e 20 50 69 63 74 | 75 72 65 20 6d 6f 64 65 | in Pict|ure mode|
|00000830| 2e 22 29 0a 28 64 65 66 | 63 6f 6e 73 74 20 70 69 |.").(def|const pi|
|00000840| 63 74 75 72 65 2d 68 6f | 72 69 7a 6f 6e 74 61 6c |cture-ho|rizontal|
|00000850| 2d 73 74 65 70 20 31 20 | 22 5c 0a 41 6d 6f 75 6e |-step 1 |"\.Amoun|
|00000860| 74 20 74 6f 20 6d 6f 76 | 65 20 68 6f 72 69 7a 6f |t to mov|e horizo|
|00000870| 6e 74 61 6c 6c 79 20 61 | 66 74 65 72 20 74 65 78 |ntally a|fter tex|
|00000880| 74 20 63 68 61 72 61 63 | 74 65 72 20 69 6e 20 50 |t charac|ter in P|
|00000890| 69 63 74 75 72 65 20 6d | 6f 64 65 2e 22 29 0a 28 |icture m|ode.").(|
|000008a0| 64 65 66 61 6c 69 61 73 | 20 27 70 69 63 74 75 72 |defalias| 'pictur|
|000008b0| 65 2d 6d 6f 76 65 2d 75 | 70 20 23 5b 28 61 72 67 |e-move-u|p #[(arg|
|000008c0| 29 20 22 c0 09 5b 21 87 | 22 20 5b 70 69 63 74 75 |) "..[!.|" [pictu|
|000008d0| 72 65 2d 6d 6f 76 65 2d | 64 6f 77 6e 20 61 72 67 |re-move-|down arg|
|000008e0| 5d 20 32 20 22 5c 0a 4d | 6f 76 65 20 76 65 72 74 |] 2 "\.M|ove vert|
|000008f0| 69 63 61 6c 6c 79 20 75 | 70 2c 20 6d 61 6b 69 6e |ically u|p, makin|
|00000900| 67 20 77 68 69 74 65 73 | 70 61 63 65 20 69 66 20 |g whites|pace if |
|00000910| 6e 65 63 65 73 73 61 72 | 79 2e 0a 57 69 74 68 20 |necessar|y..With |
|00000920| 61 72 67 75 6d 65 6e 74 | 2c 20 6d 6f 76 65 20 74 |argument|, move t|
|00000930| 68 61 74 20 6d 61 6e 79 | 20 6c 69 6e 65 73 2e 22 |hat many| lines."|
|00000940| 20 22 70 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 | "p"]).(|defalias|
|00000950| 20 27 70 69 63 74 75 72 | 65 2d 6d 6f 76 65 6d 65 | 'pictur|e-moveme|
|00000960| 6e 74 2d 72 69 67 68 74 | 20 23 5b 6e 69 6c 20 22 |nt-right| #[nil "|
|00000970| c0 c1 c2 5c 22 87 22 20 | 5b 70 69 63 74 75 72 65 |...\"." |[picture|
|00000980| 2d 73 65 74 2d 6d 6f 74 | 69 6f 6e 20 30 20 31 5d |-set-mot|ion 0 1]|
|00000990| 20 33 20 22 5c 0a 4d 6f | 76 65 20 72 69 67 68 74 | 3 "\.Mo|ve right|
|000009a0| 20 61 66 74 65 72 20 73 | 65 6c 66 2d 69 6e 73 65 | after s|elf-inse|
|000009b0| 72 74 69 6e 67 20 63 68 | 61 72 61 63 74 65 72 20 |rting ch|aracter |
|000009c0| 69 6e 20 50 69 63 74 75 | 72 65 20 6d 6f 64 65 2e |in Pictu|re mode.|
|000009d0| 22 20 6e 69 6c 5d 29 0a | 28 64 65 66 61 6c 69 61 |" nil]).|(defalia|
|000009e0| 73 20 27 70 69 63 74 75 | 72 65 2d 6d 6f 76 65 6d |s 'pictu|re-movem|
|000009f0| 65 6e 74 2d 6c 65 66 74 | 20 23 5b 6e 69 6c 20 22 |ent-left| #[nil "|
|00000a00| c0 c1 c2 5c 22 87 22 20 | 5b 70 69 63 74 75 72 65 |...\"." |[picture|
|00000a10| 2d 73 65 74 2d 6d 6f 74 | 69 6f 6e 20 30 20 2d 31 |-set-mot|ion 0 -1|
|00000a20| 5d 20 33 20 22 5c 0a 4d | 6f 76 65 20 6c 65 66 74 |] 3 "\.M|ove left|
|00000a30| 20 61 66 74 65 72 20 73 | 65 6c 66 2d 69 6e 73 65 | after s|elf-inse|
|00000a40| 72 74 69 6e 67 20 63 68 | 61 72 61 63 74 65 72 20 |rting ch|aracter |
|00000a50| 69 6e 20 50 69 63 74 75 | 72 65 20 6d 6f 64 65 2e |in Pictu|re mode.|
|00000a60| 22 20 6e 69 6c 5d 29 0a | 28 64 65 66 61 6c 69 61 |" nil]).|(defalia|
|00000a70| 73 20 27 70 69 63 74 75 | 72 65 2d 6d 6f 76 65 6d |s 'pictu|re-movem|
|00000a80| 65 6e 74 2d 75 70 20 23 | 5b 6e 69 6c 20 22 c0 c1 |ent-up #|[nil "..|
|00000a90| c2 5c 22 87 22 20 5b 70 | 69 63 74 75 72 65 2d 73 |.\"." [p|icture-s|
|00000aa0| 65 74 2d 6d 6f 74 69 6f | 6e 20 2d 31 20 30 5d 20 |et-motio|n -1 0] |
|00000ab0| 33 20 22 5c 0a 4d 6f 76 | 65 20 75 70 20 61 66 74 |3 "\.Mov|e up aft|
|00000ac0| 65 72 20 73 65 6c 66 2d | 69 6e 73 65 72 74 69 6e |er self-|insertin|
|00000ad0| 67 20 63 68 61 72 61 63 | 74 65 72 20 69 6e 20 50 |g charac|ter in P|
|00000ae0| 69 63 74 75 72 65 20 6d | 6f 64 65 2e 22 20 6e 69 |icture m|ode." ni|
|00000af0| 6c 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 70 |l]).(def|alias 'p|
|00000b00| 69 63 74 75 72 65 2d 6d | 6f 76 65 6d 65 6e 74 2d |icture-m|ovement-|
|00000b10| 64 6f 77 6e 20 23 5b 6e | 69 6c 20 22 c0 c1 c2 5c |down #[n|il "...\|
|00000b20| 22 87 22 20 5b 70 69 63 | 74 75 72 65 2d 73 65 74 |"." [pic|ture-set|
|00000b30| 2d 6d 6f 74 69 6f 6e 20 | 31 20 30 5d 20 33 20 22 |-motion |1 0] 3 "|
|00000b40| 5c 0a 4d 6f 76 65 20 64 | 6f 77 6e 20 61 66 74 65 |\.Move d|own afte|
|00000b50| 72 20 73 65 6c 66 2d 69 | 6e 73 65 72 74 69 6e 67 |r self-i|nserting|
|00000b60| 20 63 68 61 72 61 63 74 | 65 72 20 69 6e 20 50 69 | charact|er in Pi|
|00000b70| 63 74 75 72 65 20 6d 6f | 64 65 2e 22 20 6e 69 6c |cture mo|de." nil|
|00000b80| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 70 69 |]).(defa|lias 'pi|
|00000b90| 63 74 75 72 65 2d 6d 6f | 76 65 6d 65 6e 74 2d 6e |cture-mo|vement-n|
|00000ba0| 77 20 23 5b 6e 69 6c 20 | 22 c0 c1 89 5c 22 87 22 |w #[nil |"...\"."|
|00000bb0| 20 5b 70 69 63 74 75 72 | 65 2d 73 65 74 2d 6d 6f | [pictur|e-set-mo|
|00000bc0| 74 69 6f 6e 20 2d 31 5d | 20 33 20 22 5c 0a 4d 6f |tion -1]| 3 "\.Mo|
|00000bd0| 76 65 20 75 70 20 61 6e | 64 20 6c 65 66 74 20 61 |ve up an|d left a|
|00000be0| 66 74 65 72 20 73 65 6c | 66 2d 69 6e 73 65 72 74 |fter sel|f-insert|
|00000bf0| 69 6e 67 20 63 68 61 72 | 61 63 74 65 72 20 69 6e |ing char|acter in|
|00000c00| 20 50 69 63 74 75 72 65 | 20 6d 6f 64 65 2e 22 20 | Picture| mode." |
|00000c10| 6e 69 6c 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |nil]).(d|efalias |
|00000c20| 27 70 69 63 74 75 72 65 | 2d 6d 6f 76 65 6d 65 6e |'picture|-movemen|
|00000c30| 74 2d 6e 65 20 23 5b 6e | 69 6c 20 22 c0 c1 c2 5c |t-ne #[n|il "...\|
|00000c40| 22 87 22 20 5b 70 69 63 | 74 75 72 65 2d 73 65 74 |"." [pic|ture-set|
|00000c50| 2d 6d 6f 74 69 6f 6e 20 | 2d 31 20 31 5d 20 33 20 |-motion |-1 1] 3 |
|00000c60| 22 5c 0a 4d 6f 76 65 20 | 75 70 20 61 6e 64 20 72 |"\.Move |up and r|
|00000c70| 69 67 68 74 20 61 66 74 | 65 72 20 73 65 6c 66 2d |ight aft|er self-|
|00000c80| 69 6e 73 65 72 74 69 6e | 67 20 63 68 61 72 61 63 |insertin|g charac|
|00000c90| 74 65 72 20 69 6e 20 50 | 69 63 74 75 72 65 20 6d |ter in P|icture m|
|00000ca0| 6f 64 65 2e 22 20 6e 69 | 6c 5d 29 0a 28 64 65 66 |ode." ni|l]).(def|
|00000cb0| 61 6c 69 61 73 20 27 70 | 69 63 74 75 72 65 2d 6d |alias 'p|icture-m|
|00000cc0| 6f 76 65 6d 65 6e 74 2d | 73 77 20 23 5b 6e 69 6c |ovement-|sw #[nil|
|00000cd0| 20 22 c0 c1 c2 5c 22 87 | 22 20 5b 70 69 63 74 75 | "...\".|" [pictu|
|00000ce0| 72 65 2d 73 65 74 2d 6d | 6f 74 69 6f 6e 20 31 20 |re-set-m|otion 1 |
|00000cf0| 2d 31 5d 20 33 20 22 5c | 0a 4d 6f 76 65 20 64 6f |-1] 3 "\|.Move do|
|00000d00| 77 6e 20 61 6e 64 20 6c | 65 66 74 20 61 66 74 65 |wn and l|eft afte|
|00000d10| 72 20 73 65 6c 66 2d 69 | 6e 73 65 72 74 69 6e 67 |r self-i|nserting|
|00000d20| 20 63 68 61 72 61 63 74 | 65 72 20 69 6e 20 50 69 | charact|er in Pi|
|00000d30| 63 74 75 72 65 20 6d 6f | 64 65 2e 22 20 6e 69 6c |cture mo|de." nil|
|00000d40| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 70 69 |]).(defa|lias 'pi|
|00000d50| 63 74 75 72 65 2d 6d 6f | 76 65 6d 65 6e 74 2d 73 |cture-mo|vement-s|
|00000d60| 65 20 23 5b 6e 69 6c 20 | 22 c0 c1 89 5c 22 87 22 |e #[nil |"...\"."|
|00000d70| 20 5b 70 69 63 74 75 72 | 65 2d 73 65 74 2d 6d 6f | [pictur|e-set-mo|
|00000d80| 74 69 6f 6e 20 31 5d 20 | 33 20 22 5c 0a 4d 6f 76 |tion 1] |3 "\.Mov|
|00000d90| 65 20 64 6f 77 6e 20 61 | 6e 64 20 72 69 67 68 74 |e down a|nd right|
|00000da0| 20 61 66 74 65 72 20 73 | 65 6c 66 2d 69 6e 73 65 | after s|elf-inse|
|00000db0| 72 74 69 6e 67 20 63 68 | 61 72 61 63 74 65 72 20 |rting ch|aracter |
|00000dc0| 69 6e 20 50 69 63 74 75 | 72 65 20 6d 6f 64 65 2e |in Pictu|re mode.|
|00000dd0| 22 20 6e 69 6c 5d 29 0a | 28 64 65 66 61 6c 69 61 |" nil]).|(defalia|
|00000de0| 73 20 27 70 69 63 74 75 | 72 65 2d 73 65 74 2d 6d |s 'pictu|re-set-m|
|00000df0| 6f 74 69 6f 6e 20 23 5b | 28 76 65 72 74 20 68 6f |otion #[|(vert ho|
|00000e00| 72 69 7a 29 20 22 08 11 | 5c 6e 13 c4 c5 5c 6e c6 |riz) "..|\n...\n.|
|00000e10| a6 08 c6 a6 54 c7 5f c8 | 5c 5c 5c 5c c9 9b 40 5c |....T._.|\\\\..@\|
|00000e20| 22 16 5c 6e cb cc 20 21 | 88 cd ce 21 87 22 20 5b |".\n.. !|...!." [|
|00000e30| 76 65 72 74 20 70 69 63 | 74 75 72 65 2d 76 65 72 |vert pic|ture-ver|
|00000e40| 74 69 63 61 6c 2d 73 74 | 65 70 20 68 6f 72 69 7a |tical-st|ep horiz|
|00000e50| 20 70 69 63 74 75 72 65 | 2d 68 6f 72 69 7a 6f 6e | picture|-horizon|
|00000e60| 74 61 6c 2d 73 74 65 70 | 20 66 6f 72 6d 61 74 20 |tal-step| format |
|00000e70| 22 50 69 63 74 75 72 65 | 3a 25 73 22 20 32 20 33 |"Picture|:%s" 2 3|
|00000e80| 20 31 20 28 6e 77 20 75 | 70 20 6e 65 20 6c 65 66 | 1 (nw u|p ne lef|
|00000e90| 74 20 6e 6f 6e 65 20 72 | 69 67 68 74 20 73 77 20 |t none r|ight sw |
|00000ea0| 64 6f 77 6e 20 73 65 29 | 20 6d 6f 64 65 2d 6e 61 |down se)| mode-na|
|00000eb0| 6d 65 20 73 65 74 2d 62 | 75 66 66 65 72 2d 6d 6f |me set-b|uffer-mo|
|00000ec0| 64 69 66 69 65 64 2d 70 | 20 62 75 66 66 65 72 2d |dified-p| buffer-|
|00000ed0| 6d 6f 64 69 66 69 65 64 | 2d 70 20 6d 65 73 73 61 |modified|-p messa|
|00000ee0| 67 65 20 22 22 5d 20 35 | 20 22 5c 0a 53 65 74 20 |ge ""] 5| "\.Set |
|00000ef0| 56 45 52 54 49 43 41 4c | 20 61 6e 64 20 48 4f 52 |VERTICAL| and HOR|
|00000f00| 49 5a 4f 4e 54 41 4c 20 | 69 6e 63 72 65 6d 65 6e |IZONTAL |incremen|
|00000f10| 74 73 20 66 6f 72 20 6d | 6f 76 65 6d 65 6e 74 20 |ts for m|ovement |
|00000f20| 69 6e 20 50 69 63 74 75 | 72 65 20 6d 6f 64 65 2e |in Pictu|re mode.|
|00000f30| 0a 54 68 65 20 6d 6f 64 | 65 20 6c 69 6e 65 20 69 |.The mod|e line i|
|00000f40| 73 20 75 70 64 61 74 65 | 64 20 74 6f 20 72 65 66 |s update|d to ref|
|00000f50| 6c 65 63 74 20 74 68 65 | 20 63 75 72 72 65 6e 74 |lect the| current|
|00000f60| 20 64 69 72 65 63 74 69 | 6f 6e 2e 22 5d 29 0a 28 | directi|on."]).(|
|00000f70| 64 65 66 61 6c 69 61 73 | 20 27 70 69 63 74 75 72 |defalias| 'pictur|
|00000f80| 65 2d 6d 6f 76 65 20 23 | 5b 6e 69 6c 20 22 c0 09 |e-move #|[nil "..|
|00000f90| 21 88 c2 0b 21 87 22 20 | 5b 70 69 63 74 75 72 65 |!...!." |[picture|
|00000fa0| 2d 6d 6f 76 65 2d 64 6f | 77 6e 20 70 69 63 74 75 |-move-do|wn pictu|
|00000fb0| 72 65 2d 76 65 72 74 69 | 63 61 6c 2d 73 74 65 70 |re-verti|cal-step|
|00000fc0| 20 70 69 63 74 75 72 65 | 2d 66 6f 72 77 61 72 64 | picture|-forward|
|00000fd0| 2d 63 6f 6c 75 6d 6e 20 | 70 69 63 74 75 72 65 2d |-column |picture-|
|00000fe0| 68 6f 72 69 7a 6f 6e 74 | 61 6c 2d 73 74 65 70 5d |horizont|al-step]|
|00000ff0| 20 32 20 22 5c 0a 4d 6f | 76 65 20 69 6e 20 64 69 | 2 "\.Mo|ve in di|
|00001000| 72 65 63 74 69 6f 6e 20 | 6f 66 20 60 70 69 63 74 |rection |of `pict|
|00001010| 75 72 65 2d 76 65 72 74 | 69 63 61 6c 2d 73 74 65 |ure-vert|ical-ste|
|00001020| 70 27 20 61 6e 64 20 60 | 70 69 63 74 75 72 65 2d |p' and `|picture-|
|00001030| 68 6f 72 69 7a 6f 6e 74 | 61 6c 2d 73 74 65 70 27 |horizont|al-step'|
|00001040| 2e 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |."]).(de|falias '|
|00001050| 70 69 63 74 75 72 65 2d | 6d 6f 74 69 6f 6e 20 23 |picture-|motion #|
|00001060| 5b 28 61 72 67 29 20 22 | c0 09 5c 6e 5f 21 88 c3 |[(arg) "|..\n_!..|
|00001070| 09 0c 5f 21 87 22 20 5b | 70 69 63 74 75 72 65 2d |.._!." [|picture-|
|00001080| 6d 6f 76 65 2d 64 6f 77 | 6e 20 61 72 67 20 70 69 |move-dow|n arg pi|
|00001090| 63 74 75 72 65 2d 76 65 | 72 74 69 63 61 6c 2d 73 |cture-ve|rtical-s|
|000010a0| 74 65 70 20 70 69 63 74 | 75 72 65 2d 66 6f 72 77 |tep pict|ure-forw|
|000010b0| 61 72 64 2d 63 6f 6c 75 | 6d 6e 20 70 69 63 74 75 |ard-colu|mn pictu|
|000010c0| 72 65 2d 68 6f 72 69 7a | 6f 6e 74 61 6c 2d 73 74 |re-horiz|ontal-st|
|000010d0| 65 70 5d 20 33 20 22 5c | 0a 4d 6f 76 65 20 70 6f |ep] 3 "\|.Move po|
|000010e0| 69 6e 74 20 69 6e 20 64 | 69 72 65 63 74 69 6f 6e |int in d|irection|
|000010f0| 20 6f 66 20 63 75 72 72 | 65 6e 74 20 70 69 63 74 | of curr|ent pict|
|00001100| 75 72 65 20 6d 6f 74 69 | 6f 6e 20 69 6e 20 50 69 |ure moti|on in Pi|
|00001110| 63 74 75 72 65 20 6d 6f | 64 65 2e 0a 57 69 74 68 |cture mo|de..With|
|00001120| 20 41 52 47 20 64 6f 20 | 69 74 20 74 68 61 74 20 | ARG do |it that |
|00001130| 6d 61 6e 79 20 74 69 6d | 65 73 2e 20 20 55 73 65 |many tim|es. Use|
|00001140| 66 75 6c 20 66 6f 72 20 | 64 65 6c 69 6e 65 61 74 |ful for |delineat|
|00001150| 69 6e 67 20 72 65 63 74 | 61 6e 67 6c 65 73 20 69 |ing rect|angles i|
|00001160| 6e 0a 63 6f 6e 6a 75 6e | 63 74 69 6f 6e 20 77 69 |n.conjun|ction wi|
|00001170| 74 68 20 64 69 61 67 6f | 6e 61 6c 20 70 69 63 74 |th diago|nal pict|
|00001180| 75 72 65 20 6d 6f 74 69 | 6f 6e 2e 0a 44 6f 20 5c |ure moti|on..Do \|
|00001190| 5c 5b 63 6f 6d 6d 61 6e | 64 2d 61 70 72 6f 70 6f |\[comman|d-apropo|
|000011a0| 73 5d 20 20 70 69 63 74 | 75 72 65 2d 6d 6f 76 65 |s] pict|ure-move|
|000011b0| 6d 65 6e 74 20 20 74 6f | 20 73 65 65 20 63 6f 6d |ment to| see com|
|000011c0| 6d 61 6e 64 73 20 77 68 | 69 63 68 20 63 6f 6e 74 |mands wh|ich cont|
|000011d0| 72 6f 6c 20 6d 6f 74 69 | 6f 6e 2e 22 20 22 70 22 |rol moti|on." "p"|
|000011e0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 70 69 |]).(defa|lias 'pi|
|000011f0| 63 74 75 72 65 2d 6d 6f | 74 69 6f 6e 2d 72 65 76 |cture-mo|tion-rev|
|00001200| 65 72 73 65 20 23 5b 28 | 61 72 67 29 20 22 c0 09 |erse #[(|arg) "..|
|00001210| 5b 21 87 22 20 5b 70 69 | 63 74 75 72 65 2d 6d 6f |[!." [pi|cture-mo|
|00001220| 74 69 6f 6e 20 61 72 67 | 5d 20 32 20 22 5c 0a 4d |tion arg|] 2 "\.M|
|00001230| 6f 76 65 20 70 6f 69 6e | 74 20 69 6e 20 64 69 72 |ove poin|t in dir|
|00001240| 65 63 74 69 6f 6e 20 6f | 70 70 6f 73 69 74 65 20 |ection o|pposite |
|00001250| 6f 66 20 63 75 72 72 65 | 6e 74 20 70 69 63 74 75 |of curre|nt pictu|
|00001260| 72 65 20 6d 6f 74 69 6f | 6e 20 69 6e 20 50 69 63 |re motio|n in Pic|
|00001270| 74 75 72 65 20 6d 6f 64 | 65 2e 0a 57 69 74 68 20 |ture mod|e..With |
|00001280| 41 52 47 20 64 6f 20 69 | 74 20 74 68 61 74 20 6d |ARG do i|t that m|
|00001290| 61 6e 79 20 74 69 6d 65 | 73 2e 20 20 55 73 65 66 |any time|s. Usef|
|000012a0| 75 6c 20 66 6f 72 20 64 | 65 6c 69 6e 65 61 74 69 |ul for d|elineati|
|000012b0| 6e 67 20 72 65 63 74 61 | 6e 67 6c 65 73 20 69 6e |ng recta|ngles in|
|000012c0| 0a 63 6f 6e 6a 75 6e 63 | 74 69 6f 6e 20 77 69 74 |.conjunc|tion wit|
|000012d0| 68 20 64 69 61 67 6f 6e | 61 6c 20 70 69 63 74 75 |h diagon|al pictu|
|000012e0| 72 65 20 6d 6f 74 69 6f | 6e 2e 0a 44 6f 20 5c 5c |re motio|n..Do \\|
|000012f0| 5b 63 6f 6d 6d 61 6e 64 | 2d 61 70 72 6f 70 6f 73 |[command|-apropos|
|00001300| 5d 20 60 70 69 63 74 75 | 72 65 2d 6d 6f 76 65 6d |] `pictu|re-movem|
|00001310| 65 6e 74 27 20 74 6f 20 | 73 65 65 20 63 6f 6d 6d |ent' to |see comm|
|00001320| 61 6e 64 73 20 77 68 69 | 63 68 20 63 6f 6e 74 72 |ands whi|ch contr|
|00001330| 6f 6c 20 6d 6f 74 69 6f | 6e 2e 22 20 22 70 22 5d |ol motio|n." "p"]|
|00001340| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 70 69 63 |).(defal|ias 'pic|
|00001350| 74 75 72 65 2d 73 65 6c | 66 2d 69 6e 73 65 72 74 |ture-sel|f-insert|
|00001360| 20 23 5b 28 61 72 67 29 | 20 22 08 c1 56 85 1e 00 | #[(arg)| "..V...|
|00001370| 08 53 10 c2 69 54 21 88 | c3 c4 21 88 0d 63 88 c4 |.S..iT!.|..!..c..|
|00001380| 75 88 c6 20 88 82 00 00 | 87 22 20 5b 61 72 67 20 |u.. ....|." [arg |
|00001390| 30 20 6d 6f 76 65 2d 74 | 6f 2d 63 6f 6c 75 6d 6e |0 move-t|o-column|
|000013a0| 2d 66 6f 72 63 65 20 64 | 65 6c 65 74 65 2d 63 68 |-force d|elete-ch|
|000013b0| 61 72 20 2d 31 20 6c 61 | 73 74 2d 69 6e 70 75 74 |ar -1 la|st-input|
|000013c0| 2d 63 68 61 72 20 70 69 | 63 74 75 72 65 2d 6d 6f |-char pi|cture-mo|
|000013d0| 76 65 5d 20 32 20 22 5c | 0a 49 6e 73 65 72 74 20 |ve] 2 "\|.Insert |
|000013e0| 74 68 69 73 20 63 68 61 | 72 61 63 74 65 72 20 69 |this cha|racter i|
|000013f0| 6e 20 70 6c 61 63 65 20 | 6f 66 20 63 68 61 72 61 |n place |of chara|
|00001400| 63 74 65 72 20 70 72 65 | 76 69 6f 75 73 6c 79 20 |cter pre|viously |
|00001410| 61 74 20 74 68 65 20 63 | 75 72 73 6f 72 2e 0a 54 |at the c|ursor..T|
|00001420| 68 65 20 63 75 72 73 6f | 72 20 74 68 65 6e 20 6d |he curso|r then m|
|00001430| 6f 76 65 73 20 69 6e 20 | 74 68 65 20 64 69 72 65 |oves in |the dire|
|00001440| 63 74 69 6f 6e 20 79 6f | 75 20 70 72 65 76 69 6f |ction yo|u previo|
|00001450| 75 73 6c 79 20 73 70 65 | 63 69 66 69 65 64 0a 77 |usly spe|cified.w|
|00001460| 69 74 68 20 74 68 65 20 | 63 6f 6d 6d 61 6e 64 73 |ith the |commands|
|00001470| 20 60 70 69 63 74 75 72 | 65 2d 6d 6f 76 65 6d 65 | `pictur|e-moveme|
|00001480| 6e 74 2d 72 69 67 68 74 | 27 2c 20 60 70 69 63 74 |nt-right|', `pict|
|00001490| 75 72 65 2d 6d 6f 76 65 | 6d 65 6e 74 2d 75 70 27 |ure-move|ment-up'|
|000014a0| 2c 20 65 74 63 2e 0a 44 | 6f 20 5c 5c 5b 63 6f 6d |, etc..D|o \\[com|
|000014b0| 6d 61 6e 64 2d 61 70 72 | 6f 70 6f 73 5d 20 60 70 |mand-apr|opos] `p|
|000014c0| 69 63 74 75 72 65 2d 6d | 6f 76 65 6d 65 6e 74 27 |icture-m|ovement'|
|000014d0| 20 74 6f 20 73 65 65 20 | 74 68 6f 73 65 20 63 6f | to see |those co|
|000014e0| 6d 6d 61 6e 64 73 2e 22 | 20 22 70 22 5d 29 0a 28 |mmands."| "p"]).(|
|000014f0| 64 65 66 61 6c 69 61 73 | 20 27 70 69 63 74 75 72 |defalias| 'pictur|
|00001500| 65 2d 63 6c 65 61 72 2d | 63 6f 6c 75 6d 6e 20 23 |e-clear-|column #|
|00001510| 5b 28 61 72 67 29 20 22 | 60 18 69 89 19 5c 6e 5c |[(arg) "|`.i..\n\|
|00001520| 5c 1b c4 0b 21 88 08 60 | 7c 88 8a 0b 09 5d 6a 2c |\...!..`||....]j,|
|00001530| 87 22 20 5b 6f 70 6f 69 | 6e 74 20 6f 72 69 67 69 |." [opoi|nt origi|
|00001540| 6e 61 6c 2d 63 6f 6c 20 | 61 72 67 20 74 61 72 67 |nal-col |arg targ|
|00001550| 65 74 2d 63 6f 6c 20 6d | 6f 76 65 2d 74 6f 2d 63 |et-col m|ove-to-c|
|00001560| 6f 6c 75 6d 6e 2d 66 6f | 72 63 65 5d 20 33 20 22 |olumn-fo|rce] 3 "|
|00001570| 5c 0a 43 6c 65 61 72 20 | 6f 75 74 20 41 52 47 20 |\.Clear |out ARG |
|00001580| 63 6f 6c 75 6d 6e 73 20 | 61 66 74 65 72 20 70 6f |columns |after po|
|00001590| 69 6e 74 20 77 69 74 68 | 6f 75 74 20 6d 6f 76 69 |int with|out movi|
|000015a0| 6e 67 2e 22 20 22 70 22 | 5d 29 0a 28 64 65 66 61 |ng." "p"|]).(defa|
|000015b0| 6c 69 61 73 20 27 70 69 | 63 74 75 72 65 2d 62 61 |lias 'pi|cture-ba|
|000015c0| 63 6b 77 61 72 64 2d 63 | 6c 65 61 72 2d 63 6f 6c |ckward-c|lear-col|
|000015d0| 75 6d 6e 20 23 5b 28 61 | 72 67 29 20 22 c0 09 5b |umn #[(a|rg) "..[|
|000015e0| 21 87 22 20 5b 70 69 63 | 74 75 72 65 2d 63 6c 65 |!." [pic|ture-cle|
|000015f0| 61 72 2d 63 6f 6c 75 6d | 6e 20 61 72 67 5d 20 32 |ar-colum|n arg] 2|
|00001600| 20 22 5c 0a 43 6c 65 61 | 72 20 6f 75 74 20 41 52 | "\.Clea|r out AR|
|00001610| 47 20 63 6f 6c 75 6d 6e | 73 20 62 65 66 6f 72 65 |G column|s before|
|00001620| 20 70 6f 69 6e 74 2c 20 | 6d 6f 76 69 6e 67 20 62 | point, |moving b|
|00001630| 61 63 6b 20 6f 76 65 72 | 20 74 68 65 6d 2e 22 20 |ack over| them." |
|00001640| 22 70 22 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |"p"]).(d|efalias |
|00001650| 27 70 69 63 74 75 72 65 | 2d 63 6c 65 61 72 2d 6c |'picture|-clear-l|
|00001660| 69 6e 65 20 23 5b 28 61 | 72 67 29 20 22 08 83 1b |ine #[(a|rg) "...|
|00001670| 00 c1 08 21 10 c2 08 21 | 88 c3 08 c4 56 83 17 00 |...!...!|....V...|
|00001680| 08 82 19 00 08 5b 21 87 | c5 c6 21 83 29 00 c7 60 |.....[!.|..!.)..`|
|00001690| c8 79 88 60 5c 22 87 c9 | 60 ca 7f 88 60 5c 22 87 |.y.`\"..|`...`\".|
|000016a0| 22 20 5b 61 72 67 20 70 | 72 65 66 69 78 2d 6e 75 |" [arg p|refix-nu|
|000016b0| 6d 65 72 69 63 2d 76 61 | 6c 75 65 20 6b 69 6c 6c |meric-va|lue kill|
|000016c0| 2d 6c 69 6e 65 20 6e 65 | 77 6c 69 6e 65 20 30 20 |-line ne|wline 0 |
|000016d0| 6c 6f 6f 6b 69 6e 67 2d | 61 74 20 22 5b 20 09 5d |looking-|at "[ .]|
|000016e0| 2a 24 22 20 6b 69 6c 6c | 2d 72 69 6e 67 2d 73 61 |*$" kill|-ring-sa|
|000016f0| 76 65 20 31 20 6b 69 6c | 6c 2d 72 65 67 69 6f 6e |ve 1 kil|l-region|
|00001700| 20 6e 69 6c 5d 20 33 20 | 22 5c 0a 43 6c 65 61 72 | nil] 3 |"\.Clear|
|00001710| 20 6f 75 74 20 72 65 73 | 74 20 6f 66 20 6c 69 6e | out res|t of lin|
|00001720| 65 3b 20 69 66 20 61 74 | 20 65 6e 64 20 6f 66 20 |e; if at| end of |
|00001730| 6c 69 6e 65 2c 20 61 64 | 76 61 6e 63 65 20 74 6f |line, ad|vance to|
|00001740| 20 6e 65 78 74 20 6c 69 | 6e 65 2e 0a 43 6c 65 61 | next li|ne..Clea|
|00001750| 72 65 64 2d 6f 75 74 20 | 6c 69 6e 65 20 74 65 78 |red-out |line tex|
|00001760| 74 20 67 6f 65 73 20 69 | 6e 74 6f 20 74 68 65 20 |t goes i|nto the |
|00001770| 6b 69 6c 6c 20 72 69 6e | 67 2c 20 61 73 20 64 6f |kill rin|g, as do|
|00001780| 20 6e 65 77 6c 69 6e 65 | 73 20 74 68 61 74 20 61 | newline|s that a|
|00001790| 72 65 0a 61 64 76 61 6e | 63 65 64 20 6f 76 65 72 |re.advan|ced over|
|000017a0| 2e 20 20 57 69 74 68 20 | 61 72 67 75 6d 65 6e 74 |. With |argument|
|000017b0| 2c 20 63 6c 65 61 72 20 | 6f 75 74 20 28 61 6e 64 |, clear |out (and|
|000017c0| 20 73 61 76 65 20 69 6e | 20 6b 69 6c 6c 20 72 69 | save in| kill ri|
|000017d0| 6e 67 29 20 74 68 61 74 | 0a 6d 61 6e 79 20 6c 69 |ng) that|.many li|
|000017e0| 6e 65 73 2e 22 20 22 50 | 22 5d 29 0a 28 64 65 66 |nes." "P|"]).(def|
|000017f0| 61 6c 69 61 73 20 27 70 | 69 63 74 75 72 65 2d 6e |alias 'p|icture-n|
|00001800| 65 77 6c 69 6e 65 20 23 | 5b 28 61 72 67 29 20 22 |ewline #|[(arg) "|
|00001810| 08 c1 57 83 0c 00 08 79 | 88 82 29 00 08 c1 56 83 |..W....y|..)...V.|
|00001820| 29 00 c2 7f 88 6d 83 1f | 00 c3 20 88 82 5c 22 00 |)....m..|.. ..\".|
|00001830| c4 75 88 08 53 89 10 82 | 0d 00 c5 20 87 22 20 5b |.u..S...|... ." [|
|00001840| 61 72 67 20 30 20 6e 69 | 6c 20 6e 65 77 6c 69 6e |arg 0 ni|l newlin|
|00001850| 65 20 31 20 68 73 63 72 | 6f 6c 6c 2d 70 6f 69 6e |e 1 hscr|oll-poin|
|00001860| 74 2d 76 69 73 69 62 6c | 65 5d 20 33 20 22 5c 0a |t-visibl|e] 3 "\.|
|00001870| 4d 6f 76 65 20 74 6f 20 | 74 68 65 20 62 65 67 69 |Move to |the begi|
|00001880| 6e 6e 69 6e 67 20 6f 66 | 20 74 68 65 20 66 6f 6c |nning of| the fol|
|00001890| 6c 6f 77 69 6e 67 20 6c | 69 6e 65 2e 0a 57 69 74 |lowing l|ine..Wit|
|000018a0| 68 20 61 72 67 75 6d 65 | 6e 74 2c 20 6d 6f 76 65 |h argume|nt, move|
|000018b0| 73 20 74 68 61 74 20 6d | 61 6e 79 20 6c 69 6e 65 |s that m|any line|
|000018c0| 73 20 28 75 70 2c 20 69 | 66 20 6e 65 67 61 74 69 |s (up, i|f negati|
|000018d0| 76 65 20 61 72 67 75 6d | 65 6e 74 29 3b 0a 61 6c |ve argum|ent);.al|
|000018e0| 77 61 79 73 20 6d 6f 76 | 65 73 20 74 6f 20 74 68 |ways mov|es to th|
|000018f0| 65 20 62 65 67 69 6e 6e | 69 6e 67 20 6f 66 20 61 |e beginn|ing of a|
|00001900| 20 6c 69 6e 65 2e 22 20 | 22 70 22 5d 29 0a 28 64 | line." |"p"]).(d|
|00001910| 65 66 61 6c 69 61 73 20 | 27 70 69 63 74 75 72 65 |efalias |'picture|
|00001920| 2d 6f 70 65 6e 2d 6c 69 | 6e 65 20 23 5b 28 61 72 |-open-li|ne #[(ar|
|00001930| 67 29 20 22 8a c0 7f 88 | c1 5c 6e 21 88 29 c3 20 |g) "....|.\n!.). |
|00001940| 87 22 20 5b 6e 69 6c 20 | 6f 70 65 6e 2d 6c 69 6e |." [nil |open-lin|
|00001950| 65 20 61 72 67 20 68 73 | 63 72 6f 6c 6c 2d 70 6f |e arg hs|croll-po|
|00001960| 69 6e 74 2d 76 69 73 69 | 62 6c 65 5d 20 32 20 22 |int-visi|ble] 2 "|
|00001970| 5c 0a 49 6e 73 65 72 74 | 20 61 6e 20 65 6d 70 74 |\.Insert| an empt|
|00001980| 79 20 6c 69 6e 65 20 61 | 66 74 65 72 20 74 68 65 |y line a|fter the|
|00001990| 20 63 75 72 72 65 6e 74 | 20 6c 69 6e 65 2e 0a 57 | current| line..W|
|000019a0| 69 74 68 20 70 6f 73 69 | 74 69 76 65 20 61 72 67 |ith posi|tive arg|
|000019b0| 75 6d 65 6e 74 20 69 6e | 73 65 72 74 20 74 68 61 |ument in|sert tha|
|000019c0| 74 20 6d 61 6e 79 20 6c | 69 6e 65 73 2e 22 20 22 |t many l|ines." "|
|000019d0| 70 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |p"]).(de|falias '|
|000019e0| 70 69 63 74 75 72 65 2d | 64 75 70 6c 69 63 61 74 |picture-|duplicat|
|000019f0| 65 2d 6c 69 6e 65 20 23 | 5b 6e 69 6c 20 22 8a c0 |e-line #|[nil "..|
|00001a00| 79 88 60 c1 c2 21 88 60 | 7b 1b c4 79 88 0b 63 2a |y.`..!.`|{..y..c*|
|00001a10| 87 22 20 5b 30 20 70 69 | 63 74 75 72 65 2d 6e 65 |." [0 pi|cture-ne|
|00001a20| 77 6c 69 6e 65 20 31 20 | 63 6f 6e 74 65 6e 74 73 |wline 1 |contents|
|00001a30| 20 2d 31 5d 20 33 20 22 | 5c 0a 49 6e 73 65 72 74 | -1] 3 "|\.Insert|
|00001a40| 20 61 20 64 75 70 6c 69 | 63 61 74 65 20 6f 66 20 | a dupli|cate of |
|00001a50| 74 68 65 20 63 75 72 72 | 65 6e 74 20 6c 69 6e 65 |the curr|ent line|
|00001a60| 2c 20 62 65 6c 6f 77 20 | 69 74 2e 22 20 6e 69 6c |, below |it." nil|
|00001a70| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 28 71 75 |]).(defa|lias (qu|
|00001a80| 6f 74 65 20 70 69 63 74 | 75 72 65 2d 72 65 70 6c |ote pict|ure-repl|
|00001a90| 61 63 65 2d 6d 61 74 63 | 68 29 20 23 5b 28 6e 65 |ace-matc|h) #[(ne|
|00001aa0| 77 74 65 78 74 20 66 69 | 78 65 64 63 61 73 65 20 |wtext fi|xedcase |
|00001ab0| 6c 69 74 65 72 61 6c 29 | 20 22 c0 89 89 19 1a 1b |literal)| "......|
|00001ac0| c4 95 89 11 62 88 69 13 | c0 89 1d 1e 06 c7 0e 08 |....b.i.|........|
|00001ad0| 0e 09 0e 5c 6e 23 88 69 | 0b 5a 12 0e 06 89 15 83 |...\n#.i|.Z......|
|00001ae0| 30 00 cb cc 0d 5c 22 89 | 15 84 27 00 2a 09 62 88 |0....\".|..'.*.b.|
|00001af0| 5c 6e c4 56 83 44 00 60 | cd 5c 6e 69 5c 5c 21 88 |\n.V.D.`|.\ni\\!.|
|00001b00| 60 7c 88 c7 0e 08 0e 09 | 0e 5c 6e 23 88 5c 6e c4 |`|......|.\n#.\n.|
|00001b10| 57 85 58 00 ce cf 5c 6e | 5b 5c 22 2b 87 22 20 5b |W.X...\n|[\"+." [|
|00001b20| 6e 69 6c 20 70 6f 73 20 | 63 68 61 6e 67 65 20 6f |nil pos |change o|
|00001b30| 63 6f 6c 75 6d 6e 20 30 | 20 6c 69 73 74 31 20 62 |column 0| list1 b|
|00001b40| 75 66 66 65 72 2d 75 6e | 64 6f 2d 6c 69 73 74 20 |uffer-un|do-list |
|00001b50| 72 65 70 6c 61 63 65 2d | 6d 61 74 63 68 20 6e 65 |replace-|match ne|
|00001b60| 77 74 65 78 74 20 66 69 | 78 65 64 63 61 73 65 20 |wtext fi|xedcase |
|00001b70| 6c 69 74 65 72 61 6c 20 | 70 72 69 6d 69 74 69 76 |literal |primitiv|
|00001b80| 65 2d 75 6e 64 6f 20 31 | 20 6d 6f 76 65 2d 74 6f |e-undo 1| move-to|
|00001b90| 2d 63 6f 6c 75 6d 6e 2d | 66 6f 72 63 65 20 69 6e |-column-|force in|
|00001ba0| 73 65 72 74 2d 63 68 61 | 72 20 33 32 5d 20 35 5d |sert-cha|r 32] 5]|
|00001bb0| 29 0a 28 64 65 66 76 61 | 72 20 70 69 63 74 75 72 |).(defva|r pictur|
|00001bc0| 65 2d 74 61 62 2d 63 68 | 61 72 73 20 22 21 2d 7e |e-tab-ch|ars "!-~|
|00001bd0| 22 20 22 5c 0a 2a 41 20 | 63 68 61 72 61 63 74 65 |" "\.*A |characte|
|00001be0| 72 20 73 65 74 20 77 68 | 69 63 68 20 63 6f 6e 74 |r set wh|ich cont|
|00001bf0| 72 6f 6c 73 20 62 65 68 | 61 76 69 6f 72 20 6f 66 |rols beh|avior of|
|00001c00| 20 63 6f 6d 6d 61 6e 64 | 73 0a 5c 5c 5b 70 69 63 | command|s.\\[pic|
|00001c10| 74 75 72 65 2d 73 65 74 | 2d 74 61 62 2d 73 74 6f |ture-set|-tab-sto|
|00001c20| 70 73 5d 20 61 6e 64 20 | 5c 5c 5b 70 69 63 74 75 |ps] and |\\[pictu|
|00001c30| 72 65 2d 74 61 62 2d 73 | 65 61 72 63 68 5d 2e 20 |re-tab-s|earch]. |
|00001c40| 20 49 74 20 69 73 20 4e | 4f 54 20 61 0a 72 65 67 | It is N|OT a.reg|
|00001c50| 75 6c 61 72 20 65 78 70 | 72 65 73 73 69 6f 6e 2c |ular exp|ression,|
|00001c60| 20 61 6e 79 20 72 65 67 | 65 78 70 20 73 70 65 63 | any reg|exp spec|
|00001c70| 69 61 6c 20 63 68 61 72 | 61 63 74 65 72 73 20 77 |ial char|acters w|
|00001c80| 69 6c 6c 20 62 65 20 71 | 75 6f 74 65 64 2e 0a 49 |ill be q|uoted..I|
|00001c90| 74 20 64 65 66 69 6e 65 | 73 20 61 20 73 65 74 20 |t define|s a set |
|00001ca0| 6f 66 20 5c 22 69 6e 74 | 65 72 65 73 74 69 6e 67 |of \"int|eresting|
|00001cb0| 20 63 68 61 72 61 63 74 | 65 72 73 5c 22 20 74 6f | charact|ers\" to|
|00001cc0| 20 6c 6f 6f 6b 20 66 6f | 72 20 77 68 65 6e 20 73 | look fo|r when s|
|00001cd0| 65 74 74 69 6e 67 0a 28 | 6f 72 20 73 65 61 72 63 |etting.(|or searc|
|00001ce0| 68 69 6e 67 20 66 6f 72 | 29 20 74 61 62 20 73 74 |hing for|) tab st|
|00001cf0| 6f 70 73 2c 20 69 6e 69 | 74 69 61 6c 6c 79 20 5c |ops, ini|tially \|
|00001d00| 22 21 2d 7e 5c 22 20 28 | 61 6c 6c 20 70 72 69 6e |"!-~\" (|all prin|
|00001d10| 74 69 6e 67 20 63 68 61 | 72 61 63 74 65 72 73 29 |ting cha|racters)|
|00001d20| 2e 0a 46 6f 72 20 65 78 | 61 6d 70 6c 65 2c 20 73 |..For ex|ample, s|
|00001d30| 75 70 70 6f 73 65 20 74 | 68 61 74 20 79 6f 75 20 |uppose t|hat you |
|00001d40| 61 72 65 20 65 64 69 74 | 69 6e 67 20 61 20 74 61 |are edit|ing a ta|
|00001d50| 62 6c 65 20 77 68 69 63 | 68 20 69 73 20 66 6f 72 |ble whic|h is for|
|00001d60| 6d 61 74 74 65 64 20 74 | 68 75 73 3a 0a 7c 20 66 |matted t|hus:.| f|
|00001d70| 6f 6f 09 09 7c 20 62 61 | 72 20 2b 20 62 61 7a 20 |oo..| ba|r + baz |
|00001d80| 7c 20 32 33 20 20 2a 0a | 7c 20 62 75 62 62 6c 65 || 23 *.|| bubble|
|00001d90| 73 09 7c 20 61 6e 64 20 | 2b 20 65 74 63 20 7c 20 |s.| and |+ etc | |
|00001da0| 39 37 20 20 2a 0a 61 6e | 64 20 74 68 61 74 20 60 |97 *.an|d that `|
|00001db0| 70 69 63 74 75 72 65 2d | 74 61 62 2d 63 68 61 72 |picture-|tab-char|
|00001dc0| 73 27 20 69 73 20 5c 22 | 7c 2b 2a 5c 22 2e 20 20 |s' is \"||+*\". |
|00001dd0| 54 68 65 6e 20 69 6e 76 | 6f 6b 69 6e 67 0a 5c 5c |Then inv|oking.\\|
|00001de0| 5b 70 69 63 74 75 72 65 | 2d 73 65 74 2d 74 61 62 |[picture|-set-tab|
|00001df0| 2d 73 74 6f 70 73 5d 20 | 6f 6e 20 65 69 74 68 65 |-stops] |on eithe|
|00001e00| 72 20 6f 66 20 74 68 65 | 20 70 72 65 76 69 6f 75 |r of the| previou|
|00001e10| 73 20 6c 69 6e 65 73 20 | 77 6f 75 6c 64 20 72 65 |s lines |would re|
|00001e20| 73 75 6c 74 0a 69 6e 20 | 74 68 65 20 66 6f 6c 6c |sult.in |the foll|
|00001e30| 6f 77 69 6e 67 20 74 61 | 62 20 73 74 6f 70 73 0a |owing ta|b stops.|
|00001e40| 09 09 3a 20 20 20 20 20 | 3a 20 20 20 20 20 3a 20 |..: |: : |
|00001e50| 20 20 20 20 3a 0a 41 6e | 6f 74 68 65 72 20 65 78 | :.An|other ex|
|00001e60| 61 6d 70 6c 65 20 2d 20 | 5c 22 41 2d 5a 61 2d 7a |ample - |\"A-Za-z|
|00001e70| 30 2d 39 5c 22 20 77 6f | 75 6c 64 20 70 72 6f 64 |0-9\" wo|uld prod|
|00001e80| 75 63 65 20 74 68 65 20 | 74 61 62 20 73 74 6f 70 |uce the |tab stop|
|00001e90| 73 0a 20 20 3a 09 09 20 | 20 3a 09 3a 20 20 20 20 |s. :.. | :.: |
|00001ea0| 20 3a 0a 0a 4e 6f 74 65 | 20 74 68 61 74 20 69 66 | :..Note| that if|
|00001eb0| 20 79 6f 75 20 77 61 6e | 74 20 74 68 65 20 63 68 | you wan|t the ch|
|00001ec0| 61 72 61 63 74 65 72 20 | 60 2d 27 20 74 6f 20 62 |aracter |`-' to b|
|00001ed0| 65 20 69 6e 20 74 68 65 | 20 73 65 74 2c 20 69 74 |e in the| set, it|
|00001ee0| 20 6d 75 73 74 20 62 65 | 0a 69 6e 63 6c 75 64 65 | must be|.include|
|00001ef0| 64 20 69 6e 20 61 20 72 | 61 6e 67 65 20 6f 72 20 |d in a r|ange or |
|00001f00| 65 6c 73 65 20 61 70 70 | 65 61 72 20 69 6e 20 61 |else app|ear in a|
|00001f10| 20 63 6f 6e 74 65 78 74 | 20 77 68 65 72 65 20 69 | context| where i|
|00001f20| 74 20 63 61 6e 6e 6f 74 | 20 62 65 0a 74 61 6b 65 |t cannot| be.take|
|00001f30| 6e 20 66 6f 72 20 69 6e | 64 69 63 61 74 69 6e 67 |n for in|dicating|
|00001f40| 20 61 20 72 61 6e 67 65 | 20 28 65 2e 67 2e 20 5c | a range| (e.g. \|
|00001f50| 22 2d 41 2d 5a 5c 22 20 | 64 65 63 6c 61 72 65 73 |"-A-Z\" |declares|
|00001f60| 20 74 68 65 20 73 65 74 | 20 74 6f 20 62 65 20 74 | the set| to be t|
|00001f70| 68 65 0a 6c 65 74 74 65 | 72 73 20 60 41 27 20 74 |he.lette|rs `A' t|
|00001f80| 68 72 6f 75 67 68 20 60 | 5a 27 20 61 6e 64 20 74 |hrough `|Z' and t|
|00001f90| 68 65 20 63 68 61 72 61 | 63 74 65 72 20 60 2d 27 |he chara|cter `-'|
|00001fa0| 29 2e 20 20 49 66 20 79 | 6f 75 20 77 61 6e 74 20 |). If y|ou want |
|00001fb0| 74 68 65 0a 63 68 61 72 | 61 63 74 65 72 20 60 5c |the.char|acter `\|
|00001fc0| 5c 27 20 69 6e 20 74 68 | 65 20 73 65 74 20 69 74 |\' in th|e set it|
|00001fd0| 20 6d 75 73 74 20 62 65 | 20 70 72 65 63 65 64 65 | must be| precede|
|00001fe0| 64 20 62 79 20 69 74 73 | 65 6c 66 3a 20 5c 22 5c |d by its|elf: \"\|
|00001ff0| 5c 5c 5c 5c 22 2e 0a 0a | 54 68 65 20 63 6f 6d 6d |\\\\"...|The comm|
|00002000| 61 6e 64 20 5c 5c 5b 70 | 69 63 74 75 72 65 2d 74 |and \\[p|icture-t|
|00002010| 61 62 2d 73 65 61 72 63 | 68 5d 20 69 73 20 64 65 |ab-searc|h] is de|
|00002020| 66 69 6e 65 64 20 74 6f | 20 6d 6f 76 65 20 62 65 |fined to| move be|
|00002030| 6e 65 61 74 68 20 28 6f | 72 20 74 6f 29 20 61 0a |neath (o|r to) a.|
|00002040| 63 68 61 72 61 63 74 65 | 72 20 62 65 6c 6f 6e 67 |characte|r belong|
|00002050| 69 6e 67 20 74 6f 20 74 | 68 69 73 20 73 65 74 20 |ing to t|his set |
|00002060| 69 6e 64 65 70 65 6e 64 | 65 6e 74 20 6f 66 20 74 |independ|ent of t|
|00002070| 68 65 20 74 61 62 20 73 | 74 6f 70 73 20 6c 69 73 |he tab s|tops lis|
|00002080| 74 2e 22 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |t.").(de|falias '|
|00002090| 70 69 63 74 75 72 65 2d | 73 65 74 2d 74 61 62 2d |picture-|set-tab-|
|000020a0| 73 74 6f 70 73 20 23 5b | 28 26 6f 70 74 69 6f 6e |stops #[|(&option|
|000020b0| 61 6c 20 61 72 67 29 20 | 22 8a c0 19 5c 6e 83 0e |al arg) |"...\n..|
|000020c0| 00 c3 c4 21 11 82 42 00 | c5 c6 0e 07 21 c8 51 1e |...!..B.|....!.Q.|
|000020d0| 09 ca 79 88 60 1e 0b c0 | 7f 88 cc 0e 09 0e 0b cd |..y.`...|........|
|000020e0| 23 83 35 00 ce c0 77 88 | 69 09 42 11 82 20 00 09 |#.5...w.|i.B.. ..|
|000020f0| 84 41 00 cf d0 c6 0e 07 | 21 5c 22 88 2a 09 14 d1 |.A......|!\".*...|
|00002100| 09 47 53 09 38 54 d2 5c | 22 1e 13 09 83 61 00 0e |.GS.8T.\|"....a..|
|00002110| 13 09 40 d4 49 88 09 41 | 89 11 84 53 00 d5 0e 13 |..@.I..A|...S....|
|00002120| 21 2b 87 22 20 5b 6e 69 | 6c 20 74 61 62 73 20 61 |!+." [ni|l tabs a|
|00002130| 72 67 20 64 65 66 61 75 | 6c 74 2d 76 61 6c 75 65 |rg defau|lt-value|
|00002140| 20 74 61 62 2d 73 74 6f | 70 2d 6c 69 73 74 20 22 | tab-sto|p-list "|
|00002150| 5b 20 09 5d 2b 5b 22 20 | 72 65 67 65 78 70 2d 71 |[ .]+[" |regexp-q|
|00002160| 75 6f 74 65 20 70 69 63 | 74 75 72 65 2d 74 61 62 |uote pic|ture-tab|
|00002170| 2d 63 68 61 72 73 20 22 | 5d 22 20 72 65 67 65 78 |-chars "|]" regex|
|00002180| 70 20 30 20 62 6f 6c 20 | 72 65 2d 73 65 61 72 63 |p 0 bol |re-searc|
|00002190| 68 2d 62 61 63 6b 77 61 | 72 64 20 74 20 22 20 09 |h-backwa|rd t " .|
|000021a0| 22 20 65 72 72 6f 72 20 | 22 4e 6f 20 63 68 61 72 |" error |"No char|
|000021b0| 61 63 74 65 72 73 20 69 | 6e 20 73 65 74 20 25 73 |acters i|n set %s|
|000021c0| 20 6f 6e 20 74 68 69 73 | 20 6c 69 6e 65 2e 22 20 | on this| line." |
|000021d0| 6d 61 6b 65 2d 73 74 72 | 69 6e 67 20 33 32 20 62 |make-str|ing 32 b|
|000021e0| 6c 75 72 62 20 35 38 20 | 6d 65 73 73 61 67 65 5d |lurb 58 |message]|
|000021f0| 20 35 20 22 5c 0a 53 65 | 74 20 76 61 6c 75 65 20 | 5 "\.Se|t value |
|00002200| 6f 66 20 60 74 61 62 2d | 73 74 6f 70 2d 6c 69 73 |of `tab-|stop-lis|
|00002210| 74 27 20 61 63 63 6f 72 | 64 69 6e 67 20 74 6f 20 |t' accor|ding to |
|00002220| 63 6f 6e 74 65 78 74 20 | 6f 66 20 74 68 69 73 20 |context |of this |
|00002230| 6c 69 6e 65 2e 0a 54 68 | 69 73 20 63 6f 6e 74 72 |line..Th|is contr|
|00002240| 6f 6c 73 20 74 68 65 20 | 62 65 68 61 76 69 6f 72 |ols the |behavior|
|00002250| 20 6f 66 20 5c 5c 5b 70 | 69 63 74 75 72 65 2d 74 | of \\[p|icture-t|
|00002260| 61 62 5d 2e 20 20 41 20 | 74 61 62 20 73 74 6f 70 |ab]. A |tab stop|
|00002270| 20 69 73 20 73 65 74 20 | 61 74 0a 65 76 65 72 79 | is set |at.every|
|00002280| 20 63 6f 6c 75 6d 6e 20 | 6f 63 63 75 70 69 65 64 | column |occupied|
|00002290| 20 62 79 20 61 6e 20 5c | 22 69 6e 74 65 72 65 73 | by an \|"interes|
|000022a0| 74 69 6e 67 20 63 68 61 | 72 61 63 74 65 72 5c 22 |ting cha|racter\"|
|000022b0| 20 74 68 61 74 20 69 73 | 20 70 72 65 63 65 64 65 | that is| precede|
|000022c0| 64 0a 62 79 20 77 68 69 | 74 65 73 70 61 63 65 2e |d.by whi|tespace.|
|000022d0| 20 20 49 6e 74 65 72 65 | 73 74 69 6e 67 20 63 68 | Intere|sting ch|
|000022e0| 61 72 61 63 74 65 72 73 | 20 61 72 65 20 64 65 66 |aracters| are def|
|000022f0| 69 6e 65 64 20 62 79 20 | 74 68 65 20 76 61 72 69 |ined by |the vari|
|00002300| 61 62 6c 65 0a 60 70 69 | 63 74 75 72 65 2d 74 61 |able.`pi|cture-ta|
|00002310| 62 2d 63 68 61 72 73 27 | 2c 20 73 65 65 20 69 74 |b-chars'|, see it|
|00002320| 73 20 64 6f 63 75 6d 65 | 6e 74 61 74 69 6f 6e 20 |s docume|ntation |
|00002330| 66 6f 72 20 61 6e 20 65 | 78 61 6d 70 6c 65 20 6f |for an e|xample o|
|00002340| 66 20 75 73 61 67 65 2e | 0a 57 69 74 68 20 41 52 |f usage.|.With AR|
|00002350| 47 2c 20 6a 75 73 74 20 | 28 72 65 29 73 65 74 20 |G, just |(re)set |
|00002360| 60 74 61 62 2d 73 74 6f | 70 2d 6c 69 73 74 27 20 |`tab-sto|p-list' |
|00002370| 74 6f 20 69 74 73 20 64 | 65 66 61 75 6c 74 20 76 |to its d|efault v|
|00002380| 61 6c 75 65 2e 20 20 54 | 68 65 20 74 61 62 0a 73 |alue. T|he tab.s|
|00002390| 74 6f 70 73 20 63 6f 6d | 70 75 74 65 64 20 61 72 |tops com|puted ar|
|000023a0| 65 20 64 69 73 70 6c 61 | 79 65 64 20 69 6e 20 74 |e displa|yed in t|
|000023b0| 68 65 20 6d 69 6e 69 62 | 75 66 66 65 72 20 77 69 |he minib|uffer wi|
|000023c0| 74 68 20 60 3a 27 20 61 | 74 20 65 61 63 68 20 73 |th `:' a|t each s|
|000023d0| 74 6f 70 2e 22 20 22 50 | 22 5d 29 0a 28 64 65 66 |top." "P|"]).(def|
|000023e0| 61 6c 69 61 73 20 27 70 | 69 63 74 75 72 65 2d 74 |alias 'p|icture-t|
|000023f0| 61 62 2d 73 65 61 72 63 | 68 20 23 5b 28 26 6f 70 |ab-searc|h #[(&op|
|00002400| 74 69 6f 6e 61 6c 20 61 | 72 67 29 20 22 69 18 8a |tional a|rg) "i..|
|00002410| 09 84 1a 00 c2 79 88 c3 | c4 0d 21 50 65 78 88 6f |.....y..|..!Pex.o|
|00002420| 84 1a 00 c6 08 21 88 c7 | c8 c4 0d 21 c9 51 8a ca |.....!..|...!.Q..|
|00002430| 7f 88 60 29 cb 23 83 32 | 00 69 53 10 82 34 00 ca |..`).#.2|.iS..4..|
|00002440| 10 29 08 83 3f 00 cc 08 | 21 82 43 00 c2 79 88 ca |.)..?...|!.C..y..|
|00002450| 29 87 22 20 5b 74 61 72 | 67 65 74 20 61 72 67 20 |)." [tar|get arg |
|00002460| 30 20 22 5e 22 20 72 65 | 67 65 78 70 2d 71 75 6f |0 "^" re|gexp-quo|
|00002470| 74 65 20 70 69 63 74 75 | 72 65 2d 74 61 62 2d 63 |te pictu|re-tab-c|
|00002480| 68 61 72 73 20 6d 6f 76 | 65 2d 74 6f 2d 63 6f 6c |hars mov|e-to-col|
|00002490| 75 6d 6e 20 72 65 2d 73 | 65 61 72 63 68 2d 66 6f |umn re-s|earch-fo|
|000024a0| 72 77 61 72 64 20 22 5b | 20 09 5d 2b 5b 22 20 22 |rward "[| .]+[" "|
|000024b0| 5d 22 20 6e 69 6c 20 6d | 6f 76 65 20 6d 6f 76 65 |]" nil m|ove move|
|000024c0| 2d 74 6f 2d 63 6f 6c 75 | 6d 6e 2d 66 6f 72 63 65 |-to-colu|mn-force|
|000024d0| 5d 20 34 20 22 5c 0a 4d | 6f 76 65 20 74 6f 20 63 |] 4 "\.M|ove to c|
|000024e0| 6f 6c 75 6d 6e 20 62 65 | 6e 65 61 74 68 20 6e 65 |olumn be|neath ne|
|000024f0| 78 74 20 69 6e 74 65 72 | 65 73 74 69 6e 67 20 63 |xt inter|esting c|
|00002500| 68 61 72 20 69 6e 20 70 | 72 65 76 69 6f 75 73 20 |har in p|revious |
|00002510| 6c 69 6e 65 2e 0a 57 69 | 74 68 20 41 52 47 20 6d |line..Wi|th ARG m|
|00002520| 6f 76 65 20 74 6f 20 63 | 6f 6c 75 6d 6e 20 6f 63 |ove to c|olumn oc|
|00002530| 63 75 70 69 65 64 20 62 | 79 20 6e 65 78 74 20 69 |cupied b|y next i|
|00002540| 6e 74 65 72 65 73 74 69 | 6e 67 20 63 68 61 72 61 |nteresti|ng chara|
|00002550| 63 74 65 72 20 69 6e 20 | 74 68 69 73 0a 6c 69 6e |cter in |this.lin|
|00002560| 65 2e 20 20 54 68 65 20 | 63 68 61 72 61 63 74 65 |e. The |characte|
|00002570| 72 20 6d 75 73 74 20 62 | 65 20 70 72 65 63 65 64 |r must b|e preced|
|00002580| 65 64 20 62 79 20 77 68 | 69 74 65 73 70 61 63 65 |ed by wh|itespace|
|00002590| 2e 0a 5c 22 69 6e 74 65 | 72 65 73 74 69 6e 67 20 |..\"inte|resting |
|000025a0| 63 68 61 72 61 63 74 65 | 72 73 5c 22 20 61 72 65 |characte|rs\" are|
|000025b0| 20 64 65 66 69 6e 65 64 | 20 62 79 20 76 61 72 69 | defined| by vari|
|000025c0| 61 62 6c 65 20 60 70 69 | 63 74 75 72 65 2d 74 61 |able `pi|cture-ta|
|000025d0| 62 2d 63 68 61 72 73 27 | 2e 0a 49 66 20 6e 6f 20 |b-chars'|..If no |
|000025e0| 73 75 63 68 20 63 68 61 | 72 61 63 74 65 72 20 69 |such cha|racter i|
|000025f0| 73 20 66 6f 75 6e 64 2c | 20 6d 6f 76 65 20 74 6f |s found,| move to|
|00002600| 20 62 65 67 69 6e 6e 69 | 6e 67 20 6f 66 20 6c 69 | beginni|ng of li|
|00002610| 6e 65 2e 22 20 22 50 22 | 5d 29 0a 28 64 65 66 61 |ne." "P"|]).(defa|
|00002620| 6c 69 61 73 20 27 70 69 | 63 74 75 72 65 2d 74 61 |lias 'pi|cture-ta|
|00002630| 62 20 23 5b 28 26 6f 70 | 74 69 6f 6e 61 6c 20 61 |b #[(&op|tional a|
|00002640| 72 67 29 20 22 60 18 c1 | 20 88 5c 6e 85 14 00 c3 |rg) "`..| .\n....|
|00002650| 69 1c 1d 08 60 7c 88 0c | 6a 2a 29 87 22 20 5b 6f |i...`|..|j*)." [o|
|00002660| 70 6f 69 6e 74 20 6d 6f | 76 65 2d 74 6f 2d 74 61 |point mo|ve-to-ta|
|00002670| 62 2d 73 74 6f 70 20 61 | 72 67 20 6e 69 6c 20 63 |b-stop a|rg nil c|
|00002680| 6f 6c 75 6d 6e 20 69 6e | 64 65 6e 74 2d 74 61 62 |olumn in|dent-tab|
|00002690| 73 2d 6d 6f 64 65 5d 20 | 32 20 22 5c 0a 54 61 62 |s-mode] |2 "\.Tab|
|000026a0| 20 74 72 61 6e 73 70 61 | 72 65 6e 74 6c 79 20 28 | transpa|rently (|
|000026b0| 6a 75 73 74 20 6d 6f 76 | 65 20 70 6f 69 6e 74 29 |just mov|e point)|
|000026c0| 20 74 6f 20 6e 65 78 74 | 20 74 61 62 20 73 74 6f | to next| tab sto|
|000026d0| 70 2e 0a 57 69 74 68 20 | 70 72 65 66 69 78 20 61 |p..With |prefix a|
|000026e0| 72 67 2c 20 6f 76 65 72 | 77 72 69 74 65 20 74 68 |rg, over|write th|
|000026f0| 65 20 74 72 61 76 65 72 | 73 65 64 20 74 65 78 74 |e traver|sed text|
|00002700| 20 77 69 74 68 20 73 70 | 61 63 65 73 2e 20 20 54 | with sp|aces. T|
|00002710| 68 65 20 74 61 62 20 73 | 74 6f 70 0a 6c 69 73 74 |he tab s|top.list|
|00002720| 20 63 61 6e 20 62 65 20 | 63 68 61 6e 67 65 64 20 | can be |changed |
|00002730| 62 79 20 5c 5c 5b 70 69 | 63 74 75 72 65 2d 73 65 |by \\[pi|cture-se|
|00002740| 74 2d 74 61 62 2d 73 74 | 6f 70 73 5d 20 61 6e 64 |t-tab-st|ops] and|
|00002750| 20 5c 5c 5b 65 64 69 74 | 2d 74 61 62 2d 73 74 6f | \\[edit|-tab-sto|
|00002760| 70 73 5d 2e 0a 53 65 65 | 20 61 6c 73 6f 20 64 6f |ps]..See| also do|
|00002770| 63 75 6d 65 6e 74 61 74 | 69 6f 6e 20 66 6f 72 20 |cumentat|ion for |
|00002780| 76 61 72 69 61 62 6c 65 | 20 60 70 69 63 74 75 72 |variable| `pictur|
|00002790| 65 2d 74 61 62 2d 63 68 | 61 72 73 27 2e 22 20 22 |e-tab-ch|ars'." "|
|000027a0| 50 22 5d 29 0a 28 64 65 | 66 63 6f 6e 73 74 20 70 |P"]).(de|fconst p|
|000027b0| 69 63 74 75 72 65 2d 6b | 69 6c 6c 65 64 2d 72 65 |icture-k|illed-re|
|000027c0| 63 74 61 6e 67 6c 65 20 | 6e 69 6c 20 22 5c 0a 52 |ctangle |nil "\.R|
|000027d0| 65 63 74 61 6e 67 6c 65 | 20 6b 69 6c 6c 65 64 20 |ectangle| killed |
|000027e0| 6f 72 20 63 6f 70 69 65 | 64 20 62 79 20 5c 5c 5b |or copie|d by \\[|
|000027f0| 70 69 63 74 75 72 65 2d | 63 6c 65 61 72 2d 72 65 |picture-|clear-re|
|00002800| 63 74 61 6e 67 6c 65 5d | 20 69 6e 20 50 69 63 74 |ctangle]| in Pict|
|00002810| 75 72 65 20 6d 6f 64 65 | 2e 0a 54 68 65 20 63 6f |ure mode|..The co|
|00002820| 6e 74 65 6e 74 73 20 63 | 61 6e 20 62 65 20 72 65 |ntents c|an be re|
|00002830| 74 72 69 65 76 65 64 20 | 62 79 20 5c 5c 5b 70 69 |trieved |by \\[pi|
|00002840| 63 74 75 72 65 2d 79 61 | 6e 6b 2d 72 65 63 74 61 |cture-ya|nk-recta|
|00002850| 6e 67 6c 65 5d 22 29 0a | 28 64 65 66 61 6c 69 61 |ngle]").|(defalia|
|00002860| 73 20 27 70 69 63 74 75 | 72 65 2d 63 6c 65 61 72 |s 'pictu|re-clear|
|00002870| 2d 72 65 63 74 61 6e 67 | 6c 65 20 23 5b 28 73 74 |-rectang|le #[(st|
|00002880| 61 72 74 20 65 6e 64 20 | 26 6f 70 74 69 6f 6e 61 |art end |&optiona|
|00002890| 6c 20 6b 69 6c 6c 70 29 | 20 22 c0 09 5c 6e 0b 23 |l killp)| "..\n.#|
|000028a0| 89 14 87 22 20 5b 70 69 | 63 74 75 72 65 2d 73 6e |..." [pi|cture-sn|
|000028b0| 61 72 66 2d 72 65 63 74 | 61 6e 67 6c 65 20 73 74 |arf-rect|angle st|
|000028c0| 61 72 74 20 65 6e 64 20 | 6b 69 6c 6c 70 20 70 69 |art end |killp pi|
|000028d0| 63 74 75 72 65 2d 6b 69 | 6c 6c 65 64 2d 72 65 63 |cture-ki|lled-rec|
|000028e0| 74 61 6e 67 6c 65 5d 20 | 34 20 22 5c 0a 43 6c 65 |tangle] |4 "\.Cle|
|000028f0| 61 72 20 61 6e 64 20 73 | 61 76 65 20 72 65 63 74 |ar and s|ave rect|
|00002900| 61 6e 67 6c 65 20 64 65 | 6c 69 6e 65 61 74 65 64 |angle de|lineated|
|00002910| 20 62 79 20 70 6f 69 6e | 74 20 61 6e 64 20 6d 61 | by poin|t and ma|
|00002920| 72 6b 2e 0a 54 68 65 20 | 72 65 63 74 61 6e 67 6c |rk..The |rectangl|
|00002930| 65 20 69 73 20 73 61 76 | 65 64 20 66 6f 72 20 79 |e is sav|ed for y|
|00002940| 61 6e 6b 69 6e 67 20 62 | 79 20 5c 5c 5b 70 69 63 |anking b|y \\[pic|
|00002950| 74 75 72 65 2d 79 61 6e | 6b 2d 72 65 63 74 61 6e |ture-yan|k-rectan|
|00002960| 67 6c 65 5d 20 61 6e 64 | 20 72 65 70 6c 61 63 65 |gle] and| replace|
|00002970| 64 0a 77 69 74 68 20 77 | 68 69 74 65 73 70 61 63 |d.with w|hitespac|
|00002980| 65 2e 20 20 54 68 65 20 | 70 72 65 76 69 6f 75 73 |e. The |previous|
|00002990| 6c 79 20 73 61 76 65 64 | 20 72 65 63 74 61 6e 67 |ly saved| rectang|
|000029a0| 6c 65 2c 20 69 66 20 61 | 6e 79 2c 20 69 73 20 6c |le, if a|ny, is l|
|000029b0| 6f 73 74 2e 20 20 57 69 | 74 68 0a 70 72 65 66 69 |ost. Wi|th.prefi|
|000029c0| 78 20 61 72 67 75 6d 65 | 6e 74 2c 20 74 68 65 20 |x argume|nt, the |
|000029d0| 72 65 63 74 61 6e 67 6c | 65 20 69 73 20 61 63 74 |rectangl|e is act|
|000029e0| 75 61 6c 6c 79 20 6b 69 | 6c 6c 65 64 2c 20 73 68 |ually ki|lled, sh|
|000029f0| 69 66 74 69 6e 67 20 72 | 65 6d 61 69 6e 69 6e 67 |ifting r|emaining|
|00002a00| 20 74 65 78 74 2e 22 20 | 22 72 5c 6e 50 22 5d 29 | text." |"r\nP"])|
|00002a10| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 70 69 63 74 |.(defali|as 'pict|
|00002a20| 75 72 65 2d 63 6c 65 61 | 72 2d 72 65 63 74 61 6e |ure-clea|r-rectan|
|00002a30| 67 6c 65 2d 74 6f 2d 72 | 65 67 69 73 74 65 72 20 |gle-to-r|egister |
|00002a40| 23 5b 28 73 74 61 72 74 | 20 65 6e 64 20 72 65 67 |#[(start| end reg|
|00002a50| 69 73 74 65 72 20 26 6f | 70 74 69 6f 6e 61 6c 20 |ister &o|ptional |
|00002a60| 6b 69 6c 6c 70 29 20 22 | c0 09 c2 0b 0c 0d 23 5c |killp) "|......#\|
|00002a70| 22 87 22 20 5b 73 65 74 | 2d 72 65 67 69 73 74 65 |"." [set|-registe|
|00002a80| 72 20 72 65 67 69 73 74 | 65 72 20 70 69 63 74 75 |r regist|er pictu|
|00002a90| 72 65 2d 73 6e 61 72 66 | 2d 72 65 63 74 61 6e 67 |re-snarf|-rectang|
|00002aa0| 6c 65 20 73 74 61 72 74 | 20 65 6e 64 20 6b 69 6c |le start| end kil|
|00002ab0| 6c 70 5d 20 36 20 22 5c | 0a 43 6c 65 61 72 20 72 |lp] 6 "\|.Clear r|
|00002ac0| 65 63 74 61 6e 67 6c 65 | 20 64 65 6c 69 6e 65 61 |ectangle| delinea|
|00002ad0| 74 65 64 20 62 79 20 70 | 6f 69 6e 74 20 61 6e 64 |ted by p|oint and|
|00002ae0| 20 6d 61 72 6b 20 69 6e | 74 6f 20 52 45 47 49 53 | mark in|to REGIS|
|00002af0| 54 45 52 2e 0a 54 68 65 | 20 72 65 63 74 61 6e 67 |TER..The| rectang|
|00002b00| 6c 65 20 69 73 20 73 61 | 76 65 64 20 69 6e 20 52 |le is sa|ved in R|
|00002b10| 45 47 49 53 54 45 52 20 | 61 6e 64 20 72 65 70 6c |EGISTER |and repl|
|00002b20| 61 63 65 64 20 77 69 74 | 68 20 77 68 69 74 65 73 |aced wit|h whites|
|00002b30| 70 61 63 65 2e 20 20 57 | 69 74 68 0a 70 72 65 66 |pace. W|ith.pref|
|00002b40| 69 78 20 61 72 67 75 6d | 65 6e 74 2c 20 74 68 65 |ix argum|ent, the|
|00002b50| 20 72 65 63 74 61 6e 67 | 6c 65 20 69 73 20 61 63 | rectang|le is ac|
|00002b60| 74 75 61 6c 6c 79 20 6b | 69 6c 6c 65 64 2c 20 73 |tually k|illed, s|
|00002b70| 68 69 66 74 69 6e 67 20 | 72 65 6d 61 69 6e 69 6e |hifting |remainin|
|00002b80| 67 20 74 65 78 74 2e 22 | 20 22 72 5c 6e 63 52 65 |g text."| "r\ncRe|
|00002b90| 63 74 61 6e 67 6c 65 20 | 74 6f 20 72 65 67 69 73 |ctangle |to regis|
|00002ba0| 74 65 72 3a 20 5c 6e 50 | 22 5d 29 0a 28 64 65 66 |ter: \nP|"]).(def|
|00002bb0| 61 6c 69 61 73 20 28 71 | 75 6f 74 65 20 70 69 63 |alias (q|uote pic|
|00002bc0| 74 75 72 65 2d 73 6e 61 | 72 66 2d 72 65 63 74 61 |ture-sna|rf-recta|
|00002bd0| 6e 67 6c 65 29 20 23 5b | 28 73 74 61 72 74 20 65 |ngle) #[|(start e|
|00002be0| 6e 64 20 26 6f 70 74 69 | 6f 6e 61 6c 20 6b 69 6c |nd &opti|onal kil|
|00002bf0| 6c 70 29 20 22 69 c0 19 | 1a 8a 0b 83 11 00 c4 0d |lp) "i..|........|
|00002c00| 0e 06 5c 22 82 1c 00 c7 | 0d 0e 06 5c 22 c8 0d 0e |..\"....|...\"...|
|00002c10| 06 5c 22 88 29 c9 5c 6e | 21 88 2a 87 22 20 5b 6e |.\".).\n|!.*." [n|
|00002c20| 69 6c 20 69 6e 64 65 6e | 74 2d 74 61 62 73 2d 6d |il inden|t-tabs-m|
|00002c30| 6f 64 65 20 63 6f 6c 75 | 6d 6e 20 6b 69 6c 6c 70 |ode colu|mn killp|
|00002c40| 20 64 65 6c 65 74 65 2d | 65 78 74 72 61 63 74 2d | delete-|extract-|
|00002c50| 72 65 63 74 61 6e 67 6c | 65 20 73 74 61 72 74 20 |rectangl|e start |
|00002c60| 65 6e 64 20 65 78 74 72 | 61 63 74 2d 72 65 63 74 |end extr|act-rect|
|00002c70| 61 6e 67 6c 65 20 63 6c | 65 61 72 2d 72 65 63 74 |angle cl|ear-rect|
|00002c80| 61 6e 67 6c 65 20 6d 6f | 76 65 2d 74 6f 2d 63 6f |angle mo|ve-to-co|
|00002c90| 6c 75 6d 6e 2d 66 6f 72 | 63 65 5d 20 34 5d 29 0a |lumn-for|ce] 4]).|
|00002ca0| 28 64 65 66 61 6c 69 61 | 73 20 27 70 69 63 74 75 |(defalia|s 'pictu|
|00002cb0| 72 65 2d 79 61 6e 6b 2d | 72 65 63 74 61 6e 67 6c |re-yank-|rectangl|
|00002cc0| 65 20 23 5b 28 26 6f 70 | 74 69 6f 6e 61 6c 20 69 |e #[(&op|tional i|
|00002cd0| 6e 73 65 72 74 70 29 20 | 22 08 3a 84 09 00 c1 c2 |nsertp) |".:.....|
|00002ce0| 21 87 c3 08 0c 5c 22 87 | 22 20 5b 70 69 63 74 75 |!....\".|" [pictu|
|00002cf0| 72 65 2d 6b 69 6c 6c 65 | 64 2d 72 65 63 74 61 6e |re-kille|d-rectan|
|00002d00| 67 6c 65 20 65 72 72 6f | 72 20 22 4e 6f 20 72 65 |gle erro|r "No re|
|00002d10| 63 74 61 6e 67 6c 65 20 | 73 61 76 65 64 2e 22 20 |ctangle |saved." |
|00002d20| 70 69 63 74 75 72 65 2d | 69 6e 73 65 72 74 2d 72 |picture-|insert-r|
|00002d30| 65 63 74 61 6e 67 6c 65 | 20 69 6e 73 65 72 74 70 |ectangle| insertp|
|00002d40| 5d 20 33 20 22 5c 0a 4f | 76 65 72 6c 61 79 20 72 |] 3 "\.O|verlay r|
|00002d50| 65 63 74 61 6e 67 6c 65 | 20 73 61 76 65 64 20 62 |ectangle| saved b|
|00002d60| 79 20 5c 5c 5b 70 69 63 | 74 75 72 65 2d 63 6c 65 |y \\[pic|ture-cle|
|00002d70| 61 72 2d 72 65 63 74 61 | 6e 67 6c 65 5d 0a 54 68 |ar-recta|ngle].Th|
|00002d80| 65 20 72 65 63 74 61 6e | 67 6c 65 20 69 73 20 70 |e rectan|gle is p|
|00002d90| 6f 73 69 74 69 6f 6e 65 | 64 20 77 69 74 68 20 75 |ositione|d with u|
|00002da0| 70 70 65 72 20 6c 65 66 | 74 20 63 6f 72 6e 65 72 |pper lef|t corner|
|00002db0| 20 61 74 20 70 6f 69 6e | 74 2c 20 6f 76 65 72 77 | at poin|t, overw|
|00002dc0| 72 69 74 69 6e 67 0a 65 | 78 69 73 74 69 6e 67 20 |riting.e|xisting |
|00002dd0| 74 65 78 74 2e 20 20 57 | 69 74 68 20 70 72 65 66 |text. W|ith pref|
|00002de0| 69 78 20 61 72 67 75 6d | 65 6e 74 2c 20 74 68 65 |ix argum|ent, the|
|00002df0| 20 72 65 63 74 61 6e 67 | 6c 65 20 69 73 20 69 6e | rectang|le is in|
|00002e00| 73 65 72 74 65 64 20 69 | 6e 73 74 65 61 64 2c 0a |serted i|nstead,.|
|00002e10| 73 68 69 66 74 69 6e 67 | 20 65 78 69 73 74 69 6e |shifting| existin|
|00002e20| 67 20 74 65 78 74 2e 20 | 20 4c 65 61 76 65 73 20 |g text. | Leaves |
|00002e30| 6d 61 72 6b 20 61 74 20 | 6f 6e 65 20 63 6f 72 6e |mark at |one corn|
|00002e40| 65 72 20 6f 66 20 72 65 | 63 74 61 6e 67 6c 65 20 |er of re|ctangle |
|00002e50| 61 6e 64 0a 70 6f 69 6e | 74 20 61 74 20 74 68 65 |and.poin|t at the|
|00002e60| 20 6f 74 68 65 72 20 28 | 64 69 61 67 6f 6e 61 6c | other (|diagonal|
|00002e70| 6c 79 20 6f 70 70 6f 73 | 65 64 29 20 63 6f 72 6e |ly oppos|ed) corn|
|00002e80| 65 72 2e 22 20 22 50 22 | 5d 29 0a 28 64 65 66 61 |er." "P"|]).(defa|
|00002e90| 6c 69 61 73 20 27 70 69 | 63 74 75 72 65 2d 79 61 |lias 'pi|cture-ya|
|00002ea0| 6e 6b 2d 72 65 63 74 61 | 6e 67 6c 65 2d 66 72 6f |nk-recta|ngle-fro|
|00002eb0| 6d 2d 72 65 67 69 73 74 | 65 72 20 23 5b 28 72 65 |m-regist|er #[(re|
|00002ec0| 67 69 73 74 65 72 20 26 | 6f 70 74 69 6f 6e 61 6c |gister &|optional|
|00002ed0| 20 69 6e 73 65 72 74 70 | 29 20 22 c0 09 21 89 1a | insertp|) "..!..|
|00002ee0| 3a 84 10 00 c3 c4 09 5c | 22 82 15 00 c5 5c 6e 0e |:......\|"....\n.|
|00002ef0| 06 5c 22 29 87 22 20 5b | 67 65 74 2d 72 65 67 69 |.\")." [|get-regi|
|00002f00| 73 74 65 72 20 72 65 67 | 69 73 74 65 72 20 72 65 |ster reg|ister re|
|00002f10| 63 74 61 6e 67 6c 65 20 | 65 72 72 6f 72 20 22 52 |ctangle |error "R|
|00002f20| 65 67 69 73 74 65 72 20 | 25 63 20 64 6f 65 73 20 |egister |%c does |
|00002f30| 6e 6f 74 20 63 6f 6e 74 | 61 69 6e 20 61 20 72 65 |not cont|ain a re|
|00002f40| 63 74 61 6e 67 6c 65 2e | 22 20 70 69 63 74 75 72 |ctangle.|" pictur|
|00002f50| 65 2d 69 6e 73 65 72 74 | 2d 72 65 63 74 61 6e 67 |e-insert|-rectang|
|00002f60| 6c 65 20 69 6e 73 65 72 | 74 70 5d 20 34 20 22 5c |le inser|tp] 4 "\|
|00002f70| 0a 4f 76 65 72 6c 61 79 | 20 72 65 63 74 61 6e 67 |.Overlay| rectang|
|00002f80| 6c 65 20 73 61 76 65 64 | 20 69 6e 20 52 45 47 49 |le saved| in REGI|
|00002f90| 53 54 45 52 2e 0a 54 68 | 65 20 72 65 63 74 61 6e |STER..Th|e rectan|
|00002fa0| 67 6c 65 20 69 73 20 70 | 6f 73 69 74 69 6f 6e 65 |gle is p|ositione|
|00002fb0| 64 20 77 69 74 68 20 75 | 70 70 65 72 20 6c 65 66 |d with u|pper lef|
|00002fc0| 74 20 63 6f 72 6e 65 72 | 20 61 74 20 70 6f 69 6e |t corner| at poin|
|00002fd0| 74 2c 20 6f 76 65 72 77 | 72 69 74 69 6e 67 0a 65 |t, overw|riting.e|
|00002fe0| 78 69 73 74 69 6e 67 20 | 74 65 78 74 2e 20 20 57 |xisting |text. W|
|00002ff0| 69 74 68 20 70 72 65 66 | 69 78 20 61 72 67 75 6d |ith pref|ix argum|
|00003000| 65 6e 74 2c 20 74 68 65 | 20 72 65 63 74 61 6e 67 |ent, the| rectang|
|00003010| 6c 65 20 69 73 0a 69 6e | 73 65 72 74 65 64 20 69 |le is.in|serted i|
|00003020| 6e 73 74 65 61 64 2c 20 | 73 68 69 66 74 69 6e 67 |nstead, |shifting|
|00003030| 20 65 78 69 73 74 69 6e | 67 20 74 65 78 74 2e 20 | existin|g text. |
|00003040| 20 4c 65 61 76 65 73 20 | 6d 61 72 6b 20 61 74 20 | Leaves |mark at |
|00003050| 6f 6e 65 20 63 6f 72 6e | 65 72 0a 6f 66 20 72 65 |one corn|er.of re|
|00003060| 63 74 61 6e 67 6c 65 20 | 61 6e 64 20 70 6f 69 6e |ctangle |and poin|
|00003070| 74 20 61 74 20 74 68 65 | 20 6f 74 68 65 72 20 28 |t at the| other (|
|00003080| 64 69 61 67 6f 6e 61 6c | 6c 79 20 6f 70 70 6f 73 |diagonal|ly oppos|
|00003090| 65 64 29 20 63 6f 72 6e | 65 72 2e 22 20 22 63 52 |ed) corn|er." "cR|
|000030a0| 65 63 74 61 6e 67 6c 65 | 20 66 72 6f 6d 20 72 65 |ectangle| from re|
|000030b0| 67 69 73 74 65 72 3a 20 | 5c 6e 50 22 5d 29 0a 28 |gister: |\nP"]).(|
|000030c0| 64 65 66 61 6c 69 61 73 | 20 27 70 69 63 74 75 72 |defalias| 'pictur|
|000030d0| 65 2d 69 6e 73 65 72 74 | 2d 72 65 63 74 61 6e 67 |e-insert|-rectang|
|000030e0| 6c 65 20 23 5b 28 72 65 | 63 74 61 6e 67 6c 65 20 |le #[(re|ctangle |
|000030f0| 26 6f 70 74 69 6f 6e 61 | 6c 20 69 6e 73 65 72 74 |&optiona|l insert|
|00003100| 70 29 20 22 c0 19 5c 6e | 84 19 00 8a c3 60 c4 0d |p) "..\n|.....`..|
|00003110| 40 47 21 88 c6 0d 47 53 | 21 88 60 5c 22 88 29 c7 |@G!...GS|!.`\".).|
|00003120| 20 88 c8 0d 21 29 87 22 | 20 5b 6e 69 6c 20 69 6e | ...!)."| [nil in|
|00003130| 64 65 6e 74 2d 74 61 62 | 73 2d 6d 6f 64 65 20 69 |dent-tab|s-mode i|
|00003140| 6e 73 65 72 74 70 20 64 | 65 6c 65 74 65 2d 72 65 |nsertp d|elete-re|
|00003150| 63 74 61 6e 67 6c 65 20 | 70 69 63 74 75 72 65 2d |ctangle |picture-|
|00003160| 66 6f 72 77 61 72 64 2d | 63 6f 6c 75 6d 6e 20 72 |forward-|column r|
|00003170| 65 63 74 61 6e 67 6c 65 | 20 70 69 63 74 75 72 65 |ectangle| picture|
|00003180| 2d 6d 6f 76 65 2d 64 6f | 77 6e 20 70 75 73 68 2d |-move-do|wn push-|
|00003190| 6d 61 72 6b 20 69 6e 73 | 65 72 74 2d 72 65 63 74 |mark ins|ert-rect|
|000031a0| 61 6e 67 6c 65 5d 20 34 | 20 22 5c 0a 4f 76 65 72 |angle] 4| "\.Over|
|000031b0| 6c 61 79 20 52 45 43 54 | 41 4e 47 4c 45 20 77 69 |lay RECT|ANGLE wi|
|000031c0| 74 68 20 75 70 70 65 72 | 20 6c 65 66 74 20 63 6f |th upper| left co|
|000031d0| 72 6e 65 72 20 61 74 20 | 70 6f 69 6e 74 2e 0a 4f |rner at |point..O|
|000031e0| 70 74 69 6f 6e 61 6c 20 | 61 72 67 75 6d 65 6e 74 |ptional |argument|
|000031f0| 20 49 4e 53 45 52 54 50 | 2c 20 69 66 20 6e 6f 6e | INSERTP|, if non|
|00003200| 2d 6e 69 6c 20 63 61 75 | 73 65 73 20 52 45 43 54 |-nil cau|ses RECT|
|00003210| 41 4e 47 4c 45 20 74 6f | 20 62 65 20 69 6e 73 65 |ANGLE to| be inse|
|00003220| 72 74 65 64 2e 0a 4c 65 | 61 76 65 73 20 74 68 65 |rted..Le|aves the|
|00003230| 20 72 65 67 69 6f 6e 20 | 73 75 72 72 6f 75 6e 64 | region |surround|
|00003240| 69 6e 67 20 74 68 65 20 | 72 65 63 74 61 6e 67 6c |ing the |rectangl|
|00003250| 65 2e 22 5d 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |e."]).(b|yte-code|
|00003260| 20 22 c0 11 c2 c3 c4 5c | 22 88 09 84 f6 00 c5 1e | ".....\|".......|
|00003270| 06 c7 20 11 0e 06 c8 57 | 83 2b 00 c9 09 ca cb 0e |.. ....W|.+......|
|00003280| 06 5c 22 cc 23 88 0e 06 | 54 89 16 06 82 13 00 c3 |.\".#...|T.......|
|00003290| cd ce 5c 22 88 c3 cf d0 | 5c 22 88 c3 d1 d2 5c 22 |..\"....|\"....\"|
|000032a0| 88 c3 d3 d4 5c 22 88 c3 | d5 d6 5c 22 88 c3 d7 d8 |....\"..|..\"....|
|000032b0| 5c 22 88 c3 d9 da 5c 22 | 88 c3 db dc 5c 22 88 c3 |\"....\"|....\"..|
|000032c0| dd de 5c 22 88 c3 df e0 | 5c 22 88 c3 e1 e2 5c 22 |..\"....|\"....\"|
|000032d0| 88 c3 e3 e4 5c 22 88 c9 | 09 e5 d1 23 88 c9 09 e6 |....\"..|...#....|
|000032e0| e7 23 88 c9 09 e8 e9 23 | 88 c9 09 e6 ea 23 88 c9 |.#.....#|.....#..|
|000032f0| 09 eb ec 23 88 c9 09 ed | ee 23 88 c9 09 ef f0 23 |...#....|.#.....#|
|00003300| 88 c9 09 f1 f2 23 88 c9 | 09 f3 f4 23 88 c9 09 f5 |.....#..|...#....|
|00003310| f6 23 88 c9 09 f7 f8 23 | 88 c9 09 f9 fa 23 88 c9 |.#.....#|.....#..|
|00003320| 09 fb fc 23 88 c9 09 fd | fe 23 88 c9 09 ff 81 40 |...#....|.#.....@|
|00003330| 00 23 88 c9 09 81 41 00 | 81 42 00 23 88 c9 09 81 |.#....A.|.B.#....|
|00003340| 43 00 81 44 00 23 88 c9 | 09 81 45 00 81 46 00 23 |C..D.#..|..E..F.#|
|00003350| 88 c9 09 81 47 00 81 48 | 00 23 88 c9 09 81 49 00 |....G..H|.#....I.|
|00003360| 81 4a 00 23 88 29 c0 87 | 22 20 5b 6e 69 6c 20 70 |.J.#.)..|" [nil p|
|00003370| 69 63 74 75 72 65 2d 6d | 6f 64 65 2d 6d 61 70 20 |icture-m|ode-map |
|00003380| 64 65 66 61 6c 69 61 73 | 20 70 69 63 74 75 72 65 |defalias| picture|
|00003390| 2d 73 75 62 73 74 69 74 | 75 74 65 20 23 5b 28 6f |-substit|ute #[(o|
|000033a0| 6c 64 66 75 6e 20 6e 65 | 77 66 75 6e 29 20 22 c0 |ldfun ne|wfun) ".|
|000033b0| 09 5c 6e 0b 0c 24 87 22 | 20 5b 73 75 62 73 74 69 |.\n..$."| [substi|
|000033c0| 74 75 74 65 2d 6b 65 79 | 2d 64 65 66 69 6e 69 74 |tute-key|-definit|
|000033d0| 69 6f 6e 20 6f 6c 64 66 | 75 6e 20 6e 65 77 66 75 |ion oldf|un newfu|
|000033e0| 6e 20 70 69 63 74 75 72 | 65 2d 6d 6f 64 65 2d 6d |n pictur|e-mode-m|
|000033f0| 61 70 20 67 6c 6f 62 61 | 6c 2d 6d 61 70 5d 20 35 |ap globa|l-map] 5|
|00003400| 5d 20 33 32 20 69 20 6d | 61 6b 65 2d 6b 65 79 6d |] 32 i m|ake-keym|
|00003410| 61 70 20 31 32 37 20 64 | 65 66 69 6e 65 2d 6b 65 |ap 127 d|efine-ke|
|00003420| 79 20 6d 61 6b 65 2d 73 | 74 72 69 6e 67 20 31 20 |y make-s|tring 1 |
|00003430| 70 69 63 74 75 72 65 2d | 73 65 6c 66 2d 69 6e 73 |picture-|self-ins|
|00003440| 65 72 74 20 66 6f 72 77 | 61 72 64 2d 63 68 61 72 |ert forw|ard-char|
|00003450| 20 70 69 63 74 75 72 65 | 2d 66 6f 72 77 61 72 64 | picture|-forward|
|00003460| 2d 63 6f 6c 75 6d 6e 20 | 62 61 63 6b 77 61 72 64 |-column |backward|
|00003470| 2d 63 68 61 72 20 70 69 | 63 74 75 72 65 2d 62 61 |-char pi|cture-ba|
|00003480| 63 6b 77 61 72 64 2d 63 | 6f 6c 75 6d 6e 20 64 65 |ckward-c|olumn de|
|00003490| 6c 65 74 65 2d 63 68 61 | 72 20 70 69 63 74 75 72 |lete-cha|r pictur|
|000034a0| 65 2d 63 6c 65 61 72 2d | 63 6f 6c 75 6d 6e 20 62 |e-clear-|column b|
|000034b0| 61 63 6b 77 61 72 64 2d | 64 65 6c 65 74 65 2d 63 |ackward-|delete-c|
|000034c0| 68 61 72 2d 75 6e 74 61 | 62 69 66 79 20 70 69 63 |har-unta|bify pic|
|000034d0| 74 75 72 65 2d 62 61 63 | 6b 77 61 72 64 2d 63 6c |ture-bac|kward-cl|
|000034e0| 65 61 72 2d 63 6f 6c 75 | 6d 6e 20 6b 69 6c 6c 2d |ear-colu|mn kill-|
|000034f0| 6c 69 6e 65 20 70 69 63 | 74 75 72 65 2d 63 6c 65 |line pic|ture-cle|
|00003500| 61 72 2d 6c 69 6e 65 20 | 6f 70 65 6e 2d 6c 69 6e |ar-line |open-lin|
|00003510| 65 20 70 69 63 74 75 72 | 65 2d 6f 70 65 6e 2d 6c |e pictur|e-open-l|
|00003520| 69 6e 65 20 6e 65 77 6c | 69 6e 65 20 70 69 63 74 |ine newl|ine pict|
|00003530| 75 72 65 2d 6e 65 77 6c | 69 6e 65 20 6e 65 77 6c |ure-newl|ine newl|
|00003540| 69 6e 65 2d 61 6e 64 69 | 6e 64 65 6e 74 20 70 69 |ine-andi|ndent pi|
|00003550| 63 74 75 72 65 2d 64 75 | 70 6c 69 63 61 74 65 2d |cture-du|plicate-|
|00003560| 6c 69 6e 65 20 6e 65 78 | 74 2d 6c 69 6e 65 20 70 |line nex|t-line p|
|00003570| 69 63 74 75 72 65 2d 6d | 6f 76 65 2d 64 6f 77 6e |icture-m|ove-down|
|00003580| 20 70 72 65 76 69 6f 75 | 73 2d 6c 69 6e 65 20 70 | previou|s-line p|
|00003590| 69 63 74 75 72 65 2d 6d | 6f 76 65 2d 75 70 20 62 |icture-m|ove-up b|
|000035a0| 65 67 69 6e 6e 69 6e 67 | 2d 6f 66 2d 6c 69 6e 65 |eginning|-of-line|
|000035b0| 20 70 69 63 74 75 72 65 | 2d 62 65 67 69 6e 6e 69 | picture|-beginni|
|000035c0| 6e 67 2d 6f 66 2d 6c 69 | 6e 65 20 65 6e 64 2d 6f |ng-of-li|ne end-o|
|000035d0| 66 2d 6c 69 6e 65 20 70 | 69 63 74 75 72 65 2d 65 |f-line p|icture-e|
|000035e0| 6e 64 2d 6f 66 2d 6c 69 | 6e 65 20 22 03 04 22 20 |nd-of-li|ne ".." |
|000035f0| 22 1b 09 22 20 70 69 63 | 74 75 72 65 2d 74 6f 67 |".." pic|ture-tog|
|00003600| 67 6c 65 2d 74 61 62 2d | 73 74 61 74 65 20 22 09 |gle-tab-|state ".|
|00003610| 22 20 70 69 63 74 75 72 | 65 2d 74 61 62 20 70 69 |" pictur|e-tab pi|
|00003620| 63 74 75 72 65 2d 74 61 | 62 2d 73 65 61 72 63 68 |cture-ta|b-search|
|00003630| 20 22 03 09 22 20 70 69 | 63 74 75 72 65 2d 73 65 | ".." pi|cture-se|
|00003640| 74 2d 74 61 62 2d 73 74 | 6f 70 73 20 22 03 0b 22 |t-tab-st|ops ".."|
|00003650| 20 70 69 63 74 75 72 65 | 2d 63 6c 65 61 72 2d 72 | picture|-clear-r|
|00003660| 65 63 74 61 6e 67 6c 65 | 20 22 03 17 22 20 70 69 |ectangle| ".." pi|
|00003670| 63 74 75 72 65 2d 63 6c | 65 61 72 2d 72 65 63 74 |cture-cl|ear-rect|
|00003680| 61 6e 67 6c 65 2d 74 6f | 2d 72 65 67 69 73 74 65 |angle-to|-registe|
|00003690| 72 20 22 03 19 22 20 70 | 69 63 74 75 72 65 2d 79 |r ".." p|icture-y|
|000036a0| 61 6e 6b 2d 72 65 63 74 | 61 6e 67 6c 65 20 22 03 |ank-rect|angle ".|
|000036b0| 18 22 20 70 69 63 74 75 | 72 65 2d 79 61 6e 6b 2d |." pictu|re-yank-|
|000036c0| 72 65 63 74 61 6e 67 6c | 65 2d 66 72 6f 6d 2d 72 |rectangl|e-from-r|
|000036d0| 65 67 69 73 74 65 72 20 | 22 03 03 22 20 70 69 63 |egister |".." pic|
|000036e0| 74 75 72 65 2d 6d 6f 64 | 65 2d 65 78 69 74 20 22 |ture-mod|e-exit "|
|000036f0| 03 06 22 20 70 69 63 74 | 75 72 65 2d 6d 6f 74 69 |.." pict|ure-moti|
|00003700| 6f 6e 20 22 03 02 22 20 | 70 69 63 74 75 72 65 2d |on ".." |picture-|
|00003710| 6d 6f 74 69 6f 6e 2d 72 | 65 76 65 72 73 65 20 22 |motion-r|everse "|
|00003720| 03 3c 22 20 70 69 63 74 | 75 72 65 2d 6d 6f 76 65 |.<" pict|ure-move|
|00003730| 6d 65 6e 74 2d 6c 65 66 | 74 20 22 03 3e 22 20 70 |ment-lef|t ".>" p|
|00003740| 69 63 74 75 72 65 2d 6d | 6f 76 65 6d 65 6e 74 2d |icture-m|ovement-|
|00003750| 72 69 67 68 74 20 22 03 | 5e 22 20 70 69 63 74 75 |right ".|^" pictu|
|00003760| 72 65 2d 6d 6f 76 65 6d | 65 6e 74 2d 75 70 20 22 |re-movem|ent-up "|
|00003770| 03 2e 22 20 70 69 63 74 | 75 72 65 2d 6d 6f 76 65 |.." pict|ure-move|
|00003780| 6d 65 6e 74 2d 64 6f 77 | 6e 20 22 03 60 22 20 70 |ment-dow|n ".`" p|
|00003790| 69 63 74 75 72 65 2d 6d | 6f 76 65 6d 65 6e 74 2d |icture-m|ovement-|
|000037a0| 6e 77 20 22 03 27 22 20 | 70 69 63 74 75 72 65 2d |nw ".'" |picture-|
|000037b0| 6d 6f 76 65 6d 65 6e 74 | 2d 6e 65 20 22 03 2f 22 |movement|-ne "./"|
|000037c0| 20 70 69 63 74 75 72 65 | 2d 6d 6f 76 65 6d 65 6e | picture|-movemen|
|000037d0| 74 2d 73 77 20 22 03 5c | 5c 22 20 70 69 63 74 75 |t-sw ".\|\" pictu|
|000037e0| 72 65 2d 6d 6f 76 65 6d | 65 6e 74 2d 73 65 5d 20 |re-movem|ent-se] |
|000037f0| 36 29 0a 28 64 65 66 76 | 61 72 20 70 69 63 74 75 |6).(defv|ar pictu|
|00003800| 72 65 2d 6d 6f 64 65 2d | 68 6f 6f 6b 20 6e 69 6c |re-mode-|hook nil|
|00003810| 20 22 5c 0a 49 66 20 6e | 6f 6e 2d 6e 69 6c 2c 20 | "\.If n|on-nil, |
|00003820| 69 74 73 20 76 61 6c 75 | 65 20 69 73 20 63 61 6c |its valu|e is cal|
|00003830| 6c 65 64 20 6f 6e 20 65 | 6e 74 72 79 20 74 6f 20 |led on e|ntry to |
|00003840| 50 69 63 74 75 72 65 20 | 6d 6f 64 65 2e 0a 50 69 |Picture |mode..Pi|
|00003850| 63 74 75 72 65 20 6d 6f | 64 65 20 69 73 20 69 6e |cture mo|de is in|
|00003860| 76 6f 6b 65 64 20 62 79 | 20 74 68 65 20 63 6f 6d |voked by| the com|
|00003870| 6d 61 6e 64 20 5c 5c 5b | 70 69 63 74 75 72 65 2d |mand \\[|picture-|
|00003880| 6d 6f 64 65 5d 2e 22 29 | 0a 28 64 65 66 61 6c 69 |mode].")|.(defali|
|00003890| 61 73 20 27 70 69 63 74 | 75 72 65 2d 6d 6f 64 65 |as 'pict|ure-mode|
|000038a0| 20 23 5b 6e 69 6c 20 22 | 08 c1 3d 83 5c 6e 00 c2 | #[nil "|..=.\n..|
|000038b0| c3 21 87 c4 c5 21 88 c6 | 20 15 c7 0e 08 21 88 c4 |.!...!..| ....!..|
|000038c0| c9 21 88 0e 5c 6e 16 09 | c4 cb 21 88 08 16 0b c1 |.!..\n..|..!.....|
|000038d0| 10 c4 cc 21 88 cd 16 0c | c4 ce 21 88 cf ce 21 16 |...!....|..!...!.|
|000038e0| 0e c4 d0 21 88 cf d0 21 | 16 10 c4 d1 21 88 c4 d2 |...!...!|....!...|
|000038f0| 21 88 d3 16 14 d5 d6 d7 | 5c 22 88 d8 d9 da 5c 22 |!.......|\"....\"|
|00003900| 88 db dc dd 21 0e 09 5c | 22 87 22 20 5b 6d 61 6a |....!..\|"." [maj|
|00003910| 6f 72 2d 6d 6f 64 65 20 | 70 69 63 74 75 72 65 2d |or-mode |picture-|
|00003920| 6d 6f 64 65 20 65 72 72 | 6f 72 20 22 59 6f 75 20 |mode err|or "You |
|00003930| 61 72 65 20 61 6c 72 65 | 61 64 79 20 65 64 69 74 |are alre|ady edit|
|00003940| 69 6e 67 20 61 20 70 69 | 63 74 75 72 65 2e 22 20 |ing a pi|cture." |
|00003950| 6d 61 6b 65 2d 6c 6f 63 | 61 6c 2d 76 61 72 69 61 |make-loc|al-varia|
|00003960| 62 6c 65 20 70 69 63 74 | 75 72 65 2d 6d 6f 64 65 |ble pict|ure-mode|
|00003970| 2d 6f 6c 64 2d 6c 6f 63 | 61 6c 2d 6d 61 70 20 63 |-old-loc|al-map c|
|00003980| 75 72 72 65 6e 74 2d 6c | 6f 63 61 6c 2d 6d 61 70 |urrent-l|ocal-map|
|00003990| 20 75 73 65 2d 6c 6f 63 | 61 6c 2d 6d 61 70 20 70 | use-loc|al-map p|
|000039a0| 69 63 74 75 72 65 2d 6d | 6f 64 65 2d 6d 61 70 20 |icture-m|ode-map |
|000039b0| 70 69 63 74 75 72 65 2d | 6d 6f 64 65 2d 6f 6c 64 |picture-|mode-old|
|000039c0| 2d 6d 6f 64 65 2d 6e 61 | 6d 65 20 6d 6f 64 65 2d |-mode-na|me mode-|
|000039d0| 6e 61 6d 65 20 70 69 63 | 74 75 72 65 2d 6d 6f 64 |name pic|ture-mod|
|000039e0| 65 2d 6f 6c 64 2d 6d 61 | 6a 6f 72 2d 6d 6f 64 65 |e-old-ma|jor-mode|
|000039f0| 20 70 69 63 74 75 72 65 | 2d 6b 69 6c 6c 65 64 2d | picture|-killed-|
|00003a00| 72 65 63 74 61 6e 67 6c | 65 20 6e 69 6c 20 74 61 |rectangl|e nil ta|
|00003a10| 62 2d 73 74 6f 70 2d 6c | 69 73 74 20 64 65 66 61 |b-stop-l|ist defa|
|00003a20| 75 6c 74 2d 76 61 6c 75 | 65 20 70 69 63 74 75 72 |ult-valu|e pictur|
|00003a30| 65 2d 74 61 62 2d 63 68 | 61 72 73 20 70 69 63 74 |e-tab-ch|ars pict|
|00003a40| 75 72 65 2d 76 65 72 74 | 69 63 61 6c 2d 73 74 65 |ure-vert|ical-ste|
|00003a50| 70 20 70 69 63 74 75 72 | 65 2d 68 6f 72 69 7a 6f |p pictur|e-horizo|
|00003a60| 6e 74 61 6c 2d 73 74 65 | 70 20 74 20 74 72 75 6e |ntal-ste|p t trun|
|00003a70| 63 61 74 65 2d 6c 69 6e | 65 73 20 70 69 63 74 75 |cate-lin|es pictu|
|00003a80| 72 65 2d 73 65 74 2d 6d | 6f 74 69 6f 6e 20 30 20 |re-set-m|otion 0 |
|00003a90| 31 20 72 75 6e 2d 68 6f | 6f 6b 73 20 65 64 69 74 |1 run-ho|oks edit|
|00003aa0| 2d 70 69 63 74 75 72 65 | 2d 68 6f 6f 6b 20 70 69 |-picture|-hook pi|
|00003ab0| 63 74 75 72 65 2d 6d 6f | 64 65 2d 68 6f 6f 6b 20 |cture-mo|de-hook |
|00003ac0| 6d 65 73 73 61 67 65 20 | 73 75 62 73 74 69 74 75 |message |substitu|
|00003ad0| 74 65 2d 63 6f 6d 6d 61 | 6e 64 2d 6b 65 79 73 20 |te-comma|nd-keys |
|00003ae0| 22 54 79 70 65 20 5c 5c | 5b 70 69 63 74 75 72 65 |"Type \\|[picture|
|00003af0| 2d 6d 6f 64 65 2d 65 78 | 69 74 5d 20 69 6e 20 74 |-mode-ex|it] in t|
|00003b00| 68 69 73 20 62 75 66 66 | 65 72 20 74 6f 20 72 65 |his buff|er to re|
|00003b10| 74 75 72 6e 20 69 74 20 | 74 6f 20 25 73 20 6d 6f |turn it |to %s mo|
|00003b20| 64 65 2e 22 5d 20 33 20 | 22 5c 0a 53 77 69 74 63 |de."] 3 |"\.Switc|
|00003b30| 68 20 74 6f 20 50 69 63 | 74 75 72 65 20 6d 6f 64 |h to Pic|ture mod|
|00003b40| 65 2c 20 69 6e 20 77 68 | 69 63 68 20 61 20 71 75 |e, in wh|ich a qu|
|00003b50| 61 72 74 65 72 2d 70 6c | 61 6e 65 20 73 63 72 65 |arter-pl|ane scre|
|00003b60| 65 6e 20 6d 6f 64 65 6c | 20 69 73 20 75 73 65 64 |en model| is used|
|00003b70| 2e 0a 50 72 69 6e 74 69 | 6e 67 20 63 68 61 72 61 |..Printi|ng chara|
|00003b80| 63 74 65 72 73 20 72 65 | 70 6c 61 63 65 20 69 6e |cters re|place in|
|00003b90| 73 74 65 61 64 20 6f 66 | 20 69 6e 73 65 72 74 69 |stead of| inserti|
|00003ba0| 6e 67 20 74 68 65 6d 73 | 65 6c 76 65 73 20 77 69 |ng thems|elves wi|
|00003bb0| 74 68 20 6d 6f 74 69 6f | 6e 0a 61 66 74 65 72 77 |th motio|n.afterw|
|00003bc0| 61 72 64 73 20 73 65 74 | 74 61 62 6c 65 20 62 79 |ards set|table by|
|00003bd0| 20 74 68 65 73 65 20 63 | 6f 6d 6d 61 6e 64 73 3a | these c|ommands:|
|00003be0| 0a 20 20 43 2d 63 20 3c | 09 20 20 4d 6f 76 65 20 |. C-c <|. Move |
|00003bf0| 6c 65 66 74 20 61 66 74 | 65 72 20 69 6e 73 65 72 |left aft|er inser|
|00003c00| 74 69 6f 6e 2e 0a 20 20 | 43 2d 63 20 3e 09 20 20 |tion.. |C-c >. |
|00003c10| 4d 6f 76 65 20 72 69 67 | 68 74 20 61 66 74 65 72 |Move rig|ht after|
|00003c20| 20 69 6e 73 65 72 74 69 | 6f 6e 2e 0a 20 20 43 2d | inserti|on.. C-|
|00003c30| 63 20 5e 09 20 20 4d 6f | 76 65 20 75 70 20 61 66 |c ^. Mo|ve up af|
|00003c40| 74 65 72 20 69 6e 73 65 | 72 74 69 6f 6e 2e 0a 20 |ter inse|rtion.. |
|00003c50| 20 43 2d 63 20 2e 09 20 | 20 4d 6f 76 65 20 64 6f | C-c .. | Move do|
|00003c60| 77 6e 20 61 66 74 65 72 | 20 69 6e 73 65 72 74 69 |wn after| inserti|
|00003c70| 6f 6e 2e 0a 20 20 43 2d | 63 20 60 09 20 20 4d 6f |on.. C-|c `. Mo|
|00003c80| 76 65 20 6e 6f 72 74 68 | 77 65 73 74 20 28 6e 77 |ve north|west (nw|
|00003c90| 29 20 61 66 74 65 72 20 | 69 6e 73 65 72 74 69 6f |) after |insertio|
|00003ca0| 6e 2e 0a 20 20 43 2d 63 | 20 27 09 20 20 4d 6f 76 |n.. C-c| '. Mov|
|00003cb0| 65 20 6e 6f 72 74 68 65 | 61 73 74 20 28 6e 65 29 |e northe|ast (ne)|
|00003cc0| 20 61 66 74 65 72 20 69 | 6e 73 65 72 74 69 6f 6e | after i|nsertion|
|00003cd0| 2e 0a 20 20 43 2d 63 20 | 2f 09 20 20 4d 6f 76 65 |.. C-c |/. Move|
|00003ce0| 20 73 6f 75 74 68 77 65 | 73 74 20 28 73 77 29 20 | southwe|st (sw) |
|00003cf0| 61 66 74 65 72 20 69 6e | 73 65 72 74 69 6f 6e 2e |after in|sertion.|
|00003d00| 0a 20 20 43 2d 63 20 5c | 5c 20 20 20 4d 6f 76 65 |. C-c \|\ Move|
|00003d10| 20 73 6f 75 74 68 65 61 | 73 74 20 28 73 65 29 20 | southea|st (se) |
|00003d20| 61 66 74 65 72 20 69 6e | 73 65 72 74 69 6f 6e 2e |after in|sertion.|
|00003d30| 0a 54 68 65 20 63 75 72 | 72 65 6e 74 20 64 69 72 |.The cur|rent dir|
|00003d40| 65 63 74 69 6f 6e 20 69 | 73 20 64 69 73 70 6c 61 |ection i|s displa|
|00003d50| 79 65 64 20 69 6e 20 74 | 68 65 20 6d 6f 64 65 20 |yed in t|he mode |
|00003d60| 6c 69 6e 65 2e 20 20 54 | 68 65 20 69 6e 69 74 69 |line. T|he initi|
|00003d70| 61 6c 0a 64 69 72 65 63 | 74 69 6f 6e 20 69 73 20 |al.direc|tion is |
|00003d80| 72 69 67 68 74 2e 20 20 | 57 68 69 74 65 73 70 61 |right. |Whitespa|
|00003d90| 63 65 20 69 73 20 69 6e | 73 65 72 74 65 64 20 61 |ce is in|serted a|
|00003da0| 6e 64 20 74 61 62 73 20 | 61 72 65 20 63 68 61 6e |nd tabs |are chan|
|00003db0| 67 65 64 20 74 6f 0a 73 | 70 61 63 65 73 20 77 68 |ged to.s|paces wh|
|00003dc0| 65 6e 20 72 65 71 75 69 | 72 65 64 20 62 79 20 6d |en requi|red by m|
|00003dd0| 6f 76 65 6d 65 6e 74 2e | 20 20 59 6f 75 20 63 61 |ovement.| You ca|
|00003de0| 6e 20 6d 6f 76 65 20 61 | 72 6f 75 6e 64 20 69 6e |n move a|round in|
|00003df0| 20 74 68 65 20 62 75 66 | 66 65 72 0a 77 69 74 68 | the buf|fer.with|
|00003e00| 20 74 68 65 73 65 20 63 | 6f 6d 6d 61 6e 64 73 3a | these c|ommands:|
|00003e10| 0a 20 20 5c 5c 5b 70 69 | 63 74 75 72 65 2d 6d 6f |. \\[pi|cture-mo|
|00003e20| 76 65 2d 64 6f 77 6e 5d | 09 20 20 4d 6f 76 65 20 |ve-down]|. Move |
|00003e30| 76 65 72 74 69 63 61 6c | 6c 79 20 74 6f 20 53 41 |vertical|ly to SA|
|00003e40| 4d 45 20 63 6f 6c 75 6d | 6e 20 69 6e 20 70 72 65 |ME colum|n in pre|
|00003e50| 76 69 6f 75 73 20 6c 69 | 6e 65 2e 0a 20 20 5c 5c |vious li|ne.. \\|
|00003e60| 5b 70 69 63 74 75 72 65 | 2d 6d 6f 76 65 2d 75 70 |[picture|-move-up|
|00003e70| 5d 09 20 20 4d 6f 76 65 | 20 76 65 72 74 69 63 61 |]. Move| vertica|
|00003e80| 6c 6c 79 20 74 6f 20 53 | 41 4d 45 20 63 6f 6c 75 |lly to S|AME colu|
|00003e90| 6d 6e 20 69 6e 20 6e 65 | 78 74 20 6c 69 6e 65 2e |mn in ne|xt line.|
|00003ea0| 0a 20 20 5c 5c 5b 70 69 | 63 74 75 72 65 2d 65 6e |. \\[pi|cture-en|
|00003eb0| 64 2d 6f 66 2d 6c 69 6e | 65 5d 09 20 20 4d 6f 76 |d-of-lin|e]. Mov|
|00003ec0| 65 20 74 6f 20 63 6f 6c | 75 6d 6e 20 66 6f 6c 6c |e to col|umn foll|
|00003ed0| 6f 77 69 6e 67 20 6c 61 | 73 74 20 6e 6f 6e 2d 77 |owing la|st non-w|
|00003ee0| 68 69 74 65 73 70 61 63 | 65 20 63 68 61 72 61 63 |hitespac|e charac|
|00003ef0| 74 65 72 2e 0a 20 20 5c | 5c 5b 70 69 63 74 75 72 |ter.. \|\[pictur|
|00003f00| 65 2d 66 6f 72 77 61 72 | 64 2d 63 6f 6c 75 6d 6e |e-forwar|d-column|
|00003f10| 5d 09 20 20 4d 6f 76 65 | 20 72 69 67 68 74 20 69 |]. Move| right i|
|00003f20| 6e 73 65 72 74 69 6e 67 | 20 73 70 61 63 65 73 20 |nserting| spaces |
|00003f30| 69 66 20 72 65 71 75 69 | 72 65 64 2e 0a 20 20 5c |if requi|red.. \|
|00003f40| 5c 5b 70 69 63 74 75 72 | 65 2d 62 61 63 6b 77 61 |\[pictur|e-backwa|
|00003f50| 72 64 2d 63 6f 6c 75 6d | 6e 5d 09 20 20 4d 6f 76 |rd-colum|n]. Mov|
|00003f60| 65 20 6c 65 66 74 20 63 | 68 61 6e 67 69 6e 67 20 |e left c|hanging |
|00003f70| 74 61 62 73 20 74 6f 20 | 73 70 61 63 65 73 20 69 |tabs to |spaces i|
|00003f80| 66 20 72 65 71 75 69 72 | 65 64 2e 0a 20 20 43 2d |f requir|ed.. C-|
|00003f90| 63 20 43 2d 66 20 4d 6f | 76 65 20 69 6e 20 64 69 |c C-f Mo|ve in di|
|00003fa0| 72 65 63 74 69 6f 6e 20 | 6f 66 20 63 75 72 72 65 |rection |of curre|
|00003fb0| 6e 74 20 70 69 63 74 75 | 72 65 20 6d 6f 74 69 6f |nt pictu|re motio|
|00003fc0| 6e 2e 0a 20 20 43 2d 63 | 20 43 2d 62 20 4d 6f 76 |n.. C-c| C-b Mov|
|00003fd0| 65 20 69 6e 20 6f 70 70 | 6f 73 69 74 65 20 64 69 |e in opp|osite di|
|00003fe0| 72 65 63 74 69 6f 6e 20 | 6f 66 20 63 75 72 72 65 |rection |of curre|
|00003ff0| 6e 74 20 70 69 63 74 75 | 72 65 20 6d 6f 74 69 6f |nt pictu|re motio|
|00004000| 6e 2e 0a 20 20 52 65 74 | 75 72 6e 20 20 4d 6f 76 |n.. Ret|urn Mov|
|00004010| 65 20 74 6f 20 62 65 67 | 69 6e 6e 69 6e 67 20 6f |e to beg|inning o|
|00004020| 66 20 6e 65 78 74 20 6c | 69 6e 65 2e 0a 59 6f 75 |f next l|ine..You|
|00004030| 20 63 61 6e 20 65 64 69 | 74 20 74 61 62 75 6c 61 | can edi|t tabula|
|00004040| 72 20 74 65 78 74 20 77 | 69 74 68 20 74 68 65 73 |r text w|ith thes|
|00004050| 65 20 63 6f 6d 6d 61 6e | 64 73 3a 0a 20 20 4d 2d |e comman|ds:. M-|
|00004060| 54 61 62 09 20 20 4d 6f | 76 65 20 74 6f 20 63 6f |Tab. Mo|ve to co|
|00004070| 6c 75 6d 6e 20 62 65 6e | 65 61 74 68 20 28 6f 72 |lumn ben|eath (or|
|00004080| 20 61 74 29 20 6e 65 78 | 74 20 69 6e 74 65 72 65 | at) nex|t intere|
|00004090| 73 74 69 6e 67 20 63 68 | 61 72 61 63 74 65 72 2e |sting ch|aracter.|
|000040a0| 0a 09 20 20 20 20 60 49 | 6e 64 65 6e 74 73 27 20 |.. `I|ndents' |
|000040b0| 72 65 6c 61 74 69 76 65 | 20 74 6f 20 61 20 70 72 |relative| to a pr|
|000040c0| 65 76 69 6f 75 73 20 6c | 69 6e 65 2e 0a 20 20 54 |evious l|ine.. T|
|000040d0| 61 62 09 20 20 4d 6f 76 | 65 20 74 6f 20 6e 65 78 |ab. Mov|e to nex|
|000040e0| 74 20 73 74 6f 70 20 69 | 6e 20 74 61 62 20 73 74 |t stop i|n tab st|
|000040f0| 6f 70 20 6c 69 73 74 2e | 0a 20 20 43 2d 63 20 54 |op list.|. C-c T|
|00004100| 61 62 20 53 65 74 20 74 | 61 62 20 73 74 6f 70 73 |ab Set t|ab stops|
|00004110| 20 61 63 63 6f 72 64 69 | 6e 67 20 74 6f 20 63 6f | accordi|ng to co|
|00004120| 6e 74 65 78 74 20 6f 66 | 20 74 68 69 73 20 6c 69 |ntext of| this li|
|00004130| 6e 65 2e 0a 09 20 20 20 | 20 57 69 74 68 20 41 52 |ne... | With AR|
|00004140| 47 20 72 65 73 65 74 73 | 20 74 61 62 20 73 74 6f |G resets| tab sto|
|00004150| 70 73 20 74 6f 20 64 65 | 66 61 75 6c 74 20 28 67 |ps to de|fault (g|
|00004160| 6c 6f 62 61 6c 29 20 76 | 61 6c 75 65 2e 0a 09 20 |lobal) v|alue... |
|00004170| 20 20 20 53 65 65 20 61 | 6c 73 6f 20 64 6f 63 75 | See a|lso docu|
|00004180| 6d 65 6e 74 61 74 69 6f | 6e 20 6f 66 20 76 61 72 |mentatio|n of var|
|00004190| 69 61 62 6c 65 09 70 69 | 63 74 75 72 65 2d 74 61 |iable.pi|cture-ta|
|000041a0| 62 2d 63 68 61 72 73 0a | 09 20 20 20 20 77 68 69 |b-chars.|. whi|
|000041b0| 63 68 20 64 65 66 69 6e | 65 73 20 5c 22 69 6e 74 |ch defin|es \"int|
|000041c0| 65 72 65 73 74 69 6e 67 | 20 63 68 61 72 61 63 74 |eresting| charact|
|000041d0| 65 72 5c 22 2e 20 20 59 | 6f 75 20 63 61 6e 20 6d |er\". Y|ou can m|
|000041e0| 61 6e 75 61 6c 6c 79 0a | 09 20 20 20 20 63 68 61 |anually.|. cha|
|000041f0| 6e 67 65 20 74 68 65 20 | 74 61 62 20 73 74 6f 70 |nge the |tab stop|
|00004200| 20 6c 69 73 74 20 77 69 | 74 68 20 63 6f 6d 6d 61 | list wi|th comma|
|00004210| 6e 64 20 5c 5c 5b 65 64 | 69 74 2d 74 61 62 2d 73 |nd \\[ed|it-tab-s|
|00004220| 74 6f 70 73 5d 2e 0a 59 | 6f 75 20 63 61 6e 20 6d |tops]..Y|ou can m|
|00004230| 61 6e 69 70 75 6c 61 74 | 65 20 74 65 78 74 20 77 |anipulat|e text w|
|00004240| 69 74 68 20 74 68 65 73 | 65 20 63 6f 6d 6d 61 6e |ith thes|e comman|
|00004250| 64 73 3a 0a 20 20 43 2d | 64 09 20 20 43 6c 65 61 |ds:. C-|d. Clea|
|00004260| 72 20 28 72 65 70 6c 61 | 63 65 29 20 41 52 47 20 |r (repla|ce) ARG |
|00004270| 63 6f 6c 75 6d 6e 73 20 | 61 66 74 65 72 20 70 6f |columns |after po|
|00004280| 69 6e 74 20 77 69 74 68 | 6f 75 74 20 6d 6f 76 69 |int with|out movi|
|00004290| 6e 67 2e 0a 20 20 43 2d | 63 20 43 2d 64 20 44 65 |ng.. C-|c C-d De|
|000042a0| 6c 65 74 65 20 63 68 61 | 72 20 61 74 20 70 6f 69 |lete cha|r at poi|
|000042b0| 6e 74 20 2d 20 74 68 65 | 20 63 6f 6d 6d 61 6e 64 |nt - the| command|
|000042c0| 20 6e 6f 72 6d 61 6c 6c | 79 20 61 73 73 69 67 6e | normall|y assign|
|000042d0| 65 64 20 74 6f 20 43 2d | 64 2e 0a 20 20 5c 5c 5b |ed to C-|d.. \\[|
|000042e0| 70 69 63 74 75 72 65 2d | 62 61 63 6b 77 61 72 64 |picture-|backward|
|000042f0| 2d 63 6c 65 61 72 2d 63 | 6f 6c 75 6d 6e 5d 20 20 |-clear-c|olumn] |
|00004300| 43 6c 65 61 72 20 28 72 | 65 70 6c 61 63 65 29 20 |Clear (r|eplace) |
|00004310| 41 52 47 20 63 6f 6c 75 | 6d 6e 73 20 62 65 66 6f |ARG colu|mns befo|
|00004320| 72 65 20 70 6f 69 6e 74 | 2c 20 6d 6f 76 69 6e 67 |re point|, moving|
|00004330| 20 62 61 63 6b 20 6f 76 | 65 72 20 74 68 65 6d 2e | back ov|er them.|
|00004340| 0a 20 20 5c 5c 5b 70 69 | 63 74 75 72 65 2d 63 6c |. \\[pi|cture-cl|
|00004350| 65 61 72 2d 6c 69 6e 65 | 5d 09 20 20 43 6c 65 61 |ear-line|]. Clea|
|00004360| 72 20 41 52 47 20 6c 69 | 6e 65 73 2c 20 61 64 76 |r ARG li|nes, adv|
|00004370| 61 6e 63 69 6e 67 20 6f | 76 65 72 20 74 68 65 6d |ancing o|ver them|
|00004380| 2e 09 20 54 68 65 20 63 | 6c 65 61 72 65 64 0a 09 |.. The c|leared..|
|00004390| 20 20 20 20 74 65 78 74 | 20 69 73 20 73 61 76 65 | text| is save|
|000043a0| 64 20 69 6e 20 74 68 65 | 20 6b 69 6c 6c 20 72 69 |d in the| kill ri|
|000043b0| 6e 67 2e 0a 20 20 5c 5c | 5b 70 69 63 74 75 72 65 |ng.. \\|[picture|
|000043c0| 2d 6f 70 65 6e 2d 6c 69 | 6e 65 5d 09 20 20 4f 70 |-open-li|ne]. Op|
|000043d0| 65 6e 20 62 6c 61 6e 6b | 20 6c 69 6e 65 28 73 29 |en blank| line(s)|
|000043e0| 20 62 65 6e 65 61 74 68 | 20 63 75 72 72 65 6e 74 | beneath| current|
|000043f0| 20 6c 69 6e 65 2e 0a 59 | 6f 75 20 63 61 6e 20 6d | line..Y|ou can m|
|00004400| 61 6e 69 70 75 6c 61 74 | 65 20 72 65 63 74 61 6e |anipulat|e rectan|
|00004410| 67 6c 65 73 20 77 69 74 | 68 20 74 68 65 73 65 20 |gles wit|h these |
|00004420| 63 6f 6d 6d 61 6e 64 73 | 3a 0a 20 20 43 2d 63 20 |commands|:. C-c |
|00004430| 43 2d 6b 20 43 6c 65 61 | 72 20 28 6f 72 20 6b 69 |C-k Clea|r (or ki|
|00004440| 6c 6c 29 20 61 20 72 65 | 63 74 61 6e 67 6c 65 20 |ll) a re|ctangle |
|00004450| 61 6e 64 20 73 61 76 65 | 20 69 74 2e 0a 20 20 43 |and save| it.. C|
|00004460| 2d 63 20 43 2d 77 20 4c | 69 6b 65 20 43 2d 63 20 |-c C-w L|ike C-c |
|00004470| 43 2d 6b 20 65 78 63 65 | 70 74 20 72 65 63 74 61 |C-k exce|pt recta|
|00004480| 6e 67 6c 65 20 69 73 20 | 73 61 76 65 64 20 69 6e |ngle is |saved in|
|00004490| 20 6e 61 6d 65 64 20 72 | 65 67 69 73 74 65 72 2e | named r|egister.|
|000044a0| 0a 20 20 43 2d 63 20 43 | 2d 79 20 4f 76 65 72 6c |. C-c C|-y Overl|
|000044b0| 61 79 20 28 6f 72 20 69 | 6e 73 65 72 74 29 20 63 |ay (or i|nsert) c|
|000044c0| 75 72 72 65 6e 74 6c 79 | 20 73 61 76 65 64 20 72 |urrently| saved r|
|000044d0| 65 63 74 61 6e 67 6c 65 | 20 61 74 20 70 6f 69 6e |ectangle| at poin|
|000044e0| 74 2e 0a 20 20 43 2d 63 | 20 43 2d 78 20 4c 69 6b |t.. C-c| C-x Lik|
|000044f0| 65 20 43 2d 63 20 43 2d | 79 20 65 78 63 65 70 74 |e C-c C-|y except|
|00004500| 20 72 65 63 74 61 6e 67 | 6c 65 20 69 73 20 74 61 | rectang|le is ta|
|00004510| 6b 65 6e 20 66 72 6f 6d | 20 6e 61 6d 65 64 20 72 |ken from| named r|
|00004520| 65 67 69 73 74 65 72 2e | 0a 20 20 5c 5c 5b 63 6f |egister.|. \\[co|
|00004530| 70 79 2d 72 65 63 74 61 | 6e 67 6c 65 2d 74 6f 2d |py-recta|ngle-to-|
|00004540| 72 65 67 69 73 74 65 72 | 5d 20 20 20 43 6f 70 69 |register|] Copi|
|00004550| 65 73 20 61 20 72 65 63 | 74 61 6e 67 6c 65 20 74 |es a rec|tangle t|
|00004560| 6f 20 61 20 72 65 67 69 | 73 74 65 72 2e 0a 20 20 |o a regi|ster.. |
|00004570| 5c 5c 5b 61 64 76 65 72 | 74 69 73 65 64 2d 75 6e |\\[adver|tised-un|
|00004580| 64 6f 5d 20 20 20 43 61 | 6e 20 75 6e 64 6f 20 65 |do] Ca|n undo e|
|00004590| 66 66 65 63 74 73 20 6f | 66 20 72 65 63 74 61 6e |ffects o|f rectan|
|000045a0| 67 6c 65 20 6f 76 65 72 | 6c 61 79 20 63 6f 6d 6d |gle over|lay comm|
|000045b0| 61 6e 64 73 0a 09 20 20 | 20 20 63 6f 6d 6d 61 6e |ands.. | comman|
|000045c0| 64 73 20 69 66 20 69 6e | 76 6f 6b 65 64 20 73 6f |ds if in|voked so|
|000045d0| 6f 6e 20 65 6e 6f 75 67 | 68 2e 0a 59 6f 75 20 63 |on enoug|h..You c|
|000045e0| 61 6e 20 72 65 74 75 72 | 6e 20 74 6f 20 74 68 65 |an retur|n to the|
|000045f0| 20 70 72 65 76 69 6f 75 | 73 20 6d 6f 64 65 20 77 | previou|s mode w|
|00004600| 69 74 68 3a 0a 20 20 43 | 2d 63 20 43 2d 63 20 57 |ith:. C|-c C-c W|
|00004610| 68 69 63 68 20 61 6c 73 | 6f 20 73 74 72 69 70 73 |hich als|o strips|
|00004620| 20 74 72 61 69 6c 69 6e | 67 20 77 68 69 74 65 73 | trailin|g whites|
|00004630| 70 61 63 65 20 66 72 6f | 6d 20 65 76 65 72 79 20 |pace fro|m every |
|00004640| 6c 69 6e 65 2e 0a 09 20 | 20 20 20 53 74 72 69 70 |line... | Strip|
|00004650| 70 69 6e 67 20 69 73 20 | 73 75 70 70 72 65 73 73 |ping is |suppress|
|00004660| 65 64 20 62 79 20 73 75 | 70 70 6c 79 69 6e 67 20 |ed by su|pplying |
|00004670| 61 6e 20 61 72 67 75 6d | 65 6e 74 2e 0a 0a 45 6e |an argum|ent...En|
|00004680| 74 72 79 20 74 6f 20 74 | 68 69 73 20 6d 6f 64 65 |try to t|his mode|
|00004690| 20 63 61 6c 6c 73 20 74 | 68 65 20 76 61 6c 75 65 | calls t|he value|
|000046a0| 20 6f 66 20 20 70 69 63 | 74 75 72 65 2d 6d 6f 64 | of pic|ture-mod|
|000046b0| 65 2d 68 6f 6f 6b 20 20 | 69 66 20 6e 6f 6e 2d 6e |e-hook |if non-n|
|000046c0| 69 6c 2e 0a 0a 4e 6f 74 | 65 20 74 68 61 74 20 50 |il...Not|e that P|
|000046d0| 69 63 74 75 72 65 20 6d | 6f 64 65 20 63 6f 6d 6d |icture m|ode comm|
|000046e0| 61 6e 64 73 20 77 69 6c | 6c 20 77 6f 72 6b 20 6f |ands wil|l work o|
|000046f0| 75 74 73 69 64 65 20 6f | 66 20 50 69 63 74 75 72 |utside o|f Pictur|
|00004700| 65 20 6d 6f 64 65 2c 20 | 62 75 74 0a 74 68 65 79 |e mode, |but.they|
|00004710| 20 61 72 65 20 6e 6f 74 | 20 64 65 66 61 75 6c 74 | are not| default|
|00004720| 6c 79 20 61 73 73 69 67 | 6e 65 64 20 74 6f 20 6b |ly assig|ned to k|
|00004730| 65 79 73 2e 22 20 6e 69 | 6c 5d 29 0a 28 64 65 66 |eys." ni|l]).(def|
|00004740| 61 6c 69 61 73 20 28 71 | 75 6f 74 65 20 65 64 69 |alias (q|uote edi|
|00004750| 74 2d 70 69 63 74 75 72 | 65 29 20 28 71 75 6f 74 |t-pictur|e) (quot|
|00004760| 65 20 70 69 63 74 75 72 | 65 2d 6d 6f 64 65 29 29 |e pictur|e-mode))|
|00004770| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 70 69 63 74 |.(defali|as 'pict|
|00004780| 75 72 65 2d 6d 6f 64 65 | 2d 65 78 69 74 20 23 5b |ure-mode|-exit #[|
|00004790| 28 26 6f 70 74 69 6f 6e | 61 6c 20 6e 6f 73 74 72 |(&option|al nostr|
|000047a0| 69 70 29 20 22 08 c1 3d | 84 5c 6e 00 c2 c3 21 87 |ip) "..=|.\n...!.|
|000047b0| 0c 84 11 00 c5 20 88 0e | 06 16 07 c8 0e 09 21 88 |..... ..|......!.|
|000047c0| 0e 5c 6e 10 cb cc 21 88 | cd ce 20 21 87 22 20 5b |.\n...!.|.. !." [|
|000047d0| 6d 61 6a 6f 72 2d 6d 6f | 64 65 20 70 69 63 74 75 |major-mo|de pictu|
|000047e0| 72 65 2d 6d 6f 64 65 20 | 65 72 72 6f 72 20 22 59 |re-mode |error "Y|
|000047f0| 6f 75 20 61 72 65 6e 27 | 74 20 65 64 69 74 69 6e |ou aren'|t editin|
|00004800| 67 20 61 20 50 69 63 74 | 75 72 65 2e 22 20 6e 6f |g a Pict|ure." no|
|00004810| 73 74 72 69 70 20 70 69 | 63 74 75 72 65 2d 63 6c |strip pi|cture-cl|
|00004820| 65 61 6e 20 70 69 63 74 | 75 72 65 2d 6d 6f 64 65 |ean pict|ure-mode|
|00004830| 2d 6f 6c 64 2d 6d 6f 64 | 65 2d 6e 61 6d 65 20 6d |-old-mod|e-name m|
|00004840| 6f 64 65 2d 6e 61 6d 65 | 20 75 73 65 2d 6c 6f 63 |ode-name| use-loc|
|00004850| 61 6c 2d 6d 61 70 20 70 | 69 63 74 75 72 65 2d 6d |al-map p|icture-m|
|00004860| 6f 64 65 2d 6f 6c 64 2d | 6c 6f 63 61 6c 2d 6d 61 |ode-old-|local-ma|
|00004870| 70 20 70 69 63 74 75 72 | 65 2d 6d 6f 64 65 2d 6f |p pictur|e-mode-o|
|00004880| 6c 64 2d 6d 61 6a 6f 72 | 2d 6d 6f 64 65 20 6b 69 |ld-major|-mode ki|
|00004890| 6c 6c 2d 6c 6f 63 61 6c | 2d 76 61 72 69 61 62 6c |ll-local|-variabl|
|000048a0| 65 20 74 61 62 2d 73 74 | 6f 70 2d 6c 69 73 74 20 |e tab-st|op-list |
|000048b0| 73 65 74 2d 62 75 66 66 | 65 72 2d 6d 6f 64 69 66 |set-buff|er-modif|
|000048c0| 69 65 64 2d 70 20 62 75 | 66 66 65 72 2d 6d 6f 64 |ied-p bu|ffer-mod|
|000048d0| 69 66 69 65 64 2d 70 5d | 20 32 20 22 5c 0a 55 6e |ified-p]| 2 "\.Un|
|000048e0| 64 6f 20 70 69 63 74 75 | 72 65 2d 6d 6f 64 65 20 |do pictu|re-mode |
|000048f0| 61 6e 64 20 72 65 74 75 | 72 6e 20 74 6f 20 70 72 |and retu|rn to pr|
|00004900| 65 76 69 6f 75 73 20 6d | 61 6a 6f 72 20 6d 6f 64 |evious m|ajor mod|
|00004910| 65 2e 0a 57 69 74 68 20 | 6e 6f 20 61 72 67 75 6d |e..With |no argum|
|00004920| 65 6e 74 20 73 74 72 69 | 70 73 20 77 68 69 74 65 |ent stri|ps white|
|00004930| 73 70 61 63 65 20 66 72 | 6f 6d 20 65 6e 64 20 6f |space fr|om end o|
|00004940| 66 20 65 76 65 72 79 20 | 6c 69 6e 65 20 69 6e 20 |f every |line in |
|00004950| 50 69 63 74 75 72 65 20 | 62 75 66 66 65 72 0a 20 |Picture |buffer. |
|00004960| 20 6f 74 68 65 72 77 69 | 73 65 20 6a 75 73 74 20 | otherwi|se just |
|00004970| 72 65 74 75 72 6e 20 74 | 6f 20 70 72 65 76 69 6f |return t|o previo|
|00004980| 75 73 20 6d 6f 64 65 2e | 22 20 22 50 22 5d 29 0a |us mode.|" "P"]).|
|00004990| 28 64 65 66 61 6c 69 61 | 73 20 27 70 69 63 74 75 |(defalia|s 'pictu|
|000049a0| 72 65 2d 63 6c 65 61 6e | 20 23 5b 6e 69 6c 20 22 |re-clean| #[nil "|
|000049b0| 8a 65 62 88 c0 c1 c2 c3 | 23 85 14 00 c4 94 60 7c |.eb.....|#.....`||
|000049c0| 88 82 04 00 29 87 22 20 | 5b 72 65 2d 73 65 61 72 |....)." |[re-sear|
|000049d0| 63 68 2d 66 6f 72 77 61 | 72 64 20 22 5b 20 09 5d |ch-forwa|rd "[ .]|
|000049e0| 5b 20 09 5d 2a 24 22 20 | 6e 69 6c 20 74 20 30 5d |[ .]*$" |nil t 0]|
|000049f0| 20 34 20 22 5c 0a 45 6c | 69 6d 69 6e 61 74 65 20 | 4 "\.El|iminate |
|00004a00| 77 68 69 74 65 73 70 61 | 63 65 20 61 74 20 65 6e |whitespa|ce at en|
|00004a10| 64 73 20 6f 66 20 6c 69 | 6e 65 73 2e 22 5d 29 0a |ds of li|nes."]).|
|00004a20| 28 70 72 6f 76 69 64 65 | 20 28 71 75 6f 74 65 20 |(provide| (quote |
|00004a30| 70 69 63 74 75 72 65 29 | 29 0a |picture)|). |
+--------+-------------------------+-------------------------+--------+--------+
