/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / emacs-19.16 / lisp / studly.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 69 6d 62 40 67 65 |piled by| jimb@ge|
|00000020| 65 63 68 2e 67 6e 75 2e | 61 69 2e 6d 69 74 2e 65 |ech.gnu.|ai.mit.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 4a 75 6c 20 20 36 |du on Tu|e Jul  6|
|00000040| 20 30 30 3a 30 35 3a 30 | 34 20 31 39 39 33 0a 3b | 00:05:0|4 1993.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 67 64 |;; from |file /gd|
|00000060| 2f 67 6e 75 2f 65 6d 61 | 63 73 2f 31 39 2e 30 2f |/gnu/ema|cs/19.0/|
|00000070| 6c 69 73 70 2f 73 74 75 | 64 6c 79 2e 65 6c 0a 3b |lisp/stu|dly.el.;|
|00000080| 3b 3b 20 65 6d 61 63 73 | 20 76 65 72 73 69 6f 6e |;; emacs| version|
|00000090| 20 31 39 2e 31 35 2e 31 | 36 2e 0a 3b 3b 3b 20 62 | 19.15.1|6..;;; b|
|000000a0| 79 74 65 63 6f 6d 70 20 | 76 65 72 73 69 6f 6e 20 |ytecomp |version |
|000000b0| 46 53 46 20 32 2e 31 30 | 0a 3b 3b 3b 20 6f 70 74 |FSF 2.10|.;;; opt|
|000000c0| 69 6d 69 7a 61 74 69 6f | 6e 20 69 73 20 6f 6e 2e |imizatio|n is on.|
|000000d0| 0a 3b 3b 3b 20 74 68 69 | 73 20 66 69 6c 65 20 75 |.;;; thi|s file u|
|000000e0| 73 65 73 20 6f 70 63 6f | 64 65 73 20 77 68 69 63 |ses opco|des whic|
|000000f0| 68 20 64 6f 20 6e 6f 74 | 20 65 78 69 73 74 20 69 |h do not| exist i|
|00000100| 6e 20 45 6d 61 63 73 20 | 31 38 2e 0a 0a 28 69 66 |n Emacs |18...(if|
|00000110| 20 28 61 6e 64 20 28 62 | 6f 75 6e 64 70 20 27 65 | (and (b|oundp 'e|
|00000120| 6d 61 63 73 2d 76 65 72 | 73 69 6f 6e 29 0a 09 20 |macs-ver|sion).. |
|00000130| 28 6f 72 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(or (and| (boundp|
|00000140| 20 27 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e | 'epoch:|:version|
|00000150| 29 20 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e |) epoch:|:version|
|00000160| 29 0a 09 20 20 20 20 20 | 28 73 74 72 69 6e 67 2d |)..     |(string-|
|00000170| 6c 65 73 73 70 20 65 6d | 61 63 73 2d 76 65 72 73 |lessp em|acs-vers|
|00000180| 69 6f 6e 20 22 31 39 22 | 29 29 29 0a 20 20 20 20 |ion "19"|))).    |
|00000190| 28 65 72 72 6f 72 20 22 | 54 68 69 73 20 66 69 6c |(error "|This fil|
|000001a0| 65 20 77 61 73 20 63 6f | 6d 70 69 6c 65 64 20 66 |e was co|mpiled f|
|000001b0| 6f 72 20 45 6d 61 63 73 | 20 31 39 22 29 29 0a 0a |or Emacs| 19"))..|
|000001c0| 28 64 65 66 61 6c 69 61 | 73 20 27 73 74 75 64 6c |(defalia|s 'studl|
|000001d0| 69 66 79 2d 72 65 67 69 | 6f 6e 20 23 5b 28 62 65 |ify-regi|on #[(be|
|000001e0| 67 69 6e 20 65 6e 64 29 | 20 22 8a 08 62 88 60 10 |gin end)| "..b.`.|
|000001f0| 60 09 58 85 96 00 c2 c3 | 21 3f 85 96 00 c4 76 88 |`.X.....|!?....v.|
|00000200| c5 c4 21 88 60 08 5d 10 | c4 76 88 c6 60 09 5e c7 |..!.`.].|.v..`.^.|
|00000210| 1e 08 1e 09 1e 5c 6e 08 | 62 88 60 0e 09 57 83 42 |.....\n.|b.`..W.B|
|00000220| 00 0e 5c 6e 67 5c 5c 16 | 5c 6e c4 75 88 82 2f 00 |..\ng\\.|\n.u../.|
|00000230| 0e 5c 6e 67 5c 5c 16 5c | 6e 08 62 88 60 0e 09 57 |.\ng\\.\|n.b.`..W|
|00000240| 83 90 00 67 89 16 08 0e | 5c 6e 5c 5c cb a6 cc 55 |...g....|\n\\...U|
|00000250| 83 8a 00 67 89 1e 0d ce | 59 83 70 00 0e 0d cf 58 |...g....|Y.p....X|
|00000260| 86 7b 00 0e 0d d0 59 85 | 7b 00 0e 0d d1 58 29 83 |.{....Y.|{....X).|
|00000270| 8a 00 d2 c4 21 88 d3 0e | 08 d4 5c 22 63 88 c4 75 |....!...|..\"c..u|
|00000280| 88 82 4b 00 60 10 2b 82 | 06 00 29 87 22 20 5b 62 |..K.`.+.|..)." [b|
|00000290| 65 67 69 6e 20 65 6e 64 | 20 6c 6f 6f 6b 69 6e 67 |egin end| looking|
|000002a0| 2d 61 74 20 22 5c 5c 57 | 2a 5c 5c 27 22 20 31 20 |-at "\\W|*\\'" 1 |
|000002b0| 62 61 63 6b 77 61 72 64 | 2d 77 6f 72 64 20 30 20 |backward|-word 0 |
|000002c0| 6e 69 6c 20 63 20 77 6f | 72 64 2d 65 6e 64 20 6f |nil c wo|rd-end o|
|000002d0| 66 66 73 65 74 20 34 20 | 32 20 63 68 20 39 37 20 |ffset 4 |2 ch 97 |
|000002e0| 31 32 32 20 36 35 20 39 | 30 20 64 65 6c 65 74 65 |122 65 9|0 delete|
|000002f0| 2d 63 68 61 72 20 6c 6f | 67 78 6f 72 20 33 32 5d |-char lo|gxor 32]|
|00000300| 20 34 20 22 5c 0a 53 74 | 75 64 6c 69 66 79 2d 63 | 4 "\.St|udlify-c|
|00000310| 61 73 65 20 74 68 65 20 | 72 65 67 69 6f 6e 22 20 |ase the |region" |
|00000320| 22 2a 72 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |"*r"]).(|defalias|
|00000330| 20 27 73 74 75 64 6c 69 | 66 79 2d 77 6f 72 64 20 | 'studli|fy-word |
|00000340| 23 5b 28 63 6f 75 6e 74 | 29 20 22 60 c0 89 89 19 |#[(count|) "`....|
|00000350| 1a 1b 1c 0d 76 88 60 13 | 0c 0b 5e 12 0c 0b 5d 11 |....v.`.|..^...].|
|00000360| c6 5c 6e 09 5c 22 2c 87 | 22 20 5b 6e 69 6c 20 72 |.\n.\",.|" [nil r|
|00000370| 65 20 72 62 20 65 6e 64 | 20 62 65 67 69 6e 20 63 |e rb end| begin c|
|00000380| 6f 75 6e 74 20 73 74 75 | 64 6c 69 66 79 2d 72 65 |ount stu|dlify-re|
|00000390| 67 69 6f 6e 5d 20 34 20 | 22 5c 0a 53 74 75 64 6c |gion] 4 |"\.Studl|
|000003a0| 69 66 79 2d 63 61 73 65 | 20 74 68 65 20 63 75 72 |ify-case| the cur|
|000003b0| 72 65 6e 74 20 77 6f 72 | 64 2c 20 6f 72 20 43 4f |rent wor|d, or CO|
|000003c0| 55 4e 54 20 77 6f 72 64 | 73 20 69 66 20 67 69 76 |UNT word|s if giv|
|000003d0| 65 6e 20 61 6e 20 61 72 | 67 75 6d 65 6e 74 22 20 |en an ar|gument" |
|000003e0| 22 2a 70 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |"*p"]).(|defalias|
|000003f0| 20 27 73 74 75 64 6c 69 | 66 79 2d 62 75 66 66 65 | 'studli|fy-buffe|
|00000400| 72 20 23 5b 6e 69 6c 20 | 22 c0 65 64 5c 22 87 22 |r #[nil |".ed\"."|
|00000410| 20 5b 73 74 75 64 6c 69 | 66 79 2d 72 65 67 69 6f | [studli|fy-regio|
|00000420| 6e 5d 20 33 20 22 5c 0a | 53 74 75 64 6c 69 66 79 |n] 3 "\.|Studlify|
|00000430| 2d 63 61 73 65 20 74 68 | 65 20 63 75 72 72 65 6e |-case th|e curren|
|00000440| 74 20 62 75 66 66 65 72 | 22 20 22 2a 22 5d 29 0a |t buffer|" "*"]).|
+--------+-------------------------+-------------------------+--------+--------+