home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / lucid / lemacs-19.6 / lisp / pcl-cvs / pcl-cvs-lucid.elc < prev    next >
Emacs Compiled Lisp  |  1993-04-01  |  2.4 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.

ConfidenceProgramDetectionMatch TypeSupport
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 6c 7a 40 61 73 68 |piled by| jlz@ash|
|00000020| 77 65 64 6e 65 73 64 61 | 79 20 6f 6e 20 4d 6f 6e |wednesda|y on Mon|
|00000030| 20 4d 61 72 20 31 35 20 | 30 30 3a 31 34 3a 35 35 | Mar 15 |00:14:55|
|00000040| 20 31 39 39 33 0a 3b 3b | 3b 20 66 72 6f 6d 20 66 | 1993.;;|; from f|
|00000050| 69 6c 65 20 2f 63 61 64 | 69 6c 6c 61 63 2d 61 77 |ile /cad|illac-aw|
|00000060| 32 2f 74 65 73 74 62 69 | 6e 2d 62 75 69 6c 64 73 |2/testbi|n-builds|
|00000070| 2f 6c 65 6d 61 63 73 2f | 6c 69 73 70 2f 70 63 6c |/lemacs/|lisp/pcl|
|00000080| 2d 63 76 73 2f 70 63 6c | 2d 63 76 73 2d 6c 75 63 |-cvs/pcl|-cvs-luc|
|00000090| 69 64 2e 65 6c 0a 3b 3b | 3b 20 65 6d 61 63 73 20 |id.el.;;|; emacs |
|000000a0| 76 65 72 73 69 6f 6e 20 | 31 39 2e 36 20 28 62 65 |version |19.6 (be|
|000000b0| 74 61 32 29 20 4c 75 63 | 69 64 2e 0a 3b 3b 3b 20 |ta2) Luc|id..;;; |
|000000c0| 62 79 74 65 63 6f 6d 70 | 20 76 65 72 73 69 6f 6e |bytecomp| version|
|000000d0| 20 32 2e 31 30 3b 20 31 | 36 2d 66 65 62 2d 39 33 | 2.10; 1|6-feb-93|
|000000e0| 2e 0a 3b 3b 3b 20 6f 70 | 74 69 6d 69 7a 61 74 69 |..;;; op|timizati|
|000000f0| 6f 6e 20 69 73 20 6f 6e | 2e 0a 3b 3b 3b 20 74 68 |on is on|..;;; th|
|00000100| 69 73 20 66 69 6c 65 20 | 75 73 65 73 20 6f 70 63 |is file |uses opc|
|00000110| 6f 64 65 73 20 77 68 69 | 63 68 20 64 6f 20 6e 6f |odes whi|ch do no|
|00000120| 74 20 65 78 69 73 74 20 | 69 6e 20 45 6d 61 63 73 |t exist |in Emacs|
|00000130| 31 38 2e 0a 0a 28 69 66 | 20 28 61 6e 64 20 28 62 |18...(if| (and (b|
|00000140| 6f 75 6e 64 70 20 27 65 | 6d 61 63 73 2d 76 65 72 |oundp 'e|macs-ver|
|00000150| 73 69 6f 6e 29 0a 09 20 | 28 6f 72 20 28 61 6e 64 |sion).. |(or (and|
|00000160| 20 28 62 6f 75 6e 64 70 | 20 27 65 70 6f 63 68 3a | (boundp| 'epoch:|
|00000170| 3a 76 65 72 73 69 6f 6e | 29 20 65 70 6f 63 68 3a |:version|) epoch:|
|00000180| 3a 76 65 72 73 69 6f 6e | 29 0a 09 20 20 20 20 20 |:version|).. |
|00000190| 28 73 74 72 69 6e 67 2d | 6c 65 73 73 70 20 65 6d |(string-|lessp em|
|000001a0| 61 63 73 2d 76 65 72 73 | 69 6f 6e 20 22 31 39 22 |acs-vers|ion "19"|
|000001b0| 29 29 29 0a 20 20 20 20 | 28 65 72 72 6f 72 20 22 |))). |(error "|
|000001c0| 54 68 69 73 20 66 69 6c | 65 20 77 61 73 20 63 6f |This fil|e was co|
|000001d0| 6d 70 69 6c 65 64 20 66 | 6f 72 20 45 6d 61 63 73 |mpiled f|or Emacs|
|000001e0| 31 39 2e 22 29 29 0a 0a | 28 62 79 74 65 2d 63 6f |19."))..|(byte-co|
|000001f0| 64 65 20 22 c0 c1 21 88 | c2 c3 21 ac 82 c4 13 c3 |de "..!.|..!.....|
|00000200| c5 4d 88 c6 c7 4d 88 c8 | 0e 09 ca c3 23 88 c8 0e |.M...M..|....#...|
|00000210| 09 cb c6 23 88 cc cd 21 | 88 cc ce 21 88 cc cf 21 |...#...!|...!...!|
|00000220| 88 d0 cd 21 ac 85 d1 d2 | cd 5c 22 88 d0 ce 21 ac |...!....|.\"...!.|
|00000230| 85 d1 d3 ce 5c 22 88 d0 | cf 21 ac 85 d1 d4 cf 5c |....\"..|.!.....\|
|00000240| 22 88 d5 d6 4d 88 d7 d8 | 4d 88 d9 da d7 5c 22 87 |"...M...|M....\".|
|00000250| 22 20 5b 72 65 71 75 69 | 72 65 20 70 63 6c 2d 63 |" [requi|re pcl-c|
|00000260| 76 73 20 62 6f 75 6e 64 | 70 20 63 76 73 2d 6d 65 |vs bound|p cvs-me|
|00000270| 6e 75 20 28 22 43 56 53 | 22 20 5b 22 46 69 6e 64 |nu ("CVS|" ["Find|
|00000280| 20 46 69 6c 65 22 20 63 | 76 73 2d 66 69 6e 64 2d | File" c|vs-find-|
|00000290| 66 69 6c 65 20 74 5d 20 | 5b 22 46 69 6e 64 20 46 |file t] |["Find F|
|000002a0| 69 6c 65 20 4f 74 68 65 | 72 20 57 69 6e 64 6f 77 |ile Othe|r Window|
|000002b0| 22 20 63 76 73 2d 66 69 | 6e 64 2d 66 69 6c 65 2d |" cvs-fi|nd-file-|
|000002c0| 6f 74 68 65 72 2d 77 69 | 6e 64 6f 77 20 74 5d 20 |other-wi|ndow t] |
|000002d0| 5b 22 44 69 66 66 20 61 | 67 61 69 6e 73 74 20 52 |["Diff a|gainst R|
|000002e0| 65 70 6f 73 69 74 6f 72 | 79 22 20 63 76 73 2d 64 |epositor|y" cvs-d|
|000002f0| 69 66 66 2d 63 76 73 20 | 74 5d 20 5b 22 44 69 66 |iff-cvs |t] ["Dif|
|00000300| 66 20 61 67 61 69 6e 73 | 74 20 42 61 63 6b 75 70 |f agains|t Backup|
|00000310| 20 56 65 72 73 69 6f 6e | 22 20 63 76 73 2d 64 69 | Version|" cvs-di|
|00000320| 66 66 2d 62 61 63 6b 75 | 70 20 74 5d 20 22 2d 2d |ff-backu|p t] "--|
|00000330| 2d 2d 22 20 5b 22 43 6f | 6d 6d 69 74 20 43 68 61 |--" ["Co|mmit Cha|
|00000340| 6e 67 65 73 20 74 6f 20 | 52 65 70 6f 73 69 74 6f |nges to |Reposito|
|00000350| 72 79 22 20 63 76 73 2d | 63 6f 6d 6d 69 74 20 74 |ry" cvs-|commit t|
|00000360| 5d 20 5b 22 52 65 76 65 | 72 74 20 46 69 6c 65 20 |] ["Reve|rt File |
|00000370| 66 72 6f 6d 20 52 65 70 | 6f 73 69 74 6f 72 79 22 |from Rep|ository"|
|00000380| 20 63 76 73 2d 75 6e 64 | 6f 2d 6c 6f 63 61 6c 2d | cvs-und|o-local-|
|00000390| 63 68 61 6e 67 65 73 20 | 74 5d 20 5b 22 41 64 64 |changes |t] ["Add|
|000003a0| 20 46 69 6c 65 20 74 6f | 20 52 65 70 6f 73 69 74 | File to| Reposit|
|000003b0| 6f 72 79 22 20 63 76 73 | 2d 61 64 64 20 74 5d 20 |ory" cvs|-add t] |
|000003c0| 5b 22 52 65 6d 6f 76 65 | 20 46 69 6c 65 20 66 72 |["Remove| File fr|
|000003d0| 6f 6d 20 52 65 70 6f 73 | 69 74 6f 72 79 22 20 63 |om Repos|itory" c|
|000003e0| 76 73 2d 72 65 6d 6f 76 | 65 2d 66 69 6c 65 20 74 |vs-remov|e-file t|
|000003f0| 5d 20 5b 22 49 67 6e 6f | 72 65 20 46 69 6c 65 22 |] ["Igno|re File"|
|00000400| 20 63 76 73 2d 69 67 6e | 6f 72 65 20 74 5d 20 5b | cvs-ign|ore t] [|
|00000410| 22 48 69 64 65 20 46 69 | 6c 65 22 20 63 76 73 2d |"Hide Fi|le" cvs-|
|00000420| 61 63 6b 6e 6f 77 6c 65 | 64 67 65 20 74 5d 20 5b |acknowle|dge t] [|
|00000430| 22 48 69 64 65 20 48 61 | 6e 64 6c 65 64 20 46 69 |"Hide Ha|ndled Fi|
|00000440| 6c 65 73 22 20 63 76 73 | 2d 72 65 6d 6f 76 65 2d |les" cvs|-remove-|
|00000450| 68 61 6e 64 6c 65 64 20 | 74 5d 20 22 2d 2d 2d 2d |handled |t] "----|
|00000460| 22 20 5b 22 41 64 64 20 | 43 68 61 6e 67 65 4c 6f |" ["Add |ChangeLo|
|00000470| 67 20 45 6e 74 72 79 22 | 20 63 76 73 2d 61 64 64 |g Entry"| cvs-add|
|00000480| 2d 63 68 61 6e 67 65 2d | 6c 6f 67 2d 65 6e 74 72 |-change-|log-entr|
|00000490| 79 2d 6f 74 68 65 72 2d | 77 69 6e 64 6f 77 20 74 |y-other-|window t|
|000004a0| 5d 20 5b 22 53 68 6f 77 | 20 43 56 53 20 4c 6f 67 |] ["Show| CVS Log|
|000004b0| 22 20 63 76 73 2d 6c 6f | 67 20 74 5d 20 5b 22 53 |" cvs-lo|g t] ["S|
|000004c0| 68 6f 77 20 43 56 53 20 | 53 74 61 74 75 73 22 20 |how CVS |Status" |
|000004d0| 63 76 73 2d 73 74 61 74 | 75 73 20 74 5d 20 22 2d |cvs-stat|us t] "-|
|000004e0| 2d 2d 2d 22 20 5b 22 4d | 61 72 6b 20 46 69 6c 65 |---" ["M|ark File|
|000004f0| 22 20 63 76 73 2d 6d 61 | 72 6b 20 74 5d 20 5b 22 |" cvs-ma|rk t] ["|
|00000500| 55 6e 6d 61 72 6b 20 46 | 69 6c 65 22 20 63 76 73 |Unmark F|ile" cvs|
|00000510| 2d 75 6e 6d 61 72 6b 20 | 74 5d 20 5b 22 4d 61 72 |-unmark |t] ["Mar|
|00000520| 6b 20 41 6c 6c 20 46 69 | 6c 65 73 22 20 63 76 73 |k All Fi|les" cvs|
|00000530| 2d 6d 61 72 6b 2d 61 6c | 6c 2d 66 69 6c 65 73 20 |-mark-al|l-files |
|00000540| 74 5d 20 5b 22 55 6e 6d | 61 72 6b 20 41 6c 6c 20 |t] ["Unm|ark All |
|00000550| 46 69 6c 65 73 22 20 63 | 76 73 2d 75 6e 6d 61 72 |Files" c|vs-unmar|
|00000560| 6b 2d 61 6c 6c 2d 66 69 | 6c 65 73 20 74 5d 29 20 |k-all-fi|les t]) |
|00000570| 23 5b 28 65 29 20 22 c0 | 09 21 88 c2 79 88 c3 c4 |#[(e) ".|.!..y...|
|00000580| 21 ac 84 c5 c6 21 88 c7 | 0e 08 21 87 22 20 5b 6d |!....!..|..!." [m|
|00000590| 6f 75 73 65 2d 73 65 74 | 2d 70 6f 69 6e 74 20 65 |ouse-set|-point e|
|000005a0| 20 30 20 6c 6f 6f 6b 69 | 6e 67 2d 61 74 20 22 5e | 0 looki|ng-at "^|
|000005b0| 5b 2a 20 5d 20 22 20 65 | 72 72 6f 72 20 22 22 20 |[* ] " e|rror "" |
|000005c0| 70 6f 70 75 70 2d 6d 65 | 6e 75 20 63 76 73 2d 6d |popup-me|nu cvs-m|
|000005d0| 65 6e 75 5d 20 32 20 6e | 69 6c 20 22 65 22 5d 20 |enu] 2 n|il "e"] |
|000005e0| 63 76 73 2d 6d 6f 75 73 | 65 2d 66 69 6e 64 2d 66 |cvs-mous|e-find-f|
|000005f0| 69 6c 65 20 23 5b 28 65 | 29 20 22 c0 09 21 88 c2 |ile #[(e|) "..!..|
|00000600| 79 88 c3 c4 21 ac 84 c5 | c6 21 88 c7 60 21 87 22 |y...!...|.!..`!."|
|00000610| 20 5b 6d 6f 75 73 65 2d | 73 65 74 2d 70 6f 69 6e | [mouse-|set-poin|
|00000620| 74 20 65 20 30 20 6c 6f | 6f 6b 69 6e 67 2d 61 74 |t e 0 lo|oking-at|
|00000630| 20 22 5e 5b 2a 20 5d 20 | 22 20 65 72 72 6f 72 20 | "^[* ] |" error |
|00000640| 22 22 20 63 76 73 2d 66 | 69 6e 64 2d 66 69 6c 65 |"" cvs-f|ind-file|
|00000650| 5d 20 32 20 6e 69 6c 20 | 22 65 22 5d 20 64 65 66 |] 2 nil |"e"] def|
|00000660| 69 6e 65 2d 6b 65 79 20 | 63 76 73 2d 6d 6f 64 65 |ine-key |cvs-mode|
|00000670| 2d 6d 61 70 20 62 75 74 | 74 6f 6e 33 20 62 75 74 |-map but|ton3 but|
|00000680| 74 6f 6e 32 20 6d 61 6b | 65 2d 66 61 63 65 20 63 |ton2 mak|e-face c|
|00000690| 76 73 2d 68 65 61 64 65 | 72 2d 66 61 63 65 20 63 |vs-heade|r-face c|
|000006a0| 76 73 2d 66 69 6c 65 6e | 61 6d 65 2d 66 61 63 65 |vs-filen|ame-face|
|000006b0| 20 63 76 73 2d 73 74 61 | 74 75 73 2d 66 61 63 65 | cvs-sta|tus-face|
|000006c0| 20 66 61 63 65 2d 64 69 | 66 66 65 72 73 2d 66 72 | face-di|ffers-fr|
|000006d0| 6f 6d 2d 64 65 66 61 75 | 6c 74 2d 70 20 63 6f 70 |om-defau|lt-p cop|
|000006e0| 79 2d 66 61 63 65 20 69 | 74 61 6c 69 63 20 62 6f |y-face i|talic bo|
|000006f0| 6c 64 20 62 6f 6c 64 2d | 69 74 61 6c 69 63 20 70 |ld bold-|italic p|
|00000700| 63 6c 2d 6d 6f 64 65 2d | 6d 6f 74 69 6f 6e 2d 68 |cl-mode-|motion-h|
|00000710| 69 67 68 6c 69 67 68 74 | 2d 6c 69 6e 65 20 23 5b |ighlight|-line #[|
|00000720| 28 65 76 65 6e 74 29 20 | 22 8a c0 09 21 89 1a ad |(event) |"...!...|
|00000730| 83 c3 5c 6e 21 89 1c ad | 83 c5 09 21 89 1e 06 ad |..\n!...|...!....|
|00000740| 8d 0c 71 88 0e 06 62 88 | c7 79 88 c8 c9 21 2c ad |..q...b.|.y...!,.|
|00000750| 83 ca 09 21 87 22 20 5b | 65 76 65 6e 74 2d 77 69 |...!." [|event-wi|
|00000760| 6e 64 6f 77 20 65 76 65 | 6e 74 20 77 69 6e 64 6f |ndow eve|nt windo|
|00000770| 77 20 77 69 6e 64 6f 77 | 2d 62 75 66 66 65 72 20 |w window|-buffer |
|00000780| 62 75 66 66 65 72 20 65 | 76 65 6e 74 2d 70 6f 69 |buffer e|vent-poi|
|00000790| 6e 74 20 70 6f 69 6e 74 | 20 30 20 6c 6f 6f 6b 69 |nt point| 0 looki|
|000007a0| 6e 67 2d 61 74 20 22 5e | 5b 2a 20 5d 20 22 20 6d |ng-at "^|[* ] " m|
|000007b0| 6f 64 65 2d 6d 6f 74 69 | 6f 6e 2d 68 69 67 68 6c |ode-moti|on-highl|
|000007c0| 69 67 68 74 2d 6c 69 6e | 65 5d 20 33 5d 20 70 63 |ight-lin|e] 3] pc|
|000007d0| 6c 2d 63 76 73 2d 66 6f | 6e 74 69 66 79 20 23 5b |l-cvs-fo|ntify #[|
|000007e0| 6e 69 6c 20 22 c0 c1 21 | 88 c2 13 0c ab 94 c5 c6 |nil "..!|........|
|000007f0| 0c 5c 22 ac 8e c7 c8 0c | 21 21 88 c9 ca c6 0e 0b |.\".....|!!......|
|00000800| 41 23 88 8a 65 62 88 cc | cd ca ce 23 88 6d 3f ad |A#..eb..|...#.m?.|
|00000810| b3 cf d0 21 ab 8c d1 d2 | d3 94 d3 95 5c 22 d4 5c |...!....|....\".\|
|00000820| 22 88 aa 9d cf d5 21 ab | 98 d3 94 ab 8a d1 d2 d3 |".....!.|........|
|00000830| 94 d3 95 5c 22 d6 5c 22 | 88 d1 d2 d7 94 d7 95 5c |...\".\"|.......\|
|00000840| 22 d8 5c 22 88 d3 79 88 | aa 49 29 87 22 20 5b 72 |".\"..y.|.I)." [r|
|00000850| 65 71 75 69 72 65 20 6d | 6f 64 65 2d 6d 6f 74 69 |equire m|ode-moti|
|00000860| 6f 6e 20 70 63 6c 2d 6d | 6f 64 65 2d 6d 6f 74 69 |on pcl-m|ode-moti|
|00000870| 6f 6e 2d 68 69 67 68 6c | 69 67 68 74 2d 6c 69 6e |on-highl|ight-lin|
|00000880| 65 20 6d 6f 64 65 2d 6d | 6f 74 69 6f 6e 2d 68 6f |e mode-m|otion-ho|
|00000890| 6f 6b 20 63 75 72 72 65 | 6e 74 2d 6d 65 6e 75 62 |ok curre|nt-menub|
|000008a0| 61 72 20 61 73 73 6f 63 | 20 22 43 56 53 22 20 73 |ar assoc| "CVS" s|
|000008b0| 65 74 2d 62 75 66 66 65 | 72 2d 6d 65 6e 75 62 61 |et-buffe|r-menuba|
|000008c0| 72 20 63 6f 70 79 2d 73 | 65 71 75 65 6e 63 65 20 |r copy-s|equence |
|000008d0| 61 64 64 2d 6d 65 6e 75 | 20 6e 69 6c 20 63 76 73 |add-menu| nil cvs|
|000008e0| 2d 6d 65 6e 75 20 73 65 | 61 72 63 68 2d 66 6f 72 |-menu se|arch-for|
|000008f0| 77 61 72 64 20 22 5c 6e | 5c 6e 22 20 74 20 6c 6f |ward "\n|\n" t lo|
|00000900| 6f 6b 69 6e 67 2d 61 74 | 20 22 49 6e 20 64 69 72 |oking-at| "In dir|
|00000910| 65 63 74 6f 72 79 20 5c | 5c 28 2e 2b 5c 5c 29 24 |ectory \|\(.+\\)$|
|00000920| 22 20 73 65 74 2d 65 78 | 74 65 6e 74 2d 66 61 63 |" set-ex|tent-fac|
|00000930| 65 20 6d 61 6b 65 2d 65 | 78 74 65 6e 74 20 31 20 |e make-e|xtent 1 |
|00000940| 63 76 73 2d 68 65 61 64 | 65 72 2d 66 61 63 65 20 |cvs-head|er-face |
|00000950| 22 5b 2a 20 5d 20 5c 5c | 77 2b 20 2b 5c 5c 28 63 |"[* ] \\|w+ +\\(c|
|00000960| 69 20 2b 5c 5c 29 3f 5c | 5c 28 2e 2b 5c 5c 29 24 |i +\\)?\|\(.+\\)$|
|00000970| 22 20 63 76 73 2d 73 74 | 61 74 75 73 2d 66 61 63 |" cvs-st|atus-fac|
|00000980| 65 20 32 20 63 76 73 2d | 66 69 6c 65 6e 61 6d 65 |e 2 cvs-|filename|
|00000990| 2d 66 61 63 65 5d 20 34 | 5d 20 61 64 64 2d 68 6f |-face] 4|] add-ho|
|000009a0| 6f 6b 20 63 76 73 2d 6d | 6f 64 65 2d 68 6f 6f 6b |ok cvs-m|ode-hook|
|000009b0| 5d 20 34 29 0a | |] 4). | |
+--------+-------------------------+-------------------------+--------+--------+