home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1994 November / macformat-018.iso / Utility Spectacular / Text / Emacs-1.12d folder / lisp / studly.elc < prev    next >
Emacs Compiled Lisp  |  1993-11-09  |  770 b   |  [dELC/EMAC]

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.

ConfidenceProgramDetectionMatch TypeSupport
1% dexvert Emacs Compiled Lisp (other/emacsCompiledLisp) magic Unsupported
1% dexvert Combustion 2 Particle Library (other/combustion2ParticleLibrary) ext Unsupported
100% file Emacs v18 byte-compiled Lisp data default
99% file data default
100% gt2 Kopftext: '(defun studlify-region (begin end) ' default (weak)
100% xdgMime text/x-emacs-lisp default (weak)


id metadata
keyvalue
macFileType[dELC]
macFileCreator[EMAC]



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0a 28 64 65 66 75 6e 20 | 73 74 75 64 6c 69 66 79 |.(defun |studlify|
|00000010| 2d 72 65 67 69 6f 6e 20 | 28 62 65 67 69 6e 20 65 |-region |(begin e|
|00000020| 6e 64 29 20 22 5c 0a 53 | 74 75 64 6c 69 66 79 2d |nd) "\.S|tudlify-|
|00000030| 63 61 73 65 20 74 68 65 | 20 72 65 67 69 6f 6e 22 |case the| region"|
|00000040| 20 28 69 6e 74 65 72 61 | 63 74 69 76 65 20 22 2a | (intera|ctive "*|
|00000050| 72 22 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |r") (byt|e-code "|
|00000060| c6 88 8a 08 62 88 60 89 | 10 88 60 09 58 85 14 00 |....b.`.|..`.X...|
|00000070| c7 c8 21 3f 85 9b 00 c9 | ca 21 88 cb ca 21 88 60 |..!?....|.!...!.`|
|00000080| 08 5d 89 10 88 c9 ca 21 | 88 cc 60 09 5e c6 1c 1b |.].....!|..`.^...|
|00000090| 1a 08 62 88 60 0b 57 85 | 47 00 0a 67 5c 5c 89 12 |..b.`.W.|G..g\\..|
|000000a0| 88 cd ca 21 88 82 34 00 | 88 0a 67 5c 5c 89 12 88 |...!..4.|..g\\...|
|000000b0| 08 62 88 60 0b 57 85 92 | 00 67 89 14 88 ce 0c 0a |.b.`.W..|.g......|
|000000c0| 5c 5c cf 5c 22 d0 55 85 | 7e 00 67 1d 0d d1 59 85 |\\.\".U.|~.g...Y.|
|000000d0| 71 00 0d d2 58 86 7d 00 | 0d d3 59 85 7d 00 0d d4 |q...X.}.|..Y.}...|
|000000e0| 58 29 85 8a 00 d5 ca 21 | 88 d6 0c d7 5c 22 63 88 |X).....!|....\"c.|
|000000f0| cd ca 21 88 82 51 00 88 | 60 89 10 2b 88 82 0a 00 |..!..Q..|`..+....|
|00000100| 29 87 22 20 5b 62 65 67 | 69 6e 20 65 6e 64 20 6f |)." [beg|in end o|
|00000110| 66 66 73 65 74 20 77 6f | 72 64 2d 65 6e 64 20 63 |ffset wo|rd-end c|
|00000120| 20 63 68 20 6e 69 6c 20 | 6c 6f 6f 6b 69 6e 67 2d | ch nil |looking-|
|00000130| 61 74 20 22 5c 5c 57 2a | 5c 5c 27 22 20 66 6f 72 |at "\\W*|\\'" for|
|00000140| 77 61 72 64 2d 77 6f 72 | 64 20 31 20 62 61 63 6b |ward-wor|d 1 back|
|00000150| 77 61 72 64 2d 77 6f 72 | 64 20 30 20 66 6f 72 77 |ward-wor|d 0 forw|
|00000160| 61 72 64 2d 63 68 61 72 | 20 25 20 34 20 32 20 39 |ard-char| % 4 2 9|
|00000170| 37 20 31 32 32 20 36 35 | 20 39 30 20 64 65 6c 65 |7 122 65| 90 dele|
|00000180| 74 65 2d 63 68 61 72 20 | 6c 6f 67 78 6f 72 20 33 |te-char |logxor 3|
|00000190| 32 5d 20 31 32 29 29 0a | 0a 28 64 65 66 75 6e 20 |2] 12)).|.(defun |
|000001a0| 73 74 75 64 6c 69 66 79 | 2d 77 6f 72 64 20 28 63 |studlify|-word (c|
|000001b0| 6f 75 6e 74 29 20 22 5c | 0a 53 74 75 64 6c 69 66 |ount) "\|.Studlif|
|000001c0| 79 2d 63 61 73 65 20 74 | 68 65 20 63 75 72 72 65 |y-case t|he curre|
|000001d0| 6e 74 20 77 6f 72 64 2c | 20 6f 72 20 43 4f 55 4e |nt word,| or COUN|
|000001e0| 54 20 77 6f 72 64 73 20 | 69 66 20 67 69 76 65 6e |T words |if given|
|000001f0| 20 61 6e 20 61 72 67 75 | 6d 65 6e 74 22 20 28 69 | an argu|ment" (i|
|00000200| 6e 74 65 72 61 63 74 69 | 76 65 20 22 2a 70 22 29 |nteracti|ve "*p")|
|00000210| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c5 88 60 | (byte-c|ode "..`|
|00000220| c5 c5 c5 1b 1a 19 18 c6 | 0c 21 88 60 89 11 88 08 |........|.!.`....|
|00000230| 09 5e 12 08 09 5d 89 13 | 88 c7 0a 0b 5c 22 2c 87 |.^...]..|....\",.|
|00000240| 22 20 5b 62 65 67 69 6e | 20 65 6e 64 20 72 62 20 |" [begin| end rb |
|00000250| 72 65 20 63 6f 75 6e 74 | 20 6e 69 6c 20 66 6f 72 |re count| nil for|
|00000260| 77 61 72 64 2d 77 6f 72 | 64 20 73 74 75 64 6c 69 |ward-wor|d studli|
|00000270| 66 79 2d 72 65 67 69 6f | 6e 5d 20 34 29 29 0a 0a |fy-regio|n] 4))..|
|00000280| 28 64 65 66 75 6e 20 73 | 74 75 64 6c 69 66 79 2d |(defun s|tudlify-|
|00000290| 62 75 66 66 65 72 20 6e | 69 6c 20 22 5c 0a 53 74 |buffer n|il "\.St|
|000002a0| 75 64 6c 69 66 79 2d 63 | 61 73 65 20 74 68 65 20 |udlify-c|ase the |
|000002b0| 63 75 72 72 65 6e 74 20 | 62 75 66 66 65 72 22 20 |current |buffer" |
|000002c0| 28 69 6e 74 65 72 61 63 | 74 69 76 65 20 22 2a 22 |(interac|tive "*"|
|000002d0| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 88 |) (byte-|code "..|
|000002e0| c1 65 64 5c 22 87 22 20 | 5b 6e 69 6c 20 73 74 75 |.ed\"." |[nil stu|
|000002f0| 64 6c 69 66 79 2d 72 65 | 67 69 6f 6e 5d 20 33 29 |dlify-re|gion] 3)|
|00000300| 29 0a | |). | |
+--------+-------------------------+-------------------------+--------+--------+