/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / lucid / lemacs-19.6 / lisp / prim / misc.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 77 7a 40 74 68 61 |piled by| jwz@tha|
|00000020| 6c 69 64 6f 6d 69 64 65 | 20 6f 6e 20 4d 6f 6e 20 |lidomide| on Mon |
|00000030| 46 65 62 20 20 31 20 31 | 39 3a 32 34 3a 32 37 20 |Feb  1 1|9:24:27 |
|00000040| 31 39 39 33 0a 3b 3b 3b | 20 66 72 6f 6d 20 66 69 |1993.;;;| from fi|
|00000050| 6c 65 20 2f 63 61 64 69 | 6c 6c 61 63 31 2f 63 6f |le /cadi|llac1/co|
|00000060| 64 65 2f 62 75 69 6c 64 | 2f 6c 65 6d 61 63 73 2f |de/build|/lemacs/|
|00000070| 6c 69 73 70 2f 70 72 69 | 6d 2f 6d 69 73 63 2e 65 |lisp/pri|m/misc.e|
|00000080| 6c 0a 3b 3b 3b 20 65 6d | 61 63 73 20 76 65 72 73 |l.;;; em|acs vers|
|00000090| 69 6f 6e 20 31 39 2e 34 | 2e 31 33 20 4c 75 63 69 |ion 19.4|.13 Luci|
|000000a0| 64 2e 0a 3b 3b 3b 20 62 | 79 74 65 63 6f 6d 70 20 |d..;;; b|ytecomp |
|000000b0| 76 65 72 73 69 6f 6e 20 | 32 2e 31 30 3b 20 20 31 |version |2.10;  1|
|000000c0| 2d 66 65 62 2d 39 33 2e | 0a 3b 3b 3b 20 6f 70 74 |-feb-93.|.;;; opt|
|000000d0| 69 6d 69 7a 61 74 69 6f | 6e 20 69 73 20 6f 6e 2e |imizatio|n is on.|
|000000e0| 0a 3b 3b 3b 20 74 68 69 | 73 20 66 69 6c 65 20 75 |.;;; thi|s file u|
|000000f0| 73 65 73 20 6f 70 63 6f | 64 65 73 20 77 68 69 63 |ses opco|des whic|
|00000100| 68 20 64 6f 20 6e 6f 74 | 20 65 78 69 73 74 20 69 |h do not| exist i|
|00000110| 6e 20 45 6d 61 63 73 31 | 38 2e 0a 0a 28 69 66 20 |n Emacs1|8...(if |
|00000120| 28 61 6e 64 20 28 62 6f | 75 6e 64 70 20 27 65 6d |(and (bo|undp 'em|
|00000130| 61 63 73 2d 76 65 72 73 | 69 6f 6e 29 0a 09 20 28 |acs-vers|ion).. (|
|00000140| 6f 72 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |or (and |(boundp |
|00000150| 27 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 |'epoch::|version)|
|00000160| 20 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 | epoch::|version)|
|00000170| 0a 09 20 20 20 20 20 28 | 73 74 72 69 6e 67 2d 6c |..     (|string-l|
|00000180| 65 73 73 70 20 65 6d 61 | 63 73 2d 76 65 72 73 69 |essp ema|cs-versi|
|00000190| 6f 6e 20 22 31 39 22 29 | 29 29 0a 20 20 20 20 28 |on "19")|)).    (|
|000001a0| 65 72 72 6f 72 20 22 54 | 68 69 73 20 66 69 6c 65 |error "T|his file|
|000001b0| 20 77 61 73 20 63 6f 6d | 70 69 6c 65 64 20 66 6f | was com|piled fo|
|000001c0| 72 20 45 6d 61 63 73 31 | 39 2e 22 29 29 0a 0a 28 |r Emacs1|9."))..(|
|000001d0| 66 73 65 74 20 27 63 6f | 70 79 2d 66 72 6f 6d 2d |fset 'co|py-from-|
|000001e0| 61 62 6f 76 65 2d 63 6f | 6d 6d 61 6e 64 20 23 5b |above-co|mmand #[|
|000001f0| 28 26 6f 70 74 69 6f 6e | 61 6c 20 61 72 67 29 20 |(&option|al arg) |
|00000200| 22 69 c0 c1 1a 1b 1c 8a | c5 79 88 c6 c7 21 88 c8 |"i......|.y...!..|
|00000210| c0 78 88 c9 0c 21 88 0e | 5c 6e ab 86 cb 0e 5c 6e |.x...!..|\n....\n|
|00000220| 21 aa 81 64 13 0c 69 57 | ab 9c 68 cc 55 ab 93 cd |!..d..iW|..h.U...|
|00000230| 0b 69 0c 5a 5e ce 5c 22 | 12 0b 89 69 0c 5a 5e 5a |.i.Z^.\"|...i.Z^Z|
|00000240| 13 aa 84 c6 c7 21 88 5c | 6e 60 8a c0 7f 88 60 29 |.....!.\|n`....`)|
|00000250| 0b 60 5c 5c 5e 7b 50 12 | 29 5c 6e 63 2b 87 22 20 |.`\\^{P.|)\nc+." |
|00000260| 5b 6e 69 6c 20 22 22 20 | 73 74 72 69 6e 67 20 6e |[nil "" |string n|
|00000270| 20 63 63 20 30 20 62 61 | 63 6b 77 61 72 64 2d 63 | cc 0 ba|ckward-c|
|00000280| 68 61 72 20 31 20 22 20 | 09 5c 6e 22 20 6d 6f 76 |har 1 " |.\n" mov|
|00000290| 65 2d 74 6f 2d 63 6f 6c | 75 6d 6e 20 61 72 67 20 |e-to-col|umn arg |
|000002a0| 70 72 65 66 69 78 2d 6e | 75 6d 65 72 69 63 2d 76 |prefix-n|umeric-v|
|000002b0| 61 6c 75 65 20 39 20 6d | 61 6b 65 2d 73 74 72 69 |alue 9 m|ake-stri|
|000002c0| 6e 67 20 33 32 5d 20 35 | 20 22 5c 0a 43 6f 70 79 |ng 32] 5| "\.Copy|
|000002d0| 20 63 68 61 72 61 63 74 | 65 72 73 20 66 72 6f 6d | charact|ers from|
|000002e0| 20 70 72 65 76 69 6f 75 | 73 20 6e 6f 6e 62 6c 61 | previou|s nonbla|
|000002f0| 6e 6b 20 6c 69 6e 65 2c | 20 73 74 61 72 74 69 6e |nk line,| startin|
|00000300| 67 20 6a 75 73 74 20 61 | 62 6f 76 65 20 70 6f 69 |g just a|bove poi|
|00000310| 6e 74 2e 0a 43 6f 70 79 | 20 41 52 47 20 63 68 61 |nt..Copy| ARG cha|
|00000320| 72 61 63 74 65 72 73 2c | 20 62 75 74 20 6e 6f 74 |racters,| but not|
|00000330| 20 70 61 73 74 20 74 68 | 65 20 65 6e 64 20 6f 66 | past th|e end of|
|00000340| 20 74 68 61 74 20 6c 69 | 6e 65 2e 0a 49 66 20 6e | that li|ne..If n|
|00000350| 6f 20 61 72 67 75 6d 65 | 6e 74 20 67 69 76 65 6e |o argume|nt given|
|00000360| 2c 20 63 6f 70 79 20 74 | 68 65 20 65 6e 74 69 72 |, copy t|he entir|
|00000370| 65 20 72 65 73 74 20 6f | 66 20 74 68 65 20 6c 69 |e rest o|f the li|
|00000380| 6e 65 2e 0a 54 68 65 20 | 63 68 61 72 61 63 74 65 |ne..The |characte|
|00000390| 72 73 20 63 6f 70 69 65 | 64 20 61 72 65 20 69 6e |rs copie|d are in|
|000003a0| 73 65 72 74 65 64 20 69 | 6e 20 74 68 65 20 62 75 |serted i|n the bu|
|000003b0| 66 66 65 72 20 62 65 66 | 6f 72 65 20 70 6f 69 6e |ffer bef|ore poin|
|000003c0| 74 2e 22 20 22 50 22 5d | 29 0a                   |t." "P"]|).      |
+--------+-------------------------+-------------------------+--------+--------+