summaryrefslogtreecommitdiff
path: root/lisp/studly.elc
blob: 309b31a825338cf5a1c8df84ebf44faa21d7df59 (plain)
ofshex dumpascii
0000 0a 28 64 65 66 75 6e 20 73 74 75 64 6c 69 66 79 2d 72 65 67 69 6f 6e 20 28 62 65 67 69 6e 20 65 .(defun.studlify-region.(begin.e
0020 6e 64 29 20 22 5c 0a 53 74 75 64 6c 69 66 79 2d 63 61 73 65 20 74 68 65 20 72 65 67 69 6f 6e 22 nd)."\.Studlify-case.the.region"
0040 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 2a 72 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 .(interactive."*r").(byte-code."
0060 c6 88 8a 08 62 88 60 89 10 88 60 09 58 85 14 00 c7 c8 21 3f 85 9f 00 c9 ca 21 88 cb ca 21 88 60 ....b.`...`.X.....!?.....!...!.`
0080 08 5d 89 10 88 c9 ca 21 88 cc 60 09 5e c6 1c 1b 1a 08 62 88 60 0b 57 85 47 00 0a 67 5c 5c 89 12 .].....!..`.^.....b.`.W.G..g\\..
00a0 88 cd ca 21 88 82 34 00 88 0a 67 5c 5c 89 12 88 08 62 88 60 0b 57 85 96 00 67 89 14 88 ce 0c 0a ...!..4...g\\....b.`.W...g......
00c0 5c 5c cf 5c 22 d0 55 85 7e 00 67 1d 0d d1 59 85 71 00 0d d2 58 86 7d 00 0d d3 59 85 7d 00 0d d4 \\.\".U.~.g...Y.q...X.}...Y.}...
00e0 58 29 83 8d 00 d5 ca 21 88 d6 0c d7 5c 22 63 82 8e 00 c6 88 cd ca 21 88 82 51 00 88 60 89 10 2b X).....!....\"c.......!..Q..`..+
0100 88 82 0a 00 29 87 22 20 5b 62 65 67 69 6e 20 65 6e 64 20 6f 66 66 73 65 74 20 77 6f 72 64 2d 65 ....).".[begin.end.offset.word-e
0120 6e 64 20 63 20 63 68 20 6e 69 6c 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 5c 5c 57 2a 5c 5c 27 22 nd.c.ch.nil.looking-at."\\W*\\'"
0140 20 66 6f 72 77 61 72 64 2d 77 6f 72 64 20 31 20 62 61 63 6b 77 61 72 64 2d 77 6f 72 64 20 30 20 .forward-word.1.backward-word.0.
0160 66 6f 72 77 61 72 64 2d 63 68 61 72 20 25 20 34 20 32 20 39 37 20 31 32 32 20 36 35 20 39 30 20 forward-char.%.4.2.97.122.65.90.
0180 64 65 6c 65 74 65 2d 63 68 61 72 20 6c 6f 67 78 6f 72 20 33 32 5d 20 31 32 29 29 0a 0a 28 64 65 delete-char.logxor.32].12))..(de
01a0 66 75 6e 20 73 74 75 64 6c 69 66 79 2d 77 6f 72 64 20 28 63 6f 75 6e 74 29 20 22 5c 0a 53 74 75 fun.studlify-word.(count)."\.Stu
01c0 64 6c 69 66 79 2d 63 61 73 65 20 74 68 65 20 63 75 72 72 65 6e 74 20 77 6f 72 64 2c 20 6f 72 20 dlify-case.the.current.word,.or.
01e0 43 4f 55 4e 54 20 77 6f 72 64 73 20 69 66 20 67 69 76 65 6e 20 61 6e 20 61 72 67 75 6d 65 6e 74 COUNT.words.if.given.an.argument
0200 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 2a 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 ".(interactive."*p").(byte-code.
0220 22 c5 88 60 c5 c5 c5 1b 1a 19 18 c6 0c 21 88 60 89 11 88 08 09 5e 12 08 09 5d 89 13 88 c7 0a 0b "..`.........!.`.....^...]......
0240 5c 22 2c 87 22 20 5b 62 65 67 69 6e 20 65 6e 64 20 72 62 20 72 65 20 63 6f 75 6e 74 20 6e 69 6c \",.".[begin.end.rb.re.count.nil
0260 20 66 6f 72 77 61 72 64 2d 77 6f 72 64 20 73 74 75 64 6c 69 66 79 2d 72 65 67 69 6f 6e 5d 20 34 .forward-word.studlify-region].4
0280 29 29 0a 0a 28 64 65 66 75 6e 20 73 74 75 64 6c 69 66 79 2d 62 75 66 66 65 72 20 6e 69 6c 20 22 ))..(defun.studlify-buffer.nil."
02a0 5c 0a 53 74 75 64 6c 69 66 79 2d 63 61 73 65 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 \.Studlify-case.the.current.buff
02c0 65 72 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 2a 22 29 20 28 62 79 74 65 2d 63 6f 64 65 er".(interactive."*").(byte-code
02e0 20 22 c0 88 c1 65 64 5c 22 87 22 20 5b 6e 69 6c 20 73 74 75 64 6c 69 66 79 2d 72 65 67 69 6f 6e ."...ed\".".[nil.studlify-region
0300 5d 20 33 29 29 0a ].3)).