/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / lucid / lemacs-19.6 / lisp / modes / NeXTify.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 57 65 64 20 |lidomide| on Wed |
|00000030| 46 65 62 20 31 37 20 30 | 30 3a 35 34 3a 35 31 20 |Feb 17 0|0:54:51 |
|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 6d 6f 64 | 65 73 2f 4e 65 58 54 69 |lisp/mod|es/NeXTi|
|00000080| 66 79 2e 65 6c 0a 3b 3b | 3b 20 65 6d 61 63 73 20 |fy.el.;;|; emacs |
|00000090| 76 65 72 73 69 6f 6e 20 | 31 39 2e 35 2e 31 20 4c |version |19.5.1 L|
|000000a0| 75 63 69 64 2e 0a 3b 3b | 3b 20 62 79 74 65 63 6f |ucid..;;|; byteco|
|000000b0| 6d 70 20 76 65 72 73 69 | 6f 6e 20 32 2e 31 30 3b |mp versi|on 2.10;|
|000000c0| 20 20 31 2d 66 65 62 2d | 39 33 2e 0a 3b 3b 3b 20 |  1-feb-|93..;;; |
|000000d0| 6f 70 74 69 6d 69 7a 61 | 74 69 6f 6e 20 69 73 20 |optimiza|tion is |
|000000e0| 6f 6e 2e 0a 3b 3b 3b 20 | 74 68 69 73 20 66 69 6c |on..;;; |this fil|
|000000f0| 65 20 75 73 65 73 20 6f | 70 63 6f 64 65 73 20 77 |e uses o|pcodes w|
|00000100| 68 69 63 68 20 64 6f 20 | 6e 6f 74 20 65 78 69 73 |hich do |not exis|
|00000110| 74 20 69 6e 20 45 6d 61 | 63 73 31 38 2e 0a 0a 28 |t in Ema|cs18...(|
|00000120| 69 66 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |if (and |(boundp |
|00000130| 27 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 29 0a |'emacs-v|ersion).|
|00000140| 09 20 28 6f 72 20 28 61 | 6e 64 20 28 62 6f 75 6e |. (or (a|nd (boun|
|00000150| 64 70 20 27 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |dp 'epoc|h::versi|
|00000160| 6f 6e 29 20 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |on) epoc|h::versi|
|00000170| 6f 6e 29 0a 09 20 20 20 | 20 20 28 73 74 72 69 6e |on)..   |  (strin|
|00000180| 67 2d 6c 65 73 73 70 20 | 65 6d 61 63 73 2d 76 65 |g-lessp |emacs-ve|
|00000190| 72 73 69 6f 6e 20 22 31 | 39 22 29 29 29 0a 20 20 |rsion "1|9"))).  |
|000001a0| 20 20 28 65 72 72 6f 72 | 20 22 54 68 69 73 20 66 |  (error| "This f|
|000001b0| 69 6c 65 20 77 61 73 20 | 63 6f 6d 70 69 6c 65 64 |ile was |compiled|
|000001c0| 20 66 6f 72 20 45 6d 61 | 63 73 31 39 2e 22 29 29 | for Ema|cs19."))|
|000001d0| 0a 0a 28 66 73 65 74 20 | 27 53 65 4c 46 2d 69 6e |..(fset |'SeLF-in|
|000001e0| 73 65 72 74 2d 63 6f 6d | 6d 61 6e 64 20 23 5b 28 |sert-com|mand #[(|
|000001f0| 61 72 67 29 20 22 60 c0 | 19 1a c3 0c 21 88 8a 5c |arg) "`.|....!..\|
|00000200| 6e 62 88 c5 c0 78 88 c0 | c6 c7 8f 3f ad 9f c8 c9 |nb...x..|...?....|
|00000210| 21 ad 9a 67 96 63 88 ca | cb 21 88 cb 75 88 67 96 |!..g.c..|.!..u.g.|
|00000220| 63 88 ca cb 21 88 67 96 | 63 88 ca cb 21 2b 87 22 |c...!.g.|c...!+."|
|00000230| 20 5b 6e 69 6c 20 63 61 | 73 65 2d 66 6f 6c 64 2d | [nil ca|se-fold-|
|00000240| 73 65 61 72 63 68 20 70 | 20 73 65 6c 66 2d 69 6e |search p| self-in|
|00000250| 73 65 72 74 2d 63 6f 6d | 6d 61 6e 64 20 61 72 67 |sert-com|mand arg|
|00000260| 20 22 20 09 0d 5c 6e 22 | 20 28 66 6f 72 77 61 72 | " ..\n"| (forwar|
|00000270| 64 2d 63 68 61 72 20 2d | 34 29 20 28 28 65 72 72 |d-char -|4) ((err|
|00000280| 6f 72 20 74 29 29 20 6c | 6f 6f 6b 69 6e 67 2d 61 |or t)) l|ooking-a|
|00000290| 74 20 22 5c 5c 3c 5b 41 | 2d 5a 61 2d 7a 5d 5b 61 |t "\\<[A|-Za-z][a|
|000002a0| 2d 7a 5d 5b 61 2d 7a 5d | 5b 61 2d 7a 5d 5b 5e 41 |-z][a-z]|[a-z][^A|
|000002b0| 2d 5a 61 2d 7a 5d 22 20 | 64 65 6c 65 74 65 2d 63 |-Za-z]" |delete-c|
|000002c0| 68 61 72 20 31 5d 20 33 | 20 22 5c 0a 49 6e 73 65 |har 1] 3| "\.Inse|
|000002d0| 72 74 20 74 68 65 20 63 | 68 61 72 61 63 74 65 72 |rt the c|haracter|
|000002e0| 20 79 6f 75 20 54 79 50 | 45 2e 0a 57 68 69 63 68 | you TyP|E..Which|
|000002f0| 65 76 65 72 20 63 68 61 | 72 61 63 74 65 72 20 79 |ever cha|racter y|
|00000300| 6f 75 20 54 79 50 45 20 | 74 6f 20 72 75 6e 20 54 |ou TyPE |to run T|
|00000310| 68 49 53 20 63 6f 6d 6d | 61 6e 64 20 69 73 20 69 |hIS comm|and is i|
|00000320| 6e 73 65 72 74 65 64 2e | 22 20 22 70 22 5d 29 0a |nserted.|" "p"]).|
|00000330| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 09 c2 c3 |(byte-co|de "....|
|00000340| 23 88 c0 09 c4 c3 23 88 | c0 09 c5 c3 23 88 c0 09 |#.....#.|....#...|
|00000350| c6 c3 23 88 c0 09 c7 c3 | 23 88 c0 09 c8 c3 23 88 |..#.....|#.....#.|
|00000360| c0 09 c9 c3 23 88 c0 09 | ca c3 23 87 22 20 5b 64 |....#...|..#." [d|
|00000370| 65 66 69 6e 65 2d 6b 65 | 79 20 74 65 78 74 2d 6d |efine-ke|y text-m|
|00000380| 6f 64 65 2d 6d 61 70 20 | 22 20 22 20 53 65 4c 46 |ode-map |" " SeLF|
|00000390| 2d 69 6e 73 65 72 74 2d | 63 6f 6d 6d 61 6e 64 20 |-insert-|command |
|000003a0| 22 2c 22 20 22 2e 22 20 | 22 21 22 20 22 2d 22 20 |"," "." |"!" "-" |
|000003b0| 22 5f 22 20 22 3b 22 20 | 22 3a 22 5d 20 34 29 0a |"_" ";" |":"] 4).|
+--------+-------------------------+-------------------------+--------+--------+