home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1998-05-21 | 2.2 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 |
| 100%
| file
| Emacs/XEmacs v20 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar 9 12|
|00000040| 3a 35 36 3a 32 30 20 31 | 39 39 38 0a 3b 3b 3b 20 |:56:20 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 75 74 69 6c |s-20.3/l|isp/util|
|000000a0| 73 2f 74 6f 6f 6c 62 61 | 72 2d 75 74 69 6c 73 2e |s/toolba|r-utils.|
|000000b0| 65 6c 0a 3b 3b 3b 20 65 | 6d 61 63 73 20 76 65 72 |el.;;; e|macs ver|
|000000c0| 73 69 6f 6e 20 32 30 2e | 34 20 22 45 6d 65 72 61 |sion 20.|4 "Emera|
|000000d0| 6c 64 22 20 58 45 6d 61 | 63 73 20 20 4c 75 63 69 |ld" XEma|cs Luci|
|000000e0| 64 2e 0a 3b 3b 3b 20 62 | 79 74 65 63 6f 6d 70 20 |d..;;; b|ytecomp |
|000000f0| 76 65 72 73 69 6f 6e 20 | 32 2e 32 35 20 58 45 6d |version |2.25 XEm|
|00000100| 61 63 73 3b 20 32 32 2d | 4d 61 72 2d 39 36 2e 0a |acs; 22-|Mar-96..|
|00000110| 3b 3b 3b 20 6f 70 74 69 | 6d 69 7a 61 74 69 6f 6e |;;; opti|mization|
|00000120| 20 69 73 20 6f 6e 2e 0a | 3b 3b 3b 20 74 68 69 73 | is on..|;;; this|
|00000130| 20 66 69 6c 65 20 75 73 | 65 73 20 6f 70 63 6f 64 | file us|es opcod|
|00000140| 65 73 20 77 68 69 63 68 | 20 64 6f 20 6e 6f 74 20 |es which| do not |
|00000150| 65 78 69 73 74 20 69 6e | 20 45 6d 61 63 73 20 31 |exist in| Emacs 1|
|00000160| 39 2e 0a 0a 28 69 66 20 | 28 61 6e 64 20 28 62 6f |9...(if |(and (bo|
|00000170| 75 6e 64 70 20 27 65 6d | 61 63 73 2d 76 65 72 73 |undp 'em|acs-vers|
|00000180| 69 6f 6e 29 0a 09 20 28 | 6f 72 20 28 61 6e 64 20 |ion).. (|or (and |
|00000190| 28 62 6f 75 6e 64 70 20 | 27 65 70 6f 63 68 3a 3a |(boundp |'epoch::|
|000001a0| 76 65 72 73 69 6f 6e 29 | 20 65 70 6f 63 68 3a 3a |version)| epoch::|
|000001b0| 76 65 72 73 69 6f 6e 29 | 0a 09 20 20 20 20 20 28 |version)|.. (|
|000001c0| 73 74 72 69 6e 67 2d 6c | 65 73 73 70 20 65 6d 61 |string-l|essp ema|
|000001d0| 63 73 2d 76 65 72 73 69 | 6f 6e 20 22 32 30 22 29 |cs-versi|on "20")|
|000001e0| 29 29 0a 20 20 20 20 28 | 65 72 72 6f 72 20 22 60 |)). (|error "`|
|000001f0| 74 6f 6f 6c 62 61 72 2d | 75 74 69 6c 73 2e 65 6c |toolbar-|utils.el|
|00000200| 27 20 77 61 73 20 63 6f | 6d 70 69 6c 65 64 20 66 |' was co|mpiled f|
|00000210| 6f 72 20 45 6d 61 63 73 | 20 32 30 22 29 29 0a 0a |or Emacs| 20"))..|
|00000220| 28 6f 72 20 28 62 6f 75 | 6e 64 70 20 27 63 75 72 |(or (bou|ndp 'cur|
|00000230| 72 65 6e 74 2d 6c 6f 61 | 64 2d 6c 69 73 74 29 20 |rent-loa|d-list) |
|00000240| 28 73 65 74 71 20 63 75 | 72 72 65 6e 74 2d 6c 6f |(setq cu|rrent-lo|
|00000250| 61 64 2d 6c 69 73 74 20 | 6e 69 6c 29 29 0a 0a 0a |ad-list |nil))...|
|00000260| 23 40 36 33 20 52 65 73 | 74 6f 72 65 73 20 74 68 |#@63 Res|tores th|
|00000270| 65 20 64 65 66 61 75 6c | 74 20 74 6f 6f 6c 62 61 |e defaul|t toolba|
|00000280| 72 20 64 65 66 69 6e 65 | 64 20 62 79 20 69 6e 69 |r define|d by ini|
|00000290| 74 69 61 6c 2d 74 6f 6f | 6c 62 61 72 2d 73 70 65 |tial-too|lbar-spe|
|000002a0| 63 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 72 |c...(def|alias 'r|
|000002b0| 65 73 74 6f 72 65 2d 69 | 6e 69 74 69 61 6c 2d 74 |estore-i|nitial-t|
|000002c0| 6f 6f 6c 62 61 72 20 23 | 5b 6e 69 6c 20 22 c0 09 |oolbar #|[nil "..|
|000002d0| 5c 6e 5c 22 87 22 20 5b | 73 65 74 2d 73 70 65 63 |\n\"." [|set-spec|
|000002e0| 69 66 69 65 72 20 64 65 | 66 61 75 6c 74 2d 74 6f |ifier de|fault-to|
|000002f0| 6f 6c 62 61 72 20 69 6e | 69 74 69 61 6c 2d 74 6f |olbar in|itial-to|
|00000300| 6f 6c 62 61 72 2d 73 70 | 65 63 5d 20 33 20 28 23 |olbar-sp|ec] 3 (#|
|00000310| 24 20 2e 20 36 31 33 29 | 20 6e 69 6c 5d 29 0a 23 |$ . 613)| nil]).#|
|00000320| 40 32 33 39 20 41 64 64 | 20 61 20 74 6f 6f 6c 62 |@239 Add| a toolb|
|00000330| 61 72 20 69 74 65 6d 20 | 49 54 45 4d 20 61 74 20 |ar item |ITEM at |
|00000340| 74 68 65 20 66 69 72 73 | 74 20 6c 6f 63 61 74 69 |the firs|t locati|
|00000350| 6f 6e 20 6f 66 20 74 68 | 65 20 74 6f 6f 6c 62 61 |on of th|e toolba|
|00000360| 72 20 73 70 65 63 69 66 | 69 65 72 2e 20 0a 4f 70 |r specif|ier. .Op|
|00000370| 74 69 6f 6e 61 6c 6c 79 | 2c 20 63 61 6e 20 73 70 |tionally|, can sp|
|00000380| 65 63 69 66 79 20 61 6e | 20 49 4e 44 45 58 20 70 |ecify an| INDEX p|
|00000390| 6f 73 69 74 69 6f 6e 20 | 74 6f 20 69 6e 73 65 72 |osition |to inser|
|000003a0| 74 20 74 68 65 20 49 54 | 45 4d 2e 20 20 54 68 65 |t the IT|EM. The|
|000003b0| 20 64 65 66 61 75 6c 74 | 20 69 73 0a 74 6f 20 75 | default| is.to u|
|000003c0| 73 65 20 64 65 66 61 75 | 6c 74 2d 74 6f 6f 6c 62 |se defau|lt-toolb|
|000003d0| 61 72 2c 20 62 75 74 20 | 61 20 64 69 66 66 65 72 |ar, but |a differ|
|000003e0| 65 6e 74 20 73 70 65 63 | 69 66 69 65 72 20 63 61 |ent spec|ifier ca|
|000003f0| 6e 20 62 79 20 73 70 65 | 63 69 66 69 65 64 20 77 |n by spe|cified w|
|00000400| 69 74 68 20 0a 54 4f 4f | 4c 42 41 52 2d 53 50 45 |ith .TOO|LBAR-SPE|
|00000410| 43 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 74 |C...(def|alias 't|
|00000420| 6f 6f 6c 62 61 72 2d 61 | 64 64 2d 69 74 65 6d 20 |oolbar-a|dd-item |
|00000430| 23 5b 28 69 74 65 6d 20 | 26 6f 70 74 69 6f 6e 61 |#[(item |&optiona|
|00000440| 6c 20 69 6e 64 65 78 20 | 26 6f 70 74 69 6f 6e 61 |l index |&optiona|
|00000450| 6c 20 74 6f 6f 6c 62 61 | 72 2d 73 70 65 63 29 20 |l toolba|r-spec) |
|00000460| 22 08 c1 61 ab 82 5c 6e | 10 c3 08 21 1c 0d c1 61 |"..a..\n|...!...a|
|00000470| ac 85 0d c6 61 ab 87 0e | 07 0c 42 14 aa 8c 0d 53 |....a...|..B....S|
|00000480| 0c 9b 0e 07 0d 0c 9b 42 | a1 88 c8 08 0c 5c 22 29 |.......B|.....\")|
|00000490| 87 22 20 5b 74 6f 6f 6c | 62 61 72 2d 73 70 65 63 |." [tool|bar-spec|
|000004a0| 20 6e 69 6c 20 64 65 66 | 61 75 6c 74 2d 74 6f 6f | nil def|ault-too|
|000004b0| 6c 62 61 72 20 73 70 65 | 63 69 66 69 65 72 2d 69 |lbar spe|cifier-i|
|000004c0| 6e 73 74 61 6e 63 65 20 | 74 6f 6f 6c 62 61 72 20 |nstance |toolbar |
|000004d0| 69 6e 64 65 78 20 30 20 | 69 74 65 6d 20 73 65 74 |index 0 |item set|
|000004e0| 2d 73 70 65 63 69 66 69 | 65 72 5d 20 34 20 28 23 |-specifi|er] 4 (#|
|000004f0| 24 20 2e 20 38 30 35 29 | 5d 29 0a 23 40 32 35 30 |$ . 805)|]).#@250|
|00000500| 20 52 65 6d 6f 76 65 20 | 61 20 74 6f 6f 6c 62 61 | Remove |a toolba|
|00000510| 72 20 69 74 65 6d 20 49 | 54 45 4d 20 61 74 20 74 |r item I|TEM at t|
|00000520| 68 65 20 66 69 72 73 74 | 20 6c 6f 63 61 74 69 6f |he first| locatio|
|00000530| 6e 20 6f 66 20 74 68 65 | 20 74 6f 6f 6c 62 61 72 |n of the| toolbar|
|00000540| 20 73 70 65 63 69 66 69 | 65 72 2e 20 20 0a 4f 70 | specifi|er. .Op|
|00000550| 74 69 6f 6e 61 6c 6c 79 | 2c 20 63 61 6e 20 73 70 |tionally|, can sp|
|00000560| 65 63 69 66 79 20 61 6e | 20 49 4e 44 45 58 20 70 |ecify an| INDEX p|
|00000570| 6f 73 69 74 69 6f 6e 20 | 77 68 65 72 65 20 74 6f |osition |where to|
|00000580| 20 72 65 6d 6f 76 65 20 | 74 68 65 20 49 54 45 4d | remove |the ITEM|
|00000590| 2e 20 20 54 68 65 20 0a | 64 65 66 61 75 6c 74 20 |. The .|default |
|000005a0| 69 73 20 74 6f 20 75 73 | 65 20 64 65 66 61 75 6c |is to us|e defaul|
|000005b0| 74 2d 74 6f 6f 6c 62 61 | 72 2c 20 62 75 74 20 61 |t-toolba|r, but a|
|000005c0| 20 64 69 66 66 65 72 65 | 6e 74 20 73 70 65 63 69 | differe|nt speci|
|000005d0| 66 69 65 72 20 63 61 6e | 20 62 79 20 0a 73 70 65 |fier can| by .spe|
|000005e0| 63 69 66 69 65 64 20 77 | 69 74 68 20 54 4f 4f 4c |cified w|ith TOOL|
|000005f0| 42 41 52 2d 53 50 45 43 | 2e 1f 0a 28 64 65 66 61 |BAR-SPEC|...(defa|
|00000600| 6c 69 61 73 20 27 74 6f | 6f 6c 62 61 72 2d 6b 69 |lias 'to|olbar-ki|
|00000610| 6c 6c 2d 69 74 65 6d 2d | 70 6f 73 20 23 5b 28 69 |ll-item-|pos #[(i|
|00000620| 6e 64 65 78 20 26 6f 70 | 74 69 6f 6e 61 6c 20 74 |ndex &op|tional t|
|00000630| 6f 6f 6c 62 61 72 2d 73 | 70 65 63 29 20 22 08 c1 |oolbar-s|pec) "..|
|00000640| 61 ab 82 5c 6e 10 c3 08 | 21 1c 0d 0c 38 1e 06 0d |a..\n...|!...8...|
|00000650| c7 61 ab 85 0c 41 14 aa | 8a 0d 53 0c 9b 0d 54 0c |.a...A..|..S...T.|
|00000660| 9b a1 88 c8 08 0c 5c 22 | 2a 87 22 20 5b 74 6f 6f |......\"|*." [too|
|00000670| 6c 62 61 72 2d 73 70 65 | 63 20 6e 69 6c 20 64 65 |lbar-spe|c nil de|
|00000680| 66 61 75 6c 74 2d 74 6f | 6f 6c 62 61 72 20 73 70 |fault-to|olbar sp|
|00000690| 65 63 69 66 69 65 72 2d | 69 6e 73 74 61 6e 63 65 |ecifier-|instance|
|000006a0| 20 74 6f 6f 6c 62 61 72 | 20 69 6e 64 65 78 20 69 | toolbar| index i|
|000006b0| 74 65 6d 20 30 20 73 65 | 74 2d 73 70 65 63 69 66 |tem 0 se|t-specif|
|000006c0| 69 65 72 5d 20 33 20 28 | 23 24 20 2e 20 31 32 38 |ier] 3 (|#$ . 128|
|000006d0| 31 29 5d 29 0a 23 40 32 | 36 34 20 52 65 6d 6f 76 |1)]).#@2|64 Remov|
|000006e0| 65 20 61 20 74 6f 6f 6c | 62 61 72 20 69 74 65 6d |e a tool|bar item|
|000006f0| 20 49 54 45 4d 20 61 74 | 20 74 68 65 20 66 69 72 | ITEM at| the fir|
|00000700| 73 74 20 6c 6f 63 61 74 | 69 6f 6e 20 6f 66 20 74 |st locat|ion of t|
|00000710| 68 65 20 74 6f 6f 6c 62 | 61 72 20 73 70 65 63 69 |he toolb|ar speci|
|00000720| 66 69 65 72 2e 20 20 0a | 4f 70 74 69 6f 6e 61 6c |fier. .|Optional|
|00000730| 6c 79 2c 20 63 61 6e 20 | 73 70 65 63 69 66 79 20 |ly, can |specify |
|00000740| 61 6e 20 49 54 45 4d 20 | 74 6f 20 72 65 6d 6f 76 |an ITEM |to remov|
|00000750| 65 2e 20 20 54 68 65 20 | 49 54 45 4d 20 6d 75 73 |e. The |ITEM mus|
|00000760| 74 20 62 65 20 69 6e 20 | 66 6f 72 6d 20 6f 66 20 |t be in |form of |
|00000770| 61 20 0a 76 65 63 74 6f | 72 2e 20 20 54 68 65 20 |a .vecto|r. The |
|00000780| 64 65 66 61 75 6c 74 20 | 69 73 20 74 6f 20 75 73 |default |is to us|
|00000790| 65 20 64 65 66 61 75 6c | 74 2d 74 6f 6f 6c 62 61 |e defaul|t-toolba|
|000007a0| 72 2c 20 62 75 74 20 61 | 20 64 69 66 66 65 72 65 |r, but a| differe|
|000007b0| 6e 74 20 73 70 65 63 69 | 66 69 65 72 20 0a 63 61 |nt speci|fier .ca|
|000007c0| 6e 20 62 79 20 73 70 65 | 63 69 66 69 65 64 20 77 |n by spe|cified w|
|000007d0| 69 74 68 20 54 4f 4f 4c | 42 41 52 2d 53 50 45 43 |ith TOOL|BAR-SPEC|
|000007e0| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 74 6f |...(defa|lias 'to|
|000007f0| 6f 6c 62 61 72 2d 6b 69 | 6c 6c 2d 69 74 65 6d 20 |olbar-ki|ll-item |
|00000800| 23 5b 28 69 74 65 6d 20 | 26 6f 70 74 69 6f 6e 61 |#[(item |&optiona|
|00000810| 6c 20 74 6f 6f 6c 62 61 | 72 2d 73 70 65 63 29 20 |l toolba|r-spec) |
|00000820| 22 08 c1 61 ab 82 5c 6e | 10 c3 08 21 1c c5 0e 06 |"..a..\n|...!....|
|00000830| 21 88 c7 08 c8 0e 06 0c | 5c 22 5c 22 29 87 22 20 |!.......|\"\")." |
|00000840| 5b 74 6f 6f 6c 62 61 72 | 2d 73 70 65 63 20 6e 69 |[toolbar|-spec ni|
|00000850| 6c 20 64 65 66 61 75 6c | 74 2d 74 6f 6f 6c 62 61 |l defaul|t-toolba|
|00000860| 72 20 73 70 65 63 69 66 | 69 65 72 2d 69 6e 73 74 |r specif|ier-inst|
|00000870| 61 6e 63 65 20 74 6f 6f | 6c 62 61 72 20 65 76 61 |ance too|lbar eva|
|00000880| 6c 20 69 74 65 6d 20 73 | 65 74 2d 73 70 65 63 69 |l item s|et-speci|
|00000890| 66 69 65 72 20 64 65 6c | 65 74 65 5d 20 35 20 28 |fier del|ete] 5 (|
|000008a0| 23 24 20 2e 20 31 37 35 | 35 29 5d 29 0a 28 70 72 |#$ . 175|5)]).(pr|
|000008b0| 6f 76 69 64 65 20 27 74 | 6f 6f 6c 62 61 72 2d 75 |ovide 't|oolbar-u|
|000008c0| 74 69 6c 73 29 0a | |tils). | |
+--------+-------------------------+-------------------------+--------+--------+
