/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / lucid / lemacs-19.6 / lisp / packages / compare-w.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|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 35 3a 30 37 20 |Feb  1 1|9:05:07 |
|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 63 6f |lisp/pac|kages/co|
|00000080| 6d 70 61 72 65 2d 77 2e | 65 6c 0a 3b 3b 3b 20 65 |mpare-w.|el.;;; e|
|00000090| 6d 61 63 73 20 76 65 72 | 73 69 6f 6e 20 31 39 2e |macs ver|sion 19.|
|000000a0| 34 2e 31 33 20 4c 75 63 | 69 64 2e 0a 3b 3b 3b 20 |4.13 Luc|id..;;; |
|000000b0| 62 79 74 65 63 6f 6d 70 | 20 76 65 72 73 69 6f 6e |bytecomp| version|
|000000c0| 20 32 2e 31 30 3b 20 20 | 31 2d 66 65 62 2d 39 33 | 2.10;  |1-feb-93|
|000000d0| 2e 0a 3b 3b 3b 20 6f 70 | 74 69 6d 69 7a 61 74 69 |..;;; op|timizati|
|000000e0| 6f 6e 20 69 73 20 6f 6e | 2e 0a 3b 3b 3b 20 74 68 |on is on|..;;; th|
|000000f0| 69 73 20 66 69 6c 65 20 | 75 73 65 73 20 6f 70 63 |is file |uses opc|
|00000100| 6f 64 65 73 20 77 68 69 | 63 68 20 64 6f 20 6e 6f |odes whi|ch do no|
|00000110| 74 20 65 78 69 73 74 20 | 69 6e 20 45 6d 61 63 73 |t exist |in Emacs|
|00000120| 31 38 2e 0a 0a 28 69 66 | 20 28 61 6e 64 20 28 62 |18...(if| (and (b|
|00000130| 6f 75 6e 64 70 20 27 65 | 6d 61 63 73 2d 76 65 72 |oundp 'e|macs-ver|
|00000140| 73 69 6f 6e 29 0a 09 20 | 28 6f 72 20 28 61 6e 64 |sion).. |(or (and|
|00000150| 20 28 62 6f 75 6e 64 70 | 20 27 65 70 6f 63 68 3a | (boundp| 'epoch:|
|00000160| 3a 76 65 72 73 69 6f 6e | 29 20 65 70 6f 63 68 3a |:version|) epoch:|
|00000170| 3a 76 65 72 73 69 6f 6e | 29 0a 09 20 20 20 20 20 |:version|)..     |
|00000180| 28 73 74 72 69 6e 67 2d | 6c 65 73 73 70 20 65 6d |(string-|lessp em|
|00000190| 61 63 73 2d 76 65 72 73 | 69 6f 6e 20 22 31 39 22 |acs-vers|ion "19"|
|000001a0| 29 29 29 0a 20 20 20 20 | 28 65 72 72 6f 72 20 22 |))).    |(error "|
|000001b0| 54 68 69 73 20 66 69 6c | 65 20 77 61 73 20 63 6f |This fil|e was co|
|000001c0| 6d 70 69 6c 65 64 20 66 | 6f 72 20 45 6d 61 63 73 |mpiled f|or Emacs|
|000001d0| 31 39 2e 22 29 29 0a 0a | 28 70 72 6f 76 69 64 65 |19."))..|(provide|
|000001e0| 20 27 63 6f 6d 70 61 72 | 65 2d 77 29 0a 28 64 65 | 'compar|e-w).(de|
|000001f0| 66 76 61 72 20 63 6f 6d | 70 61 72 65 2d 77 69 6e |fvar com|pare-win|
|00000200| 64 6f 77 73 2d 77 68 69 | 74 65 73 70 61 63 65 20 |dows-whi|tespace |
|00000210| 22 5b 20 09 5c 6e 5d 2b | 22 20 22 5c 0a 2a 52 65 |"[ .\n]+|" "\.*Re|
|00000220| 67 75 6c 61 72 20 65 78 | 70 72 65 73 73 69 6f 6e |gular ex|pression|
|00000230| 20 64 65 66 69 6e 69 6e | 67 20 72 75 6e 73 20 6f | definin|g runs o|
|00000240| 66 20 77 68 69 74 65 73 | 70 61 63 65 20 66 6f 72 |f whites|pace for|
|00000250| 20 5c 5c 5b 63 6f 6d 70 | 61 72 65 2d 77 69 6e 64 | \\[comp|are-wind|
|00000260| 6f 77 73 5d 2e 0a 43 68 | 61 6e 67 65 73 20 69 6e |ows]..Ch|anges in|
|00000270| 20 77 68 69 74 65 73 70 | 61 63 65 20 61 72 65 20 | whitesp|ace are |
|00000280| 6f 70 74 69 6f 6e 61 6c | 6c 79 20 69 67 6e 6f 72 |optional|ly ignor|
|00000290| 65 64 2e 0a 0a 54 68 65 | 20 76 61 6c 75 65 20 6f |ed...The| value o|
|000002a0| 66 20 60 63 6f 6d 70 61 | 72 65 2d 77 69 6e 64 6f |f `compa|re-windo|
|000002b0| 77 73 2d 77 68 69 74 65 | 73 70 61 63 65 27 20 6d |ws-white|space' m|
|000002c0| 61 79 20 69 6e 73 74 65 | 61 64 20 62 65 20 61 20 |ay inste|ad be a |
|000002d0| 66 75 6e 63 74 69 6f 6e | 3b 20 74 68 69 73 0a 66 |function|; this.f|
|000002e0| 75 6e 63 74 69 6f 6e 20 | 69 73 20 63 61 6c 6c 65 |unction |is calle|
|000002f0| 64 20 69 6e 20 65 61 63 | 68 20 62 75 66 66 65 72 |d in eac|h buffer|
|00000300| 2c 20 77 69 74 68 20 70 | 6f 69 6e 74 20 61 74 20 |, with p|oint at |
|00000310| 74 68 65 20 63 75 72 72 | 65 6e 74 20 73 63 61 6e |the curr|ent scan|
|00000320| 6e 69 6e 67 20 70 6f 69 | 6e 74 2e 0a 54 68 65 20 |ning poi|nt..The |
|00000330| 66 75 6e 63 74 69 6f 6e | 27 73 20 6a 6f 62 20 69 |function|'s job i|
|00000340| 73 20 74 6f 20 63 61 74 | 65 67 6f 72 69 7a 65 20 |s to cat|egorize |
|00000350| 61 6e 79 20 77 68 69 74 | 65 73 70 61 63 65 20 61 |any whit|espace a|
|00000360| 72 6f 75 6e 64 20 28 69 | 6e 63 6c 75 64 69 6e 67 |round (i|ncluding|
|00000370| 20 62 65 66 6f 72 65 29 | 0a 70 6f 69 6e 74 3b 20 | before)|.point; |
|00000380| 69 74 20 73 68 6f 75 6c | 64 20 61 6c 73 6f 20 61 |it shoul|d also a|
|00000390| 64 76 61 6e 63 65 20 70 | 61 73 74 20 61 6e 79 20 |dvance p|ast any |
|000003a0| 77 68 69 74 65 73 70 61 | 63 65 2e 0a 54 68 65 20 |whitespa|ce..The |
|000003b0| 66 75 6e 63 74 69 6f 6e | 20 69 73 20 70 61 73 73 |function| is pass|
|000003c0| 65 64 20 6f 6e 65 20 61 | 72 67 75 6d 65 6e 74 2c |ed one a|rgument,|
|000003d0| 20 74 68 65 20 70 6f 69 | 6e 74 20 77 68 65 72 65 | the poi|nt where|
|000003e0| 20 63 6f 6d 70 61 72 65 | 2d 77 69 6e 64 6f 77 73 | compare|-windows|
|000003f0| 0a 77 61 73 20 6f 72 69 | 67 69 6e 61 6c 6c 79 20 |.was ori|ginally |
|00000400| 63 61 6c 6c 65 64 3b 20 | 69 74 20 73 68 6f 75 6c |called; |it shoul|
|00000410| 64 20 6e 6f 74 20 63 6f | 6e 73 69 64 65 72 20 61 |d not co|nsider a|
|00000420| 6e 79 20 74 65 78 74 20 | 62 65 66 6f 72 65 20 74 |ny text |before t|
|00000430| 68 61 74 20 70 6f 69 6e | 74 2e 0a 49 66 20 74 68 |hat poin|t..If th|
|00000440| 65 20 66 75 6e 63 74 69 | 6f 6e 20 72 65 74 75 72 |e functi|on retur|
|00000450| 6e 73 20 74 68 65 20 73 | 61 6d 65 20 76 61 6c 75 |ns the s|ame valu|
|00000460| 65 20 66 6f 72 20 62 6f | 74 68 20 62 75 66 66 65 |e for bo|th buffe|
|00000470| 72 73 2c 20 74 68 65 6e | 20 74 68 65 0a 77 68 69 |rs, then| the.whi|
|00000480| 74 65 73 70 61 63 65 20 | 69 73 20 63 6f 6e 73 69 |tespace |is consi|
|00000490| 64 65 72 65 64 20 74 6f | 20 6d 61 74 63 68 2c 20 |dered to| match, |
|000004a0| 61 6e 64 20 69 73 20 73 | 6b 69 70 70 65 64 2e 22 |and is s|kipped."|
|000004b0| 29 0a 28 64 65 66 76 61 | 72 20 63 6f 6d 70 61 72 |).(defva|r compar|
|000004c0| 65 2d 69 67 6e 6f 72 65 | 2d 63 61 73 65 20 6e 69 |e-ignore|-case ni|
|000004d0| 6c 20 22 5c 0a 2a 49 66 | 20 74 68 65 20 76 61 6c |l "\.*If| the val|
|000004e0| 75 65 20 6f 66 20 74 68 | 69 73 20 76 61 72 69 61 |ue of th|is varia|
|000004f0| 62 6c 65 20 65 76 61 6c | 75 61 74 65 73 20 74 6f |ble eval|uates to|
|00000500| 20 6e 6f 6e 2d 6e 69 6c | 2c 20 5c 5c 5b 63 6f 6d | non-nil|, \\[com|
|00000510| 70 61 72 65 2d 77 69 6e | 64 6f 77 73 5d 0a 69 67 |pare-win|dows].ig|
|00000520| 6e 6f 72 65 73 20 63 61 | 73 65 20 64 69 66 66 65 |nores ca|se diffe|
|00000530| 72 65 6e 63 65 73 2e 20 | 20 53 6f 6d 65 20 75 73 |rences. | Some us|
|00000540| 65 66 75 6c 20 73 65 74 | 74 69 6e 67 73 3a 20 6e |eful set|tings: n|
|00000550| 69 6c 2c 20 74 20 6f 72 | 20 27 63 61 73 65 2d 66 |il, t or| 'case-f|
|00000560| 6f 6c 64 2d 73 65 61 72 | 63 68 2c 0a 6d 65 61 6e |old-sear|ch,.mean|
|00000570| 69 6e 67 20 74 6f 20 74 | 72 61 63 6b 20 74 68 65 |ing to t|rack the|
|00000580| 20 76 61 6c 75 65 20 6f | 66 20 74 68 65 20 60 63 | value o|f the `c|
|00000590| 61 73 65 2d 66 6f 6c 64 | 2d 73 65 61 72 63 68 27 |ase-fold|-search'|
|000005a0| 20 76 61 72 69 61 62 6c | 65 2e 22 29 0a 28 66 73 | variabl|e.").(fs|
|000005b0| 65 74 20 27 63 6f 6d 70 | 61 72 65 2d 77 69 6e 64 |et 'comp|are-wind|
|000005c0| 6f 77 73 20 23 5b 28 26 | 6f 70 74 69 6f 6e 61 6c |ows #[(&|optional|
|000005d0| 20 69 67 6e 6f 72 65 2d | 77 68 69 74 65 73 70 61 | ignore-|whitespa|
|000005e0| 63 65 29 20 22 c0 89 89 | 89 89 89 89 89 89 89 60 |ce) "...|.......`|
|000005f0| c0 c1 5c 6e 21 0b ad 81 | 0c 1d 1a 1e 06 1e 07 1e |..\n!...|........|
|00000600| 08 1e 09 1e 5c 6e 1e 0b | 1e 0c 1e 0d 1e 0e 1e 0f |....\n..|........|
|00000610| 1e 10 1e 11 60 16 11 70 | 16 0d d2 d3 20 21 89 16 |....`..p|.... !..|
|00000620| 5c 6e d3 20 3d ab 84 d4 | d5 21 88 d6 0e 5c 6e 21 |\n. =...|.!...\n!|
|00000630| 16 10 d7 0e 5c 6e 21 16 | 0c 0e 10 16 06 64 16 0f |....\n!.|.....d..|
|00000640| 8a 0e 0c 71 88 64 16 0e | 29 d8 16 09 0e 09 83 6e |...q.d..|)......n|
|00000650| 01 c0 16 09 0e 11 62 88 | d9 0e 5c 6e 0e 10 5c 22 |......b.|..\n..\"|
|00000660| 88 0d ab fa 8a c0 89 89 | 89 89 89 1e 1a 1e 1b 1e |........|........|
|00000670| 5c 6e 1e 1c 1e 1d 1e 1e | 0d 3b ab 96 6d ac 85 0d |\n......|.;..m...|
|00000680| 0e 07 78 88 df 0d 21 ab | 92 e0 95 16 1e d8 16 1b |..x...!.|........|
|00000690| aa 89 0d 0e 07 21 16 1b | 60 16 1e 0e 0c 71 88 0e |.....!..|`....q..|
|000006a0| 10 62 88 0d 3b ab 96 6d | ac 85 0d 0e 06 78 88 df |.b..;..m|.....x..|
|000006b0| 0d 21 ab 92 e0 95 16 1d | d8 16 1a aa 89 0d 0e 06 |.!......|........|
|000006c0| 21 16 1a 60 16 1d 0e 1b | ab 93 0e 1a ab 8f 0e 1b |!..`....|........|
|000006d0| 0e 1a 3d ab 88 0e 1e 16 | 11 0e 1d 16 10 2e 07 e1 |..=.....|........|
|000006e0| c0 1e 5c 22 89 1e 08 e0 | 56 ab ed d8 16 5c 22 0e |..\"....|V....\".|
|000006f0| 5c 22 ab dd 0e 08 0e 0f | 0e 11 5a 0e 0e 0e 10 5a |\"......|..Z....Z|
|00000700| 5e 5e 16 08 8a 0e 0c 71 | 88 0e 10 0e 08 0e 10 5c |^^.....q|.......\|
|00000710| 5c 7b 16 0b 29 0e 08 e0 | 56 ad 9f 5c 6e ab 91 d8 |\{..)...|V..\n...|
|00000720| 1e 23 8a e4 0e 0b 0e 11 | 0e 08 5c 5c d8 23 2a aa |.#......|..\\.#*.|
|00000730| 8b 0e 11 0e 08 0e 11 5c | 5c 7b 0e 0b 9a 89 16 5c |.......\|\{.....\|
|00000740| 22 ab 32 0e 11 0e 08 5c | 5c 16 11 0e 10 0e 08 5c |".2....\|\......\|
|00000750| 5c 16 10 d8 16 09 aa 1f | 0e 08 e5 a5 89 16 08 aa |\.......|........|
|00000760| 0f 2a 82 62 00 0e 11 62 | 88 d9 0e 5c 6e 0e 10 5c |.*.b...b|...\n..\|
|00000770| 22 88 60 0e 07 55 ad 82 | e6 20 2e 0e 87 22 20 5b |".`..U..|. ..." [|
|00000780| 6e 69 6c 20 65 76 61 6c | 20 63 6f 6d 70 61 72 65 |nil eval| compare|
|00000790| 2d 69 67 6e 6f 72 65 2d | 63 61 73 65 20 69 67 6e |-ignore-|case ign|
|000007a0| 6f 72 65 2d 77 68 69 74 | 65 73 70 61 63 65 20 63 |ore-whit|espace c|
|000007b0| 6f 6d 70 61 72 65 2d 77 | 69 6e 64 6f 77 73 2d 77 |ompare-w|indows-w|
|000007c0| 68 69 74 65 73 70 61 63 | 65 20 73 6b 69 70 2d 77 |hitespac|e skip-w|
|000007d0| 68 69 74 65 73 70 61 63 | 65 20 6f 70 6f 69 6e 74 |hitespac|e opoint|
|000007e0| 32 20 6f 70 6f 69 6e 74 | 31 20 73 69 7a 65 20 73 |2 opoint|1 size s|
|000007f0| 75 63 63 65 73 73 20 77 | 32 20 73 32 20 62 32 20 |uccess w|2 s2 b2 |
|00000800| 62 31 20 6d 61 78 70 32 | 20 6d 61 78 70 31 20 70 |b1 maxp2| maxp1 p|
|00000810| 32 20 70 31 20 6e 65 78 | 74 2d 77 69 6e 64 6f 77 |2 p1 nex|t-window|
|00000820| 20 73 65 6c 65 63 74 65 | 64 2d 77 69 6e 64 6f 77 | selecte|d-window|
|00000830| 20 65 72 72 6f 72 20 22 | 4e 6f 20 6f 74 68 65 72 | error "|No other|
|00000840| 20 77 69 6e 64 6f 77 22 | 20 77 69 6e 64 6f 77 2d | window"| window-|
|00000850| 70 6f 69 6e 74 20 77 69 | 6e 64 6f 77 2d 62 75 66 |point wi|ndow-buf|
|00000860| 66 65 72 20 74 20 73 65 | 74 2d 77 69 6e 64 6f 77 |fer t se|t-window|
|00000870| 2d 70 6f 69 6e 74 20 72 | 65 73 75 6c 74 32 20 72 |-point r|esult2 r|
|00000880| 65 73 75 6c 74 31 20 77 | 31 20 70 32 61 20 70 31 |esult1 w|1 p2a p1|
|00000890| 61 20 6c 6f 6f 6b 69 6e | 67 2d 61 74 20 30 20 31 |a lookin|g-at 0 1|
|000008a0| 30 30 30 20 73 75 63 63 | 65 73 73 2d 31 20 63 61 |000 succ|ess-1 ca|
|000008b0| 73 65 2d 66 6f 6c 64 2d | 73 65 61 72 63 68 20 73 |se-fold-|search s|
|000008c0| 65 61 72 63 68 2d 66 6f | 72 77 61 72 64 20 32 20 |earch-fo|rward 2 |
|000008d0| 64 69 6e 67 5d 20 31 35 | 20 22 5c 0a 43 6f 6d 70 |ding] 15| "\.Comp|
|000008e0| 61 72 65 20 74 65 78 74 | 20 69 6e 20 63 75 72 72 |are text| in curr|
|000008f0| 65 6e 74 20 77 69 6e 64 | 6f 77 20 77 69 74 68 20 |ent wind|ow with |
|00000900| 74 65 78 74 20 69 6e 20 | 6e 65 78 74 20 77 69 6e |text in |next win|
|00000910| 64 6f 77 2e 0a 43 6f 6d | 70 61 72 65 73 20 74 68 |dow..Com|pares th|
|00000920| 65 20 74 65 78 74 20 73 | 74 61 72 74 69 6e 67 20 |e text s|tarting |
|00000930| 61 74 20 70 6f 69 6e 74 | 20 69 6e 20 65 61 63 68 |at point| in each|
|00000940| 20 77 69 6e 64 6f 77 2c | 0a 6d 6f 76 69 6e 67 20 | window,|.moving |
|00000950| 6f 76 65 72 20 74 65 78 | 74 20 69 6e 20 65 61 63 |over tex|t in eac|
|00000960| 68 20 6f 6e 65 20 61 73 | 20 66 61 72 20 61 73 20 |h one as| far as |
|00000970| 74 68 65 79 20 6d 61 74 | 63 68 2e 0a 0a 41 20 70 |they mat|ch...A p|
|00000980| 72 65 66 69 78 20 61 72 | 67 20 6d 65 61 6e 73 20 |refix ar|g means |
|00000990| 69 67 6e 6f 72 65 20 63 | 68 61 6e 67 65 73 20 69 |ignore c|hanges i|
|000009a0| 6e 20 77 68 69 74 65 73 | 70 61 63 65 2e 0a 54 68 |n whites|pace..Th|
|000009b0| 65 20 76 61 72 69 61 62 | 6c 65 20 60 63 6f 6d 70 |e variab|le `comp|
|000009c0| 61 72 65 2d 77 69 6e 64 | 6f 77 73 2d 77 68 69 74 |are-wind|ows-whit|
|000009d0| 65 73 70 61 63 65 27 20 | 63 6f 6e 74 72 6f 6c 73 |espace' |controls|
|000009e0| 20 68 6f 77 20 77 68 69 | 74 65 73 70 61 63 65 20 | how whi|tespace |
|000009f0| 69 73 20 73 6b 69 70 70 | 65 64 2e 0a 0a 49 66 20 |is skipp|ed...If |
|00000a00| 60 63 6f 6d 70 61 72 65 | 2d 69 67 6e 6f 72 65 2d |`compare|-ignore-|
|00000a10| 63 61 73 65 27 20 69 73 | 20 6e 6f 6e 2d 6e 69 6c |case' is| non-nil|
|00000a20| 2c 20 63 68 61 6e 67 65 | 73 20 69 6e 20 63 61 73 |, change|s in cas|
|00000a30| 65 20 61 72 65 20 61 6c | 73 6f 20 69 67 6e 6f 72 |e are al|so ignor|
|00000a40| 65 64 2e 22 20 22 50 22 | 5d 29 0a                |ed." "P"|]).     |
+--------+-------------------------+-------------------------+--------+--------+