home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1993-04-01 | 2.1 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 6a 77 7a 40 74 68 61 |piled by| jwz@tha|
|00000020| 6c 69 64 6f 6d 69 64 65 | 20 6f 6e 20 4d 6f 6e 20 |lidomide| on Mon |
|00000030| 46 65 62 20 20 31 20 31 | 39 3a 30 33 3a 33 38 20 |Feb 1 1|9:03:38 |
|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 70 61 63 | 6b 61 67 65 73 2f 61 64 |lisp/pac|kages/ad|
|00000080| 64 2d 6c 6f 67 2e 65 6c | 0a 3b 3b 3b 20 65 6d 61 |d-log.el|.;;; ema|
|00000090| 63 73 20 76 65 72 73 69 | 6f 6e 20 31 39 2e 34 2e |cs versi|on 19.4.|
|000000a0| 31 33 20 4c 75 63 69 64 | 2e 0a 3b 3b 3b 20 62 79 |13 Lucid|..;;; by|
|000000b0| 74 65 63 6f 6d 70 20 76 | 65 72 73 69 6f 6e 20 32 |tecomp v|ersion 2|
|000000c0| 2e 31 30 3b 20 20 31 2d | 66 65 62 2d 39 33 2e 0a |.10; 1-|feb-93..|
|000000d0| 3b 3b 3b 20 6f 70 74 69 | 6d 69 7a 61 74 69 6f 6e |;;; opti|mization|
|000000e0| 20 69 73 20 6f 6e 2e 0a | 3b 3b 3b 20 74 68 69 73 | is on..|;;; this|
|000000f0| 20 66 69 6c 65 20 75 73 | 65 73 20 6f 70 63 6f 64 | file us|es opcod|
|00000100| 65 73 20 77 68 69 63 68 | 20 64 6f 20 6e 6f 74 20 |es which| do not |
|00000110| 65 78 69 73 74 20 69 6e | 20 45 6d 61 63 73 31 38 |exist in| Emacs18|
|00000120| 2e 0a 0a 28 69 66 20 28 | 61 6e 64 20 28 62 6f 75 |...(if (|and (bou|
|00000130| 6e 64 70 20 27 65 6d 61 | 63 73 2d 76 65 72 73 69 |ndp 'ema|cs-versi|
|00000140| 6f 6e 29 0a 09 20 28 6f | 72 20 28 61 6e 64 20 28 |on).. (o|r (and (|
|00000150| 62 6f 75 6e 64 70 20 27 | 65 70 6f 63 68 3a 3a 76 |boundp '|epoch::v|
|00000160| 65 72 73 69 6f 6e 29 20 | 65 70 6f 63 68 3a 3a 76 |ersion) |epoch::v|
|00000170| 65 72 73 69 6f 6e 29 0a | 09 20 20 20 20 20 28 73 |ersion).|. (s|
|00000180| 74 72 69 6e 67 2d 6c 65 | 73 73 70 20 65 6d 61 63 |tring-le|ssp emac|
|00000190| 73 2d 76 65 72 73 69 6f | 6e 20 22 31 39 22 29 29 |s-versio|n "19"))|
|000001a0| 29 0a 20 20 20 20 28 65 | 72 72 6f 72 20 22 54 68 |). (e|rror "Th|
|000001b0| 69 73 20 66 69 6c 65 20 | 77 61 73 20 63 6f 6d 70 |is file |was comp|
|000001c0| 69 6c 65 64 20 66 6f 72 | 20 45 6d 61 63 73 31 39 |iled for| Emacs19|
|000001d0| 2e 22 29 29 0a 0a 28 66 | 73 65 74 20 27 70 72 6f |."))..(f|set 'pro|
|000001e0| 6d 70 74 2d 66 6f 72 2d | 63 68 61 6e 67 65 2d 6c |mpt-for-|change-l|
|000001f0| 6f 67 2d 6e 61 6d 65 20 | 23 5b 6e 69 6c 20 22 08 |og-name |#[nil ".|
|00000200| c1 3d ab 83 c2 aa 81 c3 | 1c c5 c6 c7 c8 0c 5c 22 |.=......|......\"|
|00000210| c9 0c 23 21 29 87 22 20 | 5b 73 79 73 74 65 6d 2d |..#!)." |[system-|
|00000220| 74 79 70 65 20 76 61 78 | 2d 76 6d 73 20 22 24 43 |type vax|-vms "$C|
|00000230| 48 41 4e 47 45 5f 4c 4f | 47 24 2e 54 58 54 22 20 |HANGE_LO|G$.TXT" |
|00000240| 22 43 68 61 6e 67 65 4c | 6f 67 22 20 64 65 66 61 |"ChangeL|og" defa|
|00000250| 75 6c 74 20 65 78 70 61 | 6e 64 2d 66 69 6c 65 2d |ult expa|nd-file-|
|00000260| 6e 61 6d 65 20 72 65 61 | 64 2d 66 69 6c 65 2d 6e |name rea|d-file-n|
|00000270| 61 6d 65 20 66 6f 72 6d | 61 74 20 22 4c 6f 67 20 |ame form|at "Log |
|00000280| 66 69 6c 65 20 28 64 65 | 66 61 75 6c 74 20 25 73 |file (de|fault %s|
|00000290| 29 3a 20 22 20 6e 69 6c | 5d 20 35 20 22 5c 0a 50 |): " nil|] 5 "\.P|
|000002a0| 72 6f 6d 70 74 20 66 6f | 72 20 61 20 63 68 61 6e |rompt fo|r a chan|
|000002b0| 67 65 20 6c 6f 67 20 6e | 61 6d 65 2e 22 5d 29 0a |ge log n|ame."]).|
|000002c0| 28 66 73 65 74 20 27 61 | 64 64 2d 63 68 61 6e 67 |(fset 'a|dd-chang|
|000002d0| 65 2d 6c 6f 67 2d 65 6e | 74 72 79 20 23 5b 28 77 |e-log-en|try #[(w|
|000002e0| 68 6f 61 6d 69 20 66 69 | 6c 65 2d 6e 61 6d 65 20 |hoami fi|le-name |
|000002f0| 26 6f 70 74 69 6f 6e 61 | 6c 20 6f 74 68 65 72 2d |&optiona|l other-|
|00000300| 77 69 6e 64 6f 77 29 20 | 22 08 c1 3d ab 83 c2 aa |window) |"..=....|
|00000310| 81 c3 1c 0d ab 87 c6 c7 | c8 20 5c 22 aa 82 c8 20 |........|. \"... |
|00000320| 1e 09 0d ab 87 c6 ca cb | 20 5c 22 aa 82 cb 20 1e |........| \"... .|
|00000330| 0c 0d ab 87 c6 cd ce 20 | 5c 22 aa 82 ce 20 1e 0f |....... |\"... ..|
|00000340| d0 0e 11 21 ab 88 d2 0e | 11 21 0c 50 16 11 0e 13 |...!....|.!.P....|
|00000350| ab 8e 0e 11 0e 14 9a ac | 87 d5 0e 11 21 88 aa 85 |........|....!...|
|00000360| d6 0e 11 21 88 d7 20 88 | 65 62 88 d8 d9 20 da db |...!.. .|eb... ..|
|00000370| 4f 21 ab 8d d8 dc 0e 09 | dd 0e 0c de b0 05 21 ac |O!......|......!.|
|00000380| 8f d9 20 df 0e 09 dd 0e | 0c e0 0e 0f e1 b1 08 88 |.. .....|........|
|00000390| 65 62 88 e2 79 88 d8 e3 | 21 ab 85 e2 79 88 aa 76 |eb..y...|!...y..v|
|000003a0| 60 e4 e5 78 88 60 7c 88 | e6 e7 21 88 e8 79 88 0e |`..x.`|.|..!..y..|
|000003b0| 29 6a 88 ea 63 2c 87 22 | 20 5b 73 79 73 74 65 6d |)j..c,."| [system|
|000003c0| 2d 74 79 70 65 20 76 61 | 78 2d 76 6d 73 20 22 24 |-type va|x-vms "$|
|000003d0| 43 48 41 4e 47 45 5f 4c | 4f 47 24 2e 54 58 54 22 |CHANGE_L|OG$.TXT"|
|000003e0| 20 22 43 68 61 6e 67 65 | 4c 6f 67 22 20 64 65 66 | "Change|Log" def|
|000003f0| 61 75 6c 74 20 77 68 6f | 61 6d 69 20 72 65 61 64 |ault who|ami read|
|00000400| 2d 69 6e 70 75 74 20 22 | 46 75 6c 6c 20 6e 61 6d |-input "|Full nam|
|00000410| 65 3a 20 22 20 75 73 65 | 72 2d 66 75 6c 6c 2d 6e |e: " use|r-full-n|
|00000420| 61 6d 65 20 66 75 6c 6c | 2d 6e 61 6d 65 20 22 4c |ame full|-name "L|
|00000430| 6f 67 69 6e 20 6e 61 6d | 65 3a 20 22 20 75 73 65 |ogin nam|e: " use|
|00000440| 72 2d 6c 6f 67 69 6e 2d | 6e 61 6d 65 20 6c 6f 67 |r-login-|name log|
|00000450| 69 6e 2d 6e 61 6d 65 20 | 22 53 69 74 65 20 6e 61 |in-name |"Site na|
|00000460| 6d 65 3a 20 22 20 73 79 | 73 74 65 6d 2d 6e 61 6d |me: " sy|stem-nam|
|00000470| 65 20 73 69 74 65 2d 6e | 61 6d 65 20 66 69 6c 65 |e site-n|ame file|
|00000480| 2d 64 69 72 65 63 74 6f | 72 79 2d 70 20 66 69 6c |-directo|ry-p fil|
|00000490| 65 2d 6e 61 6d 65 20 66 | 69 6c 65 2d 6e 61 6d 65 |e-name f|ile-name|
|000004a0| 2d 61 73 2d 64 69 72 65 | 63 74 6f 72 79 20 6f 74 |-as-dire|ctory ot|
|000004b0| 68 65 72 2d 77 69 6e 64 | 6f 77 20 62 75 66 66 65 |her-wind|ow buffe|
|000004c0| 72 2d 66 69 6c 65 2d 6e | 61 6d 65 20 66 69 6e 64 |r-file-n|ame find|
|000004d0| 2d 66 69 6c 65 2d 6f 74 | 68 65 72 2d 77 69 6e 64 |-file-ot|her-wind|
|000004e0| 6f 77 20 66 69 6e 64 2d | 66 69 6c 65 20 75 6e 64 |ow find-|file und|
|000004f0| 6f 2d 62 6f 75 6e 64 61 | 72 79 20 6c 6f 6f 6b 69 |o-bounda|ry looki|
|00000500| 6e 67 2d 61 74 20 63 75 | 72 72 65 6e 74 2d 74 69 |ng-at cu|rrent-ti|
|00000510| 6d 65 2d 73 74 72 69 6e | 67 20 30 20 31 30 20 22 |me-strin|g 0 10 "|
|00000520| 2e 2a 20 22 20 22 20 20 | 28 22 20 22 20 61 74 22 |.* " " |(" " at"|
|00000530| 20 22 20 20 22 20 22 20 | 61 74 20 22 20 22 29 5c | " " " |at " ")\|
|00000540| 6e 5c 6e 22 20 31 20 22 | 5c 5c 73 57 22 20 22 5c |n\n" 1 "|\\sW" "\|
|00000550| 6e 22 20 6e 69 6c 20 6f | 70 65 6e 2d 6c 69 6e 65 |n" nil o|pen-line|
|00000560| 20 33 20 32 20 6c 65 66 | 74 2d 6d 61 72 67 69 6e | 3 2 lef|t-margin|
|00000570| 20 22 2a 20 22 5d 20 38 | 20 22 5c 0a 46 69 6e 64 | "* "] 8| "\.Find|
|00000580| 20 63 68 61 6e 67 65 20 | 6c 6f 67 20 66 69 6c 65 | change |log file|
|00000590| 20 61 6e 64 20 61 64 64 | 20 61 6e 20 65 6e 74 72 | and add| an entr|
|000005a0| 79 20 66 6f 72 20 74 6f | 64 61 79 2e 0a 46 69 72 |y for to|day..Fir|
|000005b0| 73 74 20 61 72 67 20 28 | 69 6e 74 65 72 61 63 74 |st arg (|interact|
|000005c0| 69 76 65 20 70 72 65 66 | 69 78 29 20 6e 6f 6e 2d |ive pref|ix) non-|
|000005d0| 6e 69 6c 20 6d 65 61 6e | 73 20 70 72 6f 6d 70 74 |nil mean|s prompt|
|000005e0| 20 66 6f 72 20 75 73 65 | 72 20 6e 61 6d 65 20 61 | for use|r name a|
|000005f0| 6e 64 20 73 69 74 65 2e | 0a 53 65 63 6f 6e 64 20 |nd site.|.Second |
|00000600| 61 72 67 20 69 73 20 66 | 69 6c 65 20 6e 61 6d 65 |arg is f|ile name|
|00000610| 20 6f 66 20 63 68 61 6e | 67 65 20 6c 6f 67 2e 0a | of chan|ge log..|
|00000620| 4f 70 74 69 6f 6e 61 6c | 20 74 68 69 72 64 20 61 |Optional| third a|
|00000630| 72 67 20 4f 54 48 45 52 | 2d 57 49 4e 44 4f 57 20 |rg OTHER|-WINDOW |
|00000640| 6e 6f 6e 2d 6e 69 6c 20 | 6d 65 61 6e 73 20 76 69 |non-nil |means vi|
|00000650| 73 69 74 20 69 6e 20 6f | 74 68 65 72 20 77 69 6e |sit in o|ther win|
|00000660| 64 6f 77 2e 22 20 28 62 | 79 74 65 2d 63 6f 64 65 |dow." (b|yte-code|
|00000670| 20 22 08 c1 20 44 87 22 | 20 5b 63 75 72 72 65 6e | ".. D."| [curren|
|00000680| 74 2d 70 72 65 66 69 78 | 2d 61 72 67 20 70 72 6f |t-prefix|-arg pro|
|00000690| 6d 70 74 2d 66 6f 72 2d | 63 68 61 6e 67 65 2d 6c |mpt-for-|change-l|
|000006a0| 6f 67 2d 6e 61 6d 65 5d | 20 32 29 5d 29 0a 28 66 |og-name]| 2)]).(f|
|000006b0| 73 65 74 20 27 61 64 64 | 2d 63 68 61 6e 67 65 2d |set 'add|-change-|
|000006c0| 6c 6f 67 2d 65 6e 74 72 | 79 2d 6f 74 68 65 72 2d |log-entr|y-other-|
|000006d0| 77 69 6e 64 6f 77 20 23 | 5b 28 77 68 6f 61 6d 69 |window #|[(whoami|
|000006e0| 20 66 69 6c 65 2d 6e 61 | 6d 65 29 20 22 c0 09 5c | file-na|me) "..\|
|000006f0| 6e c3 23 87 22 20 5b 61 | 64 64 2d 63 68 61 6e 67 |n.#." [a|dd-chang|
|00000700| 65 2d 6c 6f 67 2d 65 6e | 74 72 79 20 77 68 6f 61 |e-log-en|try whoa|
|00000710| 6d 69 20 66 69 6c 65 2d | 6e 61 6d 65 20 74 5d 20 |mi file-|name t] |
|00000720| 34 20 22 5c 0a 46 69 6e | 64 20 63 68 61 6e 67 65 |4 "\.Fin|d change|
|00000730| 20 6c 6f 67 20 66 69 6c | 65 20 61 6e 64 20 61 64 | log fil|e and ad|
|00000740| 64 20 61 6e 20 65 6e 74 | 72 79 20 66 6f 72 20 74 |d an ent|ry for t|
|00000750| 6f 64 61 79 2e 0a 46 69 | 72 73 74 20 61 72 67 20 |oday..Fi|rst arg |
|00000760| 28 69 6e 74 65 72 61 63 | 74 69 76 65 20 70 72 65 |(interac|tive pre|
|00000770| 66 69 78 29 20 6e 6f 6e | 2d 6e 69 6c 20 6d 65 61 |fix) non|-nil mea|
|00000780| 6e 73 20 70 72 6f 6d 70 | 74 20 66 6f 72 20 75 73 |ns promp|t for us|
|00000790| 65 72 20 6e 61 6d 65 20 | 61 6e 64 20 73 69 74 65 |er name |and site|
|000007a0| 2e 0a 53 65 63 6f 6e 64 | 20 61 72 67 20 69 73 20 |..Second| arg is |
|000007b0| 66 69 6c 65 20 6e 61 6d | 65 20 6f 66 20 63 68 61 |file nam|e of cha|
|000007c0| 6e 67 65 20 6c 6f 67 2e | 0a 49 6e 74 65 72 61 63 |nge log.|.Interac|
|000007d0| 74 69 76 65 6c 79 2c 20 | 77 69 74 68 20 61 20 70 |tively, |with a p|
|000007e0| 72 65 66 69 78 20 61 72 | 67 75 6d 65 6e 74 2c 20 |refix ar|gument, |
|000007f0| 74 68 65 20 66 69 6c 65 | 20 6e 61 6d 65 20 69 73 |the file| name is|
|00000800| 20 70 72 6f 6d 70 74 65 | 64 20 66 6f 72 2e 22 20 | prompte|d for." |
|00000810| 28 62 79 74 65 2d 63 6f | 64 65 20 22 08 ab 85 08 |(byte-co|de "....|
|00000820| c1 20 44 87 c2 0b 44 87 | 22 20 5b 63 75 72 72 65 |. D...D.|" [curre|
|00000830| 6e 74 2d 70 72 65 66 69 | 78 2d 61 72 67 20 70 72 |nt-prefi|x-arg pr|
|00000840| 6f 6d 70 74 2d 66 6f 72 | 2d 63 68 61 6e 67 65 2d |ompt-for|-change-|
|00000850| 6c 6f 67 2d 6e 61 6d 65 | 20 6e 69 6c 20 64 65 66 |log-name| nil def|
|00000860| 61 75 6c 74 2d 64 69 72 | 65 63 74 6f 72 79 5d 20 |ault-dir|ectory] |
|00000870| 32 29 5d 29 0a | |2)]). | |
+--------+-------------------------+-------------------------+--------+--------+
