home *** CD-ROM | disk | FTP | other *** search
Emacs Compiled Lisp | 1995-08-29 | 2.0 KB |
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.
Confidence | Program | Detection | Match Type | Support
|
---|
1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
1%
| dexvert
| Combustion 2 Particle Library (other/combustion2ParticleLibrary)
| ext
| Unsupported |
100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
99%
| file
| data
| default
| |
100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
| |
100%
| xdgMime
| text/x-emacs-lisp
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|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 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 34 3a 35 32 3a 32 | 32 20 31 39 39 35 0a 3b | 14:52:2|2 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 65 78 |;; from |file /ex|
|00000060| 70 6f 72 74 2f 77 69 6c | 6c 6f 77 33 2f 78 65 6d |port/wil|low3/xem|
|00000070| 61 63 73 2d 31 39 2e 31 | 33 2d 72 65 6c 65 61 73 |acs-19.1|3-releas|
|00000080| 65 2f 65 64 69 74 6f 72 | 2f 6c 69 73 70 2f 68 79 |e/editor|/lisp/hy|
|00000090| 70 65 72 62 6f 6c 65 2f | 68 73 79 73 2d 77 61 69 |perbole/|hsys-wai|
|000000a0| 73 2e 65 6c 0a 3b 3b 3b | 20 65 6d 61 63 73 20 76 |s.el.;;;| emacs v|
|000000b0| 65 72 73 69 6f 6e 20 31 | 39 2e 31 33 20 58 45 6d |ersion 1|9.13 XEm|
|000000c0| 61 63 73 20 4c 75 63 69 | 64 2e 0a 3b 3b 3b 20 62 |acs Luci|d..;;; b|
|000000d0| 79 74 65 63 6f 6d 70 20 | 76 65 72 73 69 6f 6e 20 |ytecomp |version |
|000000e0| 32 2e 32 35 3b 20 31 2d | 53 65 70 2d 39 34 2e 0a |2.25; 1-|Sep-94..|
|000000f0| 3b 3b 3b 20 6f 70 74 69 | 6d 69 7a 61 74 69 6f 6e |;;; opti|mization|
|00000100| 20 69 73 20 6f 6e 2e 0a | 3b 3b 3b 20 74 68 69 73 | is on..|;;; this|
|00000110| 20 66 69 6c 65 20 75 73 | 65 73 20 6f 70 63 6f 64 | file us|es opcod|
|00000120| 65 73 20 77 68 69 63 68 | 20 64 6f 20 6e 6f 74 20 |es which| do not |
|00000130| 65 78 69 73 74 20 69 6e | 20 45 6d 61 63 73 20 31 |exist in| Emacs 1|
|00000140| 38 2e 0a 0a 28 69 66 20 | 28 61 6e 64 20 28 62 6f |8...(if |(and (bo|
|00000150| 75 6e 64 70 20 27 65 6d | 61 63 73 2d 76 65 72 73 |undp 'em|acs-vers|
|00000160| 69 6f 6e 29 0a 09 20 28 | 6f 72 20 28 61 6e 64 20 |ion).. (|or (and |
|00000170| 28 62 6f 75 6e 64 70 20 | 27 65 70 6f 63 68 3a 3a |(boundp |'epoch::|
|00000180| 76 65 72 73 69 6f 6e 29 | 20 65 70 6f 63 68 3a 3a |version)| epoch::|
|00000190| 76 65 72 73 69 6f 6e 29 | 0a 09 20 20 20 20 20 28 |version)|.. (|
|000001a0| 73 74 72 69 6e 67 2d 6c | 65 73 73 70 20 65 6d 61 |string-l|essp ema|
|000001b0| 63 73 2d 76 65 72 73 69 | 6f 6e 20 22 31 39 22 29 |cs-versi|on "19")|
|000001c0| 29 29 0a 20 20 20 20 28 | 65 72 72 6f 72 20 22 54 |)). (|error "T|
|000001d0| 68 69 73 20 66 69 6c 65 | 20 77 61 73 20 63 6f 6d |his file| was com|
|000001e0| 70 69 6c 65 64 20 66 6f | 72 20 45 6d 61 63 73 20 |piled fo|r Emacs |
|000001f0| 31 39 2e 22 29 29 0a 0a | 28 61 75 74 6f 6c 6f 61 |19."))..|(autoloa|
|00000200| 64 20 27 77 61 69 73 20 | 22 77 61 69 73 22 20 22 |d 'wais |"wais" "|
|00000210| 5c 0a 43 6c 69 65 6e 74 | 2d 73 65 72 76 65 72 20 |\.Client|-server |
|00000220| 66 75 6c 6c 2d 74 65 78 | 74 20 72 65 74 72 69 65 |full-tex|t retrie|
|00000230| 76 61 6c 22 20 74 29 0a | 28 61 75 74 6f 6c 6f 61 |val" t).|(autoloa|
|00000240| 64 20 27 77 61 69 73 64 | 2d 6d 6f 64 65 20 22 77 |d 'waisd|-mode "w|
|00000250| 61 69 73 22 20 22 5c 0a | 57 69 64 65 20 41 72 65 |ais" "\.|Wide Are|
|00000260| 61 20 49 6e 66 6f 72 6d | 61 74 69 6f 6e 20 53 65 |a Inform|ation Se|
|00000270| 72 76 69 63 65 73 22 20 | 74 29 0a 28 61 75 74 6f |rvices" |t).(auto|
|00000280| 6c 6f 61 64 20 27 77 61 | 69 73 2d 73 65 6c 65 63 |load 'wa|is-selec|
|00000290| 74 2d 71 75 65 73 74 69 | 6f 6e 20 22 77 61 69 73 |t-questi|on "wais|
|000002a0| 22 20 22 5c 0a 53 65 6c | 65 63 74 20 61 20 6e 65 |" "\.Sel|ect a ne|
|000002b0| 77 20 57 41 49 53 20 71 | 75 65 73 74 69 6f 6e 2e |w WAIS q|uestion.|
|000002c0| 22 20 74 29 0a 28 61 75 | 74 6f 6c 6f 61 64 20 27 |" t).(au|toload '|
|000002d0| 77 61 69 73 2d 63 72 65 | 61 74 65 2d 71 75 65 73 |wais-cre|ate-ques|
|000002e0| 74 69 6f 6e 20 22 77 61 | 69 73 22 20 22 5c 0a 43 |tion "wa|is" "\.C|
|000002f0| 72 65 61 74 65 20 61 20 | 6e 65 77 20 57 41 49 53 |reate a |new WAIS|
|00000300| 20 71 75 65 73 74 69 6f | 6e 2e 22 20 74 29 0a 28 | questio|n." t).(|
|00000310| 66 73 65 74 20 27 69 62 | 74 79 70 65 73 3a 3a 77 |fset 'ib|types::w|
|00000320| 61 69 73 2d 73 6d 61 72 | 74 20 23 5b 6e 69 6c 20 |ais-smar|t #[nil |
|00000330| 22 c0 c1 21 ad bb c2 20 | 1b c4 c5 0b 5c 22 ab 87 |"..!... |....\"..|
|00000340| 0e 06 c7 c8 5c 22 aa aa | 0b c9 9a ab 87 0e 06 c7 |....\"..|........|
|00000350| ca 5c 22 aa 9e c4 cb 0b | 5c 22 ab 8d 0e 06 c7 6d |.\".....|\".....m|
|00000360| ab 83 cc aa 81 ca 5c 22 | aa 8b c4 cd 0b 5c 22 ad |......\"|.....\".|
|00000370| 85 0e 06 c7 ce 5c 22 29 | 87 22 20 5b 66 65 61 74 |.....\")|." [feat|
|00000380| 75 72 65 70 20 77 61 69 | 73 20 62 75 66 66 65 72 |urep wai|s buffer|
|00000390| 2d 6e 61 6d 65 20 62 20 | 73 74 72 69 6e 67 2d 6d |-name b |string-m|
|000003a0| 61 74 63 68 20 22 3a 20 | 46 69 6e 64 20 44 6f 63 |atch ": |Find Doc|
|000003b0| 75 6d 65 6e 74 73 20 4f | 6e 5c 5c 7c 3a 20 53 69 |uments O|n\\|: Si|
|000003c0| 6d 69 6c 61 72 20 54 6f | 22 20 68 72 75 6c 65 3a |milar To|" hrule:|
|000003d0| 61 63 74 69 6f 6e 20 77 | 61 69 73 2d 73 6d 61 72 |action w|ais-smar|
|000003e0| 74 20 77 61 69 73 2d 71 | 75 65 72 79 20 22 2a 53 |t wais-q|uery "*S|
|000003f0| 6f 75 72 63 65 20 4c 69 | 73 74 2a 22 20 73 6f 75 |ource Li|st*" sou|
|00000400| 72 63 65 2d 6d 65 6e 75 | 2d 76 69 65 77 20 22 3a |rce-menu|-view ":|
|00000410| 20 4f 6e 20 53 6f 75 72 | 63 65 73 22 20 77 61 69 | On Sour|ces" wai|
|00000420| 73 2d 76 69 65 77 2d 73 | 6f 75 72 63 65 20 22 3a |s-view-s|ource ":|
|00000430| 20 52 65 73 75 6c 74 73 | 22 20 77 61 69 73 2d 65 | Results|" wais-e|
|00000440| 64 69 74 5d 20 33 20 22 | 5c 0a 48 61 6e 64 6c 65 |dit] 3 "|\.Handle|
|00000450| 73 20 63 6f 6e 74 65 78 | 74 2d 73 65 6e 73 69 74 |s contex|t-sensit|
|00000460| 69 76 65 20 53 6d 61 72 | 74 20 4b 65 79 20 69 6e |ive Smar|t Key in|
|00000470| 20 57 41 49 53 20 62 75 | 66 66 65 72 73 2e 22 5d | WAIS bu|ffers."]|
|00000480| 29 0a 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 |).(byte-|code "..|
|00000490| c2 c3 c4 c3 46 5c 22 88 | c5 c6 c7 c8 23 88 c9 ca |....F\".|....#...|
|000004a0| 21 87 22 20 5b 73 65 74 | 70 6c 69 73 74 20 69 62 |!." [set|plist ib|
|000004b0| 74 79 70 65 73 3a 3a 77 | 61 69 73 2d 73 6d 61 72 |types::w|ais-smar|
|000004c0| 74 20 74 6f 2d 70 20 6e | 69 6c 20 73 74 79 6c 65 |t to-p n|il style|
|000004d0| 20 73 79 6d 73 65 74 3a | 61 64 64 20 77 61 69 73 | symset:|add wais|
|000004e0| 2d 73 6d 61 72 74 20 69 | 62 74 79 70 65 73 20 73 |-smart i|btypes s|
|000004f0| 79 6d 62 6f 6c 73 20 72 | 75 6e 2d 68 6f 6f 6b 73 |ymbols r|un-hooks|
|00000500| 20 68 74 79 70 65 3a 63 | 72 65 61 74 65 2d 68 6f | htype:c|reate-ho|
|00000510| 6f 6b 5d 20 36 29 0a 28 | 66 73 65 74 20 27 61 63 |ok] 6).(|fset 'ac|
|00000520| 74 79 70 65 73 3a 3a 77 | 61 69 73 2d 71 75 65 73 |types::w|ais-ques|
|00000530| 20 23 5b 28 71 75 65 73 | 74 69 6f 6e 2d 6e 61 6d | #[(ques|tion-nam|
|00000540| 65 29 20 22 c0 c1 21 ac | 85 c2 c3 21 ab 8b c4 0d |e) "..!.|...!....|
|00000550| 21 88 c1 20 88 c4 0d 21 | 87 c6 c7 21 87 22 20 5b |!.. ...!|...!." [|
|00000560| 66 65 61 74 75 72 65 70 | 20 77 61 69 73 20 6c 6f |featurep| wais lo|
|00000570| 61 64 20 22 77 61 69 73 | 22 20 64 69 73 70 6c 61 |ad "wais|" displa|
|00000580| 79 2d 71 75 65 73 74 69 | 6f 6e 20 71 75 65 73 74 |y-questi|on quest|
|00000590| 69 6f 6e 2d 6e 61 6d 65 | 20 65 72 72 6f 72 20 22 |ion-name| error "|
|000005a0| 28 77 61 69 73 2d 71 75 | 65 73 29 3a 20 57 41 49 |(wais-qu|es): WAI|
|000005b0| 53 20 69 6e 74 65 72 66 | 61 63 65 20 6e 6f 74 20 |S interf|ace not |
|000005c0| 61 76 61 69 6c 61 62 6c | 65 20 73 6f 20 63 61 6e |availabl|e so can|
|000005d0| 27 74 20 6c 6f 61 64 20 | 71 75 65 73 74 69 6f 6e |'t load |question|
|000005e0| 2e 22 5d 20 32 20 22 5c | 0a 4c 6f 61 64 73 20 61 |."] 2 "\|.Loads a|
|000005f0| 20 57 61 69 73 20 51 75 | 65 73 74 69 6f 6e 20 51 | Wais Qu|estion Q|
|00000600| 55 45 53 54 49 4f 4e 2d | 4e 41 4d 45 2c 20 64 69 |UESTION-|NAME, di|
|00000610| 73 70 6c 61 79 73 20 69 | 74 20 77 69 74 68 20 57 |splays i|t with W|
|00000620| 41 49 53 20 45 6d 61 63 | 73 20 69 6e 74 65 72 66 |AIS Emac|s interf|
|00000630| 61 63 65 2e 22 20 22 73 | 57 41 49 53 20 51 75 65 |ace." "s|WAIS Que|
|00000640| 73 74 69 6f 6e 20 6e 61 | 6d 65 3a 20 22 5d 29 0a |stion na|me: "]).|
|00000650| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 c2 5c |(byte-co|de "...\|
|00000660| 22 88 c3 c4 c5 c6 23 88 | c7 c8 21 87 22 20 5b 73 |".....#.|..!." [s|
|00000670| 65 74 70 6c 69 73 74 20 | 61 63 74 79 70 65 73 3a |etplist |actypes:|
|00000680| 3a 77 61 69 73 2d 71 75 | 65 73 20 6e 69 6c 20 73 |:wais-qu|es nil s|
|00000690| 79 6d 73 65 74 3a 61 64 | 64 20 77 61 69 73 2d 71 |ymset:ad|d wais-q|
|000006a0| 75 65 73 20 61 63 74 79 | 70 65 73 20 73 79 6d 62 |ues acty|pes symb|
|000006b0| 6f 6c 73 20 72 75 6e 2d | 68 6f 6f 6b 73 20 68 74 |ols run-|hooks ht|
|000006c0| 79 70 65 3a 63 72 65 61 | 74 65 2d 68 6f 6f 6b 5d |ype:crea|te-hook]|
|000006d0| 20 34 29 0a 28 66 73 65 | 74 20 27 61 63 74 79 70 | 4).(fse|t 'actyp|
|000006e0| 65 73 3a 3a 77 61 69 73 | 2d 73 6d 61 72 74 20 23 |es::wais|-smart #|
|000006f0| 5b 28 69 6e 74 65 72 61 | 63 74 69 76 65 2d 66 75 |[(intera|ctive-fu|
|00000700| 6e 63 29 20 22 c0 09 21 | 87 22 20 5b 63 61 6c 6c |nc) "..!|." [call|
|00000710| 2d 69 6e 74 65 72 61 63 | 74 69 76 65 6c 79 20 69 |-interac|tively i|
|00000720| 6e 74 65 72 61 63 74 69 | 76 65 2d 66 75 6e 63 5d |nteracti|ve-func]|
|00000730| 20 32 20 22 5c 0a 50 65 | 72 66 6f 72 6d 73 20 49 | 2 "\.Pe|rforms I|
|00000740| 4e 54 45 52 41 43 54 49 | 56 45 2d 46 55 4e 43 20 |NTERACTI|VE-FUNC |
|00000750| 69 6e 20 61 20 57 61 69 | 73 20 62 75 66 66 65 72 |in a Wai|s buffer|
|00000760| 2e 22 5d 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |."]).(by|te-code |
|00000770| 22 c0 c1 c2 5c 22 88 c3 | c4 c5 c6 23 88 c7 c8 21 |"...\"..|...#...!|
|00000780| 88 c9 ca 21 87 22 20 5b | 73 65 74 70 6c 69 73 74 |...!." [|setplist|
|00000790| 20 61 63 74 79 70 65 73 | 3a 3a 77 61 69 73 2d 73 | actypes|::wais-s|
|000007a0| 6d 61 72 74 20 6e 69 6c | 20 73 79 6d 73 65 74 3a |mart nil| symset:|
|000007b0| 61 64 64 20 77 61 69 73 | 2d 73 6d 61 72 74 20 61 |add wais|-smart a|
|000007c0| 63 74 79 70 65 73 20 73 | 79 6d 62 6f 6c 73 20 72 |ctypes s|ymbols r|
|000007d0| 75 6e 2d 68 6f 6f 6b 73 | 20 68 74 79 70 65 3a 63 |un-hooks| htype:c|
|000007e0| 72 65 61 74 65 2d 68 6f | 6f 6b 20 70 72 6f 76 69 |reate-ho|ok provi|
|000007f0| 64 65 20 68 73 79 73 2d | 77 61 69 73 5d 20 34 29 |de hsys-|wais] 4)|
|00000800| 0a | |. | |
+--------+-------------------------+-------------------------+--------+--------+