home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1994-05-04 | 18.7 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 |
| 100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
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 6b 77 7a 68 40 68 61 |piled by| kwzh@ha|
|00000020| 6c 2e 67 6e 75 2e 61 69 | 2e 6d 69 74 2e 65 64 75 |l.gnu.ai|.mit.edu|
|00000030| 20 6f 6e 20 54 75 65 20 | 4d 61 79 20 20 33 20 32 | on Tue |May 3 2|
|00000040| 31 3a 35 32 3a 34 33 20 | 31 39 39 34 0a 3b 3b 3b |1:52:43 |1994.;;;|
|00000050| 20 66 72 6f 6d 20 66 69 | 6c 65 20 2f 67 64 2f 67 | from fi|le /gd/g|
|00000060| 6e 75 2f 65 6d 61 63 73 | 2f 31 39 2e 30 2f 6c 69 |nu/emacs|/19.0/li|
|00000070| 73 70 2f 70 69 63 74 75 | 72 65 2e 65 6c 0a 3b 3b |sp/pictu|re.el.;;|
|00000080| 3b 20 65 6d 61 63 73 20 | 76 65 72 73 69 6f 6e 20 |; emacs |version |
|00000090| 31 39 2e 32 32 2e 39 32 | 2e 32 2e 0a 3b 3b 3b 20 |19.22.92|.2..;;; |
|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 60 2f 67 64 2f 67 6e | (error |"`/gd/gn|
|000001a0| 75 2f 65 6d 61 63 73 2f | 31 39 2e 30 2f 6c 69 73 |u/emacs/|19.0/lis|
|000001b0| 70 2f 70 69 63 74 75 72 | 65 2e 65 6c 27 20 77 61 |p/pictur|e.el' wa|
|000001c0| 73 20 63 6f 6d 70 69 6c | 65 64 20 66 6f 72 20 45 |s compil|ed for E|
|000001d0| 6d 61 63 73 20 31 39 22 | 29 29 0a 0a 28 64 65 66 |macs 19"|))..(def|
|000001e0| 61 6c 69 61 73 20 27 6d | 6f 76 65 2d 74 6f 2d 63 |alias 'm|ove-to-c|
|000001f0| 6f 6c 75 6d 6e 2d 66 6f | 72 63 65 20 23 5b 28 63 |olumn-fo|rce #[(c|
|00000200| 6f 6c 75 6d 6e 29 20 22 | c0 09 21 84 08 00 c2 11 |olumn) "|..!.....|
|00000210| c3 09 21 88 69 89 1c 09 | 57 83 1a 00 09 6a 88 82 |..!.i...|W....j..|
|00000220| 35 00 5c 66 09 55 84 35 | 00 68 c5 55 83 35 00 c6 |5.\f.U.5|.h.U.5..|
|00000230| 1e 07 c8 c9 21 88 5c 66 | 6a 88 c3 09 21 88 29 ca |....!.\f|j...!.).|
|00000240| 20 29 87 22 20 5b 6e 61 | 74 6e 75 6d 70 20 63 6f | )." [na|tnump co|
|00000250| 6c 75 6d 6e 20 30 20 6d | 6f 76 65 2d 74 6f 2d 63 |lumn 0 m|ove-to-c|
|00000260| 6f 6c 75 6d 6e 20 63 6f | 6c 20 39 20 6e 69 6c 20 |olumn co|l 9 nil |
|00000270| 69 6e 64 65 6e 74 2d 74 | 61 62 73 2d 6d 6f 64 65 |indent-t|abs-mode|
|00000280| 20 64 65 6c 65 74 65 2d | 63 68 61 72 20 2d 31 20 | delete-|char -1 |
|00000290| 68 73 63 72 6f 6c 6c 2d | 70 6f 69 6e 74 2d 76 69 |hscroll-|point-vi|
|000002a0| 73 69 62 6c 65 5d 20 33 | 20 22 5c 0a 4d 6f 76 65 |sible] 3| "\.Move|
|000002b0| 20 74 6f 20 63 6f 6c 75 | 6d 6e 20 43 4f 4c 55 4d | to colu|mn COLUM|
|000002c0| 4e 20 69 6e 20 63 75 72 | 72 65 6e 74 20 6c 69 6e |N in cur|rent lin|
|000002d0| 65 2e 0a 44 69 66 66 65 | 72 73 20 66 72 6f 6d 20 |e..Diffe|rs from |
|000002e0| 60 6d 6f 76 65 2d 74 6f | 2d 63 6f 6c 75 6d 6e 27 |`move-to|-column'|
|000002f0| 20 69 6e 20 74 68 61 74 | 20 69 74 20 63 72 65 61 | in that| it crea|
|00000300| 74 65 73 20 6f 72 20 6d | 6f 64 69 66 69 65 73 20 |tes or m|odifies |
|00000310| 77 68 69 74 65 73 70 61 | 63 65 0a 69 66 20 6e 65 |whitespa|ce.if ne|
|00000320| 63 65 73 73 61 72 79 20 | 74 6f 20 61 74 74 61 69 |cessary |to attai|
|00000330| 6e 20 65 78 61 63 74 6c | 79 20 74 68 65 20 73 70 |n exactl|y the sp|
|00000340| 65 63 69 66 69 65 64 20 | 63 6f 6c 75 6d 6e 2e 22 |ecified |column."|
|00000350| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 70 69 |]).(defa|lias 'pi|
|00000360| 63 74 75 72 65 2d 62 65 | 67 69 6e 6e 69 6e 67 2d |cture-be|ginning-|
|00000370| 6f 66 2d 6c 69 6e 65 20 | 23 5b 28 26 6f 70 74 69 |of-line |#[(&opti|
|00000380| 6f 6e 61 6c 20 61 72 67 | 29 20 22 08 83 5c 6e 00 |onal arg|) "..\n.|
|00000390| c1 08 21 53 79 88 c2 79 | 88 c3 20 87 22 20 5b 61 |..!Sy..y|.. ." [a|
|000003a0| 72 67 20 70 72 65 66 69 | 78 2d 6e 75 6d 65 72 69 |rg prefi|x-numeri|
|000003b0| 63 2d 76 61 6c 75 65 20 | 30 20 68 73 63 72 6f 6c |c-value |0 hscrol|
|000003c0| 6c 2d 70 6f 69 6e 74 2d | 76 69 73 69 62 6c 65 5d |l-point-|visible]|
|000003d0| 20 32 20 22 5c 0a 50 6f | 73 69 74 69 6f 6e 20 70 | 2 "\.Po|sition p|
|000003e0| 6f 69 6e 74 20 61 74 20 | 74 68 65 20 62 65 67 69 |oint at |the begi|
|000003f0| 6e 6e 69 6e 67 20 6f 66 | 20 74 68 65 20 6c 69 6e |nning of| the lin|
|00000400| 65 2e 0a 57 69 74 68 20 | 41 52 47 20 6e 6f 74 20 |e..With |ARG not |
|00000410| 6e 69 6c 2c 20 6d 6f 76 | 65 20 66 6f 72 77 61 72 |nil, mov|e forwar|
|00000420| 64 20 41 52 47 20 2d 20 | 31 20 6c 69 6e 65 73 20 |d ARG - |1 lines |
|00000430| 66 69 72 73 74 2e 0a 49 | 66 20 73 63 61 6e 20 72 |first..I|f scan r|
|00000440| 65 61 63 68 65 73 20 65 | 6e 64 20 6f 66 20 62 75 |eaches e|nd of bu|
|00000450| 66 66 65 72 2c 20 73 74 | 6f 70 20 74 68 65 72 65 |ffer, st|op there|
|00000460| 20 77 69 74 68 6f 75 74 | 20 65 72 72 6f 72 2e 22 | without| error."|
|00000470| 20 22 50 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 | "P"]).(|defalias|
|00000480| 20 27 70 69 63 74 75 72 | 65 2d 65 6e 64 2d 6f 66 | 'pictur|e-end-of|
|00000490| 2d 6c 69 6e 65 20 23 5b | 28 26 6f 70 74 69 6f 6e |-line #[|(&option|
|000004a0| 61 6c 20 61 72 67 29 20 | 22 08 83 5c 6e 00 c1 08 |al arg) |"..\n...|
|000004b0| 21 53 79 88 c2 79 88 c3 | 60 c4 7f 88 78 88 c5 20 |!Sy..y..|`...x.. |
|000004c0| 87 22 20 5b 61 72 67 20 | 70 72 65 66 69 78 2d 6e |." [arg |prefix-n|
|000004d0| 75 6d 65 72 69 63 2d 76 | 61 6c 75 65 20 30 20 22 |umeric-v|alue 0 "|
|000004e0| 20 09 22 20 6e 69 6c 20 | 68 73 63 72 6f 6c 6c 2d | ." nil |hscroll-|
|000004f0| 70 6f 69 6e 74 2d 76 69 | 73 69 62 6c 65 5d 20 33 |point-vi|sible] 3|
|00000500| 20 22 5c 0a 50 6f 73 69 | 74 69 6f 6e 20 70 6f 69 | "\.Posi|tion poi|
|00000510| 6e 74 20 61 66 74 65 72 | 20 6c 61 73 74 20 6e 6f |nt after| last no|
|00000520| 6e 2d 62 6c 61 6e 6b 20 | 63 68 61 72 61 63 74 65 |n-blank |characte|
|00000530| 72 20 6f 6e 20 63 75 72 | 72 65 6e 74 20 6c 69 6e |r on cur|rent lin|
|00000540| 65 2e 0a 57 69 74 68 20 | 41 52 47 20 6e 6f 74 20 |e..With |ARG not |
|00000550| 6e 69 6c 2c 20 6d 6f 76 | 65 20 66 6f 72 77 61 72 |nil, mov|e forwar|
|00000560| 64 20 41 52 47 20 2d 20 | 31 20 6c 69 6e 65 73 20 |d ARG - |1 lines |
|00000570| 66 69 72 73 74 2e 0a 49 | 66 20 73 63 61 6e 20 72 |first..I|f scan r|
|00000580| 65 61 63 68 65 73 20 65 | 6e 64 20 6f 66 20 62 75 |eaches e|nd of bu|
|00000590| 66 66 65 72 2c 20 73 74 | 6f 70 20 74 68 65 72 65 |ffer, st|op there|
|000005a0| 20 77 69 74 68 6f 75 74 | 20 65 72 72 6f 72 2e 22 | without| error."|
|000005b0| 20 22 50 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 | "P"]).(|defalias|
|000005c0| 20 27 70 69 63 74 75 72 | 65 2d 66 6f 72 77 61 72 | 'pictur|e-forwar|
|000005d0| 64 2d 63 6f 6c 75 6d 6e | 20 23 5b 28 61 72 67 29 |d-column| #[(arg)|
|000005e0| 20 22 69 08 5c 5c 19 c2 | 09 21 88 08 c3 57 85 16 | "i.\\..|.!...W..|
|000005f0| 00 69 09 56 85 16 00 c4 | 75 29 87 22 20 5b 61 72 |.i.V....|u)." [ar|
|00000600| 67 20 74 61 72 67 65 74 | 2d 63 6f 6c 75 6d 6e 20 |g target|-column |
|00000610| 6d 6f 76 65 2d 74 6f 2d | 63 6f 6c 75 6d 6e 2d 66 |move-to-|column-f|
|00000620| 6f 72 63 65 20 30 20 2d | 31 5d 20 32 20 22 5c 0a |orce 0 -|1] 2 "\.|
|00000630| 4d 6f 76 65 20 63 75 72 | 73 6f 72 20 72 69 67 68 |Move cur|sor righ|
|00000640| 74 2c 20 6d 61 6b 69 6e | 67 20 77 68 69 74 65 73 |t, makin|g whites|
|00000650| 70 61 63 65 20 69 66 20 | 6e 65 63 65 73 73 61 72 |pace if |necessar|
|00000660| 79 2e 0a 57 69 74 68 20 | 61 72 67 75 6d 65 6e 74 |y..With |argument|
|00000670| 2c 20 6d 6f 76 65 20 74 | 68 61 74 20 6d 61 6e 79 |, move t|hat many|
|00000680| 20 63 6f 6c 75 6d 6e 73 | 2e 22 20 22 70 22 5d 29 | columns|." "p"])|
|00000690| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 70 69 63 74 |.(defali|as 'pict|
|000006a0| 75 72 65 2d 62 61 63 6b | 77 61 72 64 2d 63 6f 6c |ure-back|ward-col|
|000006b0| 75 6d 6e 20 23 5b 28 61 | 72 67 29 20 22 c0 09 5b |umn #[(a|rg) "..[|
|000006c0| 21 87 22 20 5b 70 69 63 | 74 75 72 65 2d 66 6f 72 |!." [pic|ture-for|
|000006d0| 77 61 72 64 2d 63 6f 6c | 75 6d 6e 20 61 72 67 5d |ward-col|umn arg]|
|000006e0| 20 32 20 22 5c 0a 4d 6f | 76 65 20 63 75 72 73 6f | 2 "\.Mo|ve curso|
|000006f0| 72 20 6c 65 66 74 2c 20 | 6d 61 6b 69 6e 67 20 77 |r left, |making w|
|00000700| 68 69 74 65 73 70 61 63 | 65 20 69 66 20 6e 65 63 |hitespac|e if nec|
|00000710| 65 73 73 61 72 79 2e 0a | 57 69 74 68 20 61 72 67 |essary..|With arg|
|00000720| 75 6d 65 6e 74 2c 20 6d | 6f 76 65 20 74 68 61 74 |ument, m|ove that|
|00000730| 20 6d 61 6e 79 20 63 6f | 6c 75 6d 6e 73 2e 22 20 | many co|lumns." |
|00000740| 22 70 22 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |"p"]).(d|efalias |
|00000750| 27 70 69 63 74 75 72 65 | 2d 6d 6f 76 65 2d 64 6f |'picture|-move-do|
|00000760| 77 6e 20 23 5b 28 61 72 | 67 29 20 22 69 18 c1 5c |wn #[(ar|g) "i..\|
|00000770| 6e 21 88 c3 08 21 29 87 | 22 20 5b 63 6f 6c 20 70 |n!...!).|" [col p|
|00000780| 69 63 74 75 72 65 2d 6e | 65 77 6c 69 6e 65 20 61 |icture-n|ewline a|
|00000790| 72 67 20 6d 6f 76 65 2d | 74 6f 2d 63 6f 6c 75 6d |rg move-|to-colum|
|000007a0| 6e 2d 66 6f 72 63 65 5d | 20 32 20 22 5c 0a 4d 6f |n-force]| 2 "\.Mo|
|000007b0| 76 65 20 76 65 72 74 69 | 63 61 6c 6c 79 20 64 6f |ve verti|cally do|
|000007c0| 77 6e 2c 20 6d 61 6b 69 | 6e 67 20 77 68 69 74 65 |wn, maki|ng white|
|000007d0| 73 70 61 63 65 20 69 66 | 20 6e 65 63 65 73 73 61 |space if| necessa|
|000007e0| 72 79 2e 0a 57 69 74 68 | 20 61 72 67 75 6d 65 6e |ry..With| argumen|
|000007f0| 74 2c 20 6d 6f 76 65 20 | 74 68 61 74 20 6d 61 6e |t, move |that man|
|00000800| 79 20 6c 69 6e 65 73 2e | 22 20 22 70 22 5d 29 0a |y lines.|" "p"]).|
|00000810| 28 64 65 66 63 6f 6e 73 | 74 20 70 69 63 74 75 72 |(defcons|t pictur|
|00000820| 65 2d 76 65 72 74 69 63 | 61 6c 2d 73 74 65 70 20 |e-vertic|al-step |
|00000830| 30 20 22 5c 0a 41 6d 6f | 75 6e 74 20 74 6f 20 6d |0 "\.Amo|unt to m|
|00000840| 6f 76 65 20 76 65 72 74 | 69 63 61 6c 6c 79 20 61 |ove vert|ically a|
|00000850| 66 74 65 72 20 74 65 78 | 74 20 63 68 61 72 61 63 |fter tex|t charac|
|00000860| 74 65 72 20 69 6e 20 50 | 69 63 74 75 72 65 20 6d |ter in P|icture m|
|00000870| 6f 64 65 2e 22 29 0a 28 | 64 65 66 63 6f 6e 73 74 |ode.").(|defconst|
|00000880| 20 70 69 63 74 75 72 65 | 2d 68 6f 72 69 7a 6f 6e | picture|-horizon|
|00000890| 74 61 6c 2d 73 74 65 70 | 20 31 20 22 5c 0a 41 6d |tal-step| 1 "\.Am|
|000008a0| 6f 75 6e 74 20 74 6f 20 | 6d 6f 76 65 20 68 6f 72 |ount to |move hor|
|000008b0| 69 7a 6f 6e 74 61 6c 6c | 79 20 61 66 74 65 72 20 |izontall|y after |
|000008c0| 74 65 78 74 20 63 68 61 | 72 61 63 74 65 72 20 69 |text cha|racter i|
|000008d0| 6e 20 50 69 63 74 75 72 | 65 20 6d 6f 64 65 2e 22 |n Pictur|e mode."|
|000008e0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 70 69 63 |).(defal|ias 'pic|
|000008f0| 74 75 72 65 2d 6d 6f 76 | 65 2d 75 70 20 23 5b 28 |ture-mov|e-up #[(|
|00000900| 61 72 67 29 20 22 c0 09 | 5b 21 87 22 20 5b 70 69 |arg) "..|[!." [pi|
|00000910| 63 74 75 72 65 2d 6d 6f | 76 65 2d 64 6f 77 6e 20 |cture-mo|ve-down |
|00000920| 61 72 67 5d 20 32 20 22 | 5c 0a 4d 6f 76 65 20 76 |arg] 2 "|\.Move v|
|00000930| 65 72 74 69 63 61 6c 6c | 79 20 75 70 2c 20 6d 61 |erticall|y up, ma|
|00000940| 6b 69 6e 67 20 77 68 69 | 74 65 73 70 61 63 65 20 |king whi|tespace |
|00000950| 69 66 20 6e 65 63 65 73 | 73 61 72 79 2e 0a 57 69 |if neces|sary..Wi|
|00000960| 74 68 20 61 72 67 75 6d | 65 6e 74 2c 20 6d 6f 76 |th argum|ent, mov|
|00000970| 65 20 74 68 61 74 20 6d | 61 6e 79 20 6c 69 6e 65 |e that m|any line|
|00000980| 73 2e 22 20 22 70 22 5d | 29 0a 28 64 65 66 61 6c |s." "p"]|).(defal|
|00000990| 69 61 73 20 27 70 69 63 | 74 75 72 65 2d 6d 6f 76 |ias 'pic|ture-mov|
|000009a0| 65 6d 65 6e 74 2d 72 69 | 67 68 74 20 23 5b 6e 69 |ement-ri|ght #[ni|
|000009b0| 6c 20 22 c0 c1 c2 5c 22 | 87 22 20 5b 70 69 63 74 |l "...\"|." [pict|
|000009c0| 75 72 65 2d 73 65 74 2d | 6d 6f 74 69 6f 6e 20 30 |ure-set-|motion 0|
|000009d0| 20 31 5d 20 33 20 22 5c | 0a 4d 6f 76 65 20 72 69 | 1] 3 "\|.Move ri|
|000009e0| 67 68 74 20 61 66 74 65 | 72 20 73 65 6c 66 2d 69 |ght afte|r self-i|
|000009f0| 6e 73 65 72 74 69 6e 67 | 20 63 68 61 72 61 63 74 |nserting| charact|
|00000a00| 65 72 20 69 6e 20 50 69 | 63 74 75 72 65 20 6d 6f |er in Pi|cture mo|
|00000a10| 64 65 2e 22 20 6e 69 6c | 5d 29 0a 28 64 65 66 61 |de." nil|]).(defa|
|00000a20| 6c 69 61 73 20 27 70 69 | 63 74 75 72 65 2d 6d 6f |lias 'pi|cture-mo|
|00000a30| 76 65 6d 65 6e 74 2d 6c | 65 66 74 20 23 5b 6e 69 |vement-l|eft #[ni|
|00000a40| 6c 20 22 c0 c1 c2 5c 22 | 87 22 20 5b 70 69 63 74 |l "...\"|." [pict|
|00000a50| 75 72 65 2d 73 65 74 2d | 6d 6f 74 69 6f 6e 20 30 |ure-set-|motion 0|
|00000a60| 20 2d 31 5d 20 33 20 22 | 5c 0a 4d 6f 76 65 20 6c | -1] 3 "|\.Move l|
|00000a70| 65 66 74 20 61 66 74 65 | 72 20 73 65 6c 66 2d 69 |eft afte|r self-i|
|00000a80| 6e 73 65 72 74 69 6e 67 | 20 63 68 61 72 61 63 74 |nserting| charact|
|00000a90| 65 72 20 69 6e 20 50 69 | 63 74 75 72 65 20 6d 6f |er in Pi|cture mo|
|00000aa0| 64 65 2e 22 20 6e 69 6c | 5d 29 0a 28 64 65 66 61 |de." nil|]).(defa|
|00000ab0| 6c 69 61 73 20 27 70 69 | 63 74 75 72 65 2d 6d 6f |lias 'pi|cture-mo|
|00000ac0| 76 65 6d 65 6e 74 2d 75 | 70 20 23 5b 6e 69 6c 20 |vement-u|p #[nil |
|00000ad0| 22 c0 c1 c2 5c 22 87 22 | 20 5b 70 69 63 74 75 72 |"...\"."| [pictur|
|00000ae0| 65 2d 73 65 74 2d 6d 6f | 74 69 6f 6e 20 2d 31 20 |e-set-mo|tion -1 |
|00000af0| 30 5d 20 33 20 22 5c 0a | 4d 6f 76 65 20 75 70 20 |0] 3 "\.|Move up |
|00000b00| 61 66 74 65 72 20 73 65 | 6c 66 2d 69 6e 73 65 72 |after se|lf-inser|
|00000b10| 74 69 6e 67 20 63 68 61 | 72 61 63 74 65 72 20 69 |ting cha|racter i|
|00000b20| 6e 20 50 69 63 74 75 72 | 65 20 6d 6f 64 65 2e 22 |n Pictur|e mode."|
|00000b30| 20 6e 69 6c 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 | nil]).(|defalias|
|00000b40| 20 27 70 69 63 74 75 72 | 65 2d 6d 6f 76 65 6d 65 | 'pictur|e-moveme|
|00000b50| 6e 74 2d 64 6f 77 6e 20 | 23 5b 6e 69 6c 20 22 c0 |nt-down |#[nil ".|
|00000b60| c1 c2 5c 22 87 22 20 5b | 70 69 63 74 75 72 65 2d |..\"." [|picture-|
|00000b70| 73 65 74 2d 6d 6f 74 69 | 6f 6e 20 31 20 30 5d 20 |set-moti|on 1 0] |
|00000b80| 33 20 22 5c 0a 4d 6f 76 | 65 20 64 6f 77 6e 20 61 |3 "\.Mov|e down a|
|00000b90| 66 74 65 72 20 73 65 6c | 66 2d 69 6e 73 65 72 74 |fter sel|f-insert|
|00000ba0| 69 6e 67 20 63 68 61 72 | 61 63 74 65 72 20 69 6e |ing char|acter in|
|00000bb0| 20 50 69 63 74 75 72 65 | 20 6d 6f 64 65 2e 22 20 | Picture| mode." |
|00000bc0| 6e 69 6c 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |nil]).(d|efalias |
|00000bd0| 27 70 69 63 74 75 72 65 | 2d 6d 6f 76 65 6d 65 6e |'picture|-movemen|
|00000be0| 74 2d 6e 77 20 23 5b 6e | 69 6c 20 22 c0 c1 89 5c |t-nw #[n|il "...\|
|00000bf0| 22 87 22 20 5b 70 69 63 | 74 75 72 65 2d 73 65 74 |"." [pic|ture-set|
|00000c00| 2d 6d 6f 74 69 6f 6e 20 | 2d 31 5d 20 33 20 22 5c |-motion |-1] 3 "\|
|00000c10| 0a 4d 6f 76 65 20 75 70 | 20 61 6e 64 20 6c 65 66 |.Move up| and lef|
|00000c20| 74 20 61 66 74 65 72 20 | 73 65 6c 66 2d 69 6e 73 |t after |self-ins|
|00000c30| 65 72 74 69 6e 67 20 63 | 68 61 72 61 63 74 65 72 |erting c|haracter|
|00000c40| 20 69 6e 20 50 69 63 74 | 75 72 65 20 6d 6f 64 65 | in Pict|ure mode|
|00000c50| 2e 22 20 6e 69 6c 5d 29 | 0a 28 64 65 66 61 6c 69 |." nil])|.(defali|
|00000c60| 61 73 20 27 70 69 63 74 | 75 72 65 2d 6d 6f 76 65 |as 'pict|ure-move|
|00000c70| 6d 65 6e 74 2d 6e 65 20 | 23 5b 6e 69 6c 20 22 c0 |ment-ne |#[nil ".|
|00000c80| c1 c2 5c 22 87 22 20 5b | 70 69 63 74 75 72 65 2d |..\"." [|picture-|
|00000c90| 73 65 74 2d 6d 6f 74 69 | 6f 6e 20 2d 31 20 31 5d |set-moti|on -1 1]|
|00000ca0| 20 33 20 22 5c 0a 4d 6f | 76 65 20 75 70 20 61 6e | 3 "\.Mo|ve up an|
|00000cb0| 64 20 72 69 67 68 74 20 | 61 66 74 65 72 20 73 65 |d right |after se|
|00000cc0| 6c 66 2d 69 6e 73 65 72 | 74 69 6e 67 20 63 68 61 |lf-inser|ting cha|
|00000cd0| 72 61 63 74 65 72 20 69 | 6e 20 50 69 63 74 75 72 |racter i|n Pictur|
|00000ce0| 65 20 6d 6f 64 65 2e 22 | 20 6e 69 6c 5d 29 0a 28 |e mode."| nil]).(|
|00000cf0| 64 65 66 61 6c 69 61 73 | 20 27 70 69 63 74 75 72 |defalias| 'pictur|
|00000d00| 65 2d 6d 6f 76 65 6d 65 | 6e 74 2d 73 77 20 23 5b |e-moveme|nt-sw #[|
|00000d10| 6e 69 6c 20 22 c0 c1 c2 | 5c 22 87 22 20 5b 70 69 |nil "...|\"." [pi|
|00000d20| 63 74 75 72 65 2d 73 65 | 74 2d 6d 6f 74 69 6f 6e |cture-se|t-motion|
|00000d30| 20 31 20 2d 31 5d 20 33 | 20 22 5c 0a 4d 6f 76 65 | 1 -1] 3| "\.Move|
|00000d40| 20 64 6f 77 6e 20 61 6e | 64 20 6c 65 66 74 20 61 | down an|d left a|
|00000d50| 66 74 65 72 20 73 65 6c | 66 2d 69 6e 73 65 72 74 |fter sel|f-insert|
|00000d60| 69 6e 67 20 63 68 61 72 | 61 63 74 65 72 20 69 6e |ing char|acter in|
|00000d70| 20 50 69 63 74 75 72 65 | 20 6d 6f 64 65 2e 22 20 | Picture| mode." |
|00000d80| 6e 69 6c 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |nil]).(d|efalias |
|00000d90| 27 70 69 63 74 75 72 65 | 2d 6d 6f 76 65 6d 65 6e |'picture|-movemen|
|00000da0| 74 2d 73 65 20 23 5b 6e | 69 6c 20 22 c0 c1 89 5c |t-se #[n|il "...\|
|00000db0| 22 87 22 20 5b 70 69 63 | 74 75 72 65 2d 73 65 74 |"." [pic|ture-set|
|00000dc0| 2d 6d 6f 74 69 6f 6e 20 | 31 5d 20 33 20 22 5c 0a |-motion |1] 3 "\.|
|00000dd0| 4d 6f 76 65 20 64 6f 77 | 6e 20 61 6e 64 20 72 69 |Move dow|n and ri|
|00000de0| 67 68 74 20 61 66 74 65 | 72 20 73 65 6c 66 2d 69 |ght afte|r self-i|
|00000df0| 6e 73 65 72 74 69 6e 67 | 20 63 68 61 72 61 63 74 |nserting| charact|
|00000e00| 65 72 20 69 6e 20 50 69 | 63 74 75 72 65 20 6d 6f |er in Pi|cture mo|
|00000e10| 64 65 2e 22 20 6e 69 6c | 5d 29 0a 28 64 65 66 61 |de." nil|]).(defa|
|00000e20| 6c 69 61 73 20 27 70 69 | 63 74 75 72 65 2d 73 65 |lias 'pi|cture-se|
|00000e30| 74 2d 6d 6f 74 69 6f 6e | 20 23 5b 28 76 65 72 74 |t-motion| #[(vert|
|00000e40| 20 68 6f 72 69 7a 29 20 | 22 08 11 5c 6e 13 c4 c5 | horiz) |"..\n...|
|00000e50| 5c 6e c6 a6 08 c6 a6 54 | c7 5f c8 5c 5c 5c 5c c9 |\n.....T|._.\\\\.|
|00000e60| 9b 40 5c 22 16 5c 6e cb | cc 20 21 88 cd ce 21 87 |.@\".\n.|. !...!.|
|00000e70| 22 20 5b 76 65 72 74 20 | 70 69 63 74 75 72 65 2d |" [vert |picture-|
|00000e80| 76 65 72 74 69 63 61 6c | 2d 73 74 65 70 20 68 6f |vertical|-step ho|
|00000e90| 72 69 7a 20 70 69 63 74 | 75 72 65 2d 68 6f 72 69 |riz pict|ure-hori|
|00000ea0| 7a 6f 6e 74 61 6c 2d 73 | 74 65 70 20 66 6f 72 6d |zontal-s|tep form|
|00000eb0| 61 74 20 22 50 69 63 74 | 75 72 65 3a 25 73 22 20 |at "Pict|ure:%s" |
|00000ec0| 32 20 33 20 31 20 28 6e | 77 20 75 70 20 6e 65 20 |2 3 1 (n|w up ne |
|00000ed0| 6c 65 66 74 20 6e 6f 6e | 65 20 72 69 67 68 74 20 |left non|e right |
|00000ee0| 73 77 20 64 6f 77 6e 20 | 73 65 29 20 6d 6f 64 65 |sw down |se) mode|
|00000ef0| 2d 6e 61 6d 65 20 73 65 | 74 2d 62 75 66 66 65 72 |-name se|t-buffer|
|00000f00| 2d 6d 6f 64 69 66 69 65 | 64 2d 70 20 62 75 66 66 |-modifie|d-p buff|
|00000f10| 65 72 2d 6d 6f 64 69 66 | 69 65 64 2d 70 20 6d 65 |er-modif|ied-p me|
|00000f20| 73 73 61 67 65 20 22 22 | 5d 20 35 20 22 5c 0a 53 |ssage ""|] 5 "\.S|
|00000f30| 65 74 20 56 45 52 54 49 | 43 41 4c 20 61 6e 64 20 |et VERTI|CAL and |
|00000f40| 48 4f 52 49 5a 4f 4e 54 | 41 4c 20 69 6e 63 72 65 |HORIZONT|AL incre|
|00000f50| 6d 65 6e 74 73 20 66 6f | 72 20 6d 6f 76 65 6d 65 |ments fo|r moveme|
|00000f60| 6e 74 20 69 6e 20 50 69 | 63 74 75 72 65 20 6d 6f |nt in Pi|cture mo|
|00000f70| 64 65 2e 0a 54 68 65 20 | 6d 6f 64 65 20 6c 69 6e |de..The |mode lin|
|00000f80| 65 20 69 73 20 75 70 64 | 61 74 65 64 20 74 6f 20 |e is upd|ated to |
|00000f90| 72 65 66 6c 65 63 74 20 | 74 68 65 20 63 75 72 72 |reflect |the curr|
|00000fa0| 65 6e 74 20 64 69 72 65 | 63 74 69 6f 6e 2e 22 5d |ent dire|ction."]|
|00000fb0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 70 69 63 |).(defal|ias 'pic|
|00000fc0| 74 75 72 65 2d 6d 6f 76 | 65 20 23 5b 6e 69 6c 20 |ture-mov|e #[nil |
|00000fd0| 22 c0 09 21 88 c2 0b 21 | 87 22 20 5b 70 69 63 74 |"..!...!|." [pict|
|00000fe0| 75 72 65 2d 6d 6f 76 65 | 2d 64 6f 77 6e 20 70 69 |ure-move|-down pi|
|00000ff0| 63 74 75 72 65 2d 76 65 | 72 74 69 63 61 6c 2d 73 |cture-ve|rtical-s|
|00001000| 74 65 70 20 70 69 63 74 | 75 72 65 2d 66 6f 72 77 |tep pict|ure-forw|
|00001010| 61 72 64 2d 63 6f 6c 75 | 6d 6e 20 70 69 63 74 75 |ard-colu|mn pictu|
|00001020| 72 65 2d 68 6f 72 69 7a | 6f 6e 74 61 6c 2d 73 74 |re-horiz|ontal-st|
|00001030| 65 70 5d 20 32 20 22 5c | 0a 4d 6f 76 65 20 69 6e |ep] 2 "\|.Move in|
|00001040| 20 64 69 72 65 63 74 69 | 6f 6e 20 6f 66 20 60 70 | directi|on of `p|
|00001050| 69 63 74 75 72 65 2d 76 | 65 72 74 69 63 61 6c 2d |icture-v|ertical-|
|00001060| 73 74 65 70 27 20 61 6e | 64 20 60 70 69 63 74 75 |step' an|d `pictu|
|00001070| 72 65 2d 68 6f 72 69 7a | 6f 6e 74 61 6c 2d 73 74 |re-horiz|ontal-st|
|00001080| 65 70 27 2e 22 5d 29 0a | 28 64 65 66 61 6c 69 61 |ep'."]).|(defalia|
|00001090| 73 20 27 70 69 63 74 75 | 72 65 2d 6d 6f 74 69 6f |s 'pictu|re-motio|
|000010a0| 6e 20 23 5b 28 61 72 67 | 29 20 22 c0 09 5c 6e 5f |n #[(arg|) "..\n_|
|000010b0| 21 88 c3 09 5c 66 5f 21 | 87 22 20 5b 70 69 63 74 |!...\f_!|." [pict|
|000010c0| 75 72 65 2d 6d 6f 76 65 | 2d 64 6f 77 6e 20 61 72 |ure-move|-down ar|
|000010d0| 67 20 70 69 63 74 75 72 | 65 2d 76 65 72 74 69 63 |g pictur|e-vertic|
|000010e0| 61 6c 2d 73 74 65 70 20 | 70 69 63 74 75 72 65 2d |al-step |picture-|
|000010f0| 66 6f 72 77 61 72 64 2d | 63 6f 6c 75 6d 6e 20 70 |forward-|column p|
|00001100| 69 63 74 75 72 65 2d 68 | 6f 72 69 7a 6f 6e 74 61 |icture-h|orizonta|
|00001110| 6c 2d 73 74 65 70 5d 20 | 33 20 22 5c 0a 4d 6f 76 |l-step] |3 "\.Mov|
|00001120| 65 20 70 6f 69 6e 74 20 | 69 6e 20 64 69 72 65 63 |e point |in direc|
|00001130| 74 69 6f 6e 20 6f 66 20 | 63 75 72 72 65 6e 74 20 |tion of |current |
|00001140| 70 69 63 74 75 72 65 20 | 6d 6f 74 69 6f 6e 20 69 |picture |motion i|
|00001150| 6e 20 50 69 63 74 75 72 | 65 20 6d 6f 64 65 2e 0a |n Pictur|e mode..|
|00001160| 57 69 74 68 20 41 52 47 | 20 64 6f 20 69 74 20 74 |With ARG| do it t|
|00001170| 68 61 74 20 6d 61 6e 79 | 20 74 69 6d 65 73 2e 20 |hat many| times. |
|00001180| 20 55 73 65 66 75 6c 20 | 66 6f 72 20 64 65 6c 69 | Useful |for deli|
|00001190| 6e 65 61 74 69 6e 67 20 | 72 65 63 74 61 6e 67 6c |neating |rectangl|
|000011a0| 65 73 20 69 6e 0a 63 6f | 6e 6a 75 6e 63 74 69 6f |es in.co|njunctio|
|000011b0| 6e 20 77 69 74 68 20 64 | 69 61 67 6f 6e 61 6c 20 |n with d|iagonal |
|000011c0| 70 69 63 74 75 72 65 20 | 6d 6f 74 69 6f 6e 2e 0a |picture |motion..|
|000011d0| 44 6f 20 5c 5c 5b 63 6f | 6d 6d 61 6e 64 2d 61 70 |Do \\[co|mmand-ap|
|000011e0| 72 6f 70 6f 73 5d 20 20 | 70 69 63 74 75 72 65 2d |ropos] |picture-|
|000011f0| 6d 6f 76 65 6d 65 6e 74 | 20 20 74 6f 20 73 65 65 |movement| to see|
|00001200| 20 63 6f 6d 6d 61 6e 64 | 73 20 77 68 69 63 68 20 | command|s which |
|00001210| 63 6f 6e 74 72 6f 6c 20 | 6d 6f 74 69 6f 6e 2e 22 |control |motion."|
|00001220| 20 22 70 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 | "p"]).(|defalias|
|00001230| 20 27 70 69 63 74 75 72 | 65 2d 6d 6f 74 69 6f 6e | 'pictur|e-motion|
|00001240| 2d 72 65 76 65 72 73 65 | 20 23 5b 28 61 72 67 29 |-reverse| #[(arg)|
|00001250| 20 22 c0 09 5b 21 87 22 | 20 5b 70 69 63 74 75 72 | "..[!."| [pictur|
|00001260| 65 2d 6d 6f 74 69 6f 6e | 20 61 72 67 5d 20 32 20 |e-motion| arg] 2 |
|00001270| 22 5c 0a 4d 6f 76 65 20 | 70 6f 69 6e 74 20 69 6e |"\.Move |point in|
|00001280| 20 64 69 72 65 63 74 69 | 6f 6e 20 6f 70 70 6f 73 | directi|on oppos|
|00001290| 69 74 65 20 6f 66 20 63 | 75 72 72 65 6e 74 20 70 |ite of c|urrent p|
|000012a0| 69 63 74 75 72 65 20 6d | 6f 74 69 6f 6e 20 69 6e |icture m|otion in|
|000012b0| 20 50 69 63 74 75 72 65 | 20 6d 6f 64 65 2e 0a 57 | Picture| mode..W|
|000012c0| 69 74 68 20 41 52 47 20 | 64 6f 20 69 74 20 74 68 |ith ARG |do it th|
|000012d0| 61 74 20 6d 61 6e 79 20 | 74 69 6d 65 73 2e 20 20 |at many |times. |
|000012e0| 55 73 65 66 75 6c 20 66 | 6f 72 20 64 65 6c 69 6e |Useful f|or delin|
|000012f0| 65 61 74 69 6e 67 20 72 | 65 63 74 61 6e 67 6c 65 |eating r|ectangle|
|00001300| 73 20 69 6e 0a 63 6f 6e | 6a 75 6e 63 74 69 6f 6e |s in.con|junction|
|00001310| 20 77 69 74 68 20 64 69 | 61 67 6f 6e 61 6c 20 70 | with di|agonal p|
|00001320| 69 63 74 75 72 65 20 6d | 6f 74 69 6f 6e 2e 0a 44 |icture m|otion..D|
|00001330| 6f 20 5c 5c 5b 63 6f 6d | 6d 61 6e 64 2d 61 70 72 |o \\[com|mand-apr|
|00001340| 6f 70 6f 73 5d 20 60 70 | 69 63 74 75 72 65 2d 6d |opos] `p|icture-m|
|00001350| 6f 76 65 6d 65 6e 74 27 | 20 74 6f 20 73 65 65 20 |ovement'| to see |
|00001360| 63 6f 6d 6d 61 6e 64 73 | 20 77 68 69 63 68 20 63 |commands| which c|
|00001370| 6f 6e 74 72 6f 6c 20 6d | 6f 74 69 6f 6e 2e 22 20 |ontrol m|otion." |
|00001380| 22 70 22 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |"p"]).(d|efalias |
|00001390| 27 70 69 63 74 75 72 65 | 2d 73 65 6c 66 2d 69 6e |'picture|-self-in|
|000013a0| 73 65 72 74 20 23 5b 28 | 61 72 67 29 20 22 08 c1 |sert #[(|arg) "..|
|000013b0| 56 85 1e 00 08 53 10 c2 | 69 54 21 88 c3 c4 21 88 |V....S..|iT!...!.|
|000013c0| 0d 63 88 c4 75 88 c6 20 | 88 82 00 00 87 22 20 5b |.c..u.. |....." [|
|000013d0| 61 72 67 20 30 20 6d 6f | 76 65 2d 74 6f 2d 63 6f |arg 0 mo|ve-to-co|
|000013e0| 6c 75 6d 6e 2d 66 6f 72 | 63 65 20 64 65 6c 65 74 |lumn-for|ce delet|
|000013f0| 65 2d 63 68 61 72 20 2d | 31 20 6c 61 73 74 2d 69 |e-char -|1 last-i|
|00001400| 6e 70 75 74 2d 63 68 61 | 72 20 70 69 63 74 75 72 |nput-cha|r pictur|
|00001410| 65 2d 6d 6f 76 65 5d 20 | 32 20 22 5c 0a 49 6e 73 |e-move] |2 "\.Ins|
|00001420| 65 72 74 20 74 68 69 73 | 20 63 68 61 72 61 63 74 |ert this| charact|
|00001430| 65 72 20 69 6e 20 70 6c | 61 63 65 20 6f 66 20 63 |er in pl|ace of c|
|00001440| 68 61 72 61 63 74 65 72 | 20 70 72 65 76 69 6f 75 |haracter| previou|
|00001450| 73 6c 79 20 61 74 20 74 | 68 65 20 63 75 72 73 6f |sly at t|he curso|
|00001460| 72 2e 0a 54 68 65 20 63 | 75 72 73 6f 72 20 74 68 |r..The c|ursor th|
|00001470| 65 6e 20 6d 6f 76 65 73 | 20 69 6e 20 74 68 65 20 |en moves| in the |
|00001480| 64 69 72 65 63 74 69 6f | 6e 20 79 6f 75 20 70 72 |directio|n you pr|
|00001490| 65 76 69 6f 75 73 6c 79 | 20 73 70 65 63 69 66 69 |eviously| specifi|
|000014a0| 65 64 0a 77 69 74 68 20 | 74 68 65 20 63 6f 6d 6d |ed.with |the comm|
|000014b0| 61 6e 64 73 20 60 70 69 | 63 74 75 72 65 2d 6d 6f |ands `pi|cture-mo|
|000014c0| 76 65 6d 65 6e 74 2d 72 | 69 67 68 74 27 2c 20 60 |vement-r|ight', `|
|000014d0| 70 69 63 74 75 72 65 2d | 6d 6f 76 65 6d 65 6e 74 |picture-|movement|
|000014e0| 2d 75 70 27 2c 20 65 74 | 63 2e 0a 44 6f 20 5c 5c |-up', et|c..Do \\|
|000014f0| 5b 63 6f 6d 6d 61 6e 64 | 2d 61 70 72 6f 70 6f 73 |[command|-apropos|
|00001500| 5d 20 60 70 69 63 74 75 | 72 65 2d 6d 6f 76 65 6d |] `pictu|re-movem|
|00001510| 65 6e 74 27 20 74 6f 20 | 73 65 65 20 74 68 6f 73 |ent' to |see thos|
|00001520| 65 20 63 6f 6d 6d 61 6e | 64 73 2e 22 20 22 70 22 |e comman|ds." "p"|
|00001530| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 70 69 |]).(defa|lias 'pi|
|00001540| 63 74 75 72 65 2d 63 6c | 65 61 72 2d 63 6f 6c 75 |cture-cl|ear-colu|
|00001550| 6d 6e 20 23 5b 28 61 72 | 67 29 20 22 60 18 69 89 |mn #[(ar|g) "`.i.|
|00001560| 19 5c 6e 5c 5c 1b c4 0b | 21 88 08 60 7c 88 8a 0b |.\n\\...|!..`|...|
|00001570| 09 5d 6a 2c 87 22 20 5b | 6f 70 6f 69 6e 74 20 6f |.]j,." [|opoint o|
|00001580| 72 69 67 69 6e 61 6c 2d | 63 6f 6c 20 61 72 67 20 |riginal-|col arg |
|00001590| 74 61 72 67 65 74 2d 63 | 6f 6c 20 6d 6f 76 65 2d |target-c|ol move-|
|000015a0| 74 6f 2d 63 6f 6c 75 6d | 6e 2d 66 6f 72 63 65 5d |to-colum|n-force]|
|000015b0| 20 33 20 22 5c 0a 43 6c | 65 61 72 20 6f 75 74 20 | 3 "\.Cl|ear out |
|000015c0| 41 52 47 20 63 6f 6c 75 | 6d 6e 73 20 61 66 74 65 |ARG colu|mns afte|
|000015d0| 72 20 70 6f 69 6e 74 20 | 77 69 74 68 6f 75 74 20 |r point |without |
|000015e0| 6d 6f 76 69 6e 67 2e 22 | 20 22 70 22 5d 29 0a 28 |moving."| "p"]).(|
|000015f0| 64 65 66 61 6c 69 61 73 | 20 27 70 69 63 74 75 72 |defalias| 'pictur|
|00001600| 65 2d 62 61 63 6b 77 61 | 72 64 2d 63 6c 65 61 72 |e-backwa|rd-clear|
|00001610| 2d 63 6f 6c 75 6d 6e 20 | 23 5b 28 61 72 67 29 20 |-column |#[(arg) |
|00001620| 22 c0 09 5b 21 87 22 20 | 5b 70 69 63 74 75 72 65 |"..[!." |[picture|
|00001630| 2d 63 6c 65 61 72 2d 63 | 6f 6c 75 6d 6e 20 61 72 |-clear-c|olumn ar|
|00001640| 67 5d 20 32 20 22 5c 0a | 43 6c 65 61 72 20 6f 75 |g] 2 "\.|Clear ou|
|00001650| 74 20 41 52 47 20 63 6f | 6c 75 6d 6e 73 20 62 65 |t ARG co|lumns be|
|00001660| 66 6f 72 65 20 70 6f 69 | 6e 74 2c 20 6d 6f 76 69 |fore poi|nt, movi|
|00001670| 6e 67 20 62 61 63 6b 20 | 6f 76 65 72 20 74 68 65 |ng back |over the|
|00001680| 6d 2e 22 20 22 70 22 5d | 29 0a 28 64 65 66 61 6c |m." "p"]|).(defal|
|00001690| 69 61 73 20 27 70 69 63 | 74 75 72 65 2d 63 6c 65 |ias 'pic|ture-cle|
|000016a0| 61 72 2d 6c 69 6e 65 20 | 23 5b 28 61 72 67 29 20 |ar-line |#[(arg) |
|000016b0| 22 08 83 1b 00 c1 08 21 | 10 c2 08 21 88 c3 08 c4 |"......!|...!....|
|000016c0| 56 83 17 00 08 82 19 00 | 08 5b 21 87 c5 c6 21 83 |V.......|.[!...!.|
|000016d0| 29 00 c7 60 c8 79 88 60 | 5c 22 87 c9 60 ca 7f 88 |)..`.y.`|\"..`...|
|000016e0| 60 5c 22 87 22 20 5b 61 | 72 67 20 70 72 65 66 69 |`\"." [a|rg prefi|
|000016f0| 78 2d 6e 75 6d 65 72 69 | 63 2d 76 61 6c 75 65 20 |x-numeri|c-value |
|00001700| 6b 69 6c 6c 2d 6c 69 6e | 65 20 6e 65 77 6c 69 6e |kill-lin|e newlin|
|00001710| 65 20 30 20 6c 6f 6f 6b | 69 6e 67 2d 61 74 20 22 |e 0 look|ing-at "|
|00001720| 5b 20 09 5d 2a 24 22 20 | 6b 69 6c 6c 2d 72 69 6e |[ .]*$" |kill-rin|
|00001730| 67 2d 73 61 76 65 20 31 | 20 6b 69 6c 6c 2d 72 65 |g-save 1| kill-re|
|00001740| 67 69 6f 6e 20 6e 69 6c | 5d 20 33 20 22 5c 0a 43 |gion nil|] 3 "\.C|
|00001750| 6c 65 61 72 20 6f 75 74 | 20 72 65 73 74 20 6f 66 |lear out| rest of|
|00001760| 20 6c 69 6e 65 3b 20 69 | 66 20 61 74 20 65 6e 64 | line; i|f at end|
|00001770| 20 6f 66 20 6c 69 6e 65 | 2c 20 61 64 76 61 6e 63 | of line|, advanc|
|00001780| 65 20 74 6f 20 6e 65 78 | 74 20 6c 69 6e 65 2e 0a |e to nex|t line..|
|00001790| 43 6c 65 61 72 65 64 2d | 6f 75 74 20 6c 69 6e 65 |Cleared-|out line|
|000017a0| 20 74 65 78 74 20 67 6f | 65 73 20 69 6e 74 6f 20 | text go|es into |
|000017b0| 74 68 65 20 6b 69 6c 6c | 20 72 69 6e 67 2c 20 61 |the kill| ring, a|
|000017c0| 73 20 64 6f 20 6e 65 77 | 6c 69 6e 65 73 20 74 68 |s do new|lines th|
|000017d0| 61 74 20 61 72 65 0a 61 | 64 76 61 6e 63 65 64 20 |at are.a|dvanced |
|000017e0| 6f 76 65 72 2e 20 20 57 | 69 74 68 20 61 72 67 75 |over. W|ith argu|
|000017f0| 6d 65 6e 74 2c 20 63 6c | 65 61 72 20 6f 75 74 20 |ment, cl|ear out |
|00001800| 28 61 6e 64 20 73 61 76 | 65 20 69 6e 20 6b 69 6c |(and sav|e in kil|
|00001810| 6c 20 72 69 6e 67 29 20 | 74 68 61 74 0a 6d 61 6e |l ring) |that.man|
|00001820| 79 20 6c 69 6e 65 73 2e | 22 20 22 50 22 5d 29 0a |y lines.|" "P"]).|
|00001830| 28 64 65 66 61 6c 69 61 | 73 20 27 70 69 63 74 75 |(defalia|s 'pictu|
|00001840| 72 65 2d 6e 65 77 6c 69 | 6e 65 20 23 5b 28 61 72 |re-newli|ne #[(ar|
|00001850| 67 29 20 22 08 c1 57 83 | 5c 66 00 08 79 88 82 29 |g) "..W.|\f..y..)|
|00001860| 00 08 c1 56 83 29 00 c2 | 7f 88 6d 83 1f 00 c3 20 |...V.)..|..m.... |
|00001870| 88 82 5c 22 00 c4 75 88 | 08 53 89 10 82 0d 00 c5 |..\"..u.|.S......|
|00001880| 20 87 22 20 5b 61 72 67 | 20 30 20 6e 69 6c 20 6e | ." [arg| 0 nil n|
|00001890| 65 77 6c 69 6e 65 20 31 | 20 68 73 63 72 6f 6c 6c |ewline 1| hscroll|
|000018a0| 2d 70 6f 69 6e 74 2d 76 | 69 73 69 62 6c 65 5d 20 |-point-v|isible] |
|000018b0| 33 20 22 5c 0a 4d 6f 76 | 65 20 74 6f 20 74 68 65 |3 "\.Mov|e to the|
|000018c0| 20 62 65 67 69 6e 6e 69 | 6e 67 20 6f 66 20 74 68 | beginni|ng of th|
|000018d0| 65 20 66 6f 6c 6c 6f 77 | 69 6e 67 20 6c 69 6e 65 |e follow|ing line|
|000018e0| 2e 0a 57 69 74 68 20 61 | 72 67 75 6d 65 6e 74 2c |..With a|rgument,|
|000018f0| 20 6d 6f 76 65 73 20 74 | 68 61 74 20 6d 61 6e 79 | moves t|hat many|
|00001900| 20 6c 69 6e 65 73 20 28 | 75 70 2c 20 69 66 20 6e | lines (|up, if n|
|00001910| 65 67 61 74 69 76 65 20 | 61 72 67 75 6d 65 6e 74 |egative |argument|
|00001920| 29 3b 0a 61 6c 77 61 79 | 73 20 6d 6f 76 65 73 20 |);.alway|s moves |
|00001930| 74 6f 20 74 68 65 20 62 | 65 67 69 6e 6e 69 6e 67 |to the b|eginning|
|00001940| 20 6f 66 20 61 20 6c 69 | 6e 65 2e 22 20 22 70 22 | of a li|ne." "p"|
|00001950| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 70 69 |]).(defa|lias 'pi|
|00001960| 63 74 75 72 65 2d 6f 70 | 65 6e 2d 6c 69 6e 65 20 |cture-op|en-line |
|00001970| 23 5b 28 61 72 67 29 20 | 22 8a c0 7f 88 c1 5c 6e |#[(arg) |".....\n|
|00001980| 21 88 29 c3 20 87 22 20 | 5b 6e 69 6c 20 6f 70 65 |!.). ." |[nil ope|
|00001990| 6e 2d 6c 69 6e 65 20 61 | 72 67 20 68 73 63 72 6f |n-line a|rg hscro|
|000019a0| 6c 6c 2d 70 6f 69 6e 74 | 2d 76 69 73 69 62 6c 65 |ll-point|-visible|
|000019b0| 5d 20 32 20 22 5c 0a 49 | 6e 73 65 72 74 20 61 6e |] 2 "\.I|nsert an|
|000019c0| 20 65 6d 70 74 79 20 6c | 69 6e 65 20 61 66 74 65 | empty l|ine afte|
|000019d0| 72 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 6c 69 |r the cu|rrent li|
|000019e0| 6e 65 2e 0a 57 69 74 68 | 20 70 6f 73 69 74 69 76 |ne..With| positiv|
|000019f0| 65 20 61 72 67 75 6d 65 | 6e 74 20 69 6e 73 65 72 |e argume|nt inser|
|00001a00| 74 20 74 68 61 74 20 6d | 61 6e 79 20 6c 69 6e 65 |t that m|any line|
|00001a10| 73 2e 22 20 22 70 22 5d | 29 0a 28 64 65 66 61 6c |s." "p"]|).(defal|
|00001a20| 69 61 73 20 27 70 69 63 | 74 75 72 65 2d 64 75 70 |ias 'pic|ture-dup|
|00001a30| 6c 69 63 61 74 65 2d 6c | 69 6e 65 20 23 5b 6e 69 |licate-l|ine #[ni|
|00001a40| 6c 20 22 8a c0 79 88 60 | c1 c2 21 88 60 7b 1b c4 |l "..y.`|..!.`{..|
|00001a50| 79 88 0b 63 2a 87 22 20 | 5b 30 20 70 69 63 74 75 |y..c*." |[0 pictu|
|00001a60| 72 65 2d 6e 65 77 6c 69 | 6e 65 20 31 20 63 6f 6e |re-newli|ne 1 con|
|00001a70| 74 65 6e 74 73 20 2d 31 | 5d 20 33 20 22 5c 0a 49 |tents -1|] 3 "\.I|
|00001a80| 6e 73 65 72 74 20 61 20 | 64 75 70 6c 69 63 61 74 |nsert a |duplicat|
|00001a90| 65 20 6f 66 20 74 68 65 | 20 63 75 72 72 65 6e 74 |e of the| current|
|00001aa0| 20 6c 69 6e 65 2c 20 62 | 65 6c 6f 77 20 69 74 2e | line, b|elow it.|
|00001ab0| 22 20 6e 69 6c 5d 29 0a | 28 64 65 66 61 6c 69 61 |" nil]).|(defalia|
|00001ac0| 73 20 28 71 75 6f 74 65 | 20 70 69 63 74 75 72 65 |s (quote| picture|
|00001ad0| 2d 72 65 70 6c 61 63 65 | 2d 6d 61 74 63 68 29 20 |-replace|-match) |
|00001ae0| 23 5b 28 6e 65 77 74 65 | 78 74 20 66 69 78 65 64 |#[(newte|xt fixed|
|00001af0| 63 61 73 65 20 6c 69 74 | 65 72 61 6c 29 20 22 c0 |case lit|eral) ".|
|00001b00| 89 89 19 1a 1b c4 95 89 | 11 62 88 69 13 c0 89 1d |........|.b.i....|
|00001b10| 1e 06 c7 0e 08 0e 09 0e | 5c 6e 23 88 69 0b 5a 12 |........|\n#.i.Z.|
|00001b20| 0e 06 89 15 83 30 00 cb | cc 0d 5c 22 89 15 84 27 |.....0..|..\"...'|
|00001b30| 00 2a 09 62 88 5c 6e c4 | 56 83 44 00 60 cd 5c 6e |.*.b.\n.|V.D.`.\n|
|00001b40| 69 5c 5c 21 88 60 7c 88 | c7 0e 08 0e 09 0e 5c 6e |i\\!.`|.|......\n|
|00001b50| 23 88 5c 6e c4 57 85 58 | 00 ce cf 5c 6e 5b 5c 22 |#.\n.W.X|...\n[\"|
|00001b60| 2b 87 22 20 5b 6e 69 6c | 20 70 6f 73 20 63 68 61 |+." [nil| pos cha|
|00001b70| 6e 67 65 20 6f 63 6f 6c | 75 6d 6e 20 30 20 6c 69 |nge ocol|umn 0 li|
|00001b80| 73 74 31 20 62 75 66 66 | 65 72 2d 75 6e 64 6f 2d |st1 buff|er-undo-|
|00001b90| 6c 69 73 74 20 72 65 70 | 6c 61 63 65 2d 6d 61 74 |list rep|lace-mat|
|00001ba0| 63 68 20 6e 65 77 74 65 | 78 74 20 66 69 78 65 64 |ch newte|xt fixed|
|00001bb0| 63 61 73 65 20 6c 69 74 | 65 72 61 6c 20 70 72 69 |case lit|eral pri|
|00001bc0| 6d 69 74 69 76 65 2d 75 | 6e 64 6f 20 31 20 6d 6f |mitive-u|ndo 1 mo|
|00001bd0| 76 65 2d 74 6f 2d 63 6f | 6c 75 6d 6e 2d 66 6f 72 |ve-to-co|lumn-for|
|00001be0| 63 65 20 69 6e 73 65 72 | 74 2d 63 68 61 72 20 33 |ce inser|t-char 3|
|00001bf0| 32 5d 20 35 5d 29 0a 28 | 64 65 66 76 61 72 20 70 |2] 5]).(|defvar p|
|00001c00| 69 63 74 75 72 65 2d 74 | 61 62 2d 63 68 61 72 73 |icture-t|ab-chars|
|00001c10| 20 22 21 2d 7e 22 20 22 | 5c 0a 2a 41 20 63 68 61 | "!-~" "|\.*A cha|
|00001c20| 72 61 63 74 65 72 20 73 | 65 74 20 77 68 69 63 68 |racter s|et which|
|00001c30| 20 63 6f 6e 74 72 6f 6c | 73 20 62 65 68 61 76 69 | control|s behavi|
|00001c40| 6f 72 20 6f 66 20 63 6f | 6d 6d 61 6e 64 73 0a 5c |or of co|mmands.\|
|00001c50| 5c 5b 70 69 63 74 75 72 | 65 2d 73 65 74 2d 74 61 |\[pictur|e-set-ta|
|00001c60| 62 2d 73 74 6f 70 73 5d | 20 61 6e 64 20 5c 5c 5b |b-stops]| and \\[|
|00001c70| 70 69 63 74 75 72 65 2d | 74 61 62 2d 73 65 61 72 |picture-|tab-sear|
|00001c80| 63 68 5d 2e 20 20 49 74 | 20 69 73 20 4e 4f 54 20 |ch]. It| is NOT |
|00001c90| 61 0a 72 65 67 75 6c 61 | 72 20 65 78 70 72 65 73 |a.regula|r expres|
|00001ca0| 73 69 6f 6e 2c 20 61 6e | 79 20 72 65 67 65 78 70 |sion, an|y regexp|
|00001cb0| 20 73 70 65 63 69 61 6c | 20 63 68 61 72 61 63 74 | special| charact|
|00001cc0| 65 72 73 20 77 69 6c 6c | 20 62 65 20 71 75 6f 74 |ers will| be quot|
|00001cd0| 65 64 2e 0a 49 74 20 64 | 65 66 69 6e 65 73 20 61 |ed..It d|efines a|
|00001ce0| 20 73 65 74 20 6f 66 20 | 5c 22 69 6e 74 65 72 65 | set of |\"intere|
|00001cf0| 73 74 69 6e 67 20 63 68 | 61 72 61 63 74 65 72 73 |sting ch|aracters|
|00001d00| 5c 22 20 74 6f 20 6c 6f | 6f 6b 20 66 6f 72 20 77 |\" to lo|ok for w|
|00001d10| 68 65 6e 20 73 65 74 74 | 69 6e 67 0a 28 6f 72 20 |hen sett|ing.(or |
|00001d20| 73 65 61 72 63 68 69 6e | 67 20 66 6f 72 29 20 74 |searchin|g for) t|
|00001d30| 61 62 20 73 74 6f 70 73 | 2c 20 69 6e 69 74 69 61 |ab stops|, initia|
|00001d40| 6c 6c 79 20 5c 22 21 2d | 7e 5c 22 20 28 61 6c 6c |lly \"!-|~\" (all|
|00001d50| 20 70 72 69 6e 74 69 6e | 67 20 63 68 61 72 61 63 | printin|g charac|
|00001d60| 74 65 72 73 29 2e 0a 46 | 6f 72 20 65 78 61 6d 70 |ters)..F|or examp|
|00001d70| 6c 65 2c 20 73 75 70 70 | 6f 73 65 20 74 68 61 74 |le, supp|ose that|
|00001d80| 20 79 6f 75 20 61 72 65 | 20 65 64 69 74 69 6e 67 | you are| editing|
|00001d90| 20 61 20 74 61 62 6c 65 | 20 77 68 69 63 68 20 69 | a table| which i|
|00001da0| 73 20 66 6f 72 6d 61 74 | 74 65 64 20 74 68 75 73 |s format|ted thus|
|00001db0| 3a 0a 7c 20 66 6f 6f 09 | 09 7c 20 62 61 72 20 2b |:.| foo.|.| bar +|
|00001dc0| 20 62 61 7a 20 7c 20 32 | 33 20 20 2a 0a 7c 20 62 | baz | 2|3 *.| b|
|00001dd0| 75 62 62 6c 65 73 09 7c | 20 61 6e 64 20 2b 20 65 |ubbles.|| and + e|
|00001de0| 74 63 20 7c 20 39 37 20 | 20 2a 0a 61 6e 64 20 74 |tc | 97 | *.and t|
|00001df0| 68 61 74 20 60 70 69 63 | 74 75 72 65 2d 74 61 62 |hat `pic|ture-tab|
|00001e00| 2d 63 68 61 72 73 27 20 | 69 73 20 5c 22 7c 2b 2a |-chars' |is \"|+*|
|00001e10| 5c 22 2e 20 20 54 68 65 | 6e 20 69 6e 76 6f 6b 69 |\". The|n invoki|
|00001e20| 6e 67 0a 5c 5c 5b 70 69 | 63 74 75 72 65 2d 73 65 |ng.\\[pi|cture-se|
|00001e30| 74 2d 74 61 62 2d 73 74 | 6f 70 73 5d 20 6f 6e 20 |t-tab-st|ops] on |
|00001e40| 65 69 74 68 65 72 20 6f | 66 20 74 68 65 20 70 72 |either o|f the pr|
|00001e50| 65 76 69 6f 75 73 20 6c | 69 6e 65 73 20 77 6f 75 |evious l|ines wou|
|00001e60| 6c 64 20 72 65 73 75 6c | 74 0a 69 6e 20 74 68 65 |ld resul|t.in the|
|00001e70| 20 66 6f 6c 6c 6f 77 69 | 6e 67 20 74 61 62 20 73 | followi|ng tab s|
|00001e80| 74 6f 70 73 0a 09 09 3a | 20 20 20 20 20 3a 20 20 |tops...:| : |
|00001e90| 20 20 20 3a 20 20 20 20 | 20 3a 0a 41 6e 6f 74 68 | : | :.Anoth|
|00001ea0| 65 72 20 65 78 61 6d 70 | 6c 65 20 2d 20 5c 22 41 |er examp|le - \"A|
|00001eb0| 2d 5a 61 2d 7a 30 2d 39 | 5c 22 20 77 6f 75 6c 64 |-Za-z0-9|\" would|
|00001ec0| 20 70 72 6f 64 75 63 65 | 20 74 68 65 20 74 61 62 | produce| the tab|
|00001ed0| 20 73 74 6f 70 73 0a 20 | 20 3a 09 09 20 20 3a 09 | stops. | :.. :.|
|00001ee0| 3a 20 20 20 20 20 3a 0a | 0a 4e 6f 74 65 20 74 68 |: :.|.Note th|
|00001ef0| 61 74 20 69 66 20 79 6f | 75 20 77 61 6e 74 20 74 |at if yo|u want t|
|00001f00| 68 65 20 63 68 61 72 61 | 63 74 65 72 20 60 2d 27 |he chara|cter `-'|
|00001f10| 20 74 6f 20 62 65 20 69 | 6e 20 74 68 65 20 73 65 | to be i|n the se|
|00001f20| 74 2c 20 69 74 20 6d 75 | 73 74 20 62 65 0a 69 6e |t, it mu|st be.in|
|00001f30| 63 6c 75 64 65 64 20 69 | 6e 20 61 20 72 61 6e 67 |cluded i|n a rang|
|00001f40| 65 20 6f 72 20 65 6c 73 | 65 20 61 70 70 65 61 72 |e or els|e appear|
|00001f50| 20 69 6e 20 61 20 63 6f | 6e 74 65 78 74 20 77 68 | in a co|ntext wh|
|00001f60| 65 72 65 20 69 74 20 63 | 61 6e 6e 6f 74 20 62 65 |ere it c|annot be|
|00001f70| 0a 74 61 6b 65 6e 20 66 | 6f 72 20 69 6e 64 69 63 |.taken f|or indic|
|00001f80| 61 74 69 6e 67 20 61 20 | 72 61 6e 67 65 20 28 65 |ating a |range (e|
|00001f90| 2e 67 2e 20 5c 22 2d 41 | 2d 5a 5c 22 20 64 65 63 |.g. \"-A|-Z\" dec|
|00001fa0| 6c 61 72 65 73 20 74 68 | 65 20 73 65 74 20 74 6f |lares th|e set to|
|00001fb0| 20 62 65 20 74 68 65 0a | 6c 65 74 74 65 72 73 20 | be the.|letters |
|00001fc0| 60 41 27 20 74 68 72 6f | 75 67 68 20 60 5a 27 20 |`A' thro|ugh `Z' |
|00001fd0| 61 6e 64 20 74 68 65 20 | 63 68 61 72 61 63 74 65 |and the |characte|
|00001fe0| 72 20 60 2d 27 29 2e 20 | 20 49 66 20 79 6f 75 20 |r `-'). | If you |
|00001ff0| 77 61 6e 74 20 74 68 65 | 0a 63 68 61 72 61 63 74 |want the|.charact|
|00002000| 65 72 20 60 5c 5c 27 20 | 69 6e 20 74 68 65 20 73 |er `\\' |in the s|
|00002010| 65 74 20 69 74 20 6d 75 | 73 74 20 62 65 20 70 72 |et it mu|st be pr|
|00002020| 65 63 65 64 65 64 20 62 | 79 20 69 74 73 65 6c 66 |eceded b|y itself|
|00002030| 3a 20 5c 22 5c 5c 5c 5c | 5c 22 2e 0a 0a 54 68 65 |: \"\\\\|\"...The|
|00002040| 20 63 6f 6d 6d 61 6e 64 | 20 5c 5c 5b 70 69 63 74 | command| \\[pict|
|00002050| 75 72 65 2d 74 61 62 2d | 73 65 61 72 63 68 5d 20 |ure-tab-|search] |
|00002060| 69 73 20 64 65 66 69 6e | 65 64 20 74 6f 20 6d 6f |is defin|ed to mo|
|00002070| 76 65 20 62 65 6e 65 61 | 74 68 20 28 6f 72 20 74 |ve benea|th (or t|
|00002080| 6f 29 20 61 0a 63 68 61 | 72 61 63 74 65 72 20 62 |o) a.cha|racter b|
|00002090| 65 6c 6f 6e 67 69 6e 67 | 20 74 6f 20 74 68 69 73 |elonging| to this|
|000020a0| 20 73 65 74 20 69 6e 64 | 65 70 65 6e 64 65 6e 74 | set ind|ependent|
|000020b0| 20 6f 66 20 74 68 65 20 | 74 61 62 20 73 74 6f 70 | of the |tab stop|
|000020c0| 73 20 6c 69 73 74 2e 22 | 29 0a 28 64 65 66 61 6c |s list."|).(defal|
|000020d0| 69 61 73 20 27 70 69 63 | 74 75 72 65 2d 73 65 74 |ias 'pic|ture-set|
|000020e0| 2d 74 61 62 2d 73 74 6f | 70 73 20 23 5b 28 26 6f |-tab-sto|ps #[(&o|
|000020f0| 70 74 69 6f 6e 61 6c 20 | 61 72 67 29 20 22 8a c0 |ptional |arg) "..|
|00002100| 19 5c 6e 83 0e 00 c3 c4 | 21 11 82 42 00 c5 c6 0e |.\n.....|!..B....|
|00002110| 07 21 c8 51 1e 09 ca 79 | 88 60 1e 0b c0 7f 88 cc |.!.Q...y|.`......|
|00002120| 0e 09 0e 0b cd 23 83 35 | 00 ce c0 77 88 69 09 42 |.....#.5|...w.i.B|
|00002130| 11 82 20 00 09 84 41 00 | cf d0 c6 0e 07 21 5c 22 |.. ...A.|.....!\"|
|00002140| 88 2a 09 14 d1 09 47 53 | 09 38 54 d2 5c 22 1e 13 |.*....GS|.8T.\"..|
|00002150| 09 83 61 00 0e 13 09 40 | d4 49 88 09 41 89 11 84 |..a....@|.I..A...|
|00002160| 53 00 d5 0e 13 21 2b 87 | 22 20 5b 6e 69 6c 20 74 |S....!+.|" [nil t|
|00002170| 61 62 73 20 61 72 67 20 | 64 65 66 61 75 6c 74 2d |abs arg |default-|
|00002180| 76 61 6c 75 65 20 74 61 | 62 2d 73 74 6f 70 2d 6c |value ta|b-stop-l|
|00002190| 69 73 74 20 22 5b 20 09 | 5d 2b 5b 22 20 72 65 67 |ist "[ .|]+[" reg|
|000021a0| 65 78 70 2d 71 75 6f 74 | 65 20 70 69 63 74 75 72 |exp-quot|e pictur|
|000021b0| 65 2d 74 61 62 2d 63 68 | 61 72 73 20 22 5d 22 20 |e-tab-ch|ars "]" |
|000021c0| 72 65 67 65 78 70 20 30 | 20 62 6f 6c 20 72 65 2d |regexp 0| bol re-|
|000021d0| 73 65 61 72 63 68 2d 62 | 61 63 6b 77 61 72 64 20 |search-b|ackward |
|000021e0| 74 20 22 20 09 22 20 65 | 72 72 6f 72 20 22 4e 6f |t " ." e|rror "No|
|000021f0| 20 63 68 61 72 61 63 74 | 65 72 73 20 69 6e 20 73 | charact|ers in s|
|00002200| 65 74 20 25 73 20 6f 6e | 20 74 68 69 73 20 6c 69 |et %s on| this li|
|00002210| 6e 65 2e 22 20 6d 61 6b | 65 2d 73 74 72 69 6e 67 |ne." mak|e-string|
|00002220| 20 33 32 20 62 6c 75 72 | 62 20 35 38 20 6d 65 73 | 32 blur|b 58 mes|
|00002230| 73 61 67 65 5d 20 35 20 | 22 5c 0a 53 65 74 20 76 |sage] 5 |"\.Set v|
|00002240| 61 6c 75 65 20 6f 66 20 | 60 74 61 62 2d 73 74 6f |alue of |`tab-sto|
|00002250| 70 2d 6c 69 73 74 27 20 | 61 63 63 6f 72 64 69 6e |p-list' |accordin|
|00002260| 67 20 74 6f 20 63 6f 6e | 74 65 78 74 20 6f 66 20 |g to con|text of |
|00002270| 74 68 69 73 20 6c 69 6e | 65 2e 0a 54 68 69 73 20 |this lin|e..This |
|00002280| 63 6f 6e 74 72 6f 6c 73 | 20 74 68 65 20 62 65 68 |controls| the beh|
|00002290| 61 76 69 6f 72 20 6f 66 | 20 5c 5c 5b 70 69 63 74 |avior of| \\[pict|
|000022a0| 75 72 65 2d 74 61 62 5d | 2e 20 20 41 20 74 61 62 |ure-tab]|. A tab|
|000022b0| 20 73 74 6f 70 20 69 73 | 20 73 65 74 20 61 74 0a | stop is| set at.|
|000022c0| 65 76 65 72 79 20 63 6f | 6c 75 6d 6e 20 6f 63 63 |every co|lumn occ|
|000022d0| 75 70 69 65 64 20 62 79 | 20 61 6e 20 5c 22 69 6e |upied by| an \"in|
|000022e0| 74 65 72 65 73 74 69 6e | 67 20 63 68 61 72 61 63 |terestin|g charac|
|000022f0| 74 65 72 5c 22 20 74 68 | 61 74 20 69 73 20 70 72 |ter\" th|at is pr|
|00002300| 65 63 65 64 65 64 0a 62 | 79 20 77 68 69 74 65 73 |eceded.b|y whites|
|00002310| 70 61 63 65 2e 20 20 49 | 6e 74 65 72 65 73 74 69 |pace. I|nteresti|
|00002320| 6e 67 20 63 68 61 72 61 | 63 74 65 72 73 20 61 72 |ng chara|cters ar|
|00002330| 65 20 64 65 66 69 6e 65 | 64 20 62 79 20 74 68 65 |e define|d by the|
|00002340| 20 76 61 72 69 61 62 6c | 65 0a 60 70 69 63 74 75 | variabl|e.`pictu|
|00002350| 72 65 2d 74 61 62 2d 63 | 68 61 72 73 27 2c 20 73 |re-tab-c|hars', s|
|00002360| 65 65 20 69 74 73 20 64 | 6f 63 75 6d 65 6e 74 61 |ee its d|ocumenta|
|00002370| 74 69 6f 6e 20 66 6f 72 | 20 61 6e 20 65 78 61 6d |tion for| an exam|
|00002380| 70 6c 65 20 6f 66 20 75 | 73 61 67 65 2e 0a 57 69 |ple of u|sage..Wi|
|00002390| 74 68 20 41 52 47 2c 20 | 6a 75 73 74 20 28 72 65 |th ARG, |just (re|
|000023a0| 29 73 65 74 20 60 74 61 | 62 2d 73 74 6f 70 2d 6c |)set `ta|b-stop-l|
|000023b0| 69 73 74 27 20 74 6f 20 | 69 74 73 20 64 65 66 61 |ist' to |its defa|
|000023c0| 75 6c 74 20 76 61 6c 75 | 65 2e 20 20 54 68 65 20 |ult valu|e. The |
|000023d0| 74 61 62 0a 73 74 6f 70 | 73 20 63 6f 6d 70 75 74 |tab.stop|s comput|
|000023e0| 65 64 20 61 72 65 20 64 | 69 73 70 6c 61 79 65 64 |ed are d|isplayed|
|000023f0| 20 69 6e 20 74 68 65 20 | 6d 69 6e 69 62 75 66 66 | in the |minibuff|
|00002400| 65 72 20 77 69 74 68 20 | 60 3a 27 20 61 74 20 65 |er with |`:' at e|
|00002410| 61 63 68 20 73 74 6f 70 | 2e 22 20 22 50 22 5d 29 |ach stop|." "P"])|
|00002420| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 70 69 63 74 |.(defali|as 'pict|
|00002430| 75 72 65 2d 74 61 62 2d | 73 65 61 72 63 68 20 23 |ure-tab-|search #|
|00002440| 5b 28 26 6f 70 74 69 6f | 6e 61 6c 20 61 72 67 29 |[(&optio|nal arg)|
|00002450| 20 22 69 18 8a 09 84 1a | 00 c2 79 88 c3 c4 0d 21 | "i.....|..y....!|
|00002460| 50 65 78 88 6f 84 1a 00 | c6 08 21 88 c7 c8 c4 0d |Pex.o...|..!.....|
|00002470| 21 c9 51 8a ca 7f 88 60 | 29 cb 23 83 32 00 69 53 |!.Q....`|).#.2.iS|
|00002480| 10 82 34 00 ca 10 29 08 | 83 3f 00 cc 08 21 82 43 |..4...).|.?...!.C|
|00002490| 00 c2 79 88 ca 29 87 22 | 20 5b 74 61 72 67 65 74 |..y..)."| [target|
|000024a0| 20 61 72 67 20 30 20 22 | 5e 22 20 72 65 67 65 78 | arg 0 "|^" regex|
|000024b0| 70 2d 71 75 6f 74 65 20 | 70 69 63 74 75 72 65 2d |p-quote |picture-|
|000024c0| 74 61 62 2d 63 68 61 72 | 73 20 6d 6f 76 65 2d 74 |tab-char|s move-t|
|000024d0| 6f 2d 63 6f 6c 75 6d 6e | 20 72 65 2d 73 65 61 72 |o-column| re-sear|
|000024e0| 63 68 2d 66 6f 72 77 61 | 72 64 20 22 5b 20 09 5d |ch-forwa|rd "[ .]|
|000024f0| 2b 5b 22 20 22 5d 22 20 | 6e 69 6c 20 6d 6f 76 65 |+[" "]" |nil move|
|00002500| 20 6d 6f 76 65 2d 74 6f | 2d 63 6f 6c 75 6d 6e 2d | move-to|-column-|
|00002510| 66 6f 72 63 65 5d 20 34 | 20 22 5c 0a 4d 6f 76 65 |force] 4| "\.Move|
|00002520| 20 74 6f 20 63 6f 6c 75 | 6d 6e 20 62 65 6e 65 61 | to colu|mn benea|
|00002530| 74 68 20 6e 65 78 74 20 | 69 6e 74 65 72 65 73 74 |th next |interest|
|00002540| 69 6e 67 20 63 68 61 72 | 20 69 6e 20 70 72 65 76 |ing char| in prev|
|00002550| 69 6f 75 73 20 6c 69 6e | 65 2e 0a 57 69 74 68 20 |ious lin|e..With |
|00002560| 41 52 47 20 6d 6f 76 65 | 20 74 6f 20 63 6f 6c 75 |ARG move| to colu|
|00002570| 6d 6e 20 6f 63 63 75 70 | 69 65 64 20 62 79 20 6e |mn occup|ied by n|
|00002580| 65 78 74 20 69 6e 74 65 | 72 65 73 74 69 6e 67 20 |ext inte|resting |
|00002590| 63 68 61 72 61 63 74 65 | 72 20 69 6e 20 74 68 69 |characte|r in thi|
|000025a0| 73 0a 6c 69 6e 65 2e 20 | 20 54 68 65 20 63 68 61 |s.line. | The cha|
|000025b0| 72 61 63 74 65 72 20 6d | 75 73 74 20 62 65 20 70 |racter m|ust be p|
|000025c0| 72 65 63 65 64 65 64 20 | 62 79 20 77 68 69 74 65 |receded |by white|
|000025d0| 73 70 61 63 65 2e 0a 5c | 22 69 6e 74 65 72 65 73 |space..\|"interes|
|000025e0| 74 69 6e 67 20 63 68 61 | 72 61 63 74 65 72 73 5c |ting cha|racters\|
|000025f0| 22 20 61 72 65 20 64 65 | 66 69 6e 65 64 20 62 79 |" are de|fined by|
|00002600| 20 76 61 72 69 61 62 6c | 65 20 60 70 69 63 74 75 | variabl|e `pictu|
|00002610| 72 65 2d 74 61 62 2d 63 | 68 61 72 73 27 2e 0a 49 |re-tab-c|hars'..I|
|00002620| 66 20 6e 6f 20 73 75 63 | 68 20 63 68 61 72 61 63 |f no suc|h charac|
|00002630| 74 65 72 20 69 73 20 66 | 6f 75 6e 64 2c 20 6d 6f |ter is f|ound, mo|
|00002640| 76 65 20 74 6f 20 62 65 | 67 69 6e 6e 69 6e 67 20 |ve to be|ginning |
|00002650| 6f 66 20 6c 69 6e 65 2e | 22 20 22 50 22 5d 29 0a |of line.|" "P"]).|
|00002660| 28 64 65 66 61 6c 69 61 | 73 20 27 70 69 63 74 75 |(defalia|s 'pictu|
|00002670| 72 65 2d 74 61 62 20 23 | 5b 28 26 6f 70 74 69 6f |re-tab #|[(&optio|
|00002680| 6e 61 6c 20 61 72 67 29 | 20 22 60 18 c1 20 88 5c |nal arg)| "`.. .\|
|00002690| 6e 85 14 00 c3 69 1c 1d | 08 60 7c 88 5c 66 6a 2a |n....i..|.`|.\fj*|
|000026a0| 29 87 22 20 5b 6f 70 6f | 69 6e 74 20 6d 6f 76 65 |)." [opo|int move|
|000026b0| 2d 74 6f 2d 74 61 62 2d | 73 74 6f 70 20 61 72 67 |-to-tab-|stop arg|
|000026c0| 20 6e 69 6c 20 63 6f 6c | 75 6d 6e 20 69 6e 64 65 | nil col|umn inde|
|000026d0| 6e 74 2d 74 61 62 73 2d | 6d 6f 64 65 5d 20 32 20 |nt-tabs-|mode] 2 |
|000026e0| 22 5c 0a 54 61 62 20 74 | 72 61 6e 73 70 61 72 65 |"\.Tab t|ranspare|
|000026f0| 6e 74 6c 79 20 28 6a 75 | 73 74 20 6d 6f 76 65 20 |ntly (ju|st move |
|00002700| 70 6f 69 6e 74 29 20 74 | 6f 20 6e 65 78 74 20 74 |point) t|o next t|
|00002710| 61 62 20 73 74 6f 70 2e | 0a 57 69 74 68 20 70 72 |ab stop.|.With pr|
|00002720| 65 66 69 78 20 61 72 67 | 2c 20 6f 76 65 72 77 72 |efix arg|, overwr|
|00002730| 69 74 65 20 74 68 65 20 | 74 72 61 76 65 72 73 65 |ite the |traverse|
|00002740| 64 20 74 65 78 74 20 77 | 69 74 68 20 73 70 61 63 |d text w|ith spac|
|00002750| 65 73 2e 20 20 54 68 65 | 20 74 61 62 20 73 74 6f |es. The| tab sto|
|00002760| 70 0a 6c 69 73 74 20 63 | 61 6e 20 62 65 20 63 68 |p.list c|an be ch|
|00002770| 61 6e 67 65 64 20 62 79 | 20 5c 5c 5b 70 69 63 74 |anged by| \\[pict|
|00002780| 75 72 65 2d 73 65 74 2d | 74 61 62 2d 73 74 6f 70 |ure-set-|tab-stop|
|00002790| 73 5d 20 61 6e 64 20 5c | 5c 5b 65 64 69 74 2d 74 |s] and \|\[edit-t|
|000027a0| 61 62 2d 73 74 6f 70 73 | 5d 2e 0a 53 65 65 20 61 |ab-stops|]..See a|
|000027b0| 6c 73 6f 20 64 6f 63 75 | 6d 65 6e 74 61 74 69 6f |lso docu|mentatio|
|000027c0| 6e 20 66 6f 72 20 76 61 | 72 69 61 62 6c 65 20 60 |n for va|riable `|
|000027d0| 70 69 63 74 75 72 65 2d | 74 61 62 2d 63 68 61 72 |picture-|tab-char|
|000027e0| 73 27 2e 22 20 22 50 22 | 5d 29 0a 28 64 65 66 63 |s'." "P"|]).(defc|
|000027f0| 6f 6e 73 74 20 70 69 63 | 74 75 72 65 2d 6b 69 6c |onst pic|ture-kil|
|00002800| 6c 65 64 2d 72 65 63 74 | 61 6e 67 6c 65 20 6e 69 |led-rect|angle ni|
|00002810| 6c 20 22 5c 0a 52 65 63 | 74 61 6e 67 6c 65 20 6b |l "\.Rec|tangle k|
|00002820| 69 6c 6c 65 64 20 6f 72 | 20 63 6f 70 69 65 64 20 |illed or| copied |
|00002830| 62 79 20 5c 5c 5b 70 69 | 63 74 75 72 65 2d 63 6c |by \\[pi|cture-cl|
|00002840| 65 61 72 2d 72 65 63 74 | 61 6e 67 6c 65 5d 20 69 |ear-rect|angle] i|
|00002850| 6e 20 50 69 63 74 75 72 | 65 20 6d 6f 64 65 2e 0a |n Pictur|e mode..|
|00002860| 54 68 65 20 63 6f 6e 74 | 65 6e 74 73 20 63 61 6e |The cont|ents can|
|00002870| 20 62 65 20 72 65 74 72 | 69 65 76 65 64 20 62 79 | be retr|ieved by|
|00002880| 20 5c 5c 5b 70 69 63 74 | 75 72 65 2d 79 61 6e 6b | \\[pict|ure-yank|
|00002890| 2d 72 65 63 74 61 6e 67 | 6c 65 5d 22 29 0a 28 64 |-rectang|le]").(d|
|000028a0| 65 66 61 6c 69 61 73 20 | 27 70 69 63 74 75 72 65 |efalias |'picture|
|000028b0| 2d 63 6c 65 61 72 2d 72 | 65 63 74 61 6e 67 6c 65 |-clear-r|ectangle|
|000028c0| 20 23 5b 28 73 74 61 72 | 74 20 65 6e 64 20 26 6f | #[(star|t end &o|
|000028d0| 70 74 69 6f 6e 61 6c 20 | 6b 69 6c 6c 70 29 20 22 |ptional |killp) "|
|000028e0| c0 09 5c 6e 0b 23 89 14 | 87 22 20 5b 70 69 63 74 |..\n.#..|." [pict|
|000028f0| 75 72 65 2d 73 6e 61 72 | 66 2d 72 65 63 74 61 6e |ure-snar|f-rectan|
|00002900| 67 6c 65 20 73 74 61 72 | 74 20 65 6e 64 20 6b 69 |gle star|t end ki|
|00002910| 6c 6c 70 20 70 69 63 74 | 75 72 65 2d 6b 69 6c 6c |llp pict|ure-kill|
|00002920| 65 64 2d 72 65 63 74 61 | 6e 67 6c 65 5d 20 34 20 |ed-recta|ngle] 4 |
|00002930| 22 5c 0a 43 6c 65 61 72 | 20 61 6e 64 20 73 61 76 |"\.Clear| and sav|
|00002940| 65 20 72 65 63 74 61 6e | 67 6c 65 20 64 65 6c 69 |e rectan|gle deli|
|00002950| 6e 65 61 74 65 64 20 62 | 79 20 70 6f 69 6e 74 20 |neated b|y point |
|00002960| 61 6e 64 20 6d 61 72 6b | 2e 0a 54 68 65 20 72 65 |and mark|..The re|
|00002970| 63 74 61 6e 67 6c 65 20 | 69 73 20 73 61 76 65 64 |ctangle |is saved|
|00002980| 20 66 6f 72 20 79 61 6e | 6b 69 6e 67 20 62 79 20 | for yan|king by |
|00002990| 5c 5c 5b 70 69 63 74 75 | 72 65 2d 79 61 6e 6b 2d |\\[pictu|re-yank-|
|000029a0| 72 65 63 74 61 6e 67 6c | 65 5d 20 61 6e 64 20 72 |rectangl|e] and r|
|000029b0| 65 70 6c 61 63 65 64 0a | 77 69 74 68 20 77 68 69 |eplaced.|with whi|
|000029c0| 74 65 73 70 61 63 65 2e | 20 20 54 68 65 20 70 72 |tespace.| The pr|
|000029d0| 65 76 69 6f 75 73 6c 79 | 20 73 61 76 65 64 20 72 |eviously| saved r|
|000029e0| 65 63 74 61 6e 67 6c 65 | 2c 20 69 66 20 61 6e 79 |ectangle|, if any|
|000029f0| 2c 20 69 73 20 6c 6f 73 | 74 2e 20 20 57 69 74 68 |, is los|t. With|
|00002a00| 0a 70 72 65 66 69 78 20 | 61 72 67 75 6d 65 6e 74 |.prefix |argument|
|00002a10| 2c 20 74 68 65 20 72 65 | 63 74 61 6e 67 6c 65 20 |, the re|ctangle |
|00002a20| 69 73 20 61 63 74 75 61 | 6c 6c 79 20 6b 69 6c 6c |is actua|lly kill|
|00002a30| 65 64 2c 20 73 68 69 66 | 74 69 6e 67 20 72 65 6d |ed, shif|ting rem|
|00002a40| 61 69 6e 69 6e 67 20 74 | 65 78 74 2e 22 20 22 72 |aining t|ext." "r|
|00002a50| 5c 6e 50 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |\nP"]).(|defalias|
|00002a60| 20 27 70 69 63 74 75 72 | 65 2d 63 6c 65 61 72 2d | 'pictur|e-clear-|
|00002a70| 72 65 63 74 61 6e 67 6c | 65 2d 74 6f 2d 72 65 67 |rectangl|e-to-reg|
|00002a80| 69 73 74 65 72 20 23 5b | 28 73 74 61 72 74 20 65 |ister #[|(start e|
|00002a90| 6e 64 20 72 65 67 69 73 | 74 65 72 20 26 6f 70 74 |nd regis|ter &opt|
|00002aa0| 69 6f 6e 61 6c 20 6b 69 | 6c 6c 70 29 20 22 c0 09 |ional ki|llp) "..|
|00002ab0| c2 0b 5c 66 0d 23 5c 22 | 87 22 20 5b 73 65 74 2d |..\f.#\"|." [set-|
|00002ac0| 72 65 67 69 73 74 65 72 | 20 72 65 67 69 73 74 65 |register| registe|
|00002ad0| 72 20 70 69 63 74 75 72 | 65 2d 73 6e 61 72 66 2d |r pictur|e-snarf-|
|00002ae0| 72 65 63 74 61 6e 67 6c | 65 20 73 74 61 72 74 20 |rectangl|e start |
|00002af0| 65 6e 64 20 6b 69 6c 6c | 70 5d 20 36 20 22 5c 0a |end kill|p] 6 "\.|
|00002b00| 43 6c 65 61 72 20 72 65 | 63 74 61 6e 67 6c 65 20 |Clear re|ctangle |
|00002b10| 64 65 6c 69 6e 65 61 74 | 65 64 20 62 79 20 70 6f |delineat|ed by po|
|00002b20| 69 6e 74 20 61 6e 64 20 | 6d 61 72 6b 20 69 6e 74 |int and |mark int|
|00002b30| 6f 20 52 45 47 49 53 54 | 45 52 2e 0a 54 68 65 20 |o REGIST|ER..The |
|00002b40| 72 65 63 74 61 6e 67 6c | 65 20 69 73 20 73 61 76 |rectangl|e is sav|
|00002b50| 65 64 20 69 6e 20 52 45 | 47 49 53 54 45 52 20 61 |ed in RE|GISTER a|
|00002b60| 6e 64 20 72 65 70 6c 61 | 63 65 64 20 77 69 74 68 |nd repla|ced with|
|00002b70| 20 77 68 69 74 65 73 70 | 61 63 65 2e 20 20 57 69 | whitesp|ace. Wi|
|00002b80| 74 68 0a 70 72 65 66 69 | 78 20 61 72 67 75 6d 65 |th.prefi|x argume|
|00002b90| 6e 74 2c 20 74 68 65 20 | 72 65 63 74 61 6e 67 6c |nt, the |rectangl|
|00002ba0| 65 20 69 73 20 61 63 74 | 75 61 6c 6c 79 20 6b 69 |e is act|ually ki|
|00002bb0| 6c 6c 65 64 2c 20 73 68 | 69 66 74 69 6e 67 20 72 |lled, sh|ifting r|
|00002bc0| 65 6d 61 69 6e 69 6e 67 | 20 74 65 78 74 2e 22 20 |emaining| text." |
|00002bd0| 22 72 5c 6e 63 52 65 63 | 74 61 6e 67 6c 65 20 74 |"r\ncRec|tangle t|
|00002be0| 6f 20 72 65 67 69 73 74 | 65 72 3a 20 5c 6e 50 22 |o regist|er: \nP"|
|00002bf0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 28 71 75 |]).(defa|lias (qu|
|00002c00| 6f 74 65 20 70 69 63 74 | 75 72 65 2d 73 6e 61 72 |ote pict|ure-snar|
|00002c10| 66 2d 72 65 63 74 61 6e | 67 6c 65 29 20 23 5b 28 |f-rectan|gle) #[(|
|00002c20| 73 74 61 72 74 20 65 6e | 64 20 26 6f 70 74 69 6f |start en|d &optio|
|00002c30| 6e 61 6c 20 6b 69 6c 6c | 70 29 20 22 69 c0 19 1a |nal kill|p) "i...|
|00002c40| 8a 0b 83 11 00 c4 0d 0e | 06 5c 22 82 1c 00 c7 0d |........|.\".....|
|00002c50| 0e 06 5c 22 c8 0d 0e 06 | 5c 22 88 29 c9 5c 6e 21 |..\"....|\".).\n!|
|00002c60| 88 2a 87 22 20 5b 6e 69 | 6c 20 69 6e 64 65 6e 74 |.*." [ni|l indent|
|00002c70| 2d 74 61 62 73 2d 6d 6f | 64 65 20 63 6f 6c 75 6d |-tabs-mo|de colum|
|00002c80| 6e 20 6b 69 6c 6c 70 20 | 64 65 6c 65 74 65 2d 65 |n killp |delete-e|
|00002c90| 78 74 72 61 63 74 2d 72 | 65 63 74 61 6e 67 6c 65 |xtract-r|ectangle|
|00002ca0| 20 73 74 61 72 74 20 65 | 6e 64 20 65 78 74 72 61 | start e|nd extra|
|00002cb0| 63 74 2d 72 65 63 74 61 | 6e 67 6c 65 20 63 6c 65 |ct-recta|ngle cle|
|00002cc0| 61 72 2d 72 65 63 74 61 | 6e 67 6c 65 20 6d 6f 76 |ar-recta|ngle mov|
|00002cd0| 65 2d 74 6f 2d 63 6f 6c | 75 6d 6e 2d 66 6f 72 63 |e-to-col|umn-forc|
|00002ce0| 65 5d 20 34 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |e] 4]).(|defalias|
|00002cf0| 20 27 70 69 63 74 75 72 | 65 2d 79 61 6e 6b 2d 72 | 'pictur|e-yank-r|
|00002d00| 65 63 74 61 6e 67 6c 65 | 20 23 5b 28 26 6f 70 74 |ectangle| #[(&opt|
|00002d10| 69 6f 6e 61 6c 20 69 6e | 73 65 72 74 70 29 20 22 |ional in|sertp) "|
|00002d20| 08 3a 84 09 00 c1 c2 21 | 87 c3 08 5c 66 5c 22 87 |.:.....!|...\f\".|
|00002d30| 22 20 5b 70 69 63 74 75 | 72 65 2d 6b 69 6c 6c 65 |" [pictu|re-kille|
|00002d40| 64 2d 72 65 63 74 61 6e | 67 6c 65 20 65 72 72 6f |d-rectan|gle erro|
|00002d50| 72 20 22 4e 6f 20 72 65 | 63 74 61 6e 67 6c 65 20 |r "No re|ctangle |
|00002d60| 73 61 76 65 64 2e 22 20 | 70 69 63 74 75 72 65 2d |saved." |picture-|
|00002d70| 69 6e 73 65 72 74 2d 72 | 65 63 74 61 6e 67 6c 65 |insert-r|ectangle|
|00002d80| 20 69 6e 73 65 72 74 70 | 5d 20 33 20 22 5c 0a 4f | insertp|] 3 "\.O|
|00002d90| 76 65 72 6c 61 79 20 72 | 65 63 74 61 6e 67 6c 65 |verlay r|ectangle|
|00002da0| 20 73 61 76 65 64 20 62 | 79 20 5c 5c 5b 70 69 63 | saved b|y \\[pic|
|00002db0| 74 75 72 65 2d 63 6c 65 | 61 72 2d 72 65 63 74 61 |ture-cle|ar-recta|
|00002dc0| 6e 67 6c 65 5d 0a 54 68 | 65 20 72 65 63 74 61 6e |ngle].Th|e rectan|
|00002dd0| 67 6c 65 20 69 73 20 70 | 6f 73 69 74 69 6f 6e 65 |gle is p|ositione|
|00002de0| 64 20 77 69 74 68 20 75 | 70 70 65 72 20 6c 65 66 |d with u|pper lef|
|00002df0| 74 20 63 6f 72 6e 65 72 | 20 61 74 20 70 6f 69 6e |t corner| at poin|
|00002e00| 74 2c 20 6f 76 65 72 77 | 72 69 74 69 6e 67 0a 65 |t, overw|riting.e|
|00002e10| 78 69 73 74 69 6e 67 20 | 74 65 78 74 2e 20 20 57 |xisting |text. W|
|00002e20| 69 74 68 20 70 72 65 66 | 69 78 20 61 72 67 75 6d |ith pref|ix argum|
|00002e30| 65 6e 74 2c 20 74 68 65 | 20 72 65 63 74 61 6e 67 |ent, the| rectang|
|00002e40| 6c 65 20 69 73 20 69 6e | 73 65 72 74 65 64 20 69 |le is in|serted i|
|00002e50| 6e 73 74 65 61 64 2c 0a | 73 68 69 66 74 69 6e 67 |nstead,.|shifting|
|00002e60| 20 65 78 69 73 74 69 6e | 67 20 74 65 78 74 2e 20 | existin|g text. |
|00002e70| 20 4c 65 61 76 65 73 20 | 6d 61 72 6b 20 61 74 20 | Leaves |mark at |
|00002e80| 6f 6e 65 20 63 6f 72 6e | 65 72 20 6f 66 20 72 65 |one corn|er of re|
|00002e90| 63 74 61 6e 67 6c 65 20 | 61 6e 64 0a 70 6f 69 6e |ctangle |and.poin|
|00002ea0| 74 20 61 74 20 74 68 65 | 20 6f 74 68 65 72 20 28 |t at the| other (|
|00002eb0| 64 69 61 67 6f 6e 61 6c | 6c 79 20 6f 70 70 6f 73 |diagonal|ly oppos|
|00002ec0| 65 64 29 20 63 6f 72 6e | 65 72 2e 22 20 22 50 22 |ed) corn|er." "P"|
|00002ed0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 70 69 |]).(defa|lias 'pi|
|00002ee0| 63 74 75 72 65 2d 79 61 | 6e 6b 2d 72 65 63 74 61 |cture-ya|nk-recta|
|00002ef0| 6e 67 6c 65 2d 66 72 6f | 6d 2d 72 65 67 69 73 74 |ngle-fro|m-regist|
|00002f00| 65 72 20 23 5b 28 72 65 | 67 69 73 74 65 72 20 26 |er #[(re|gister &|
|00002f10| 6f 70 74 69 6f 6e 61 6c | 20 69 6e 73 65 72 74 70 |optional| insertp|
|00002f20| 29 20 22 c0 09 21 89 1a | 3a 84 10 00 c3 c4 09 5c |) "..!..|:......\|
|00002f30| 22 82 15 00 c5 5c 6e 0e | 06 5c 22 29 87 22 20 5b |"....\n.|.\")." [|
|00002f40| 67 65 74 2d 72 65 67 69 | 73 74 65 72 20 72 65 67 |get-regi|ster reg|
|00002f50| 69 73 74 65 72 20 72 65 | 63 74 61 6e 67 6c 65 20 |ister re|ctangle |
|00002f60| 65 72 72 6f 72 20 22 52 | 65 67 69 73 74 65 72 20 |error "R|egister |
|00002f70| 25 63 20 64 6f 65 73 20 | 6e 6f 74 20 63 6f 6e 74 |%c does |not cont|
|00002f80| 61 69 6e 20 61 20 72 65 | 63 74 61 6e 67 6c 65 2e |ain a re|ctangle.|
|00002f90| 22 20 70 69 63 74 75 72 | 65 2d 69 6e 73 65 72 74 |" pictur|e-insert|
|00002fa0| 2d 72 65 63 74 61 6e 67 | 6c 65 20 69 6e 73 65 72 |-rectang|le inser|
|00002fb0| 74 70 5d 20 34 20 22 5c | 0a 4f 76 65 72 6c 61 79 |tp] 4 "\|.Overlay|
|00002fc0| 20 72 65 63 74 61 6e 67 | 6c 65 20 73 61 76 65 64 | rectang|le saved|
|00002fd0| 20 69 6e 20 52 45 47 49 | 53 54 45 52 2e 0a 54 68 | in REGI|STER..Th|
|00002fe0| 65 20 72 65 63 74 61 6e | 67 6c 65 20 69 73 20 70 |e rectan|gle is p|
|00002ff0| 6f 73 69 74 69 6f 6e 65 | 64 20 77 69 74 68 20 75 |ositione|d with u|
|00003000| 70 70 65 72 20 6c 65 66 | 74 20 63 6f 72 6e 65 72 |pper lef|t corner|
|00003010| 20 61 74 20 70 6f 69 6e | 74 2c 20 6f 76 65 72 77 | at poin|t, overw|
|00003020| 72 69 74 69 6e 67 0a 65 | 78 69 73 74 69 6e 67 20 |riting.e|xisting |
|00003030| 74 65 78 74 2e 20 20 57 | 69 74 68 20 70 72 65 66 |text. W|ith pref|
|00003040| 69 78 20 61 72 67 75 6d | 65 6e 74 2c 20 74 68 65 |ix argum|ent, the|
|00003050| 20 72 65 63 74 61 6e 67 | 6c 65 20 69 73 0a 69 6e | rectang|le is.in|
|00003060| 73 65 72 74 65 64 20 69 | 6e 73 74 65 61 64 2c 20 |serted i|nstead, |
|00003070| 73 68 69 66 74 69 6e 67 | 20 65 78 69 73 74 69 6e |shifting| existin|
|00003080| 67 20 74 65 78 74 2e 20 | 20 4c 65 61 76 65 73 20 |g text. | Leaves |
|00003090| 6d 61 72 6b 20 61 74 20 | 6f 6e 65 20 63 6f 72 6e |mark at |one corn|
|000030a0| 65 72 0a 6f 66 20 72 65 | 63 74 61 6e 67 6c 65 20 |er.of re|ctangle |
|000030b0| 61 6e 64 20 70 6f 69 6e | 74 20 61 74 20 74 68 65 |and poin|t at the|
|000030c0| 20 6f 74 68 65 72 20 28 | 64 69 61 67 6f 6e 61 6c | other (|diagonal|
|000030d0| 6c 79 20 6f 70 70 6f 73 | 65 64 29 20 63 6f 72 6e |ly oppos|ed) corn|
|000030e0| 65 72 2e 22 20 22 63 52 | 65 63 74 61 6e 67 6c 65 |er." "cR|ectangle|
|000030f0| 20 66 72 6f 6d 20 72 65 | 67 69 73 74 65 72 3a 20 | from re|gister: |
|00003100| 5c 6e 50 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |\nP"]).(|defalias|
|00003110| 20 27 70 69 63 74 75 72 | 65 2d 69 6e 73 65 72 74 | 'pictur|e-insert|
|00003120| 2d 72 65 63 74 61 6e 67 | 6c 65 20 23 5b 28 72 65 |-rectang|le #[(re|
|00003130| 63 74 61 6e 67 6c 65 20 | 26 6f 70 74 69 6f 6e 61 |ctangle |&optiona|
|00003140| 6c 20 69 6e 73 65 72 74 | 70 29 20 22 c0 19 5c 6e |l insert|p) "..\n|
|00003150| 84 19 00 8a c3 60 c4 0d | 40 47 21 88 c6 0d 47 53 |.....`..|@G!...GS|
|00003160| 21 88 60 5c 22 88 29 c7 | 20 88 c8 0d 21 29 87 22 |!.`\".).| ...!)."|
|00003170| 20 5b 6e 69 6c 20 69 6e | 64 65 6e 74 2d 74 61 62 | [nil in|dent-tab|
|00003180| 73 2d 6d 6f 64 65 20 69 | 6e 73 65 72 74 70 20 64 |s-mode i|nsertp d|
|00003190| 65 6c 65 74 65 2d 72 65 | 63 74 61 6e 67 6c 65 20 |elete-re|ctangle |
|000031a0| 70 69 63 74 75 72 65 2d | 66 6f 72 77 61 72 64 2d |picture-|forward-|
|000031b0| 63 6f 6c 75 6d 6e 20 72 | 65 63 74 61 6e 67 6c 65 |column r|ectangle|
|000031c0| 20 70 69 63 74 75 72 65 | 2d 6d 6f 76 65 2d 64 6f | picture|-move-do|
|000031d0| 77 6e 20 70 75 73 68 2d | 6d 61 72 6b 20 69 6e 73 |wn push-|mark ins|
|000031e0| 65 72 74 2d 72 65 63 74 | 61 6e 67 6c 65 5d 20 34 |ert-rect|angle] 4|
|000031f0| 20 22 5c 0a 4f 76 65 72 | 6c 61 79 20 52 45 43 54 | "\.Over|lay RECT|
|00003200| 41 4e 47 4c 45 20 77 69 | 74 68 20 75 70 70 65 72 |ANGLE wi|th upper|
|00003210| 20 6c 65 66 74 20 63 6f | 72 6e 65 72 20 61 74 20 | left co|rner at |
|00003220| 70 6f 69 6e 74 2e 0a 4f | 70 74 69 6f 6e 61 6c 20 |point..O|ptional |
|00003230| 61 72 67 75 6d 65 6e 74 | 20 49 4e 53 45 52 54 50 |argument| INSERTP|
|00003240| 2c 20 69 66 20 6e 6f 6e | 2d 6e 69 6c 20 63 61 75 |, if non|-nil cau|
|00003250| 73 65 73 20 52 45 43 54 | 41 4e 47 4c 45 20 74 6f |ses RECT|ANGLE to|
|00003260| 20 62 65 20 69 6e 73 65 | 72 74 65 64 2e 0a 4c 65 | be inse|rted..Le|
|00003270| 61 76 65 73 20 74 68 65 | 20 72 65 67 69 6f 6e 20 |aves the| region |
|00003280| 73 75 72 72 6f 75 6e 64 | 69 6e 67 20 74 68 65 20 |surround|ing the |
|00003290| 72 65 63 74 61 6e 67 6c | 65 2e 22 5d 29 0a 28 62 |rectangl|e."]).(b|
|000032a0| 79 74 65 2d 63 6f 64 65 | 20 22 c0 11 c2 c3 c4 5c |yte-code| ".....\|
|000032b0| 22 88 09 84 fd 00 c5 1e | 06 c7 20 11 0e 06 c8 57 |".......|.. ....W|
|000032c0| 83 2b 00 c9 09 ca cb 0e | 06 5c 22 cc 23 88 0e 06 |.+......|.\".#...|
|000032d0| 54 89 16 06 82 13 00 c3 | cd ce 5c 22 88 c3 cf d0 |T.......|..\"....|
|000032e0| 5c 22 88 c3 d1 d2 5c 22 | 88 c3 d3 d4 5c 22 88 c3 |\"....\"|....\"..|
|000032f0| d5 d4 5c 22 88 c3 d6 d7 | 5c 22 88 c3 d8 d9 5c 22 |..\"....|\"....\"|
|00003300| 88 c3 da db 5c 22 88 c3 | dc dd 5c 22 88 c3 de df |....\"..|..\"....|
|00003310| 5c 22 88 c3 e0 e1 5c 22 | 88 c3 e2 e3 5c 22 88 c3 |\"....\"|....\"..|
|00003320| e4 e5 5c 22 88 c9 09 e6 | d1 23 88 c9 09 e7 e8 23 |..\"....|.#.....#|
|00003330| 88 c9 09 e9 ea 23 88 c9 | 09 e7 eb 23 88 c9 09 ec |.....#..|...#....|
|00003340| ed 23 88 c9 09 ee ef 23 | 88 c9 09 f0 f1 23 88 c9 |.#.....#|.....#..|
|00003350| 09 f2 f3 23 88 c9 09 f4 | f5 23 88 c9 09 f6 f7 23 |...#....|.#.....#|
|00003360| 88 c9 09 f8 f9 23 88 c9 | 09 fa fb 23 88 c9 09 fc |.....#..|...#....|
|00003370| fd 23 88 c9 09 fe ff 23 | 88 c9 09 81 40 00 81 41 |.#.....#|....@..A|
|00003380| 00 23 88 c9 09 81 42 00 | 81 43 00 23 88 c9 09 81 |.#....B.|.C.#....|
|00003390| 44 00 81 45 00 23 88 c9 | 09 81 46 00 81 47 00 23 |D..E.#..|..F..G.#|
|000033a0| 88 c9 09 81 48 00 81 49 | 00 23 88 c9 09 81 4a 00 |....H..I|.#....J.|
|000033b0| 81 4b 00 23 88 29 c0 87 | 22 20 5b 6e 69 6c 20 70 |.K.#.)..|" [nil p|
|000033c0| 69 63 74 75 72 65 2d 6d | 6f 64 65 2d 6d 61 70 20 |icture-m|ode-map |
|000033d0| 64 65 66 61 6c 69 61 73 | 20 70 69 63 74 75 72 65 |defalias| picture|
|000033e0| 2d 73 75 62 73 74 69 74 | 75 74 65 20 23 5b 28 6f |-substit|ute #[(o|
|000033f0| 6c 64 66 75 6e 20 6e 65 | 77 66 75 6e 29 20 22 c0 |ldfun ne|wfun) ".|
|00003400| 09 5c 6e 0b 5c 66 24 87 | 22 20 5b 73 75 62 73 74 |.\n.\f$.|" [subst|
|00003410| 69 74 75 74 65 2d 6b 65 | 79 2d 64 65 66 69 6e 69 |itute-ke|y-defini|
|00003420| 74 69 6f 6e 20 6f 6c 64 | 66 75 6e 20 6e 65 77 66 |tion old|fun newf|
|00003430| 75 6e 20 70 69 63 74 75 | 72 65 2d 6d 6f 64 65 2d |un pictu|re-mode-|
|00003440| 6d 61 70 20 67 6c 6f 62 | 61 6c 2d 6d 61 70 5d 20 |map glob|al-map] |
|00003450| 35 5d 20 33 32 20 69 20 | 6d 61 6b 65 2d 6b 65 79 |5] 32 i |make-key|
|00003460| 6d 61 70 20 31 32 37 20 | 64 65 66 69 6e 65 2d 6b |map 127 |define-k|
|00003470| 65 79 20 6d 61 6b 65 2d | 73 74 72 69 6e 67 20 31 |ey make-|string 1|
|00003480| 20 70 69 63 74 75 72 65 | 2d 73 65 6c 66 2d 69 6e | picture|-self-in|
|00003490| 73 65 72 74 20 66 6f 72 | 77 61 72 64 2d 63 68 61 |sert for|ward-cha|
|000034a0| 72 20 70 69 63 74 75 72 | 65 2d 66 6f 72 77 61 72 |r pictur|e-forwar|
|000034b0| 64 2d 63 6f 6c 75 6d 6e | 20 62 61 63 6b 77 61 72 |d-column| backwar|
|000034c0| 64 2d 63 68 61 72 20 70 | 69 63 74 75 72 65 2d 62 |d-char p|icture-b|
|000034d0| 61 63 6b 77 61 72 64 2d | 63 6f 6c 75 6d 6e 20 64 |ackward-|column d|
|000034e0| 65 6c 65 74 65 2d 63 68 | 61 72 20 70 69 63 74 75 |elete-ch|ar pictu|
|000034f0| 72 65 2d 63 6c 65 61 72 | 2d 63 6f 6c 75 6d 6e 20 |re-clear|-column |
|00003500| 62 61 63 6b 77 61 72 64 | 2d 64 65 6c 65 74 65 2d |backward|-delete-|
|00003510| 63 68 61 72 2d 75 6e 74 | 61 62 69 66 79 20 70 69 |char-unt|abify pi|
|00003520| 63 74 75 72 65 2d 62 61 | 63 6b 77 61 72 64 2d 63 |cture-ba|ckward-c|
|00003530| 6c 65 61 72 2d 63 6f 6c | 75 6d 6e 20 64 65 6c 65 |lear-col|umn dele|
|00003540| 74 65 2d 62 61 63 6b 77 | 61 72 64 2d 63 68 61 72 |te-backw|ard-char|
|00003550| 20 6b 69 6c 6c 2d 6c 69 | 6e 65 20 70 69 63 74 75 | kill-li|ne pictu|
|00003560| 72 65 2d 63 6c 65 61 72 | 2d 6c 69 6e 65 20 6f 70 |re-clear|-line op|
|00003570| 65 6e 2d 6c 69 6e 65 20 | 70 69 63 74 75 72 65 2d |en-line |picture-|
|00003580| 6f 70 65 6e 2d 6c 69 6e | 65 20 6e 65 77 6c 69 6e |open-lin|e newlin|
|00003590| 65 20 70 69 63 74 75 72 | 65 2d 6e 65 77 6c 69 6e |e pictur|e-newlin|
|000035a0| 65 20 6e 65 77 6c 69 6e | 65 2d 61 6e 64 69 6e 64 |e newlin|e-andind|
|000035b0| 65 6e 74 20 70 69 63 74 | 75 72 65 2d 64 75 70 6c |ent pict|ure-dupl|
|000035c0| 69 63 61 74 65 2d 6c 69 | 6e 65 20 6e 65 78 74 2d |icate-li|ne next-|
|000035d0| 6c 69 6e 65 20 70 69 63 | 74 75 72 65 2d 6d 6f 76 |line pic|ture-mov|
|000035e0| 65 2d 64 6f 77 6e 20 70 | 72 65 76 69 6f 75 73 2d |e-down p|revious-|
|000035f0| 6c 69 6e 65 20 70 69 63 | 74 75 72 65 2d 6d 6f 76 |line pic|ture-mov|
|00003600| 65 2d 75 70 20 62 65 67 | 69 6e 6e 69 6e 67 2d 6f |e-up beg|inning-o|
|00003610| 66 2d 6c 69 6e 65 20 70 | 69 63 74 75 72 65 2d 62 |f-line p|icture-b|
|00003620| 65 67 69 6e 6e 69 6e 67 | 2d 6f 66 2d 6c 69 6e 65 |eginning|-of-line|
|00003630| 20 65 6e 64 2d 6f 66 2d | 6c 69 6e 65 20 70 69 63 | end-of-|line pic|
|00003640| 74 75 72 65 2d 65 6e 64 | 2d 6f 66 2d 6c 69 6e 65 |ture-end|-of-line|
|00003650| 20 22 03 04 22 20 22 1b | 09 22 20 70 69 63 74 75 | ".." ".|." pictu|
|00003660| 72 65 2d 74 6f 67 67 6c | 65 2d 74 61 62 2d 73 74 |re-toggl|e-tab-st|
|00003670| 61 74 65 20 22 09 22 20 | 70 69 63 74 75 72 65 2d |ate "." |picture-|
|00003680| 74 61 62 20 70 69 63 74 | 75 72 65 2d 74 61 62 2d |tab pict|ure-tab-|
|00003690| 73 65 61 72 63 68 20 22 | 03 09 22 20 70 69 63 74 |search "|.." pict|
|000036a0| 75 72 65 2d 73 65 74 2d | 74 61 62 2d 73 74 6f 70 |ure-set-|tab-stop|
|000036b0| 73 20 22 03 0b 22 20 70 | 69 63 74 75 72 65 2d 63 |s ".." p|icture-c|
|000036c0| 6c 65 61 72 2d 72 65 63 | 74 61 6e 67 6c 65 20 22 |lear-rec|tangle "|
|000036d0| 03 17 22 20 70 69 63 74 | 75 72 65 2d 63 6c 65 61 |.." pict|ure-clea|
|000036e0| 72 2d 72 65 63 74 61 6e | 67 6c 65 2d 74 6f 2d 72 |r-rectan|gle-to-r|
|000036f0| 65 67 69 73 74 65 72 20 | 22 03 19 22 20 70 69 63 |egister |".." pic|
|00003700| 74 75 72 65 2d 79 61 6e | 6b 2d 72 65 63 74 61 6e |ture-yan|k-rectan|
|00003710| 67 6c 65 20 22 03 18 22 | 20 70 69 63 74 75 72 65 |gle ".."| picture|
|00003720| 2d 79 61 6e 6b 2d 72 65 | 63 74 61 6e 67 6c 65 2d |-yank-re|ctangle-|
|00003730| 66 72 6f 6d 2d 72 65 67 | 69 73 74 65 72 20 22 03 |from-reg|ister ".|
|00003740| 03 22 20 70 69 63 74 75 | 72 65 2d 6d 6f 64 65 2d |." pictu|re-mode-|
|00003750| 65 78 69 74 20 22 03 06 | 22 20 70 69 63 74 75 72 |exit "..|" pictur|
|00003760| 65 2d 6d 6f 74 69 6f 6e | 20 22 03 02 22 20 70 69 |e-motion| ".." pi|
|00003770| 63 74 75 72 65 2d 6d 6f | 74 69 6f 6e 2d 72 65 76 |cture-mo|tion-rev|
|00003780| 65 72 73 65 20 22 03 3c | 22 20 70 69 63 74 75 72 |erse ".<|" pictur|
|00003790| 65 2d 6d 6f 76 65 6d 65 | 6e 74 2d 6c 65 66 74 20 |e-moveme|nt-left |
|000037a0| 22 03 3e 22 20 70 69 63 | 74 75 72 65 2d 6d 6f 76 |".>" pic|ture-mov|
|000037b0| 65 6d 65 6e 74 2d 72 69 | 67 68 74 20 22 03 5e 22 |ement-ri|ght ".^"|
|000037c0| 20 70 69 63 74 75 72 65 | 2d 6d 6f 76 65 6d 65 6e | picture|-movemen|
|000037d0| 74 2d 75 70 20 22 03 2e | 22 20 70 69 63 74 75 72 |t-up "..|" pictur|
|000037e0| 65 2d 6d 6f 76 65 6d 65 | 6e 74 2d 64 6f 77 6e 20 |e-moveme|nt-down |
|000037f0| 22 03 60 22 20 70 69 63 | 74 75 72 65 2d 6d 6f 76 |".`" pic|ture-mov|
|00003800| 65 6d 65 6e 74 2d 6e 77 | 20 22 03 27 22 20 70 69 |ement-nw| ".'" pi|
|00003810| 63 74 75 72 65 2d 6d 6f | 76 65 6d 65 6e 74 2d 6e |cture-mo|vement-n|
|00003820| 65 20 22 03 2f 22 20 70 | 69 63 74 75 72 65 2d 6d |e "./" p|icture-m|
|00003830| 6f 76 65 6d 65 6e 74 2d | 73 77 20 22 03 5c 5c 22 |ovement-|sw ".\\"|
|00003840| 20 70 69 63 74 75 72 65 | 2d 6d 6f 76 65 6d 65 6e | picture|-movemen|
|00003850| 74 2d 73 65 5d 20 36 29 | 0a 28 64 65 66 76 61 72 |t-se] 6)|.(defvar|
|00003860| 20 70 69 63 74 75 72 65 | 2d 6d 6f 64 65 2d 68 6f | picture|-mode-ho|
|00003870| 6f 6b 20 6e 69 6c 20 22 | 5c 0a 49 66 20 6e 6f 6e |ok nil "|\.If non|
|00003880| 2d 6e 69 6c 2c 20 69 74 | 73 20 76 61 6c 75 65 20 |-nil, it|s value |
|00003890| 69 73 20 63 61 6c 6c 65 | 64 20 6f 6e 20 65 6e 74 |is calle|d on ent|
|000038a0| 72 79 20 74 6f 20 50 69 | 63 74 75 72 65 20 6d 6f |ry to Pi|cture mo|
|000038b0| 64 65 2e 0a 50 69 63 74 | 75 72 65 20 6d 6f 64 65 |de..Pict|ure mode|
|000038c0| 20 69 73 20 69 6e 76 6f | 6b 65 64 20 62 79 20 74 | is invo|ked by t|
|000038d0| 68 65 20 63 6f 6d 6d 61 | 6e 64 20 5c 5c 5b 70 69 |he comma|nd \\[pi|
|000038e0| 63 74 75 72 65 2d 6d 6f | 64 65 5d 2e 22 29 0a 28 |cture-mo|de].").(|
|000038f0| 64 65 66 61 6c 69 61 73 | 20 27 70 69 63 74 75 72 |defalias| 'pictur|
|00003900| 65 2d 6d 6f 64 65 20 23 | 5b 6e 69 6c 20 22 08 c1 |e-mode #|[nil "..|
|00003910| 3d 83 5c 6e 00 c2 c3 21 | 87 c4 c5 21 88 c6 20 15 |=.\n...!|...!.. .|
|00003920| c7 0e 08 21 88 c4 c9 21 | 88 0e 5c 6e 16 09 c4 cb |...!...!|..\n....|
|00003930| 21 88 08 16 0b c1 10 c4 | cc 21 88 cd 16 5c 66 c4 |!.......|.!...\f.|
|00003940| ce 21 88 cf ce 21 16 0e | c4 d0 21 88 cf d0 21 16 |.!...!..|..!...!.|
|00003950| 10 c4 d1 21 88 c4 d2 21 | 88 c4 d3 21 88 0e 14 16 |...!...!|...!....|
|00003960| 13 d5 16 14 d6 d7 d8 5c | 22 88 d9 da db 5c 22 88 |.......\|"....\".|
|00003970| dc dd de 21 0e 09 5c 22 | 87 22 20 5b 6d 61 6a 6f |...!..\"|." [majo|
|00003980| 72 2d 6d 6f 64 65 20 70 | 69 63 74 75 72 65 2d 6d |r-mode p|icture-m|
|00003990| 6f 64 65 20 65 72 72 6f | 72 20 22 59 6f 75 20 61 |ode erro|r "You a|
|000039a0| 72 65 20 61 6c 72 65 61 | 64 79 20 65 64 69 74 69 |re alrea|dy editi|
|000039b0| 6e 67 20 61 20 70 69 63 | 74 75 72 65 2e 22 20 6d |ng a pic|ture." m|
|000039c0| 61 6b 65 2d 6c 6f 63 61 | 6c 2d 76 61 72 69 61 62 |ake-loca|l-variab|
|000039d0| 6c 65 20 70 69 63 74 75 | 72 65 2d 6d 6f 64 65 2d |le pictu|re-mode-|
|000039e0| 6f 6c 64 2d 6c 6f 63 61 | 6c 2d 6d 61 70 20 63 75 |old-loca|l-map cu|
|000039f0| 72 72 65 6e 74 2d 6c 6f | 63 61 6c 2d 6d 61 70 20 |rrent-lo|cal-map |
|00003a00| 75 73 65 2d 6c 6f 63 61 | 6c 2d 6d 61 70 20 70 69 |use-loca|l-map pi|
|00003a10| 63 74 75 72 65 2d 6d 6f | 64 65 2d 6d 61 70 20 70 |cture-mo|de-map p|
|00003a20| 69 63 74 75 72 65 2d 6d | 6f 64 65 2d 6f 6c 64 2d |icture-m|ode-old-|
|00003a30| 6d 6f 64 65 2d 6e 61 6d | 65 20 6d 6f 64 65 2d 6e |mode-nam|e mode-n|
|00003a40| 61 6d 65 20 70 69 63 74 | 75 72 65 2d 6d 6f 64 65 |ame pict|ure-mode|
|00003a50| 2d 6f 6c 64 2d 6d 61 6a | 6f 72 2d 6d 6f 64 65 20 |-old-maj|or-mode |
|00003a60| 70 69 63 74 75 72 65 2d | 6b 69 6c 6c 65 64 2d 72 |picture-|killed-r|
|00003a70| 65 63 74 61 6e 67 6c 65 | 20 6e 69 6c 20 74 61 62 |ectangle| nil tab|
|00003a80| 2d 73 74 6f 70 2d 6c 69 | 73 74 20 64 65 66 61 75 |-stop-li|st defau|
|00003a90| 6c 74 2d 76 61 6c 75 65 | 20 70 69 63 74 75 72 65 |lt-value| picture|
|00003aa0| 2d 74 61 62 2d 63 68 61 | 72 73 20 70 69 63 74 75 |-tab-cha|rs pictu|
|00003ab0| 72 65 2d 76 65 72 74 69 | 63 61 6c 2d 73 74 65 70 |re-verti|cal-step|
|00003ac0| 20 70 69 63 74 75 72 65 | 2d 68 6f 72 69 7a 6f 6e | picture|-horizon|
|00003ad0| 74 61 6c 2d 73 74 65 70 | 20 70 69 63 74 75 72 65 |tal-step| picture|
|00003ae0| 2d 6d 6f 64 65 2d 6f 6c | 64 2d 74 72 75 6e 63 61 |-mode-ol|d-trunca|
|00003af0| 74 65 2d 6c 69 6e 65 73 | 20 74 72 75 6e 63 61 74 |te-lines| truncat|
|00003b00| 65 2d 6c 69 6e 65 73 20 | 74 20 70 69 63 74 75 72 |e-lines |t pictur|
|00003b10| 65 2d 73 65 74 2d 6d 6f | 74 69 6f 6e 20 30 20 31 |e-set-mo|tion 0 1|
|00003b20| 20 72 75 6e 2d 68 6f 6f | 6b 73 20 65 64 69 74 2d | run-hoo|ks edit-|
|00003b30| 70 69 63 74 75 72 65 2d | 68 6f 6f 6b 20 70 69 63 |picture-|hook pic|
|00003b40| 74 75 72 65 2d 6d 6f 64 | 65 2d 68 6f 6f 6b 20 6d |ture-mod|e-hook m|
|00003b50| 65 73 73 61 67 65 20 73 | 75 62 73 74 69 74 75 74 |essage s|ubstitut|
|00003b60| 65 2d 63 6f 6d 6d 61 6e | 64 2d 6b 65 79 73 20 22 |e-comman|d-keys "|
|00003b70| 54 79 70 65 20 5c 5c 5b | 70 69 63 74 75 72 65 2d |Type \\[|picture-|
|00003b80| 6d 6f 64 65 2d 65 78 69 | 74 5d 20 69 6e 20 74 68 |mode-exi|t] in th|
|00003b90| 69 73 20 62 75 66 66 65 | 72 20 74 6f 20 72 65 74 |is buffe|r to ret|
|00003ba0| 75 72 6e 20 69 74 20 74 | 6f 20 25 73 20 6d 6f 64 |urn it t|o %s mod|
|00003bb0| 65 2e 22 5d 20 33 20 22 | 5c 0a 53 77 69 74 63 68 |e."] 3 "|\.Switch|
|00003bc0| 20 74 6f 20 50 69 63 74 | 75 72 65 20 6d 6f 64 65 | to Pict|ure mode|
|00003bd0| 2c 20 69 6e 20 77 68 69 | 63 68 20 61 20 71 75 61 |, in whi|ch a qua|
|00003be0| 72 74 65 72 2d 70 6c 61 | 6e 65 20 73 63 72 65 65 |rter-pla|ne scree|
|00003bf0| 6e 20 6d 6f 64 65 6c 20 | 69 73 20 75 73 65 64 2e |n model |is used.|
|00003c00| 0a 50 72 69 6e 74 69 6e | 67 20 63 68 61 72 61 63 |.Printin|g charac|
|00003c10| 74 65 72 73 20 72 65 70 | 6c 61 63 65 20 69 6e 73 |ters rep|lace ins|
|00003c20| 74 65 61 64 20 6f 66 20 | 69 6e 73 65 72 74 69 6e |tead of |insertin|
|00003c30| 67 20 74 68 65 6d 73 65 | 6c 76 65 73 20 77 69 74 |g themse|lves wit|
|00003c40| 68 20 6d 6f 74 69 6f 6e | 0a 61 66 74 65 72 77 61 |h motion|.afterwa|
|00003c50| 72 64 73 20 73 65 74 74 | 61 62 6c 65 20 62 79 20 |rds sett|able by |
|00003c60| 74 68 65 73 65 20 63 6f | 6d 6d 61 6e 64 73 3a 0a |these co|mmands:.|
|00003c70| 20 20 43 2d 63 20 3c 09 | 20 20 4d 6f 76 65 20 6c | C-c <.| Move l|
|00003c80| 65 66 74 20 61 66 74 65 | 72 20 69 6e 73 65 72 74 |eft afte|r insert|
|00003c90| 69 6f 6e 2e 0a 20 20 43 | 2d 63 20 3e 09 20 20 4d |ion.. C|-c >. M|
|00003ca0| 6f 76 65 20 72 69 67 68 | 74 20 61 66 74 65 72 20 |ove righ|t after |
|00003cb0| 69 6e 73 65 72 74 69 6f | 6e 2e 0a 20 20 43 2d 63 |insertio|n.. C-c|
|00003cc0| 20 5e 09 20 20 4d 6f 76 | 65 20 75 70 20 61 66 74 | ^. Mov|e up aft|
|00003cd0| 65 72 20 69 6e 73 65 72 | 74 69 6f 6e 2e 0a 20 20 |er inser|tion.. |
|00003ce0| 43 2d 63 20 2e 09 20 20 | 4d 6f 76 65 20 64 6f 77 |C-c .. |Move dow|
|00003cf0| 6e 20 61 66 74 65 72 20 | 69 6e 73 65 72 74 69 6f |n after |insertio|
|00003d00| 6e 2e 0a 20 20 43 2d 63 | 20 60 09 20 20 4d 6f 76 |n.. C-c| `. Mov|
|00003d10| 65 20 6e 6f 72 74 68 77 | 65 73 74 20 28 6e 77 29 |e northw|est (nw)|
|00003d20| 20 61 66 74 65 72 20 69 | 6e 73 65 72 74 69 6f 6e | after i|nsertion|
|00003d30| 2e 0a 20 20 43 2d 63 20 | 27 09 20 20 4d 6f 76 65 |.. C-c |'. Move|
|00003d40| 20 6e 6f 72 74 68 65 61 | 73 74 20 28 6e 65 29 20 | northea|st (ne) |
|00003d50| 61 66 74 65 72 20 69 6e | 73 65 72 74 69 6f 6e 2e |after in|sertion.|
|00003d60| 0a 20 20 43 2d 63 20 2f | 09 20 20 4d 6f 76 65 20 |. C-c /|. Move |
|00003d70| 73 6f 75 74 68 77 65 73 | 74 20 28 73 77 29 20 61 |southwes|t (sw) a|
|00003d80| 66 74 65 72 20 69 6e 73 | 65 72 74 69 6f 6e 2e 0a |fter ins|ertion..|
|00003d90| 20 20 43 2d 63 20 5c 5c | 20 20 20 4d 6f 76 65 20 | C-c \\| Move |
|00003da0| 73 6f 75 74 68 65 61 73 | 74 20 28 73 65 29 20 61 |southeas|t (se) a|
|00003db0| 66 74 65 72 20 69 6e 73 | 65 72 74 69 6f 6e 2e 0a |fter ins|ertion..|
|00003dc0| 54 68 65 20 63 75 72 72 | 65 6e 74 20 64 69 72 65 |The curr|ent dire|
|00003dd0| 63 74 69 6f 6e 20 69 73 | 20 64 69 73 70 6c 61 79 |ction is| display|
|00003de0| 65 64 20 69 6e 20 74 68 | 65 20 6d 6f 64 65 20 6c |ed in th|e mode l|
|00003df0| 69 6e 65 2e 20 20 54 68 | 65 20 69 6e 69 74 69 61 |ine. Th|e initia|
|00003e00| 6c 0a 64 69 72 65 63 74 | 69 6f 6e 20 69 73 20 72 |l.direct|ion is r|
|00003e10| 69 67 68 74 2e 20 20 57 | 68 69 74 65 73 70 61 63 |ight. W|hitespac|
|00003e20| 65 20 69 73 20 69 6e 73 | 65 72 74 65 64 20 61 6e |e is ins|erted an|
|00003e30| 64 20 74 61 62 73 20 61 | 72 65 20 63 68 61 6e 67 |d tabs a|re chang|
|00003e40| 65 64 20 74 6f 0a 73 70 | 61 63 65 73 20 77 68 65 |ed to.sp|aces whe|
|00003e50| 6e 20 72 65 71 75 69 72 | 65 64 20 62 79 20 6d 6f |n requir|ed by mo|
|00003e60| 76 65 6d 65 6e 74 2e 20 | 20 59 6f 75 20 63 61 6e |vement. | You can|
|00003e70| 20 6d 6f 76 65 20 61 72 | 6f 75 6e 64 20 69 6e 20 | move ar|ound in |
|00003e80| 74 68 65 20 62 75 66 66 | 65 72 0a 77 69 74 68 20 |the buff|er.with |
|00003e90| 74 68 65 73 65 20 63 6f | 6d 6d 61 6e 64 73 3a 0a |these co|mmands:.|
|00003ea0| 20 20 5c 5c 5b 70 69 63 | 74 75 72 65 2d 6d 6f 76 | \\[pic|ture-mov|
|00003eb0| 65 2d 64 6f 77 6e 5d 09 | 20 20 4d 6f 76 65 20 76 |e-down].| Move v|
|00003ec0| 65 72 74 69 63 61 6c 6c | 79 20 74 6f 20 53 41 4d |erticall|y to SAM|
|00003ed0| 45 20 63 6f 6c 75 6d 6e | 20 69 6e 20 70 72 65 76 |E column| in prev|
|00003ee0| 69 6f 75 73 20 6c 69 6e | 65 2e 0a 20 20 5c 5c 5b |ious lin|e.. \\[|
|00003ef0| 70 69 63 74 75 72 65 2d | 6d 6f 76 65 2d 75 70 5d |picture-|move-up]|
|00003f00| 09 20 20 4d 6f 76 65 20 | 76 65 72 74 69 63 61 6c |. Move |vertical|
|00003f10| 6c 79 20 74 6f 20 53 41 | 4d 45 20 63 6f 6c 75 6d |ly to SA|ME colum|
|00003f20| 6e 20 69 6e 20 6e 65 78 | 74 20 6c 69 6e 65 2e 0a |n in nex|t line..|
|00003f30| 20 20 5c 5c 5b 70 69 63 | 74 75 72 65 2d 65 6e 64 | \\[pic|ture-end|
|00003f40| 2d 6f 66 2d 6c 69 6e 65 | 5d 09 20 20 4d 6f 76 65 |-of-line|]. Move|
|00003f50| 20 74 6f 20 63 6f 6c 75 | 6d 6e 20 66 6f 6c 6c 6f | to colu|mn follo|
|00003f60| 77 69 6e 67 20 6c 61 73 | 74 20 6e 6f 6e 2d 77 68 |wing las|t non-wh|
|00003f70| 69 74 65 73 70 61 63 65 | 20 63 68 61 72 61 63 74 |itespace| charact|
|00003f80| 65 72 2e 0a 20 20 5c 5c | 5b 70 69 63 74 75 72 65 |er.. \\|[picture|
|00003f90| 2d 66 6f 72 77 61 72 64 | 2d 63 6f 6c 75 6d 6e 5d |-forward|-column]|
|00003fa0| 09 20 20 4d 6f 76 65 20 | 72 69 67 68 74 20 69 6e |. Move |right in|
|00003fb0| 73 65 72 74 69 6e 67 20 | 73 70 61 63 65 73 20 69 |serting |spaces i|
|00003fc0| 66 20 72 65 71 75 69 72 | 65 64 2e 0a 20 20 5c 5c |f requir|ed.. \\|
|00003fd0| 5b 70 69 63 74 75 72 65 | 2d 62 61 63 6b 77 61 72 |[picture|-backwar|
|00003fe0| 64 2d 63 6f 6c 75 6d 6e | 5d 09 20 20 4d 6f 76 65 |d-column|]. Move|
|00003ff0| 20 6c 65 66 74 20 63 68 | 61 6e 67 69 6e 67 20 74 | left ch|anging t|
|00004000| 61 62 73 20 74 6f 20 73 | 70 61 63 65 73 20 69 66 |abs to s|paces if|
|00004010| 20 72 65 71 75 69 72 65 | 64 2e 0a 20 20 43 2d 63 | require|d.. C-c|
|00004020| 20 43 2d 66 20 4d 6f 76 | 65 20 69 6e 20 64 69 72 | C-f Mov|e in dir|
|00004030| 65 63 74 69 6f 6e 20 6f | 66 20 63 75 72 72 65 6e |ection o|f curren|
|00004040| 74 20 70 69 63 74 75 72 | 65 20 6d 6f 74 69 6f 6e |t pictur|e motion|
|00004050| 2e 0a 20 20 43 2d 63 20 | 43 2d 62 20 4d 6f 76 65 |.. C-c |C-b Move|
|00004060| 20 69 6e 20 6f 70 70 6f | 73 69 74 65 20 64 69 72 | in oppo|site dir|
|00004070| 65 63 74 69 6f 6e 20 6f | 66 20 63 75 72 72 65 6e |ection o|f curren|
|00004080| 74 20 70 69 63 74 75 72 | 65 20 6d 6f 74 69 6f 6e |t pictur|e motion|
|00004090| 2e 0a 20 20 52 65 74 75 | 72 6e 20 20 4d 6f 76 65 |.. Retu|rn Move|
|000040a0| 20 74 6f 20 62 65 67 69 | 6e 6e 69 6e 67 20 6f 66 | to begi|nning of|
|000040b0| 20 6e 65 78 74 20 6c 69 | 6e 65 2e 0a 59 6f 75 20 | next li|ne..You |
|000040c0| 63 61 6e 20 65 64 69 74 | 20 74 61 62 75 6c 61 72 |can edit| tabular|
|000040d0| 20 74 65 78 74 20 77 69 | 74 68 20 74 68 65 73 65 | text wi|th these|
|000040e0| 20 63 6f 6d 6d 61 6e 64 | 73 3a 0a 20 20 4d 2d 54 | command|s:. M-T|
|000040f0| 61 62 09 20 20 4d 6f 76 | 65 20 74 6f 20 63 6f 6c |ab. Mov|e to col|
|00004100| 75 6d 6e 20 62 65 6e 65 | 61 74 68 20 28 6f 72 20 |umn bene|ath (or |
|00004110| 61 74 29 20 6e 65 78 74 | 20 69 6e 74 65 72 65 73 |at) next| interes|
|00004120| 74 69 6e 67 20 63 68 61 | 72 61 63 74 65 72 2e 0a |ting cha|racter..|
|00004130| 09 20 20 20 20 60 49 6e | 64 65 6e 74 73 27 20 72 |. `In|dents' r|
|00004140| 65 6c 61 74 69 76 65 20 | 74 6f 20 61 20 70 72 65 |elative |to a pre|
|00004150| 76 69 6f 75 73 20 6c 69 | 6e 65 2e 0a 20 20 54 61 |vious li|ne.. Ta|
|00004160| 62 09 20 20 4d 6f 76 65 | 20 74 6f 20 6e 65 78 74 |b. Move| to next|
|00004170| 20 73 74 6f 70 20 69 6e | 20 74 61 62 20 73 74 6f | stop in| tab sto|
|00004180| 70 20 6c 69 73 74 2e 0a | 20 20 43 2d 63 20 54 61 |p list..| C-c Ta|
|00004190| 62 20 53 65 74 20 74 61 | 62 20 73 74 6f 70 73 20 |b Set ta|b stops |
|000041a0| 61 63 63 6f 72 64 69 6e | 67 20 74 6f 20 63 6f 6e |accordin|g to con|
|000041b0| 74 65 78 74 20 6f 66 20 | 74 68 69 73 20 6c 69 6e |text of |this lin|
|000041c0| 65 2e 0a 09 20 20 20 20 | 57 69 74 68 20 41 52 47 |e... |With ARG|
|000041d0| 20 72 65 73 65 74 73 20 | 74 61 62 20 73 74 6f 70 | resets |tab stop|
|000041e0| 73 20 74 6f 20 64 65 66 | 61 75 6c 74 20 28 67 6c |s to def|ault (gl|
|000041f0| 6f 62 61 6c 29 20 76 61 | 6c 75 65 2e 0a 09 20 20 |obal) va|lue... |
|00004200| 20 20 53 65 65 20 61 6c | 73 6f 20 64 6f 63 75 6d | See al|so docum|
|00004210| 65 6e 74 61 74 69 6f 6e | 20 6f 66 20 76 61 72 69 |entation| of vari|
|00004220| 61 62 6c 65 09 70 69 63 | 74 75 72 65 2d 74 61 62 |able.pic|ture-tab|
|00004230| 2d 63 68 61 72 73 0a 09 | 20 20 20 20 77 68 69 63 |-chars..| whic|
|00004240| 68 20 64 65 66 69 6e 65 | 73 20 5c 22 69 6e 74 65 |h define|s \"inte|
|00004250| 72 65 73 74 69 6e 67 20 | 63 68 61 72 61 63 74 65 |resting |characte|
|00004260| 72 5c 22 2e 20 20 59 6f | 75 20 63 61 6e 20 6d 61 |r\". Yo|u can ma|
|00004270| 6e 75 61 6c 6c 79 0a 09 | 20 20 20 20 63 68 61 6e |nually..| chan|
|00004280| 67 65 20 74 68 65 20 74 | 61 62 20 73 74 6f 70 20 |ge the t|ab stop |
|00004290| 6c 69 73 74 20 77 69 74 | 68 20 63 6f 6d 6d 61 6e |list wit|h comman|
|000042a0| 64 20 5c 5c 5b 65 64 69 | 74 2d 74 61 62 2d 73 74 |d \\[edi|t-tab-st|
|000042b0| 6f 70 73 5d 2e 0a 59 6f | 75 20 63 61 6e 20 6d 61 |ops]..Yo|u can ma|
|000042c0| 6e 69 70 75 6c 61 74 65 | 20 74 65 78 74 20 77 69 |nipulate| text wi|
|000042d0| 74 68 20 74 68 65 73 65 | 20 63 6f 6d 6d 61 6e 64 |th these| command|
|000042e0| 73 3a 0a 20 20 43 2d 64 | 09 20 20 43 6c 65 61 72 |s:. C-d|. Clear|
|000042f0| 20 28 72 65 70 6c 61 63 | 65 29 20 41 52 47 20 63 | (replac|e) ARG c|
|00004300| 6f 6c 75 6d 6e 73 20 61 | 66 74 65 72 20 70 6f 69 |olumns a|fter poi|
|00004310| 6e 74 20 77 69 74 68 6f | 75 74 20 6d 6f 76 69 6e |nt witho|ut movin|
|00004320| 67 2e 0a 20 20 43 2d 63 | 20 43 2d 64 20 44 65 6c |g.. C-c| C-d Del|
|00004330| 65 74 65 20 63 68 61 72 | 20 61 74 20 70 6f 69 6e |ete char| at poin|
|00004340| 74 20 2d 20 74 68 65 20 | 63 6f 6d 6d 61 6e 64 20 |t - the |command |
|00004350| 6e 6f 72 6d 61 6c 6c 79 | 20 61 73 73 69 67 6e 65 |normally| assigne|
|00004360| 64 20 74 6f 20 43 2d 64 | 2e 0a 20 20 5c 5c 5b 70 |d to C-d|.. \\[p|
|00004370| 69 63 74 75 72 65 2d 62 | 61 63 6b 77 61 72 64 2d |icture-b|ackward-|
|00004380| 63 6c 65 61 72 2d 63 6f | 6c 75 6d 6e 5d 20 20 43 |clear-co|lumn] C|
|00004390| 6c 65 61 72 20 28 72 65 | 70 6c 61 63 65 29 20 41 |lear (re|place) A|
|000043a0| 52 47 20 63 6f 6c 75 6d | 6e 73 20 62 65 66 6f 72 |RG colum|ns befor|
|000043b0| 65 20 70 6f 69 6e 74 2c | 20 6d 6f 76 69 6e 67 20 |e point,| moving |
|000043c0| 62 61 63 6b 20 6f 76 65 | 72 20 74 68 65 6d 2e 0a |back ove|r them..|
|000043d0| 20 20 5c 5c 5b 70 69 63 | 74 75 72 65 2d 63 6c 65 | \\[pic|ture-cle|
|000043e0| 61 72 2d 6c 69 6e 65 5d | 09 20 20 43 6c 65 61 72 |ar-line]|. Clear|
|000043f0| 20 41 52 47 20 6c 69 6e | 65 73 2c 20 61 64 76 61 | ARG lin|es, adva|
|00004400| 6e 63 69 6e 67 20 6f 76 | 65 72 20 74 68 65 6d 2e |ncing ov|er them.|
|00004410| 09 20 54 68 65 20 63 6c | 65 61 72 65 64 0a 09 20 |. The cl|eared.. |
|00004420| 20 20 20 74 65 78 74 20 | 69 73 20 73 61 76 65 64 | text |is saved|
|00004430| 20 69 6e 20 74 68 65 20 | 6b 69 6c 6c 20 72 69 6e | in the |kill rin|
|00004440| 67 2e 0a 20 20 5c 5c 5b | 70 69 63 74 75 72 65 2d |g.. \\[|picture-|
|00004450| 6f 70 65 6e 2d 6c 69 6e | 65 5d 09 20 20 4f 70 65 |open-lin|e]. Ope|
|00004460| 6e 20 62 6c 61 6e 6b 20 | 6c 69 6e 65 28 73 29 20 |n blank |line(s) |
|00004470| 62 65 6e 65 61 74 68 20 | 63 75 72 72 65 6e 74 20 |beneath |current |
|00004480| 6c 69 6e 65 2e 0a 59 6f | 75 20 63 61 6e 20 6d 61 |line..Yo|u can ma|
|00004490| 6e 69 70 75 6c 61 74 65 | 20 72 65 63 74 61 6e 67 |nipulate| rectang|
|000044a0| 6c 65 73 20 77 69 74 68 | 20 74 68 65 73 65 20 63 |les with| these c|
|000044b0| 6f 6d 6d 61 6e 64 73 3a | 0a 20 20 43 2d 63 20 43 |ommands:|. C-c C|
|000044c0| 2d 6b 20 43 6c 65 61 72 | 20 28 6f 72 20 6b 69 6c |-k Clear| (or kil|
|000044d0| 6c 29 20 61 20 72 65 63 | 74 61 6e 67 6c 65 20 61 |l) a rec|tangle a|
|000044e0| 6e 64 20 73 61 76 65 20 | 69 74 2e 0a 20 20 43 2d |nd save |it.. C-|
|000044f0| 63 20 43 2d 77 20 4c 69 | 6b 65 20 43 2d 63 20 43 |c C-w Li|ke C-c C|
|00004500| 2d 6b 20 65 78 63 65 70 | 74 20 72 65 63 74 61 6e |-k excep|t rectan|
|00004510| 67 6c 65 20 69 73 20 73 | 61 76 65 64 20 69 6e 20 |gle is s|aved in |
|00004520| 6e 61 6d 65 64 20 72 65 | 67 69 73 74 65 72 2e 0a |named re|gister..|
|00004530| 20 20 43 2d 63 20 43 2d | 79 20 4f 76 65 72 6c 61 | C-c C-|y Overla|
|00004540| 79 20 28 6f 72 20 69 6e | 73 65 72 74 29 20 63 75 |y (or in|sert) cu|
|00004550| 72 72 65 6e 74 6c 79 20 | 73 61 76 65 64 20 72 65 |rrently |saved re|
|00004560| 63 74 61 6e 67 6c 65 20 | 61 74 20 70 6f 69 6e 74 |ctangle |at point|
|00004570| 2e 0a 20 20 43 2d 63 20 | 43 2d 78 20 4c 69 6b 65 |.. C-c |C-x Like|
|00004580| 20 43 2d 63 20 43 2d 79 | 20 65 78 63 65 70 74 20 | C-c C-y| except |
|00004590| 72 65 63 74 61 6e 67 6c | 65 20 69 73 20 74 61 6b |rectangl|e is tak|
|000045a0| 65 6e 20 66 72 6f 6d 20 | 6e 61 6d 65 64 20 72 65 |en from |named re|
|000045b0| 67 69 73 74 65 72 2e 0a | 20 20 5c 5c 5b 63 6f 70 |gister..| \\[cop|
|000045c0| 79 2d 72 65 63 74 61 6e | 67 6c 65 2d 74 6f 2d 72 |y-rectan|gle-to-r|
|000045d0| 65 67 69 73 74 65 72 5d | 20 20 20 43 6f 70 69 65 |egister]| Copie|
|000045e0| 73 20 61 20 72 65 63 74 | 61 6e 67 6c 65 20 74 6f |s a rect|angle to|
|000045f0| 20 61 20 72 65 67 69 73 | 74 65 72 2e 0a 20 20 5c | a regis|ter.. \|
|00004600| 5c 5b 61 64 76 65 72 74 | 69 73 65 64 2d 75 6e 64 |\[advert|ised-und|
|00004610| 6f 5d 20 20 20 43 61 6e | 20 75 6e 64 6f 20 65 66 |o] Can| undo ef|
|00004620| 66 65 63 74 73 20 6f 66 | 20 72 65 63 74 61 6e 67 |fects of| rectang|
|00004630| 6c 65 20 6f 76 65 72 6c | 61 79 20 63 6f 6d 6d 61 |le overl|ay comma|
|00004640| 6e 64 73 0a 09 20 20 20 | 20 63 6f 6d 6d 61 6e 64 |nds.. | command|
|00004650| 73 20 69 66 20 69 6e 76 | 6f 6b 65 64 20 73 6f 6f |s if inv|oked soo|
|00004660| 6e 20 65 6e 6f 75 67 68 | 2e 0a 59 6f 75 20 63 61 |n enough|..You ca|
|00004670| 6e 20 72 65 74 75 72 6e | 20 74 6f 20 74 68 65 20 |n return| to the |
|00004680| 70 72 65 76 69 6f 75 73 | 20 6d 6f 64 65 20 77 69 |previous| mode wi|
|00004690| 74 68 3a 0a 20 20 43 2d | 63 20 43 2d 63 20 57 68 |th:. C-|c C-c Wh|
|000046a0| 69 63 68 20 61 6c 73 6f | 20 73 74 72 69 70 73 20 |ich also| strips |
|000046b0| 74 72 61 69 6c 69 6e 67 | 20 77 68 69 74 65 73 70 |trailing| whitesp|
|000046c0| 61 63 65 20 66 72 6f 6d | 20 65 76 65 72 79 20 6c |ace from| every l|
|000046d0| 69 6e 65 2e 0a 09 20 20 | 20 20 53 74 72 69 70 70 |ine... | Stripp|
|000046e0| 69 6e 67 20 69 73 20 73 | 75 70 70 72 65 73 73 65 |ing is s|uppresse|
|000046f0| 64 20 62 79 20 73 75 70 | 70 6c 79 69 6e 67 20 61 |d by sup|plying a|
|00004700| 6e 20 61 72 67 75 6d 65 | 6e 74 2e 0a 0a 45 6e 74 |n argume|nt...Ent|
|00004710| 72 79 20 74 6f 20 74 68 | 69 73 20 6d 6f 64 65 20 |ry to th|is mode |
|00004720| 63 61 6c 6c 73 20 74 68 | 65 20 76 61 6c 75 65 20 |calls th|e value |
|00004730| 6f 66 20 20 70 69 63 74 | 75 72 65 2d 6d 6f 64 65 |of pict|ure-mode|
|00004740| 2d 68 6f 6f 6b 20 20 69 | 66 20 6e 6f 6e 2d 6e 69 |-hook i|f non-ni|
|00004750| 6c 2e 0a 0a 4e 6f 74 65 | 20 74 68 61 74 20 50 69 |l...Note| that Pi|
|00004760| 63 74 75 72 65 20 6d 6f | 64 65 20 63 6f 6d 6d 61 |cture mo|de comma|
|00004770| 6e 64 73 20 77 69 6c 6c | 20 77 6f 72 6b 20 6f 75 |nds will| work ou|
|00004780| 74 73 69 64 65 20 6f 66 | 20 50 69 63 74 75 72 65 |tside of| Picture|
|00004790| 20 6d 6f 64 65 2c 20 62 | 75 74 0a 74 68 65 79 20 | mode, b|ut.they |
|000047a0| 61 72 65 20 6e 6f 74 20 | 64 65 66 61 75 6c 74 6c |are not |defaultl|
|000047b0| 79 20 61 73 73 69 67 6e | 65 64 20 74 6f 20 6b 65 |y assign|ed to ke|
|000047c0| 79 73 2e 22 20 6e 69 6c | 5d 29 0a 28 64 65 66 61 |ys." nil|]).(defa|
|000047d0| 6c 69 61 73 20 28 71 75 | 6f 74 65 20 65 64 69 74 |lias (qu|ote edit|
|000047e0| 2d 70 69 63 74 75 72 65 | 29 20 28 71 75 6f 74 65 |-picture|) (quote|
|000047f0| 20 70 69 63 74 75 72 65 | 2d 6d 6f 64 65 29 29 0a | picture|-mode)).|
|00004800| 28 64 65 66 61 6c 69 61 | 73 20 27 70 69 63 74 75 |(defalia|s 'pictu|
|00004810| 72 65 2d 6d 6f 64 65 2d | 65 78 69 74 20 23 5b 28 |re-mode-|exit #[(|
|00004820| 26 6f 70 74 69 6f 6e 61 | 6c 20 6e 6f 73 74 72 69 |&optiona|l nostri|
|00004830| 70 29 20 22 08 c1 3d 84 | 5c 6e 00 c2 c3 21 87 5c |p) "..=.|\n...!.\|
|00004840| 66 84 11 00 c5 20 88 0e | 06 16 07 c8 0e 09 21 88 |f.... ..|......!.|
|00004850| 0e 5c 6e 10 cb cc 21 88 | 0e 0d 16 0e cf d0 20 21 |.\n...!.|...... !|
|00004860| 87 22 20 5b 6d 61 6a 6f | 72 2d 6d 6f 64 65 20 70 |." [majo|r-mode p|
|00004870| 69 63 74 75 72 65 2d 6d | 6f 64 65 20 65 72 72 6f |icture-m|ode erro|
|00004880| 72 20 22 59 6f 75 20 61 | 72 65 6e 27 74 20 65 64 |r "You a|ren't ed|
|00004890| 69 74 69 6e 67 20 61 20 | 50 69 63 74 75 72 65 2e |iting a |Picture.|
|000048a0| 22 20 6e 6f 73 74 72 69 | 70 20 70 69 63 74 75 72 |" nostri|p pictur|
|000048b0| 65 2d 63 6c 65 61 6e 20 | 70 69 63 74 75 72 65 2d |e-clean |picture-|
|000048c0| 6d 6f 64 65 2d 6f 6c 64 | 2d 6d 6f 64 65 2d 6e 61 |mode-old|-mode-na|
|000048d0| 6d 65 20 6d 6f 64 65 2d | 6e 61 6d 65 20 75 73 65 |me mode-|name use|
|000048e0| 2d 6c 6f 63 61 6c 2d 6d | 61 70 20 70 69 63 74 75 |-local-m|ap pictu|
|000048f0| 72 65 2d 6d 6f 64 65 2d | 6f 6c 64 2d 6c 6f 63 61 |re-mode-|old-loca|
|00004900| 6c 2d 6d 61 70 20 70 69 | 63 74 75 72 65 2d 6d 6f |l-map pi|cture-mo|
|00004910| 64 65 2d 6f 6c 64 2d 6d | 61 6a 6f 72 2d 6d 6f 64 |de-old-m|ajor-mod|
|00004920| 65 20 6b 69 6c 6c 2d 6c | 6f 63 61 6c 2d 76 61 72 |e kill-l|ocal-var|
|00004930| 69 61 62 6c 65 20 74 61 | 62 2d 73 74 6f 70 2d 6c |iable ta|b-stop-l|
|00004940| 69 73 74 20 70 69 63 74 | 75 72 65 2d 6d 6f 64 65 |ist pict|ure-mode|
|00004950| 2d 6f 6c 64 2d 74 72 75 | 6e 63 61 74 65 2d 6c 69 |-old-tru|ncate-li|
|00004960| 6e 65 73 20 74 72 75 6e | 63 61 74 65 2d 6c 69 6e |nes trun|cate-lin|
|00004970| 65 73 20 73 65 74 2d 62 | 75 66 66 65 72 2d 6d 6f |es set-b|uffer-mo|
|00004980| 64 69 66 69 65 64 2d 70 | 20 62 75 66 66 65 72 2d |dified-p| buffer-|
|00004990| 6d 6f 64 69 66 69 65 64 | 2d 70 5d 20 32 20 22 5c |modified|-p] 2 "\|
|000049a0| 0a 55 6e 64 6f 20 70 69 | 63 74 75 72 65 2d 6d 6f |.Undo pi|cture-mo|
|000049b0| 64 65 20 61 6e 64 20 72 | 65 74 75 72 6e 20 74 6f |de and r|eturn to|
|000049c0| 20 70 72 65 76 69 6f 75 | 73 20 6d 61 6a 6f 72 20 | previou|s major |
|000049d0| 6d 6f 64 65 2e 0a 57 69 | 74 68 20 6e 6f 20 61 72 |mode..Wi|th no ar|
|000049e0| 67 75 6d 65 6e 74 20 73 | 74 72 69 70 73 20 77 68 |gument s|trips wh|
|000049f0| 69 74 65 73 70 61 63 65 | 20 66 72 6f 6d 20 65 6e |itespace| from en|
|00004a00| 64 20 6f 66 20 65 76 65 | 72 79 20 6c 69 6e 65 20 |d of eve|ry line |
|00004a10| 69 6e 20 50 69 63 74 75 | 72 65 20 62 75 66 66 65 |in Pictu|re buffe|
|00004a20| 72 0a 20 20 6f 74 68 65 | 72 77 69 73 65 20 6a 75 |r. othe|rwise ju|
|00004a30| 73 74 20 72 65 74 75 72 | 6e 20 74 6f 20 70 72 65 |st retur|n to pre|
|00004a40| 76 69 6f 75 73 20 6d 6f | 64 65 2e 22 20 22 50 22 |vious mo|de." "P"|
|00004a50| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 70 69 |]).(defa|lias 'pi|
|00004a60| 63 74 75 72 65 2d 63 6c | 65 61 6e 20 23 5b 6e 69 |cture-cl|ean #[ni|
|00004a70| 6c 20 22 8a 65 62 88 c0 | c1 c2 c3 23 85 14 00 c4 |l ".eb..|...#....|
|00004a80| 94 60 7c 88 82 04 00 29 | 87 22 20 5b 72 65 2d 73 |.`|....)|." [re-s|
|00004a90| 65 61 72 63 68 2d 66 6f | 72 77 61 72 64 20 22 5b |earch-fo|rward "[|
|00004aa0| 20 09 5d 5b 20 09 5d 2a | 24 22 20 6e 69 6c 20 74 | .][ .]*|$" nil t|
|00004ab0| 20 30 5d 20 34 20 22 5c | 0a 45 6c 69 6d 69 6e 61 | 0] 4 "\|.Elimina|
|00004ac0| 74 65 20 77 68 69 74 65 | 73 70 61 63 65 20 61 74 |te white|space at|
|00004ad0| 20 65 6e 64 73 20 6f 66 | 20 6c 69 6e 65 73 2e 22 | ends of| lines."|
|00004ae0| 5d 29 0a 28 70 72 6f 76 | 69 64 65 20 28 71 75 6f |]).(prov|ide (quo|
|00004af0| 74 65 20 70 69 63 74 75 | 72 65 29 29 0a |te pictu|re)). |
+--------+-------------------------+-------------------------+--------+--------+
