| ofs | hex dump | ascii |
|---|---|---|
| 0000 | 74 61 62 6c 69 73 74 2d 31 2e 30 2f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | tablist-1.0/.................... |
| 0020 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0040 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0060 | 00 00 00 00 30 30 30 30 37 35 35 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000755.0000000.0000000.0000 |
| 0080 | 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 31 34 35 33 00 20 35 00 00 00 | 0000000.00000000000.011453..5... |
| 00a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 00c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 00e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0100 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 0120 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 0140 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0160 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0180 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 01a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 01c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 01e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0200 | 74 61 62 6c 69 73 74 2d 31 2e 30 2f 74 61 62 6c 69 73 74 2e 65 6c 00 00 00 00 00 00 00 00 00 00 | tablist-1.0/tablist.el.......... |
| 0220 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0240 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0260 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 0280 | 30 32 30 32 31 35 33 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 33 34 34 32 00 20 30 00 00 00 | 0202153.00000000000.013442..0... |
| 02a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 02c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 02e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0300 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 0320 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 0340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 03a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 03c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 03e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0400 | 3b 3b 3b 20 74 61 62 6c 69 73 74 2e 65 6c 20 2d 2d 2d 20 45 78 74 65 6e 64 65 64 20 74 61 62 75 | ;;;.tablist.el.---.Extended.tabu |
| 0420 | 6c 61 74 65 64 2d 6c 69 73 74 2d 6d 6f 64 65 20 2d 2a 2d 20 6c 65 78 69 63 61 6c 2d 62 69 6e 64 | lated-list-mode.-*-.lexical-bind |
| 0440 | 69 6e 67 3a 20 74 20 2d 2a 2d 0a 0a 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 31 | ing:.t.-*-..;;.Copyright.(C).201 |
| 0460 | 33 2c 20 32 30 31 34 20 20 41 6e 64 72 65 61 73 20 50 6f 6c 69 74 7a 0a 0a 3b 3b 20 41 75 74 68 | 3,.2014..Andreas.Politz..;;.Auth |
| 0480 | 6f 72 3a 20 41 6e 64 72 65 61 73 20 50 6f 6c 69 74 7a 20 3c 70 6f 6c 69 74 7a 61 40 66 68 2d 74 | or:.Andreas.Politz.<politza@fh-t |
| 04a0 | 72 69 65 72 2e 64 65 3e 0a 3b 3b 20 4b 65 79 77 6f 72 64 73 3a 20 65 78 74 65 6e 73 69 6f 6e 73 | rier.de>.;;.Keywords:.extensions |
| 04c0 | 2c 20 6c 69 73 70 0a 3b 3b 20 50 61 63 6b 61 67 65 3a 20 74 61 62 6c 69 73 74 0a 3b 3b 20 56 65 | ,.lisp.;;.Package:.tablist.;;.Ve |
| 04e0 | 72 73 69 6f 6e 3a 20 31 2e 30 0a 3b 3b 20 50 61 63 6b 61 67 65 2d 52 65 71 75 69 72 65 73 3a 20 | rsion:.1.0.;;.Package-Requires:. |
| 0500 | 28 28 65 6d 61 63 73 20 22 32 34 2e 33 22 29 29 0a 0a 3b 3b 20 54 68 69 73 20 70 72 6f 67 72 61 | ((emacs."24.3"))..;;.This.progra |
| 0520 | 6d 20 69 73 20 66 72 65 65 20 73 6f 66 74 77 61 72 65 3b 20 79 6f 75 20 63 61 6e 20 72 65 64 69 | m.is.free.software;.you.can.redi |
| 0540 | 73 74 72 69 62 75 74 65 20 69 74 20 61 6e 64 2f 6f 72 20 6d 6f 64 69 66 79 0a 3b 3b 20 69 74 20 | stribute.it.and/or.modify.;;.it. |
| 0560 | 75 6e 64 65 72 20 74 68 65 20 74 65 72 6d 73 20 6f 66 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 | under.the.terms.of.the.GNU.Gener |
| 0580 | 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 61 73 20 70 75 62 6c 69 73 68 65 64 20 62 | al.Public.License.as.published.b |
| 05a0 | 79 0a 3b 3b 20 74 68 65 20 46 72 65 65 20 53 6f 66 74 77 61 72 65 20 46 6f 75 6e 64 61 74 69 6f | y.;;.the.Free.Software.Foundatio |
| 05c0 | 6e 2c 20 65 69 74 68 65 72 20 76 65 72 73 69 6f 6e 20 33 20 6f 66 20 74 68 65 20 4c 69 63 65 6e | n,.either.version.3.of.the.Licen |
| 05e0 | 73 65 2c 20 6f 72 0a 3b 3b 20 28 61 74 20 79 6f 75 72 20 6f 70 74 69 6f 6e 29 20 61 6e 79 20 6c | se,.or.;;.(at.your.option).any.l |
| 0600 | 61 74 65 72 20 76 65 72 73 69 6f 6e 2e 0a 0a 3b 3b 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 | ater.version...;;.This.program.i |
| 0620 | 73 20 64 69 73 74 72 69 62 75 74 65 64 20 69 6e 20 74 68 65 20 68 6f 70 65 20 74 68 61 74 20 69 | s.distributed.in.the.hope.that.i |
| 0640 | 74 20 77 69 6c 6c 20 62 65 20 75 73 65 66 75 6c 2c 0a 3b 3b 20 62 75 74 20 57 49 54 48 4f 55 54 | t.will.be.useful,.;;.but.WITHOUT |
| 0660 | 20 41 4e 59 20 57 41 52 52 41 4e 54 59 3b 20 77 69 74 68 6f 75 74 20 65 76 65 6e 20 74 68 65 20 | .ANY.WARRANTY;.without.even.the. |
| 0680 | 69 6d 70 6c 69 65 64 20 77 61 72 72 61 6e 74 79 20 6f 66 0a 3b 3b 20 4d 45 52 43 48 41 4e 54 41 | implied.warranty.of.;;.MERCHANTA |
| 06a0 | 42 49 4c 49 54 59 20 6f 72 20 46 49 54 4e 45 53 53 20 46 4f 52 20 41 20 50 41 52 54 49 43 55 4c | BILITY.or.FITNESS.FOR.A.PARTICUL |
| 06c0 | 41 52 20 50 55 52 50 4f 53 45 2e 20 20 53 65 65 20 74 68 65 0a 3b 3b 20 47 4e 55 20 47 65 6e 65 | AR.PURPOSE...See.the.;;.GNU.Gene |
| 06e0 | 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 66 6f 72 20 6d 6f 72 65 20 64 65 74 61 | ral.Public.License.for.more.deta |
| 0700 | 69 6c 73 2e 0a 0a 3b 3b 20 59 6f 75 20 73 68 6f 75 6c 64 20 68 61 76 65 20 72 65 63 65 69 76 65 | ils...;;.You.should.have.receive |
| 0720 | 64 20 61 20 63 6f 70 79 20 6f 66 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c | d.a.copy.of.the.GNU.General.Publ |
| 0740 | 69 63 20 4c 69 63 65 6e 73 65 0a 3b 3b 20 61 6c 6f 6e 67 20 77 69 74 68 20 74 68 69 73 20 70 72 | ic.License.;;.along.with.this.pr |
| 0760 | 6f 67 72 61 6d 2e 20 20 49 66 20 6e 6f 74 2c 20 73 65 65 20 3c 68 74 74 70 3a 2f 2f 77 77 77 2e | ogram...If.not,.see.<http://www. |
| 0780 | 67 6e 75 2e 6f 72 67 2f 6c 69 63 65 6e 73 65 73 2f 3e 2e 0a 0a 3b 3b 3b 20 43 6f 6d 6d 65 6e 74 | gnu.org/licenses/>...;;;.Comment |
| 07a0 | 61 72 79 3a 0a 3b 3b 0a 3b 3b 20 54 68 69 73 20 70 61 63 6b 61 67 65 20 61 64 64 73 20 6d 61 72 | ary:.;;.;;.This.package.adds.mar |
| 07c0 | 6b 73 20 61 6e 64 20 66 69 6c 74 65 72 73 20 74 6f 20 74 61 62 75 6c 61 74 65 64 2d 6c 69 73 74 | ks.and.filters.to.tabulated-list |
| 07e0 | 2d 6d 6f 64 65 2e 20 20 49 74 0a 3b 3b 20 61 6c 73 6f 20 6b 69 6e 64 20 6f 66 20 70 75 74 73 20 | -mode...It.;;.also.kind.of.puts. |
| 0800 | 61 20 64 69 72 65 64 20 66 61 63 65 20 6f 6e 20 74 61 62 75 6c 61 74 65 64 20 6c 69 73 74 20 62 | a.dired.face.on.tabulated.list.b |
| 0820 | 75 66 66 65 72 73 2e 0a 3b 3b 0a 3b 3b 20 49 74 20 63 61 6e 20 62 65 20 75 73 65 64 20 62 79 20 | uffers..;;.;;.It.can.be.used.by. |
| 0840 | 64 65 72 69 76 69 6e 67 20 66 72 6f 6d 20 74 61 62 6c 69 73 74 2d 6d 6f 64 65 20 61 6e 64 20 73 | deriving.from.tablist-mode.and.s |
| 0860 | 6f 6d 65 20 66 65 61 74 75 72 65 73 20 62 79 0a 3b 3b 20 75 73 69 6e 67 20 74 61 62 6c 69 73 74 | ome.features.by.;;.using.tablist |
| 0880 | 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 20 69 6e 73 69 64 65 20 61 20 74 61 62 75 6c 61 74 65 64 2d 6c | -minor-mode.inside.a.tabulated-l |
| 08a0 | 69 73 74 2d 6d 6f 64 65 20 62 75 66 66 65 72 2e 0a 3b 3b 0a 0a 3b 3b 3b 20 43 6f 64 65 3a 0a 0a | ist-mode.buffer..;;..;;;.Code:.. |
| 08c0 | 28 72 65 71 75 69 72 65 20 27 63 6c 2d 6c 69 62 29 0a 28 72 65 71 75 69 72 65 20 27 72 69 6e 67 | (require.'cl-lib).(require.'ring |
| 08e0 | 29 0a 28 72 65 71 75 69 72 65 20 27 74 61 62 75 6c 61 74 65 64 2d 6c 69 73 74 29 0a 28 72 65 71 | ).(require.'tabulated-list).(req |
| 0900 | 75 69 72 65 20 27 64 69 72 65 64 29 0a 28 72 65 71 75 69 72 65 20 27 74 61 62 6c 69 73 74 2d 66 | uire.'dired).(require.'tablist-f |
| 0920 | 69 6c 74 65 72 29 0a 0a 3b 3b 0a 3b 3b 20 2a 4d 61 63 72 6f 73 0a 3b 3b 0a 0a 28 64 65 66 6d 61 | ilter)..;;.;;.*Macros.;;..(defma |
| 0940 | 63 72 6f 20 74 61 62 6c 69 73 74 2d 73 61 76 65 2d 6d 61 72 6b 73 20 28 26 72 65 73 74 20 62 6f | cro.tablist-save-marks.(&rest.bo |
| 0960 | 64 79 29 0a 20 20 22 45 76 61 6c 20 62 6f 64 79 2c 20 77 68 69 6c 65 20 70 72 65 73 65 72 76 69 | dy)..."Eval.body,.while.preservi |
| 0980 | 6e 67 20 61 6c 6c 20 6d 61 72 6b 73 2e 22 0a 20 20 28 6c 65 74 20 28 28 6d 61 72 6b 73 20 28 6d | ng.all.marks."...(let.((marks.(m |
| 09a0 | 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 6d 61 72 6b 73 22 29 29 29 0a 20 20 20 20 60 28 6c 65 74 20 | ake-symbol."marks"))).....`(let. |
| 09c0 | 28 2c 6d 61 72 6b 73 29 0a 20 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a | (,marks)........(save-excursion. |
| 09e0 | 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 | .........(goto-char.(point-min)) |
| 0a00 | 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 72 65 20 22 5e 5c 5c 28 5b 5e 20 5d 5c 5c 29 | ..........(let.((re."^\\([^.]\\) |
| 0a20 | 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 72 65 2d 73 65 61 72 63 68 | "))............(while.(re-search |
| 0a40 | 2d 66 6f 72 77 61 72 64 20 72 65 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | -forward.re.nil.t).............. |
| 0a60 | 28 70 75 73 68 20 28 63 6f 6e 73 20 28 74 61 62 75 6c 61 74 65 64 2d 6c 69 73 74 2d 67 65 74 2d | (push.(cons.(tabulated-list-get- |
| 0a80 | 69 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 61 | id)..........................(ta |
| 0aa0 | 62 6c 69 73 74 2d 67 65 74 2d 6d 61 72 6b 2d 73 74 61 74 65 29 29 0a 20 20 20 20 20 20 20 20 20 | blist-get-mark-state)).......... |
| 0ac0 | 20 20 20 20 20 20 20 20 20 20 2c 6d 61 72 6b 73 29 29 29 29 0a 20 20 20 20 20 20 20 28 75 6e 77 | ..........,marks))))........(unw |
| 0ae0 | 69 6e 64 2d 70 72 6f 74 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 20 2c 40 | ind-protect............(progn.,@ |
| 0b00 | 62 6f 64 79 29 0a 20 20 20 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 | body)..........(save-excursion.. |
| 0b20 | 20 20 20 20 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 6d 20 2c 6d 61 72 6b 73 29 0a 20 20 20 | ..........(dolist.(m.,marks).... |
| 0b40 | 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 69 64 20 28 70 6f 70 20 6d 29 29 29 0a 20 20 | ..........(let.((id.(pop.m)))... |
| 0b60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d | .............(goto-char.(point-m |
| 0b80 | 69 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 61 6e 64 20 | in))................(while.(and. |
| 0ba0 | 69 64 20 28 6e 6f 74 20 28 65 6f 62 70 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | id.(not.(eobp)))................ |
| 0bc0 | 20 20 28 77 68 65 6e 20 28 65 71 75 61 6c 20 69 64 20 28 74 61 62 75 6c 61 74 65 64 2d 6c 69 73 | ..(when.(equal.id.(tabulated-lis |
| 0be0 | 74 2d 67 65 74 2d 69 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 | t-get-id))....................(t |
| 0c00 | 61 62 6c 69 73 74 2d 70 75 74 2d 6d 61 72 6b 2d 73 74 61 74 65 20 6d 29 0a 20 20 20 20 20 20 20 | ablist-put-mark-state.m)........ |
| 0c20 | 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 69 64 20 6e 69 6c 29 29 0a 20 20 20 20 20 | ............(setq.id.nil))...... |
| 0c40 | 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 29 29 29 29 29 29 29 | ............(forward-line))))))) |
| 0c60 | 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 74 61 62 6c 69 73 74 2d 77 69 74 68 2d 72 65 6d 65 6d | ))..(defmacro.tablist-with-remem |
| 0c80 | 62 65 72 69 6e 67 2d 65 6e 74 72 79 20 28 26 72 65 73 74 20 62 6f 64 79 29 0a 20 20 22 52 65 6d | bering-entry.(&rest.body)..."Rem |
| 0ca0 | 65 6d 62 65 72 20 77 68 65 72 65 20 62 6f 64 79 20 6c 65 66 74 20 6f 66 20 61 6e 64 20 72 65 73 | ember.where.body.left.of.and.res |
| 0cc0 | 74 6f 72 65 20 70 72 65 76 69 6f 75 73 20 70 6f 73 69 74 69 6f 6e 2e 0a 0a 49 66 20 74 68 65 20 | tore.previous.position...If.the. |
| 0ce0 | 63 75 72 72 65 6e 74 20 65 6e 74 72 79 20 69 73 20 73 74 69 6c 6c 20 76 69 73 69 62 6c 65 2c 20 | current.entry.is.still.visible,. |
| 0d00 | 6d 6f 76 65 20 74 6f 20 69 74 2e 20 4f 74 68 65 72 77 69 73 65 20 6d 6f 76 65 0a 74 6f 20 74 68 | move.to.it..Otherwise.move.to.th |
| 0d20 | 65 20 6e 65 78 74 20 76 69 73 69 62 6c 65 20 6f 6e 65 20 61 66 74 65 72 20 69 74 2e 20 20 49 66 | e.next.visible.one.after.it...If |
| 0d40 | 20 74 68 61 74 20 61 6c 73 6f 20 66 61 69 6c 73 2c 20 67 6f 74 6f 20 74 6f 0a 74 68 65 20 62 65 | .that.also.fails,.goto.to.the.be |
| 0d60 | 67 69 6e 6e 69 6e 67 20 6f 66 20 74 68 65 20 62 75 66 66 65 72 2e 20 20 46 69 6e 61 6c 6c 79 20 | ginning.of.the.buffer...Finally. |
| 0d80 | 6d 6f 76 65 20 70 6f 69 6e 74 20 74 6f 20 74 68 65 20 6d 61 6a 6f 72 0a 63 6f 6c 75 6d 6e 2e 22 | move.point.to.the.major.column." |
| 0da0 | 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 6e 64 65 6e 74 20 30 29 20 28 64 65 62 75 67 20 74 29 | ...(declare.(indent.0).(debug.t) |
| 0dc0 | 29 0a 20 20 28 6c 65 74 20 28 28 72 65 20 28 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 72 65 22 29 | )...(let.((re.(make-symbol."re") |
| 0de0 | 29 0a 20 20 20 20 20 20 20 20 28 69 64 20 28 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 69 64 22 29 | ).........(id.(make-symbol."id") |
| 0e00 | 29 0a 20 20 20 20 20 20 20 20 28 63 6f 6c 20 28 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 63 6f 6c | ).........(col.(make-symbol."col |
| 0e20 | 22 29 29 29 0a 20 20 20 20 60 28 6c 65 74 20 28 28 2c 72 65 0a 20 20 20 20 20 20 20 20 20 20 20 | "))).....`(let.((,re............ |
| 0e40 | 20 28 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 | .(replace-regexp-in-string...... |
| 0e60 | 20 20 20 20 20 20 20 20 22 5b 5c 74 20 5d 2b 22 20 22 5b 5c 74 20 5d 2a 22 20 28 72 65 67 65 78 | ........"[\t.]+"."[\t.]*".(regex |
| 0e80 | 70 2d 71 75 6f 74 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | p-quote......................... |
| 0ea0 | 20 20 20 20 20 20 20 20 28 6f 72 20 28 74 68 69 6e 67 2d 61 74 2d 70 6f 69 6e 74 20 27 6c 69 6e | ........(or.(thing-at-point.'lin |
| 0ec0 | 65 29 20 22 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 74 20 74 29 29 0a 20 20 20 20 20 | e).""))..............t.t))...... |
| 0ee0 | 20 20 20 20 20 20 28 2c 69 64 20 28 74 61 62 75 6c 61 74 65 64 2d 6c 69 73 74 2d 67 65 74 2d 69 | ......(,id.(tabulated-list-get-i |
| 0f00 | 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 2c 63 6f 6c 20 28 74 61 62 6c 69 73 74 2d 63 75 | d))............(,col.(tablist-cu |
| 0f20 | 72 72 65 6e 74 2d 63 6f 6c 75 6d 6e 29 29 29 0a 20 20 20 20 20 20 20 28 70 72 6f 67 6e 0a 20 20 | rrent-column)))........(progn... |
| 0f40 | 20 20 20 20 20 20 20 2c 40 62 6f 64 79 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 73 75 63 | .......,@body..........(let.(suc |
| 0f60 | 63 65 73 73 20 70 6f 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 | cess.pos)............(goto-char. |
| 0f80 | 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 70 6f | (point-min))............(setq.po |
| 0fa0 | 73 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 61 6e | s.(point))............(while.(an |
| 0fc0 | 64 20 28 73 65 74 71 20 73 75 63 63 65 73 73 20 28 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 | d.(setq.success.(re-search-forwa |
| 0fe0 | 72 64 20 2c 72 65 20 6e 69 6c 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rd.,re.nil.t)).................. |
| 1000 | 20 20 20 20 20 20 28 3e 20 28 70 6f 69 6e 74 29 20 28 70 72 6f 67 31 20 70 6f 73 20 28 73 65 74 | ......(>.(point).(prog1.pos.(set |
| 1020 | 71 20 70 6f 73 20 28 70 6f 69 6e 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | q.pos.(point))))................ |
| 1040 | 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 2d 31 29 0a 20 20 20 20 20 20 | ........(forward-line.-1)....... |
| 1060 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 65 71 75 61 6c 20 2c 69 64 | .................(not.(equal.,id |
| 1080 | 20 28 74 61 62 75 6c 61 74 65 64 2d 6c 69 73 74 2d 67 65 74 2d 69 64 29 29 29 29 0a 20 20 20 20 | .(tabulated-list-get-id))))..... |
| 10a0 | 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 29 29 0a 20 20 20 20 20 20 20 | .........(forward-line))........ |
| 10c0 | 20 20 20 20 28 75 6e 6c 65 73 73 20 73 75 63 63 65 73 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ....(unless.success............. |
| 10e0 | 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 20 | .(goto-char.(point-min))........ |
| 1100 | 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 61 6e 64 20 28 6e 6f 74 20 28 65 6f 62 70 29 29 0a 20 | ......(while.(and.(not.(eobp)).. |
| 1120 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 73 75 63 | ........................(not.suc |
| 1140 | 63 65 73 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 65 71 75 61 6c | cess))................(if.(equal |
| 1160 | 20 28 74 61 62 75 6c 61 74 65 64 2d 6c 69 73 74 2d 67 65 74 2d 69 64 29 20 2c 69 64 29 0a 20 20 | .(tabulated-list-get-id).,id)... |
| 1180 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 73 75 63 63 65 73 73 20 74 | .................(setq.success.t |
| 11a0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 | )..................(forward-line |
| 11c0 | 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 61 6e 64 20 73 75 63 | ))))............(unless.(and.suc |
| 11e0 | 63 65 73 73 20 28 6e 6f 74 20 28 69 6e 76 69 73 69 62 6c 65 2d 70 20 28 70 6f 69 6e 74 29 29 29 | cess.(not.(invisible-p.(point))) |
| 1200 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 | )..............(goto-char.(point |
| 1220 | 2d 6d 69 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 74 61 62 6c 69 73 74 2d 73 6b 69 70 | -min)))............(tablist-skip |
| 1240 | 2d 69 6e 76 69 73 69 62 6c 65 2d 65 6e 74 72 69 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 | -invisible-entries)............( |
| 1260 | 74 61 62 6c 69 73 74 2d 6d 6f 76 65 2d 74 6f 2d 63 6f 6c 75 6d 6e 0a 20 20 20 20 20 20 20 20 20 | tablist-move-to-column.......... |
| 1280 | 20 20 20 28 6f 72 20 2c 63 6f 6c 20 28 63 61 72 20 28 74 61 62 6c 69 73 74 2d 6d 61 6a 6f 72 2d | ...(or.,col.(car.(tablist-major- |
| 12a0 | 63 6f 6c 75 6d 6e 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 | columns))))............(dolist.( |
| 12c0 | 77 69 6e 20 28 67 65 74 2d 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 2d 6c 69 73 74 29 29 0a 20 20 | win.(get-buffer-window-list))... |
| 12e0 | 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 2d 77 69 6e 64 6f 77 2d 70 6f 69 6e 74 20 77 69 6e | ...........(set-window-point.win |
| 1300 | 20 28 70 6f 69 6e 74 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 74 61 62 6c 69 | .(point))))))))..(defmacro.tabli |
| 1320 | 73 74 2d 77 69 74 68 2d 66 69 6c 74 65 72 2d 64 69 73 70 6c 61 79 65 64 20 28 26 72 65 73 74 20 | st-with-filter-displayed.(&rest. |
| 1340 | 62 6f 64 79 29 0a 20 20 22 44 69 73 70 6c 61 79 20 74 68 65 20 63 75 72 72 65 6e 74 20 66 69 6c | body)..."Display.the.current.fil |
| 1360 | 74 65 72 20 69 6e 20 74 68 65 20 6d 6f 64 65 20 77 68 69 6c 65 20 65 76 61 6c 6c 69 6e 67 20 42 | ter.in.the.mode.while.evalling.B |
| 1380 | 4f 44 59 2e 22 0a 20 20 28 6c 65 74 20 28 28 73 74 61 74 65 20 28 6d 61 6b 65 2d 73 79 6d 62 6f | ODY."...(let.((state.(make-symbo |
| 13a0 | 6c 20 22 73 74 61 74 65 22 29 29 29 0a 20 20 20 20 60 28 6c 65 74 20 28 28 2c 73 74 61 74 65 20 | l."state"))).....`(let.((,state. |
| 13c0 | 28 74 61 62 6c 69 73 74 2d 64 69 73 70 6c 61 79 2d 66 69 6c 74 65 72 20 27 73 74 61 74 65 29 29 | (tablist-display-filter.'state)) |
| 13e0 | 29 0a 20 20 20 20 20 20 20 28 74 61 62 6c 69 73 74 2d 64 69 73 70 6c 61 79 2d 66 69 6c 74 65 72 | )........(tablist-display-filter |
| 1400 | 20 74 29 0a 20 20 20 20 20 20 20 28 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 0a 20 20 20 20 20 | .t)........(unwind-protect...... |
| 1420 | 20 20 20 20 20 20 28 70 72 6f 67 6e 20 2c 40 62 6f 64 79 29 0a 20 20 20 20 20 20 20 20 20 28 74 | ......(progn.,@body)..........(t |
| 1440 | 61 62 6c 69 73 74 2d 64 69 73 70 6c 61 79 2d 66 69 6c 74 65 72 20 2c 73 74 61 74 65 29 29 29 29 | ablist-display-filter.,state)))) |
| 1460 | 29 0a 0a 3b 3b 0a 3b 3b 20 2a 4d 6f 64 65 20 4d 61 70 73 0a 3b 3b 0a 0a 28 64 65 66 76 61 72 20 | )..;;.;;.*Mode.Maps.;;..(defvar. |
| 1480 | 74 61 62 6c 69 73 74 2d 6d 6f 64 65 2d 66 69 6c 74 65 72 2d 6d 61 70 0a 20 20 28 6c 65 74 20 28 | tablist-mode-filter-map...(let.( |
| 14a0 | 28 6b 6d 61 70 20 28 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 29 0a 20 20 20 | (kmap.(make-sparse-keymap))).... |
| 14c0 | 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6b 6d 61 70 20 22 70 22 20 27 74 61 62 6c 69 73 74 2d 70 | .(define-key.kmap."p".'tablist-p |
| 14e0 | 6f 70 2d 66 69 6c 74 65 72 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6b 6d 61 70 20 | op-filter).....(define-key.kmap. |
| 1500 | 22 72 22 20 27 74 61 62 6c 69 73 74 2d 70 75 73 68 2d 72 65 67 65 78 70 2d 66 69 6c 74 65 72 29 | "r".'tablist-push-regexp-filter) |
| 1520 | 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6b 6d 61 70 20 22 3d 22 20 27 74 61 62 6c 69 | .....(define-key.kmap."=".'tabli |
| 1540 | 73 74 2d 70 75 73 68 2d 65 71 75 61 6c 2d 66 69 6c 74 65 72 29 0a 20 20 20 20 28 64 65 66 69 6e | st-push-equal-filter).....(defin |
| 1560 | 65 2d 6b 65 79 20 6b 6d 61 70 20 22 6e 22 20 27 74 61 62 6c 69 73 74 2d 70 75 73 68 2d 6e 75 6d | e-key.kmap."n".'tablist-push-num |
| 1580 | 65 72 69 63 2d 66 69 6c 74 65 72 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6b 6d 61 | eric-filter).....(define-key.kma |
| 15a0 | 70 20 22 21 22 20 27 74 61 62 6c 69 73 74 2d 6e 65 67 61 74 65 2d 66 69 6c 74 65 72 29 0a 20 20 | p."!".'tablist-negate-filter)... |
| 15c0 | 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6b 6d 61 70 20 22 74 22 20 27 74 61 62 6c 69 73 74 2d | ..(define-key.kmap."t".'tablist- |
| 15e0 | 74 6f 67 67 6c 65 2d 66 69 72 73 74 2d 66 69 6c 74 65 72 2d 6c 6f 67 69 63 29 0a 20 20 20 20 28 | toggle-first-filter-logic).....( |
| 1600 | 64 65 66 69 6e 65 2d 6b 65 79 20 6b 6d 61 70 20 22 2f 22 20 27 74 61 62 6c 69 73 74 2d 64 69 73 | define-key.kmap."/".'tablist-dis |
| 1620 | 70 6c 61 79 2d 66 69 6c 74 65 72 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6b 6d 61 | play-filter).....(define-key.kma |
| 1640 | 70 20 22 7a 22 20 27 74 61 62 6c 69 73 74 2d 73 75 73 70 65 6e 64 2d 66 69 6c 74 65 72 29 0a 0a | p."z".'tablist-suspend-filter).. |
| 1660 | 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6b 6d 61 70 20 22 61 22 20 27 74 61 62 6c 69 73 | ....(define-key.kmap."a".'tablis |
| 1680 | 74 2d 70 75 73 68 2d 6e 61 6d 65 64 2d 66 69 6c 74 65 72 29 0a 20 20 20 20 28 64 65 66 69 6e 65 | t-push-named-filter).....(define |
| 16a0 | 2d 6b 65 79 20 6b 6d 61 70 20 22 73 22 20 27 74 61 62 6c 69 73 74 2d 6e 61 6d 65 2d 63 75 72 72 | -key.kmap."s".'tablist-name-curr |
| 16c0 | 65 6e 74 2d 66 69 6c 74 65 72 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6b 6d 61 70 | ent-filter).....(define-key.kmap |
| 16e0 | 20 22 44 22 20 27 74 61 62 6c 69 73 74 2d 64 65 6c 65 74 65 2d 6e 61 6d 65 64 2d 66 69 6c 74 65 | ."D".'tablist-delete-named-filte |
| 1700 | 72 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6b 6d 61 70 20 22 64 22 20 27 74 61 62 | r).....(define-key.kmap."d".'tab |
| 1720 | 6c 69 73 74 2d 64 65 63 6f 6e 73 74 72 75 63 74 2d 6e 61 6d 65 64 2d 66 69 6c 74 65 72 29 0a 20 | list-deconstruct-named-filter).. |
| 1740 | 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6b 6d 61 70 20 22 65 22 20 27 74 61 62 6c 69 73 74 | ...(define-key.kmap."e".'tablist |
| 1760 | 2d 65 64 69 74 2d 66 69 6c 74 65 72 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6b 6d | -edit-filter).....(define-key.km |
| 1780 | 61 70 20 22 43 22 20 27 74 61 62 6c 69 73 74 2d 63 6c 65 61 72 2d 66 69 6c 74 65 72 29 0a 20 20 | ap."C".'tablist-clear-filter)... |
| 17a0 | 20 20 6b 6d 61 70 29 29 0a 0a 28 64 65 66 76 61 72 20 74 61 62 6c 69 73 74 2d 6d 6f 64 65 2d 6d | ..kmap))..(defvar.tablist-mode-m |
| 17c0 | 61 72 6b 2d 6d 61 70 0a 20 20 28 6c 65 74 20 28 28 6b 6d 61 70 20 28 6d 61 6b 65 2d 73 70 61 72 | ark-map...(let.((kmap.(make-spar |
| 17e0 | 73 65 2d 6b 65 79 6d 61 70 29 29 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6b 6d 61 | se-keymap))).....(define-key.kma |
| 1800 | 70 20 22 63 22 20 27 74 61 62 6c 69 73 74 2d 63 68 61 6e 67 65 2d 6d 61 72 6b 73 29 0a 20 20 20 | p."c".'tablist-change-marks).... |
| 1820 | 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6b 6d 61 70 20 22 21 22 20 27 74 61 62 6c 69 73 74 2d 75 | .(define-key.kmap."!".'tablist-u |
| 1840 | 6e 6d 61 72 6b 2d 61 6c 6c 2d 6d 61 72 6b 73 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 | nmark-all-marks).....(define-key |
| 1860 | 20 6b 6d 61 70 20 22 72 22 20 27 74 61 62 6c 69 73 74 2d 6d 61 72 6b 2d 69 74 65 6d 73 2d 72 65 | .kmap."r".'tablist-mark-items-re |
| 1880 | 67 65 78 70 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6b 6d 61 70 20 22 6e 22 20 27 | gexp).....(define-key.kmap."n".' |
| 18a0 | 74 61 62 6c 69 73 74 2d 6d 61 72 6b 2d 69 74 65 6d 73 2d 6e 75 6d 65 72 69 63 29 0a 20 20 20 20 | tablist-mark-items-numeric)..... |
| 18c0 | 28 64 65 66 69 6e 65 2d 6b 65 79 20 6b 6d 61 70 20 22 6d 22 20 27 74 61 62 6c 69 73 74 2d 6d 61 | (define-key.kmap."m".'tablist-ma |
| 18e0 | 72 6b 2d 66 6f 72 77 61 72 64 29 0a 20 20 20 20 6b 6d 61 70 29 29 0a 0a 28 64 65 66 76 61 72 20 | rk-forward).....kmap))..(defvar. |
| 1900 | 74 61 62 6c 69 73 74 2d 6d 6f 64 65 2d 72 65 67 65 78 70 2d 6d 61 70 0a 20 20 28 6c 65 74 20 28 | tablist-mode-regexp-map...(let.( |
| 1920 | 28 6b 6d 61 70 20 28 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 29 0a 20 20 20 | (kmap.(make-sparse-keymap))).... |
| 1940 | 20 3b 3b 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6b 6d 61 70 20 22 26 22 20 27 74 61 62 6c 69 73 | .;;.(define-key.kmap."&".'tablis |
| 1960 | 74 2d 66 6c 61 67 2d 67 61 72 67 61 62 65 2d 69 74 65 6d 73 29 0a 20 20 20 20 28 64 65 66 69 6e | t-flag-gargabe-items).....(defin |
| 1980 | 65 2d 6b 65 79 20 6b 6d 61 70 20 22 6d 22 20 27 74 61 62 6c 69 73 74 2d 6d 61 72 6b 2d 69 74 65 | e-key.kmap."m".'tablist-mark-ite |
| 19a0 | 6d 73 2d 72 65 67 65 78 70 29 0a 20 20 20 20 6b 6d 61 70 29 29 0a 0a 28 64 65 66 76 61 72 20 74 | ms-regexp).....kmap))..(defvar.t |
| 19c0 | 61 62 6c 69 73 74 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 2d 6d 61 70 0a 20 20 28 6c 65 74 20 28 28 6b | ablist-minor-mode-map...(let.((k |
| 19e0 | 6d 61 70 20 28 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 29 0a 20 20 20 20 28 | map.(make-sparse-keymap))).....( |
| 1a00 | 64 65 66 69 6e 65 2d 6b 65 79 20 6b 6d 61 70 20 22 6d 22 20 27 74 61 62 6c 69 73 74 2d 6d 61 72 | define-key.kmap."m".'tablist-mar |
| 1a20 | 6b 2d 66 6f 72 77 61 72 64 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6b 6d 61 70 20 | k-forward).....(define-key.kmap. |
| 1a40 | 28 6b 62 64 20 22 44 45 4c 22 29 20 27 74 61 62 6c 69 73 74 2d 75 6e 6d 61 72 6b 2d 62 61 63 6b | (kbd."DEL").'tablist-unmark-back |
| 1a60 | 77 61 72 64 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6b 6d 61 70 20 22 6b 22 20 27 | ward).....(define-key.kmap."k".' |
| 1a80 | 74 61 62 6c 69 73 74 2d 64 6f 2d 6b 69 6c 6c 2d 6c 69 6e 65 73 29 0a 20 20 20 20 28 64 65 66 69 | tablist-do-kill-lines).....(defi |
| 1aa0 | 6e 65 2d 6b 65 79 20 6b 6d 61 70 20 22 55 22 20 27 74 61 62 6c 69 73 74 2d 75 6e 6d 61 72 6b 2d | ne-key.kmap."U".'tablist-unmark- |
| 1ac0 | 61 6c 6c 2d 6d 61 72 6b 73 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6b 6d 61 70 20 | all-marks).....(define-key.kmap. |
| 1ae0 | 22 75 22 20 27 74 61 62 6c 69 73 74 2d 75 6e 6d 61 72 6b 2d 66 6f 72 77 61 72 64 29 0a 20 20 20 | "u".'tablist-unmark-forward).... |
| 1b00 | 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6b 6d 61 70 20 22 74 22 20 27 74 61 62 6c 69 73 74 2d 74 | .(define-key.kmap."t".'tablist-t |
| 1b20 | 6f 67 67 6c 65 2d 6d 61 72 6b 73 29 0a 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6b 6d | oggle-marks)......(define-key.km |
| 1b40 | 61 70 20 28 6b 62 64 20 22 54 41 42 22 29 20 27 74 61 62 6c 69 73 74 2d 66 6f 72 77 61 72 64 2d | ap.(kbd."TAB").'tablist-forward- |
| 1b60 | 63 6f 6c 75 6d 6e 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6b 6d 61 70 20 22 5c 74 | column).....(define-key.kmap."\t |
| 1b80 | 22 20 27 74 61 62 6c 69 73 74 2d 66 6f 72 77 61 72 64 2d 63 6f 6c 75 6d 6e 29 0a 20 20 20 20 28 | ".'tablist-forward-column).....( |
| 1ba0 | 64 65 66 69 6e 65 2d 6b 65 79 20 6b 6d 61 70 20 5b 62 61 63 6b 74 61 62 5d 20 27 74 61 62 6c 69 | define-key.kmap.[backtab].'tabli |
| 1bc0 | 73 74 2d 62 61 63 6b 77 61 72 64 2d 63 6f 6c 75 6d 6e 29 0a 0a 20 20 20 20 28 64 65 66 69 6e 65 | st-backward-column)......(define |
| 1be0 | 2d 6b 65 79 20 6b 6d 61 70 20 22 25 22 20 74 61 62 6c 69 73 74 2d 6d 6f 64 65 2d 72 65 67 65 78 | -key.kmap."%".tablist-mode-regex |
| 1c00 | 70 2d 6d 61 70 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6b 6d 61 70 20 22 2a 22 20 | p-map).....(define-key.kmap."*". |
| 1c20 | 74 61 62 6c 69 73 74 2d 6d 6f 64 65 2d 6d 61 72 6b 2d 6d 61 70 29 0a 20 20 20 20 28 64 65 66 69 | tablist-mode-mark-map).....(defi |
| 1c40 | 6e 65 2d 6b 65 79 20 6b 6d 61 70 20 22 2f 22 20 74 61 62 6c 69 73 74 2d 6d 6f 64 65 2d 66 69 6c | ne-key.kmap."/".tablist-mode-fil |
| 1c60 | 74 65 72 2d 6d 61 70 29 0a 0a 20 20 20 20 3b 3b 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6b 6d 61 | ter-map)......;;.(define-key.kma |
| 1c80 | 70 20 22 65 22 20 27 74 61 62 6c 69 73 74 2d 65 64 69 74 2d 63 6f 6c 75 6d 6e 29 0a 20 20 20 20 | p."e".'tablist-edit-column)..... |
| 1ca0 | 3b 3b 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6b 6d 61 70 20 22 69 22 20 27 74 61 62 6c 69 73 74 | ;;.(define-key.kmap."i".'tablist |
| 1cc0 | 2d 69 6e 73 65 72 74 2d 65 6e 74 72 79 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6b | -insert-entry).....(define-key.k |
| 1ce0 | 6d 61 70 20 22 73 22 20 27 74 61 62 6c 69 73 74 2d 73 6f 72 74 29 0a 20 20 20 20 28 64 65 66 69 | map."s".'tablist-sort).....(defi |
| 1d00 | 6e 65 2d 6b 65 79 20 6b 6d 61 70 20 5b 72 65 6d 61 70 20 62 61 63 6b 2d 74 6f 2d 69 6e 64 65 6e | ne-key.kmap.[remap.back-to-inden |
| 1d20 | 74 61 74 69 6f 6e 5d 20 27 74 61 62 6c 69 73 74 2d 6d 6f 76 65 2d 74 6f 2d 6d 61 6a 6f 72 2d 63 | tation].'tablist-move-to-major-c |
| 1d40 | 6f 6c 75 6d 6e 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6b 6d 61 70 20 5b 72 65 6d | olumn).....(define-key.kmap.[rem |
| 1d60 | 61 70 20 6e 65 78 74 2d 6c 69 6e 65 5d 20 27 74 61 62 6c 69 73 74 2d 6e 65 78 74 2d 6c 69 6e 65 | ap.next-line].'tablist-next-line |
| 1d80 | 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6b 6d 61 70 20 5b 72 65 6d 61 70 20 70 72 | ).....(define-key.kmap.[remap.pr |
| 1da0 | 65 76 69 6f 75 73 2d 6c 69 6e 65 5d 20 27 74 61 62 6c 69 73 74 2d 70 72 65 76 69 6f 75 73 2d 6c | evious-line].'tablist-previous-l |
| 1dc0 | 69 6e 65 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6b 6d 61 70 20 22 3c 22 20 27 74 | ine).....(define-key.kmap."<".'t |
| 1de0 | 61 62 6c 69 73 74 2d 73 68 72 69 6e 6b 2d 63 6f 6c 75 6d 6e 29 0a 20 20 20 20 28 64 65 66 69 6e | ablist-shrink-column).....(defin |
| 1e00 | 65 2d 6b 65 79 20 6b 6d 61 70 20 22 3e 22 20 27 74 61 62 6c 69 73 74 2d 65 6e 6c 61 72 67 65 2d | e-key.kmap.">".'tablist-enlarge- |
| 1e20 | 63 6f 6c 75 6d 6e 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6b 6d 61 70 20 22 71 22 | column).....(define-key.kmap."q" |
| 1e40 | 20 27 74 61 62 6c 69 73 74 2d 71 75 69 74 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 | .'tablist-quit).....(define-key. |
| 1e60 | 6b 6d 61 70 20 22 47 22 20 27 74 61 62 6c 69 73 74 2d 72 65 76 65 72 74 29 0a 20 20 20 20 28 64 | kmap."G".'tablist-revert).....(d |
| 1e80 | 65 66 69 6e 65 2d 6b 65 79 20 6b 6d 61 70 20 28 6b 62 64 20 22 43 2d 63 20 43 2d 65 22 29 20 27 | efine-key.kmap.(kbd."C-c.C-e").' |
| 1ea0 | 74 61 62 6c 69 73 74 2d 65 78 70 6f 72 74 2d 63 73 76 29 0a 20 20 20 20 6b 6d 61 70 29 29 0a 0a | tablist-export-csv).....kmap)).. |
| 1ec0 | 28 64 65 66 76 61 72 20 74 61 62 6c 69 73 74 2d 6d 6f 64 65 2d 6d 61 70 0a 20 20 28 6c 65 74 20 | (defvar.tablist-mode-map...(let. |
| 1ee0 | 28 28 6b 6d 61 70 20 28 63 6f 70 79 2d 6b 65 79 6d 61 70 20 74 61 62 6c 69 73 74 2d 6d 69 6e 6f | ((kmap.(copy-keymap.tablist-mino |
| 1f00 | 72 2d 6d 6f 64 65 2d 6d 61 70 29 29 29 0a 20 20 20 20 28 73 65 74 2d 6b 65 79 6d 61 70 2d 70 61 | r-mode-map))).....(set-keymap-pa |
| 1f20 | 72 65 6e 74 20 6b 6d 61 70 20 74 61 62 75 6c 61 74 65 64 2d 6c 69 73 74 2d 6d 6f 64 65 2d 6d 61 | rent.kmap.tabulated-list-mode-ma |
| 1f40 | 70 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6b 6d 61 70 20 22 64 22 20 27 74 61 62 | p).....(define-key.kmap."d".'tab |
| 1f60 | 6c 69 73 74 2d 66 6c 61 67 2d 66 6f 72 77 61 72 64 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b | list-flag-forward).....(define-k |
| 1f80 | 65 79 20 6b 6d 61 70 20 28 6b 62 64 20 22 52 45 54 22 29 20 27 74 61 62 6c 69 73 74 2d 66 69 6e | ey.kmap.(kbd."RET").'tablist-fin |
| 1fa0 | 64 2d 65 6e 74 72 79 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6b 6d 61 70 20 22 66 | d-entry).....(define-key.kmap."f |
| 1fc0 | 22 20 27 74 61 62 6c 69 73 74 2d 66 69 6e 64 2d 65 6e 74 72 79 29 0a 20 20 20 20 3b 3b 20 28 64 | ".'tablist-find-entry).....;;.(d |
| 1fe0 | 65 66 69 6e 65 2d 6b 65 79 20 6b 6d 61 70 20 22 7e 22 20 27 74 61 62 6c 69 73 74 2d 66 6c 61 67 | efine-key.kmap."~".'tablist-flag |
| 2000 | 2d 67 61 72 67 61 62 65 2d 69 74 65 6d 73 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 | -gargabe-items).....(define-key. |
| 2020 | 6b 6d 61 70 20 22 44 22 20 27 74 61 62 6c 69 73 74 2d 64 6f 2d 64 65 6c 65 74 65 29 0a 20 20 20 | kmap."D".'tablist-do-delete).... |
| 2040 | 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6b 6d 61 70 20 22 43 22 20 27 74 61 62 6c 69 73 74 2d 64 | .(define-key.kmap."C".'tablist-d |
| 2060 | 6f 2d 63 6f 70 79 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6b 6d 61 70 20 22 52 22 | o-copy).....(define-key.kmap."R" |
| 2080 | 20 27 74 61 62 6c 69 73 74 2d 64 6f 2d 72 65 6e 61 6d 65 29 0a 20 20 20 20 28 64 65 66 69 6e 65 | .'tablist-do-rename).....(define |
| 20a0 | 2d 6b 65 79 20 6b 6d 61 70 20 22 78 22 20 27 74 61 62 6c 69 73 74 2d 64 6f 2d 66 6c 61 67 67 65 | -key.kmap."x".'tablist-do-flagge |
| 20c0 | 64 2d 64 65 6c 65 74 65 29 0a 20 20 20 20 3b 3b 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6b 6d 61 | d-delete).....;;.(define-key.kma |
| 20e0 | 70 20 22 46 22 20 27 74 61 62 6c 69 73 74 2d 66 69 6e 64 2d 6d 61 72 6b 65 64 2d 69 74 65 6d 73 | p."F".'tablist-find-marked-items |
| 2100 | 29 0a 20 20 20 20 3b 3b 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6b 6d 61 70 20 28 6b 62 64 20 22 | ).....;;.(define-key.kmap.(kbd." |
| 2120 | 43 2d 6f 22 29 20 27 74 61 62 6c 69 73 74 2d 64 69 73 70 6c 61 79 2d 69 74 65 6d 29 0a 20 20 20 | C-o").'tablist-display-item).... |
| 2140 | 20 6b 6d 61 70 29 29 0a 0a 3b 3b 0a 3b 3b 20 2a 56 61 72 69 61 62 6c 65 73 0a 3b 3b 0a 0a 3b 3b | .kmap))..;;.;;.*Variables.;;..;; |
| 2160 | 20 4d 61 72 6b 69 6e 67 0a 28 64 65 66 76 61 72 20 74 61 62 6c 69 73 74 2d 75 6d 61 72 6b 2d 66 | .Marking.(defvar.tablist-umark-f |
| 2180 | 69 6c 74 65 72 65 64 2d 65 6e 74 72 69 65 73 20 74 29 0a 28 64 65 66 76 61 72 20 74 61 62 6c 69 | iltered-entries.t).(defvar.tabli |
| 21a0 | 73 74 2d 6d 61 72 6b 65 72 2d 63 68 61 72 20 64 69 72 65 64 2d 6d 61 72 6b 65 72 2d 63 68 61 72 | st-marker-char.dired-marker-char |
| 21c0 | 0a 20 20 22 54 68 65 20 63 68 61 72 61 63 74 65 72 20 75 73 65 64 20 66 6f 72 20 6d 61 72 6b 69 | ..."The.character.used.for.marki |
| 21e0 | 6e 67 2e 22 29 0a 28 64 65 66 76 61 72 20 74 61 62 6c 69 73 74 2d 6d 61 72 6b 65 72 2d 66 61 63 | ng.").(defvar.tablist-marker-fac |
| 2200 | 65 20 27 64 69 72 65 64 2d 6d 61 72 6b 0a 20 20 22 54 68 65 20 66 61 63 65 20 75 73 65 64 20 66 | e.'dired-mark..."The.face.used.f |
| 2220 | 6f 72 20 74 68 65 20 6d 61 72 6b 20 63 68 61 72 61 63 74 65 72 2e 22 29 0a 28 64 65 66 76 61 72 | or.the.mark.character.").(defvar |
| 2240 | 20 74 61 62 6c 69 73 74 2d 6d 61 72 6b 65 64 2d 66 61 63 65 20 20 27 64 69 72 65 64 2d 6d 61 72 | .tablist-marked-face..'dired-mar |
| 2260 | 6b 65 64 0a 20 20 22 54 68 65 20 66 61 63 65 20 75 73 65 64 20 66 6f 72 20 6d 61 72 6b 65 64 20 | ked..."The.face.used.for.marked. |
| 2280 | 6d 61 6a 6f 72 20 63 6f 6c 75 6d 6e 73 2e 22 29 0a 0a 3b 3b 20 4f 70 65 72 61 74 69 6f 6e 73 0a | major.columns.")..;;.Operations. |
| 22a0 | 28 64 65 66 76 61 72 2d 6c 6f 63 61 6c 20 74 61 62 6c 69 73 74 2d 6f 70 65 72 61 74 69 6f 6e 73 | (defvar-local.tablist-operations |
| 22c0 | 2d 66 75 6e 63 74 69 6f 6e 20 6e 69 6c 0a 20 20 22 41 20 66 75 6e 63 74 69 6f 6e 20 66 6f 72 20 | -function.nil..."A.function.for. |
| 22e0 | 68 61 6e 64 6c 69 6e 67 20 6f 70 65 72 61 74 69 6f 6e 73 20 6f 6e 20 74 68 65 20 65 6e 74 72 69 | handling.operations.on.the.entri |
| 2300 | 65 73 2e 0a 0a 54 68 65 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 63 61 6c 6c 65 64 20 77 69 74 68 | es...The.function.is.called.with |
| 2320 | 20 76 61 72 79 69 6e 67 20 6e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 2c 20 77 68 | .varying.number.of.arguments,.wh |
| 2340 | 69 6c 65 0a 74 68 65 20 66 69 72 73 74 20 6f 6e 65 20 69 73 20 61 6c 77 61 79 73 20 61 20 73 79 | ile.the.first.one.is.always.a.sy |
| 2360 | 6d 62 6f 6c 20 64 65 73 63 72 69 62 69 6e 67 20 6f 6e 65 20 6f 66 20 74 68 65 20 66 6f 6c 6c 6f | mbol.describing.one.of.the.follo |
| 2380 | 77 69 6e 67 0a 6f 70 65 72 61 74 69 6f 6e 73 2e 0a 0a 60 73 75 70 70 6f 72 74 65 64 2d 6f 70 65 | wing.operations...`supported-ope |
| 23a0 | 72 61 74 69 6f 6e 73 27 0a 0a 54 68 69 73 20 69 73 20 74 68 65 20 6f 6e 6c 79 20 6d 61 6e 64 61 | rations'..This.is.the.only.manda |
| 23c0 | 74 6f 72 79 20 6f 70 65 72 61 74 69 6f 6e 2e 20 54 68 65 72 65 20 61 72 65 20 6e 6f 20 6f 74 68 | tory.operation..There.are.no.oth |
| 23e0 | 65 72 0a 61 72 67 75 6d 65 6e 74 73 20 61 6e 64 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 73 68 | er.arguments.and.the.function.sh |
| 2400 | 6f 75 6c 64 20 72 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 73 79 6d 62 6f 6c 73 20 6f 66 | ould.return.a.list.of.symbols.of |
| 2420 | 0a 73 75 70 70 6f 72 74 65 64 20 6f 70 65 72 61 74 69 6f 6e 73 2e 0a 0a 60 64 65 6c 65 74 65 27 | .supported.operations...`delete' |
| 2440 | 0a 0a 54 68 65 20 32 6e 64 20 61 72 67 75 6d 65 6e 74 20 77 69 6c 6c 20 62 65 20 61 20 6c 69 73 | ..The.2nd.argument.will.be.a.lis |
| 2460 | 74 20 6f 66 20 65 6e 74 72 79 20 49 44 27 73 2e 20 20 54 68 65 20 66 75 6e 63 74 69 6f 6e 0a 73 | t.of.entry.ID's...The.function.s |
| 2480 | 68 6f 75 6c 64 20 73 6f 6d 65 68 6f 77 20 64 65 6c 65 74 65 20 74 68 65 73 65 20 65 6e 74 72 69 | hould.somehow.delete.these.entri |
| 24a0 | 65 73 20 61 6e 64 20 75 70 64 61 74 65 0a 60 74 61 62 75 6c 61 74 65 64 2d 6c 69 73 74 2d 65 6e | es.and.update.`tabulated-list-en |
| 24c0 | 74 72 69 65 73 27 2e 0a 0a 60 66 69 6e 64 2d 65 6e 74 72 79 27 0a 0a 54 68 65 20 32 6e 64 20 61 | tries'...`find-entry'..The.2nd.a |
| 24e0 | 72 67 75 6d 65 6e 74 20 69 73 20 74 68 65 20 49 44 20 6f 66 20 61 6e 20 65 6e 74 72 79 2e 20 20 | rgument.is.the.ID.of.an.entry... |
| 2500 | 54 68 65 20 66 75 6e 63 74 69 6f 6e 20 73 68 6f 75 6c 64 0a 73 6f 6d 65 68 6f 77 20 66 69 6e 64 | The.function.should.somehow.find |
| 2520 | 2f 64 69 73 70 6c 61 79 20 74 68 69 73 20 65 6e 74 72 79 2c 20 69 2e 65 2e 20 61 20 6b 69 6e 64 | /display.this.entry,.i.e..a.kind |
| 2540 | 20 6f 66 20 64 65 66 61 75 6c 74 0a 6f 70 65 72 61 74 69 6f 6e 2e 0a 0a 60 65 64 69 74 2d 63 6f | .of.default.operation...`edit-co |
| 2560 | 6c 75 6d 6e 27 0a 0a 54 68 65 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 63 61 6c 6c 65 64 20 77 69 | lumn'..The.function.is.called.wi |
| 2580 | 74 68 20 33 20 66 75 72 74 68 65 72 20 61 72 67 75 6d 65 6e 74 73 3a 20 49 44 2c 20 49 4e 44 45 | th.3.further.arguments:.ID,.INDE |
| 25a0 | 58 20 61 6e 64 0a 4e 45 57 2d 43 4f 4c 55 4d 4e 2c 20 77 68 65 72 65 20 49 44 20 72 65 70 72 65 | X.and.NEW-COLUMN,.where.ID.repre |
| 25c0 | 73 65 6e 74 73 20 74 68 65 20 65 6e 74 72 79 20 74 6f 20 65 64 69 74 2c 20 49 4e 44 45 58 20 69 | sents.the.entry.to.edit,.INDEX.i |
| 25e0 | 73 20 74 68 65 20 69 6e 64 65 78 0a 6f 66 20 74 68 65 20 63 6f 6c 75 6d 6e 20 61 6e 64 20 4e 45 | s.the.index.of.the.column.and.NE |
| 2600 | 57 2d 43 4f 4c 55 4d 4e 20 69 73 20 74 68 65 20 70 72 6f 70 6f 73 65 64 20 6e 65 77 20 76 61 6c | W-COLUMN.is.the.proposed.new.val |
| 2620 | 75 65 20 66 6f 72 20 74 68 69 73 0a 63 6f 6c 75 6d 6e 2e 20 20 49 74 20 73 68 6f 75 6c 64 20 65 | ue.for.this.column...It.should.e |
| 2640 | 69 74 68 65 72 0a 0a 69 2e 20 20 72 65 74 75 72 6e 20 61 20 6e 65 77 20 65 64 69 74 65 64 20 63 | ither..i...return.a.new.edited.c |
| 2660 | 6f 6d 70 6c 65 74 65 20 65 6e 74 72 79 20 61 6e 64 20 75 70 64 61 74 65 0a 60 74 61 62 75 6c 61 | omplete.entry.and.update.`tabula |
| 2680 | 74 65 64 2d 6c 69 73 74 2d 65 6e 74 72 69 65 73 27 2c 20 6f 72 0a 0a 69 69 2e 20 74 68 72 6f 77 | ted-list-entries',.or..ii..throw |
| 26a0 | 20 61 6e 20 65 72 72 6f 72 2c 20 69 66 20 4e 45 57 2d 43 4f 4c 55 4d 4e 20 69 73 20 6e 6f 74 20 | .an.error,.if.NEW-COLUMN.is.not. |
| 26c0 | 61 20 76 61 6c 69 64 20 76 61 6c 75 65 20 66 6f 72 20 74 68 69 73 0a 63 6f 6c 75 6d 6e 2e 0a 0a | a.valid.value.for.this.column... |
| 26e0 | 60 63 6f 6d 70 6c 65 74 65 27 0a 0a 54 68 65 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 63 61 6c 6c | `complete'..The.function.is.call |
| 2700 | 65 64 20 77 69 74 68 20 34 20 66 75 72 74 68 65 72 20 61 72 67 75 6d 65 6e 74 73 3a 20 49 44 2c | ed.with.4.further.arguments:.ID, |
| 2720 | 20 49 4e 44 45 58 2c 0a 53 54 52 49 4e 47 20 61 6e 64 20 50 4f 53 2c 20 77 68 65 72 65 20 49 44 | .INDEX,.STRING.and.POS,.where.ID |
| 2740 | 20 72 65 70 72 65 73 65 6e 74 73 20 61 6e 20 65 6e 74 72 79 2c 20 49 4e 44 45 58 20 69 73 20 74 | .represents.an.entry,.INDEX.is.t |
| 2760 | 68 65 20 69 6e 64 65 78 0a 6f 66 20 74 68 65 20 63 6f 6c 75 6d 6e 20 74 6f 20 63 6f 6d 70 6c 65 | he.index.of.the.column.to.comple |
| 2780 | 74 65 2c 20 53 54 52 49 4e 47 20 69 74 27 73 20 63 75 72 72 65 6e 74 20 76 61 6c 75 65 20 61 6e | te,.STRING.it's.current.value.an |
| 27a0 | 64 20 50 4f 53 20 61 6e 0a 6f 66 66 73 65 74 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 70 | d.POS.an.offset.of.the.current.p |
| 27c0 | 6f 73 69 74 69 6f 6e 20 6f 66 20 70 6f 69 6e 74 20 69 6e 74 6f 20 53 54 52 49 4e 47 2e 0a 0a 54 | osition.of.point.into.STRING...T |
| 27e0 | 68 65 20 66 75 6e 63 74 69 6f 6e 20 73 68 6f 75 6c 64 20 72 65 74 75 72 6e 20 61 20 63 6f 6c 6c | he.function.should.return.a.coll |
| 2800 | 65 63 74 69 6f 6e 20 66 6f 72 20 74 68 69 73 20 63 6f 6c 75 6d 6e 2c 20 73 75 69 74 61 62 6c 65 | ection.for.this.column,.suitable |
| 2820 | 0a 61 73 20 61 72 67 75 6d 65 6e 74 20 66 6f 72 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 60 63 | .as.argument.for.the.function.`c |
| 2840 | 6f 6d 70 6c 65 74 69 6f 6e 2d 69 6e 2d 72 65 67 69 6f 6e 27 2e 22 29 0a 0a 3b 3b 20 44 69 66 66 | ompletion-in-region'.")..;;.Diff |
| 2860 | 65 72 65 6e 74 69 61 74 69 6e 67 20 63 6f 6c 75 6d 6e 73 0a 28 64 65 66 76 61 72 2d 6c 6f 63 61 | erentiating.columns.(defvar-loca |
| 2880 | 6c 20 74 61 62 6c 69 73 74 2d 6d 61 6a 6f 72 2d 63 6f 6c 75 6d 6e 73 20 6e 69 6c 0a 20 20 22 43 | l.tablist-major-columns.nil..."C |
| 28a0 | 6f 6c 75 6d 6e 73 20 75 73 65 64 20 74 6f 20 6d 61 72 6b 20 61 6e 64 20 77 68 65 6e 20 71 75 65 | olumns.used.to.mark.and.when.que |
| 28c0 | 72 79 69 6e 67 2e 22 29 0a 0a 3b 3b 20 46 69 6c 74 65 72 0a 28 64 65 66 76 61 72 2d 6c 6f 63 61 | rying.")..;;.Filter.(defvar-loca |
| 28e0 | 6c 20 74 61 62 6c 69 73 74 2d 63 75 72 72 65 6e 74 2d 66 69 6c 74 65 72 20 6e 69 6c 29 0a 28 64 | l.tablist-current-filter.nil).(d |
| 2900 | 65 66 76 61 72 2d 6c 6f 63 61 6c 20 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 73 75 73 70 65 | efvar-local.tablist-filter-suspe |
| 2920 | 6e 64 65 64 20 6e 69 6c 29 0a 28 64 65 66 76 61 72 20 74 61 62 6c 69 73 74 2d 6e 61 6d 65 64 2d | nded.nil).(defvar.tablist-named- |
| 2940 | 66 69 6c 74 65 72 20 6e 69 6c 29 0a 0a 3b 3b 20 48 69 73 74 6f 72 79 20 76 61 72 69 61 62 6c 65 | filter.nil)..;;.History.variable |
| 2960 | 73 0a 28 64 65 66 76 61 72 20 74 61 62 6c 69 73 74 2d 63 6f 6c 75 6d 6e 2d 6e 61 6d 65 2d 68 69 | s.(defvar.tablist-column-name-hi |
| 2980 | 73 74 6f 72 79 20 6e 69 6c 29 0a 0a 3b 3b 20 48 6f 6f 6b 73 0a 28 64 65 66 76 61 72 20 74 61 62 | story.nil)..;;.Hooks.(defvar.tab |
| 29a0 | 6c 69 73 74 2d 73 65 6c 65 63 74 69 6f 6e 2d 63 68 61 6e 67 65 64 2d 66 75 6e 63 74 69 6f 6e 73 | list-selection-changed-functions |
| 29c0 | 20 6e 69 6c 0a 20 20 22 41 20 68 6f 6f 6b 20 72 75 6e 20 77 68 65 6e 20 65 76 65 72 20 70 6f 69 | .nil..."A.hook.run.when.ever.poi |
| 29e0 | 6e 74 20 6d 6f 76 65 73 20 74 6f 20 61 20 64 69 66 66 65 72 65 6e 74 20 65 6e 74 72 79 2e 22 29 | nt.moves.to.a.different.entry.") |
| 2a00 | 0a 0a 3b 3b 20 43 6f 6e 74 65 78 74 20 57 69 6e 64 6f 77 0a 28 64 65 66 76 61 72 2d 6c 6f 63 61 | ..;;.Context.Window.(defvar-loca |
| 2a20 | 6c 20 74 61 62 6c 69 73 74 2d 63 6f 6e 74 65 78 74 2d 77 69 6e 64 6f 77 20 6e 69 6c 29 0a 28 64 | l.tablist-context-window.nil).(d |
| 2a40 | 65 66 76 61 72 2d 6c 6f 63 61 6c 20 74 61 62 6c 69 73 74 2d 63 6f 6e 74 65 78 74 2d 77 69 6e 64 | efvar-local.tablist-context-wind |
| 2a60 | 6f 77 2d 66 75 6e 63 74 69 6f 6e 20 6e 69 6c 29 0a 28 64 65 66 76 61 72 20 74 61 62 6c 69 73 74 | ow-function.nil).(defvar.tablist |
| 2a80 | 2d 63 6f 6e 74 65 78 74 2d 77 69 6e 64 6f 77 2d 64 69 73 70 6c 61 79 2d 61 63 74 69 6f 6e 0a 20 | -context-window-display-action.. |
| 2aa0 | 20 60 28 28 64 69 73 70 6c 61 79 2d 62 75 66 66 65 72 2d 72 65 75 73 65 2d 77 69 6e 64 6f 77 0a | .`((display-buffer-reuse-window. |
| 2ac0 | 20 20 20 20 20 74 61 62 6c 69 73 74 2d 64 69 73 70 6c 61 79 2d 62 75 66 66 65 72 2d 73 70 6c 69 | .....tablist-display-buffer-spli |
| 2ae0 | 74 2d 62 65 6c 6f 77 2d 61 6e 64 2d 61 74 74 61 63 68 29 0a 20 20 20 20 28 77 69 6e 64 6f 77 2d | t-below-and-attach).....(window- |
| 2b00 | 68 65 69 67 68 74 20 2e 20 30 2e 32 35 29 0a 20 20 20 20 28 69 6e 68 69 62 69 74 2d 73 61 6d 65 | height...0.25).....(inhibit-same |
| 2b20 | 2d 77 69 6e 64 6f 77 20 2e 20 74 29 29 29 0a 0a 3b 3b 0a 3b 3b 20 2a 53 65 74 75 70 0a 3b 3b 0a | -window...t)))..;;.;;.*Setup.;;. |
| 2b40 | 0a 28 64 65 66 76 61 72 20 73 61 76 65 68 69 73 74 2d 61 64 64 69 74 69 6f 6e 61 6c 2d 76 61 72 | .(defvar.savehist-additional-var |
| 2b60 | 69 61 62 6c 65 73 29 0a 28 61 64 64 2d 68 6f 6f 6b 20 27 73 61 76 65 68 69 73 74 2d 73 61 76 65 | iables).(add-hook.'savehist-save |
| 2b80 | 2d 68 6f 6f 6b 0a 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 6e 69 6c 0a 20 20 20 20 | -hook...........(lambda.nil..... |
| 2ba0 | 20 20 20 20 20 20 20 20 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 73 61 76 65 68 69 73 74 2d 61 | ........(add-to-list.'savehist-a |
| 2bc0 | 64 64 69 74 69 6f 6e 61 6c 2d 76 61 72 69 61 62 6c 65 73 20 27 74 61 62 6c 69 73 74 2d 6e 61 6d | dditional-variables.'tablist-nam |
| 2be0 | 65 64 2d 66 69 6c 74 65 72 29 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 | ed-filter)))..;;;###autoload.(de |
| 2c00 | 66 69 6e 65 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 20 74 61 62 6c 69 73 74 2d 6d 69 6e 6f 72 2d 6d 6f | fine-minor-mode.tablist-minor-mo |
| 2c20 | 64 65 0a 20 20 6e 69 6c 20 6e 69 6c 20 6e 69 6c 20 6e 69 6c 0a 20 20 28 75 6e 6c 65 73 73 20 28 | de...nil.nil.nil.nil...(unless.( |
| 2c40 | 64 65 72 69 76 65 64 2d 6d 6f 64 65 2d 70 20 27 74 61 62 75 6c 61 74 65 64 2d 6c 69 73 74 2d 6d | derived-mode-p.'tabulated-list-m |
| 2c60 | 6f 64 65 29 0a 20 20 20 20 28 65 72 72 6f 72 20 22 42 75 66 66 65 72 20 69 73 20 6e 6f 74 20 69 | ode).....(error."Buffer.is.not.i |
| 2c80 | 6e 20 54 61 62 75 6c 61 74 65 64 20 4c 69 73 74 20 4d 6f 64 65 22 29 29 0a 20 20 28 74 61 62 6c | n.Tabulated.List.Mode"))...(tabl |
| 2ca0 | 69 73 74 2d 69 6e 69 74 20 28 6e 6f 74 20 74 61 62 6c 69 73 74 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 | ist-init.(not.tablist-minor-mode |
| 2cc0 | 29 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 69 6e 65 2d 64 65 72 69 | )))..;;;###autoload.(define-deri |
| 2ce0 | 76 65 64 2d 6d 6f 64 65 20 74 61 62 6c 69 73 74 2d 6d 6f 64 65 20 74 61 62 75 6c 61 74 65 64 2d | ved-mode.tablist-mode.tabulated- |
| 2d00 | 6c 69 73 74 2d 6d 6f 64 65 20 22 54 4c 22 0a 20 20 28 74 61 62 6c 69 73 74 2d 69 6e 69 74 29 29 | list-mode."TL"...(tablist-init)) |
| 2d20 | 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 69 6e 69 74 20 28 26 6f 70 74 69 6f 6e 61 6c | ..(defun.tablist-init.(&optional |
| 2d40 | 20 64 69 73 61 62 6c 65 29 0a 20 20 28 6c 65 74 20 28 28 63 6c 65 61 6e 65 64 2d 6d 69 73 63 20 | .disable)...(let.((cleaned-misc. |
| 2d60 | 28 63 6c 2d 72 65 6d 6f 76 65 20 27 74 61 62 6c 69 73 74 2d 63 75 72 72 65 6e 74 2d 66 69 6c 74 | (cl-remove.'tablist-current-filt |
| 2d80 | 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | er.............................. |
| 2da0 | 20 20 20 20 6d 6f 64 65 2d 6c 69 6e 65 2d 6d 69 73 63 2d 69 6e 66 6f 20 3a 6b 65 79 20 27 63 61 | ....mode-line-misc-info.:key.'ca |
| 2dc0 | 72 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 28 28 6e 6f 74 20 64 69 73 61 62 6c | r))).....(cond......((not.disabl |
| 2de0 | 65 29 0a 20 20 20 20 20 20 28 73 65 74 20 28 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 | e).......(set.(make-local-variab |
| 2e00 | 6c 65 20 27 6d 6f 64 65 2d 6c 69 6e 65 2d 6d 69 73 63 2d 69 6e 66 6f 29 0a 20 20 20 20 20 20 20 | le.'mode-line-misc-info)........ |
| 2e20 | 20 20 20 20 28 61 70 70 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 0a 20 20 | ....(append.............(list... |
| 2e40 | 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 27 74 61 62 6c 69 73 74 2d 63 75 72 72 65 6e | ...........(list.'tablist-curren |
| 2e60 | 74 2d 66 69 6c 74 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 3a 65 | t-filter....................'(:e |
| 2e80 | 76 61 6c 20 28 66 6f 72 6d 61 74 20 22 20 5b 25 73 5d 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 | val.(format.".[%s]"............. |
| 2ea0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 74 61 62 6c 69 | .......................(if.tabli |
| 2ec0 | 73 74 2d 66 69 6c 74 65 72 2d 73 75 73 70 65 6e 64 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 | st-filter-suspended............. |
| 2ee0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 73 75 73 70 | ..........................."susp |
| 2f00 | 65 6e 64 65 64 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ended".......................... |
| 2f20 | 20 20 20 20 20 20 20 20 20 20 20 20 22 66 69 6c 74 65 72 65 64 22 29 29 29 29 29 29 29 0a 20 20 | ............"filtered")))))))... |
| 2f40 | 20 20 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 70 6f 73 74 2d 63 6f 6d 6d 61 6e 64 2d 68 6f 6f 6b | ....(add-hook.'post-command-hook |
| 2f60 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 74 61 62 6c 69 73 74 2d 73 65 6c 65 63 74 | .................'tablist-select |
| 2f80 | 69 6f 6e 2d 63 68 61 6e 67 65 64 2d 68 61 6e 64 6c 65 72 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 | ion-changed-handler.nil.t)...... |
| 2fa0 | 20 28 61 64 64 2d 68 6f 6f 6b 20 27 74 61 62 6c 69 73 74 2d 73 65 6c 65 63 74 69 6f 6e 2d 63 68 | .(add-hook.'tablist-selection-ch |
| 2fc0 | 61 6e 67 65 64 2d 66 75 6e 63 74 69 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | anged-functions................. |
| 2fe0 | 27 74 61 62 6c 69 73 74 2d 63 6f 6e 74 65 78 74 2d 77 69 6e 64 6f 77 2d 75 70 64 61 74 65 20 6e | 'tablist-context-window-update.n |
| 3000 | 69 6c 20 74 29 29 0a 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 28 73 65 74 71 20 6d 6f 64 65 2d | il.t))......(t.......(setq.mode- |
| 3020 | 6c 69 6e 65 2d 6d 69 73 63 2d 69 6e 66 6f 20 63 6c 65 61 6e 65 64 2d 6d 69 73 63 29 0a 20 20 20 | line-misc-info.cleaned-misc).... |
| 3040 | 20 20 20 28 72 65 6d 6f 76 65 2d 68 6f 6f 6b 20 27 70 6f 73 74 2d 63 6f 6d 6d 61 6e 64 2d 68 6f | ...(remove-hook.'post-command-ho |
| 3060 | 6f 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 74 61 62 6c 69 73 74 2d 73 | ok....................'tablist-s |
| 3080 | 65 6c 65 63 74 69 6f 6e 2d 63 68 61 6e 67 65 64 2d 68 61 6e 64 6c 65 72 20 74 29 0a 20 20 20 20 | election-changed-handler.t)..... |
| 30a0 | 20 20 28 72 65 6d 6f 76 65 2d 68 6f 6f 6b 20 27 74 61 62 6c 69 73 74 2d 73 65 6c 65 63 74 69 6f | ..(remove-hook.'tablist-selectio |
| 30c0 | 6e 2d 63 68 61 6e 67 65 64 2d 66 75 6e 63 74 69 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 | n-changed-functions............. |
| 30e0 | 20 20 20 20 20 20 20 27 74 61 62 6c 69 73 74 2d 63 6f 6e 74 65 78 74 2d 77 69 6e 64 6f 77 2d 75 | .......'tablist-context-window-u |
| 3100 | 70 64 61 74 65 20 74 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 71 75 69 | pdate.t)))))..(defun.tablist-qui |
| 3120 | 74 20 28 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 74 61 62 6c 69 73 74 2d | t.()...(interactive)...(tablist- |
| 3140 | 68 69 64 65 2d 63 6f 6e 74 65 78 74 2d 77 69 6e 64 6f 77 29 0a 20 20 28 71 75 69 74 2d 77 69 6e | hide-context-window)...(quit-win |
| 3160 | 64 6f 77 29 29 0a 0a 28 64 65 66 76 61 72 2d 6c 6f 63 61 6c 20 74 61 62 6c 69 73 74 2d 73 65 6c | dow))..(defvar-local.tablist-sel |
| 3180 | 65 63 74 65 64 2d 69 64 20 6e 69 6c 29 0a 28 64 65 66 76 61 72 20 74 61 62 6c 69 73 74 2d 65 64 | ected-id.nil).(defvar.tablist-ed |
| 31a0 | 69 74 2d 63 6f 6c 75 6d 6e 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 29 0a 0a 28 64 65 66 75 6e 20 74 61 | it-column-minor-mode)..(defun.ta |
| 31c0 | 62 6c 69 73 74 2d 73 65 6c 65 63 74 69 6f 6e 2d 63 68 61 6e 67 65 64 2d 68 61 6e 64 6c 65 72 20 | blist-selection-changed-handler. |
| 31e0 | 28 29 0a 20 20 28 75 6e 6c 65 73 73 20 74 61 62 6c 69 73 74 2d 65 64 69 74 2d 63 6f 6c 75 6d 6e | ()...(unless.tablist-edit-column |
| 3200 | 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 0a 20 20 20 20 28 6c 65 74 20 28 28 69 64 20 74 61 62 6c 69 73 | -minor-mode.....(let.((id.tablis |
| 3220 | 74 2d 73 65 6c 65 63 74 65 64 2d 69 64 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 6c 65 63 74 | t-selected-id)...........(select |
| 3240 | 65 64 20 28 74 61 62 75 6c 61 74 65 64 2d 6c 69 73 74 2d 67 65 74 2d 69 64 29 29 29 0a 20 20 20 | ed.(tabulated-list-get-id))).... |
| 3260 | 20 20 20 28 75 6e 6c 65 73 73 20 28 65 71 20 73 65 6c 65 63 74 65 64 20 69 64 29 0a 20 20 20 20 | ...(unless.(eq.selected.id)..... |
| 3280 | 20 20 20 20 28 73 65 74 71 20 74 61 62 6c 69 73 74 2d 73 65 6c 65 63 74 65 64 2d 69 64 20 73 65 | ....(setq.tablist-selected-id.se |
| 32a0 | 6c 65 63 74 65 64 29 0a 20 20 20 20 20 20 20 20 28 72 75 6e 2d 68 6f 6f 6b 2d 77 69 74 68 2d 61 | lected).........(run-hook-with-a |
| 32c0 | 72 67 73 0a 20 20 20 20 20 20 20 20 20 27 74 61 62 6c 69 73 74 2d 73 65 6c 65 63 74 69 6f 6e 2d | rgs..........'tablist-selection- |
| 32e0 | 63 68 61 6e 67 65 64 2d 66 75 6e 63 74 69 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 74 61 62 6c 69 | changed-functions..........tabli |
| 3300 | 73 74 2d 73 65 6c 65 63 74 65 64 2d 69 64 29 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 74 61 62 | st-selected-id)))))..(defvar.tab |
| 3320 | 6c 69 73 74 2d 63 6f 6e 74 65 78 74 2d 77 69 6e 64 6f 77 2d 75 70 64 61 74 65 2d 2d 74 69 6d 65 | list-context-window-update--time |
| 3340 | 72 20 6e 69 6c 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 63 6f 6e 74 65 78 74 2d 77 | r.nil)..(defun.tablist-context-w |
| 3360 | 69 6e 64 6f 77 2d 75 70 64 61 74 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 69 64 29 0a 20 20 28 77 | indow-update.(&optional.id)...(w |
| 3380 | 68 65 6e 20 28 61 6e 64 20 74 61 62 6c 69 73 74 2d 63 6f 6e 74 65 78 74 2d 77 69 6e 64 6f 77 2d | hen.(and.tablist-context-window- |
| 33a0 | 66 75 6e 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 6e 64 6f 77 2d 6c 69 | function..............(window-li |
| 33c0 | 76 65 2d 70 20 74 61 62 6c 69 73 74 2d 63 6f 6e 74 65 78 74 2d 77 69 6e 64 6f 77 29 0a 20 20 20 | ve-p.tablist-context-window).... |
| 33e0 | 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 74 61 62 6c 69 73 74 2d 65 64 69 74 2d 63 6f 6c 75 | ..........(not.tablist-edit-colu |
| 3400 | 6d 6e 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 29 29 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 69 64 0a 20 | mn-minor-mode)).....(unless.id.. |
| 3420 | 20 20 20 20 20 28 73 65 74 71 20 69 64 20 28 74 61 62 75 6c 61 74 65 64 2d 6c 69 73 74 2d 67 65 | .....(setq.id.(tabulated-list-ge |
| 3440 | 74 2d 69 64 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 74 69 6d 65 72 70 20 74 61 62 6c 69 73 | t-id))).....(when.(timerp.tablis |
| 3460 | 74 2d 63 6f 6e 74 65 78 74 2d 77 69 6e 64 6f 77 2d 75 70 64 61 74 65 2d 2d 74 69 6d 65 72 29 0a | t-context-window-update--timer). |
| 3480 | 20 20 20 20 20 20 28 63 61 6e 63 65 6c 2d 74 69 6d 65 72 20 74 61 62 6c 69 73 74 2d 63 6f 6e 74 | ......(cancel-timer.tablist-cont |
| 34a0 | 65 78 74 2d 77 69 6e 64 6f 77 2d 75 70 64 61 74 65 2d 2d 74 69 6d 65 72 29 29 0a 20 20 20 20 28 | ext-window-update--timer)).....( |
| 34c0 | 73 65 74 71 20 74 61 62 6c 69 73 74 2d 63 6f 6e 74 65 78 74 2d 77 69 6e 64 6f 77 2d 75 70 64 61 | setq.tablist-context-window-upda |
| 34e0 | 74 65 2d 2d 74 69 6d 65 72 0a 20 20 20 20 20 20 20 20 20 20 28 72 75 6e 2d 77 69 74 68 2d 69 64 | te--timer...........(run-with-id |
| 3500 | 6c 65 2d 74 69 6d 65 72 20 30 2e 31 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | le-timer.0.1.nil................ |
| 3520 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 66 6e 20 77 69 6e 64 | ................(lambda.(fn.wind |
| 3540 | 6f 77 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ow)............................. |
| 3560 | 20 20 20 20 20 28 77 68 65 6e 20 28 77 69 6e 64 6f 77 2d 6c 69 76 65 2d 70 20 77 69 6e 64 6f 77 | .....(when.(window-live-p.window |
| 3580 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )............................... |
| 35a0 | 20 20 20 20 20 28 77 69 74 68 2d 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 20 77 69 6e 64 6f | .....(with-selected-window.windo |
| 35c0 | 77 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | w............................... |
| 35e0 | 20 20 20 20 20 20 20 28 73 65 74 2d 77 69 6e 64 6f 77 2d 64 65 64 69 63 61 74 65 64 2d 70 20 6e | .......(set-window-dedicated-p.n |
| 3600 | 69 6c 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | il.nil)......................... |
| 3620 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 61 76 65 2d 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 | .............(save-selected-wind |
| 3640 | 6f 77 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ow.............................. |
| 3660 | 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 6e 20 69 64 29 29 0a 20 20 20 20 20 | ..........(funcall.fn.id))...... |
| 3680 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 36a0 | 28 77 68 65 6e 20 28 77 69 6e 64 6f 77 2d 6c 69 76 65 2d 70 20 28 73 65 6c 65 63 74 65 64 2d 77 | (when.(window-live-p.(selected-w |
| 36c0 | 69 6e 64 6f 77 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | indow))......................... |
| 36e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 2d 77 69 6e 64 6f 77 2d 64 65 64 69 63 | ...............(set-window-dedic |
| 3700 | 61 74 65 64 2d 70 20 6e 69 6c 20 74 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ated-p.nil.t)))))............... |
| 3720 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 61 62 6c 69 73 74 2d 63 6f 6e 74 65 78 74 | .................tablist-context |
| 3740 | 2d 77 69 6e 64 6f 77 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -window-function................ |
| 3760 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 61 62 6c 69 73 74 2d 63 6f 6e 74 65 78 74 2d | ................tablist-context- |
| 3780 | 77 69 6e 64 6f 77 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 64 69 73 70 6c | window))))..(defun.tablist-displ |
| 37a0 | 61 79 2d 63 6f 6e 74 65 78 74 2d 77 69 6e 64 6f 77 20 28 29 0a 20 20 28 69 6e 74 65 72 61 63 74 | ay-context-window.()...(interact |
| 37c0 | 69 76 65 29 0a 20 20 28 75 6e 6c 65 73 73 20 74 61 62 6c 69 73 74 2d 63 6f 6e 74 65 78 74 2d 77 | ive)...(unless.tablist-context-w |
| 37e0 | 69 6e 64 6f 77 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 20 20 28 65 72 72 6f 72 20 22 4e 6f 20 66 75 | indow-function.....(error."No.fu |
| 3800 | 6e 63 74 69 6f 6e 20 66 6f 72 20 68 61 6e 64 6c 69 6e 67 20 61 20 63 6f 6e 74 65 78 74 20 69 73 | nction.for.handling.a.context.is |
| 3820 | 20 64 65 66 69 6e 65 64 22 29 29 0a 20 20 28 75 6e 6c 65 73 73 20 28 77 69 6e 64 6f 77 2d 6c 69 | .defined"))...(unless.(window-li |
| 3840 | 76 65 2d 70 20 74 61 62 6c 69 73 74 2d 63 6f 6e 74 65 78 74 2d 77 69 6e 64 6f 77 29 0a 20 20 20 | ve-p.tablist-context-window).... |
| 3860 | 20 28 73 65 74 71 20 74 61 62 6c 69 73 74 2d 63 6f 6e 74 65 78 74 2d 77 69 6e 64 6f 77 0a 20 20 | .(setq.tablist-context-window... |
| 3880 | 20 20 20 20 20 20 20 20 28 64 69 73 70 6c 61 79 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 | ........(display-buffer......... |
| 38a0 | 20 20 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 74 | ...(current-buffer)............t |
| 38c0 | 61 62 6c 69 73 74 2d 63 6f 6e 74 65 78 74 2d 77 69 6e 64 6f 77 2d 64 69 73 70 6c 61 79 2d 61 63 | ablist-context-window-display-ac |
| 38e0 | 74 69 6f 6e 29 29 29 0a 20 20 28 70 72 6f 67 31 0a 20 20 20 20 20 20 74 61 62 6c 69 73 74 2d 63 | tion)))...(prog1.......tablist-c |
| 3900 | 6f 6e 74 65 78 74 2d 77 69 6e 64 6f 77 0a 20 20 20 20 28 74 61 62 6c 69 73 74 2d 63 6f 6e 74 65 | ontext-window.....(tablist-conte |
| 3920 | 78 74 2d 77 69 6e 64 6f 77 2d 75 70 64 61 74 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c | xt-window-update)))..(defun.tabl |
| 3940 | 69 73 74 2d 68 69 64 65 2d 63 6f 6e 74 65 78 74 2d 77 69 6e 64 6f 77 20 28 29 0a 20 20 28 69 6e | ist-hide-context-window.()...(in |
| 3960 | 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 77 68 65 6e 20 28 77 69 6e 64 6f 77 2d 6c 69 76 65 2d | teractive)...(when.(window-live- |
| 3980 | 70 20 74 61 62 6c 69 73 74 2d 63 6f 6e 74 65 78 74 2d 77 69 6e 64 6f 77 29 0a 20 20 20 20 28 6c | p.tablist-context-window).....(l |
| 39a0 | 65 74 20 28 28 69 67 6e 6f 72 65 2d 77 69 6e 64 6f 77 2d 70 61 72 61 6d 65 74 65 72 73 20 74 29 | et.((ignore-window-parameters.t) |
| 39c0 | 29 0a 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 77 69 6e 64 6f 77 20 74 61 62 6c 69 73 74 2d 63 | ).......(delete-window.tablist-c |
| 39e0 | 6f 6e 74 65 78 74 2d 77 69 6e 64 6f 77 29 29 29 0a 20 20 28 73 65 74 71 20 74 61 62 6c 69 73 74 | ontext-window)))...(setq.tablist |
| 3a00 | 2d 63 6f 6e 74 65 78 74 2d 77 69 6e 64 6f 77 20 6e 69 6c 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 | -context-window.nil))..(defun.ta |
| 3a20 | 62 6c 69 73 74 2d 74 6f 67 67 6c 65 2d 63 6f 6e 74 65 78 74 2d 77 69 6e 64 6f 77 20 28 29 0a 20 | blist-toggle-context-window.().. |
| 3a40 | 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 69 66 20 28 77 69 6e 64 6f 77 2d 6c 69 76 | .(interactive)...(if.(window-liv |
| 3a60 | 65 2d 70 20 74 61 62 6c 69 73 74 2d 63 6f 6e 74 65 78 74 2d 77 69 6e 64 6f 77 29 0a 20 20 20 20 | e-p.tablist-context-window)..... |
| 3a80 | 20 20 28 74 61 62 6c 69 73 74 2d 68 69 64 65 2d 63 6f 6e 74 65 78 74 2d 77 69 6e 64 6f 77 29 0a | ..(tablist-hide-context-window). |
| 3aa0 | 20 20 20 20 28 74 61 62 6c 69 73 74 2d 64 69 73 70 6c 61 79 2d 63 6f 6e 74 65 78 74 2d 77 69 6e | ....(tablist-display-context-win |
| 3ac0 | 64 6f 77 29 29 29 0a 0a 3b 3b 0a 3b 3b 20 2a 4d 61 72 6b 69 6e 67 0a 3b 3b 0a 0a 28 64 65 66 75 | dow)))..;;.;;.*Marking.;;..(defu |
| 3ae0 | 6e 20 74 61 62 6c 69 73 74 2d 72 65 76 65 72 74 20 28 29 0a 20 20 22 52 65 76 65 72 74 20 74 68 | n.tablist-revert.()..."Revert.th |
| 3b00 | 65 20 6c 69 73 74 20 77 69 74 68 20 6d 61 72 6b 73 20 70 72 65 73 65 72 76 65 64 2c 20 70 6f 73 | e.list.with.marks.preserved,.pos |
| 3b20 | 69 74 69 6f 6e 20 6b 65 70 74 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 | ition.kept."...(interactive)...( |
| 3b40 | 74 61 62 6c 69 73 74 2d 73 61 76 65 2d 6d 61 72 6b 73 0a 20 20 20 28 74 61 62 6c 69 73 74 2d 77 | tablist-save-marks....(tablist-w |
| 3b60 | 69 74 68 2d 72 65 6d 65 6d 62 65 72 69 6e 67 2d 65 6e 74 72 79 0a 20 20 20 20 20 28 74 61 62 75 | ith-remembering-entry......(tabu |
| 3b80 | 6c 61 74 65 64 2d 6c 69 73 74 2d 72 65 76 65 72 74 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 | lated-list-revert))))..(defun.ta |
| 3ba0 | 62 6c 69 73 74 2d 6d 61 6a 6f 72 2d 63 6f 6c 75 6d 6e 73 20 28 29 0a 20 20 28 69 66 20 28 6e 75 | blist-major-columns.()...(if.(nu |
| 3bc0 | 6c 6c 20 74 61 62 6c 69 73 74 2d 6d 61 6a 6f 72 2d 63 6f 6c 75 6d 6e 73 29 0a 20 20 20 20 20 20 | ll.tablist-major-columns)....... |
| 3be0 | 28 6e 75 6d 62 65 72 2d 73 65 71 75 65 6e 63 65 20 30 20 28 31 2d 20 28 6c 65 6e 67 74 68 20 74 | (number-sequence.0.(1-.(length.t |
| 3c00 | 61 62 75 6c 61 74 65 64 2d 6c 69 73 74 2d 66 6f 72 6d 61 74 29 29 29 0a 20 20 20 20 28 69 66 20 | abulated-list-format))).....(if. |
| 3c20 | 28 6e 75 6d 62 65 72 70 20 74 61 62 6c 69 73 74 2d 6d 61 6a 6f 72 2d 63 6f 6c 75 6d 6e 73 29 0a | (numberp.tablist-major-columns). |
| 3c40 | 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 74 61 62 6c 69 73 74 2d 6d 61 6a 6f 72 2d 63 6f 6c 75 | ........(list.tablist-major-colu |
| 3c60 | 6d 6e 73 29 0a 20 20 20 20 20 20 74 61 62 6c 69 73 74 2d 6d 61 6a 6f 72 2d 63 6f 6c 75 6d 6e 73 | mns).......tablist-major-columns |
| 3c80 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 70 75 74 2d 6d 61 72 6b 20 28 26 6f | )))..(defun.tablist-put-mark.(&o |
| 3ca0 | 70 74 69 6f 6e 61 6c 20 70 6f 73 29 0a 20 20 22 50 75 74 20 61 20 6d 61 72 6b 20 62 65 66 6f 72 | ptional.pos)..."Put.a.mark.befor |
| 3cc0 | 65 20 74 68 65 20 65 6e 74 72 79 20 61 74 20 50 4f 53 2e 0a 0a 50 4f 53 20 64 65 66 61 75 6c 74 | e.the.entry.at.POS...POS.default |
| 3ce0 | 73 20 74 6f 20 70 6f 69 6e 74 2e 20 55 73 65 20 60 74 61 62 6c 69 73 74 2d 6d 61 72 6b 65 72 2d | s.to.point..Use.`tablist-marker- |
| 3d00 | 63 68 61 72 27 2c 0a 60 74 61 62 6c 69 73 74 2d 6d 61 72 6b 65 72 2d 66 61 63 65 27 2c 20 60 74 | char',.`tablist-marker-face',.`t |
| 3d20 | 61 62 6c 69 73 74 2d 6d 61 72 6b 65 64 2d 66 61 63 65 27 20 61 6e 64 0a 60 74 61 62 6c 69 73 74 | ablist-marked-face'.and.`tablist |
| 3d40 | 2d 6d 61 6a 6f 72 2d 63 6f 6c 75 6d 6e 73 27 20 74 6f 20 64 65 74 65 72 6d 69 6e 65 20 68 6f 77 | -major-columns'.to.determine.how |
| 3d60 | 20 74 6f 20 6d 61 72 6b 20 61 6e 64 20 77 68 61 74 20 74 6f 20 70 75 74 0a 61 20 66 61 63 65 20 | .to.mark.and.what.to.put.a.face. |
| 3d80 | 6f 6e 2e 22 0a 20 20 28 77 68 65 6e 20 28 6f 72 20 28 6e 75 6c 6c 20 74 61 62 75 6c 61 74 65 64 | on."...(when.(or.(null.tabulated |
| 3da0 | 2d 6c 69 73 74 2d 70 61 64 64 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 3c 20 74 61 | -list-padding).............(<.ta |
| 3dc0 | 62 75 6c 61 74 65 64 2d 6c 69 73 74 2d 70 61 64 64 69 6e 67 20 31 29 29 0a 20 20 20 20 28 73 65 | bulated-list-padding.1)).....(se |
| 3de0 | 74 71 20 74 61 62 75 6c 61 74 65 64 2d 6c 69 73 74 2d 70 61 64 64 69 6e 67 20 31 29 0a 20 20 20 | tq.tabulated-list-padding.1).... |
| 3e00 | 20 28 74 61 62 75 6c 61 74 65 64 2d 6c 69 73 74 2d 72 65 76 65 72 74 29 29 0a 20 20 28 73 61 76 | .(tabulated-list-revert))...(sav |
| 3e20 | 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 28 61 6e 64 20 70 6f 73 20 28 67 6f 74 6f 2d 63 | e-excursion.....(and.pos.(goto-c |
| 3e40 | 68 61 72 20 70 6f 73 29 29 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 28 74 61 62 75 6c 61 74 65 64 | har.pos)).....(unless.(tabulated |
| 3e60 | 2d 6c 69 73 74 2d 67 65 74 2d 69 64 29 0a 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 4e 6f 20 65 | -list-get-id).......(error."No.e |
| 3e80 | 6e 74 72 79 20 61 74 20 74 68 69 73 20 70 6f 73 69 74 69 6f 6e 22 29 29 0a 20 20 20 20 28 6c 65 | ntry.at.this.position")).....(le |
| 3ea0 | 74 20 28 28 69 6e 68 69 62 69 74 2d 72 65 61 64 2d 6f 6e 6c 79 20 74 29 29 0a 20 20 20 20 20 20 | t.((inhibit-read-only.t))....... |
| 3ec0 | 28 74 61 62 75 6c 61 74 65 64 2d 6c 69 73 74 2d 70 75 74 2d 74 61 67 0a 20 20 20 20 20 20 20 28 | (tabulated-list-put-tag........( |
| 3ee0 | 73 74 72 69 6e 67 20 74 61 62 6c 69 73 74 2d 6d 61 72 6b 65 72 2d 63 68 61 72 29 29 0a 20 20 20 | string.tablist-marker-char)).... |
| 3f00 | 20 20 20 28 70 75 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 0a 20 20 20 20 20 20 20 28 70 6f | ...(put-text-property........(po |
| 3f20 | 69 6e 74 2d 61 74 2d 62 6f 6c 29 0a 20 20 20 20 20 20 20 28 31 2b 20 28 70 6f 69 6e 74 2d 61 74 | int-at-bol)........(1+.(point-at |
| 3f40 | 2d 62 6f 6c 29 29 0a 20 20 20 20 20 20 20 27 66 61 63 65 20 74 61 62 6c 69 73 74 2d 6d 61 72 6b | -bol))........'face.tablist-mark |
| 3f60 | 65 72 2d 66 61 63 65 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 6f 6c 75 6d 6e 73 20 28 74 | er-face).......(let.((columns.(t |
| 3f80 | 61 62 6c 69 73 74 2d 63 6f 6c 75 6d 6e 2d 6f 66 66 73 65 74 73 29 29 29 0a 20 20 20 20 20 20 20 | ablist-column-offsets)))........ |
| 3fa0 | 20 28 64 6f 6c 69 73 74 20 28 63 20 28 74 61 62 6c 69 73 74 2d 6d 61 6a 6f 72 2d 63 6f 6c 75 6d | .(dolist.(c.(tablist-major-colum |
| 3fc0 | 6e 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 3e 3d 20 63 20 | ns))...........(when.(and.(>=.c. |
| 3fe0 | 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3c 20 63 20 28 6c 65 | 0)......................(<.c.(le |
| 4000 | 6e 67 74 68 20 63 6f 6c 75 6d 6e 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 | ngth.columns))).............(let |
| 4020 | 20 28 28 62 65 67 20 28 2b 20 28 70 6f 69 6e 74 2d 61 74 2d 62 6f 6c 29 0a 20 20 20 20 20 20 20 | .((beg.(+.(point-at-bol)........ |
| 4040 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 74 68 20 63 20 63 6f 6c 75 6d 6e | ...................(nth.c.column |
| 4060 | 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 6e 64 20 28 69 66 20 | s)))...................(end.(if. |
| 4080 | 28 3d 20 63 20 28 31 2d 20 28 6c 65 6e 67 74 68 20 63 6f 6c 75 6d 6e 73 29 29 29 0a 20 20 20 20 | (=.c.(1-.(length.columns)))..... |
| 40a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 69 6e 74 2d 61 74 | .......................(point-at |
| 40c0 | 2d 65 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | -eol)..........................( |
| 40e0 | 2b 20 28 70 6f 69 6e 74 2d 61 74 2d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | +.(point-at-bol)................ |
| 4100 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 74 68 20 28 31 2b 20 63 29 20 63 6f 6c 75 6d 6e 73 | .............(nth.(1+.c).columns |
| 4120 | 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 20 | )))))...............(cond....... |
| 4140 | 20 20 20 20 20 20 20 20 20 28 28 61 6e 64 20 74 61 62 6c 69 73 74 2d 6d 61 72 6b 65 64 2d 66 61 | .........((and.tablist-marked-fa |
| 4160 | 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 65 71 | ce......................(not.(eq |
| 4180 | 20 74 61 62 6c 69 73 74 2d 6d 61 72 6b 65 72 2d 63 68 61 72 20 3f 5c 73 29 29 29 0a 20 20 20 20 | .tablist-marker-char.?\s)))..... |
| 41a0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 74 61 62 6c 69 73 74 2d 2d 73 61 76 65 2d 66 61 63 65 2d | ............(tablist--save-face- |
| 41c0 | 70 72 6f 70 65 72 74 79 20 62 65 67 20 65 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | property.beg.end)............... |
| 41e0 | 20 20 28 70 75 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 0a 20 20 20 20 20 20 20 20 20 20 20 | ..(put-text-property............ |
| 4200 | 20 20 20 20 20 20 62 65 67 20 65 6e 64 20 27 66 61 63 65 20 74 61 62 6c 69 73 74 2d 6d 61 72 6b | ......beg.end.'face.tablist-mark |
| 4220 | 65 64 2d 66 61 63 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 28 74 61 62 | ed-face))................(t.(tab |
| 4240 | 6c 69 73 74 2d 2d 72 65 73 74 6f 72 65 2d 66 61 63 65 2d 70 72 6f 70 65 72 74 79 20 62 65 67 20 | list--restore-face-property.beg. |
| 4260 | 65 6e 64 29 29 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 6d 61 | end))))))))))..(defun.tablist-ma |
| 4280 | 72 6b 2d 66 6f 72 77 61 72 64 20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 20 69 6e 74 65 72 61 | rk-forward.(&optional.arg.intera |
| 42a0 | 63 74 69 76 65 29 0a 20 20 22 4d 61 72 6b 20 41 52 47 20 65 6e 74 72 69 65 73 20 66 6f 72 77 61 | ctive)..."Mark.ARG.entries.forwa |
| 42c0 | 72 64 2e 0a 0a 41 52 47 20 69 73 20 69 6e 74 65 72 70 72 65 74 65 64 20 61 73 20 61 20 70 72 65 | rd...ARG.is.interpreted.as.a.pre |
| 42e0 | 66 69 78 2d 61 72 67 2e 20 20 49 66 20 69 6e 74 65 72 61 63 74 69 76 65 20 69 73 20 6e 6f 6e 2d | fix-arg...If.interactive.is.non- |
| 4300 | 6e 69 6c 2c 0a 6d 61 79 62 65 20 75 73 65 20 74 68 65 20 61 63 74 69 76 65 20 72 65 67 69 6f 6e | nil,.maybe.use.the.active.region |
| 4320 | 20 69 6e 73 74 65 61 64 20 6f 66 20 41 52 47 2e 0a 0a 53 65 65 20 60 74 61 62 6c 69 73 74 2d 70 | .instead.of.ARG...See.`tablist-p |
| 4340 | 75 74 2d 6d 61 72 6b 27 20 66 6f 72 20 68 6f 77 20 65 6e 74 72 69 65 73 20 61 72 65 20 6d 61 72 | ut-mark'.for.how.entries.are.mar |
| 4360 | 6b 65 64 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 63 75 72 72 65 | ked."...(interactive.(list.curre |
| 4380 | 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 20 74 29 29 0a 20 20 28 63 6f 6e 64 0a 20 20 20 3b 3b 20 | nt-prefix-arg.t))...(cond....;;. |
| 43a0 | 4d 61 72 6b 20 66 69 6c 65 73 20 69 6e 20 74 68 65 20 61 63 74 69 76 65 20 72 65 67 69 6f 6e 2e | Mark.files.in.the.active.region. |
| 43c0 | 0a 20 20 20 28 28 61 6e 64 20 69 6e 74 65 72 61 63 74 69 76 65 20 28 75 73 65 2d 72 65 67 69 6f | ....((and.interactive.(use-regio |
| 43e0 | 6e 2d 70 29 29 0a 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 | n-p)).....(save-excursion....... |
| 4400 | 28 67 6f 74 6f 2d 63 68 61 72 20 28 72 65 67 69 6f 6e 2d 62 65 67 69 6e 6e 69 6e 67 29 29 0a 20 | (goto-char.(region-beginning)).. |
| 4420 | 20 20 20 20 20 28 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 29 0a 20 20 20 20 20 20 28 | .....(beginning-of-line).......( |
| 4440 | 74 61 62 6c 69 73 74 2d 72 65 70 65 61 74 2d 6f 76 65 72 2d 6c 69 6e 65 73 0a 20 20 20 20 20 20 | tablist-repeat-over-lines....... |
| 4460 | 20 28 31 2b 20 28 63 6f 75 6e 74 2d 6c 69 6e 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 | .(1+.(count-lines.............(p |
| 4480 | 6f 69 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f | oint).............(save-excursio |
| 44a0 | 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 72 65 67 69 | n...............(goto-char.(regi |
| 44c0 | 6f 6e 2d 65 6e 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 65 67 69 6e 6e 69 6e | on-end))...............(beginnin |
| 44e0 | 67 2d 6f 66 2d 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 69 6e 74 29 | g-of-line)...............(point) |
| 4500 | 29 29 29 0a 20 20 20 20 20 20 20 27 74 61 62 6c 69 73 74 2d 70 75 74 2d 6d 61 72 6b 29 29 29 0a | )))........'tablist-put-mark))). |
| 4520 | 20 20 20 3b 3b 20 4d 61 72 6b 20 74 68 65 20 63 75 72 72 65 6e 74 20 28 6f 72 20 6e 65 78 74 20 | ...;;.Mark.the.current.(or.next. |
| 4540 | 41 52 47 29 20 66 69 6c 65 73 2e 0a 20 20 20 28 74 0a 20 20 20 20 28 74 61 62 6c 69 73 74 2d 72 | ARG).files.....(t.....(tablist-r |
| 4560 | 65 70 65 61 74 2d 6f 76 65 72 2d 6c 69 6e 65 73 0a 20 20 20 20 20 28 70 72 65 66 69 78 2d 6e 75 | epeat-over-lines......(prefix-nu |
| 4580 | 6d 65 72 69 63 2d 76 61 6c 75 65 20 61 72 67 29 0a 20 20 20 20 20 27 74 61 62 6c 69 73 74 2d 70 | meric-value.arg)......'tablist-p |
| 45a0 | 75 74 2d 6d 61 72 6b 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 6d 61 72 6b | ut-mark))))..(defun.tablist-mark |
| 45c0 | 2d 62 61 63 6b 77 61 72 64 20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 20 69 6e 74 65 72 61 63 | -backward.(&optional.arg.interac |
| 45e0 | 74 69 76 65 29 0a 20 20 22 4d 61 72 6b 20 41 52 47 20 65 6e 74 72 69 65 73 20 62 61 63 6b 77 61 | tive)..."Mark.ARG.entries.backwa |
| 4600 | 72 64 2e 0a 0a 53 65 65 20 60 74 61 62 6c 69 73 74 2d 6d 61 72 6b 2d 66 6f 72 77 61 72 64 27 2e | rd...See.`tablist-mark-forward'. |
| 4620 | 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 63 75 72 72 65 6e 74 2d 70 | "...(interactive.(list.current-p |
| 4640 | 72 65 66 69 78 2d 61 72 67 20 74 29 29 0a 20 20 28 74 61 62 6c 69 73 74 2d 6d 61 72 6b 2d 66 6f | refix-arg.t))...(tablist-mark-fo |
| 4660 | 72 77 61 72 64 20 28 2d 20 28 70 72 65 66 69 78 2d 6e 75 6d 65 72 69 63 2d 76 61 6c 75 65 20 61 | rward.(-.(prefix-numeric-value.a |
| 4680 | 72 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 74 | rg)).........................int |
| 46a0 | 65 72 61 63 74 69 76 65 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 75 6e 6d 61 72 | eractive))..(defun.tablist-unmar |
| 46c0 | 6b 2d 66 6f 72 77 61 72 64 20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 20 69 6e 74 65 72 61 63 | k-forward.(&optional.arg.interac |
| 46e0 | 74 69 76 65 29 0a 20 20 22 55 6e 6d 61 72 6b 20 41 52 47 20 65 6e 74 72 69 65 73 20 66 6f 72 77 | tive)..."Unmark.ARG.entries.forw |
| 4700 | 61 72 64 2e 0a 0a 53 65 65 20 60 74 61 62 6c 69 73 74 2d 6d 61 72 6b 2d 66 6f 72 77 61 72 64 27 | ard...See.`tablist-mark-forward' |
| 4720 | 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 63 75 72 72 65 6e 74 2d | ."...(interactive.(list.current- |
| 4740 | 70 72 65 66 69 78 2d 61 72 67 20 74 29 29 0a 20 20 28 6c 65 74 20 28 28 74 61 62 6c 69 73 74 2d | prefix-arg.t))...(let.((tablist- |
| 4760 | 6d 61 72 6b 65 72 2d 63 68 61 72 20 3f 5c 73 29 0a 20 20 20 20 20 20 20 20 74 61 62 6c 69 73 74 | marker-char.?\s).........tablist |
| 4780 | 2d 6d 61 72 6b 65 64 2d 66 61 63 65 29 0a 20 20 20 20 28 74 61 62 6c 69 73 74 2d 6d 61 72 6b 2d | -marked-face).....(tablist-mark- |
| 47a0 | 66 6f 72 77 61 72 64 20 61 72 67 20 69 6e 74 65 72 61 63 74 69 76 65 29 29 29 0a 0a 28 64 65 66 | forward.arg.interactive)))..(def |
| 47c0 | 75 6e 20 74 61 62 6c 69 73 74 2d 75 6e 6d 61 72 6b 2d 62 61 63 6b 77 61 72 64 20 28 26 6f 70 74 | un.tablist-unmark-backward.(&opt |
| 47e0 | 69 6f 6e 61 6c 20 61 72 67 20 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 22 55 6e 6d 61 72 6b | ional.arg.interactive)..."Unmark |
| 4800 | 20 41 52 47 20 65 6e 74 72 69 65 73 20 62 61 63 6b 77 61 72 64 2e 0a 0a 53 65 65 20 60 74 61 62 | .ARG.entries.backward...See.`tab |
| 4820 | 6c 69 73 74 2d 6d 61 72 6b 2d 66 6f 72 77 61 72 64 27 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 | list-mark-forward'."...(interact |
| 4840 | 69 76 65 20 28 6c 69 73 74 20 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 20 74 29 29 | ive.(list.current-prefix-arg.t)) |
| 4860 | 0a 20 20 28 6c 65 74 20 28 28 74 61 62 6c 69 73 74 2d 6d 61 72 6b 65 72 2d 63 68 61 72 20 3f 5c | ...(let.((tablist-marker-char.?\ |
| 4880 | 73 29 0a 20 20 20 20 20 20 20 20 74 61 62 6c 69 73 74 2d 6d 61 72 6b 65 64 2d 66 61 63 65 29 0a | s).........tablist-marked-face). |
| 48a0 | 20 20 20 20 28 74 61 62 6c 69 73 74 2d 6d 61 72 6b 2d 62 61 63 6b 77 61 72 64 20 61 72 67 20 69 | ....(tablist-mark-backward.arg.i |
| 48c0 | 6e 74 65 72 61 63 74 69 76 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 66 6c | nteractive)))..(defun.tablist-fl |
| 48e0 | 61 67 2d 66 6f 72 77 61 72 64 20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 20 69 6e 74 65 72 61 | ag-forward.(&optional.arg.intera |
| 4900 | 63 74 69 76 65 29 0a 20 20 22 46 6c 61 67 20 41 52 47 20 65 6e 74 72 69 65 73 20 66 6f 72 77 61 | ctive)..."Flag.ARG.entries.forwa |
| 4920 | 72 64 2e 0a 0a 53 65 65 20 60 74 61 62 6c 69 73 74 2d 6d 61 72 6b 2d 66 6f 72 77 61 72 64 27 2e | rd...See.`tablist-mark-forward'. |
| 4940 | 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 63 75 72 72 65 6e 74 2d 70 | "...(interactive.(list.current-p |
| 4960 | 72 65 66 69 78 2d 61 72 67 20 74 29 29 0a 20 20 28 6c 65 74 20 28 28 74 61 62 6c 69 73 74 2d 6d | refix-arg.t))...(let.((tablist-m |
| 4980 | 61 72 6b 65 72 2d 63 68 61 72 20 3f 44 29 0a 20 20 20 20 20 20 20 20 28 74 61 62 6c 69 73 74 2d | arker-char.?D).........(tablist- |
| 49a0 | 6d 61 72 6b 65 64 2d 66 61 63 65 20 27 64 69 72 65 64 2d 66 6c 61 67 67 65 64 29 29 0a 20 20 20 | marked-face.'dired-flagged)).... |
| 49c0 | 20 28 74 61 62 6c 69 73 74 2d 6d 61 72 6b 2d 66 6f 72 77 61 72 64 20 61 72 67 20 69 6e 74 65 72 | .(tablist-mark-forward.arg.inter |
| 49e0 | 61 63 74 69 76 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 63 68 61 6e 67 65 | active)))..(defun.tablist-change |
| 4a00 | 2d 6d 61 72 6b 73 20 28 6f 6c 64 20 6e 65 77 29 0a 20 20 22 43 68 61 6e 67 65 20 61 6c 6c 20 4f | -marks.(old.new)..."Change.all.O |
| 4a20 | 4c 44 20 6d 61 72 6b 73 20 74 6f 20 4e 45 57 20 6d 61 72 6b 73 2e 0a 0a 4f 4c 44 20 61 6e 64 20 | LD.marks.to.NEW.marks...OLD.and. |
| 4a40 | 4e 45 57 20 61 72 65 20 62 6f 74 68 20 63 68 61 72 61 63 74 65 72 73 20 75 73 65 64 20 74 6f 20 | NEW.are.both.characters.used.to. |
| 4a60 | 6d 61 72 6b 20 66 69 6c 65 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 0a 20 20 20 28 | mark.files."...(interactive....( |
| 4a80 | 6c 65 74 2a 20 28 28 63 75 72 73 6f 72 2d 69 6e 2d 65 63 68 6f 2d 61 72 65 61 20 74 29 0a 20 20 | let*.((cursor-in-echo-area.t)... |
| 4aa0 | 20 20 20 20 20 20 20 20 28 6f 6c 64 20 28 70 72 6f 67 6e 20 28 6d 65 73 73 61 67 65 20 22 43 68 | ........(old.(progn.(message."Ch |
| 4ac0 | 61 6e 67 65 20 28 6f 6c 64 20 6d 61 72 6b 29 3a 20 22 29 20 28 72 65 61 64 2d 63 68 61 72 29 29 | ange.(old.mark):.").(read-char)) |
| 4ae0 | 29 0a 20 20 20 20 20 20 20 20 20 20 28 6e 65 77 20 28 70 72 6f 67 6e 20 28 6d 65 73 73 61 67 65 | )...........(new.(progn.(message |
| 4b00 | 20 20 22 43 68 61 6e 67 65 20 25 63 20 6d 61 72 6b 73 20 74 6f 20 28 6e 65 77 20 6d 61 72 6b 29 | .."Change.%c.marks.to.(new.mark) |
| 4b20 | 3a 20 22 20 6f 6c 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | :.".old).......................( |
| 4b40 | 72 65 61 64 2d 63 68 61 72 29 29 29 29 0a 20 20 20 20 20 28 6c 69 73 74 20 6f 6c 64 20 6e 65 77 | read-char))))......(list.old.new |
| 4b60 | 29 29 29 0a 20 20 28 77 68 65 6e 20 28 65 71 20 6e 65 77 20 3f 5c 6e 29 0a 20 20 20 20 28 65 72 | )))...(when.(eq.new.?\n).....(er |
| 4b80 | 72 6f 72 20 22 4d 61 72 6b 20 63 68 61 72 61 63 74 65 72 20 5c 5c 6e 20 69 73 20 6e 6f 74 20 61 | ror."Mark.character.\\n.is.not.a |
| 4ba0 | 6c 6c 6f 77 65 64 22 29 29 0a 20 20 28 6c 65 74 20 28 28 64 65 66 61 75 6c 74 2d 6d 61 72 6b 2d | llowed"))...(let.((default-mark- |
| 4bc0 | 70 20 28 65 71 75 61 6c 20 74 61 62 6c 69 73 74 2d 6d 61 72 6b 65 72 2d 63 68 61 72 20 6e 65 77 | p.(equal.tablist-marker-char.new |
| 4be0 | 29 29 0a 20 20 20 20 20 20 20 20 28 74 61 62 6c 69 73 74 2d 6d 61 72 6b 65 72 2d 63 68 61 72 20 | )).........(tablist-marker-char. |
| 4c00 | 6f 6c 64 29 29 0a 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 | old)).....(save-excursion....... |
| 4c20 | 28 74 61 62 6c 69 73 74 2d 6d 61 70 2d 6f 76 65 72 2d 6d 61 72 6b 73 0a 20 20 20 20 20 20 20 28 | (tablist-map-over-marks........( |
| 4c40 | 6c 61 6d 62 64 61 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 28 70 63 61 73 65 20 6e 65 77 0a 20 | lambda.nil..........(pcase.new.. |
| 4c60 | 20 20 20 20 20 20 20 20 20 20 28 3f 44 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 74 61 62 6c 69 | ..........(?D.............(tabli |
| 4c80 | 73 74 2d 66 6c 61 67 2d 66 6f 72 77 61 72 64 20 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 | st-flag-forward.1))............( |
| 4ca0 | 5f 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 74 61 62 6c 69 73 74 2d 6d 61 72 | _.............(let.((tablist-mar |
| 4cc0 | 6b 65 72 2d 63 68 61 72 20 6e 65 77 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ker-char.new)................... |
| 4ce0 | 28 74 61 62 6c 69 73 74 2d 6d 61 72 6b 65 64 2d 66 61 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 | (tablist-marked-face............ |
| 4d00 | 20 20 20 20 20 20 20 20 28 61 6e 64 20 64 65 66 61 75 6c 74 2d 6d 61 72 6b 2d 70 0a 20 20 20 20 | ........(and.default-mark-p..... |
| 4d20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 61 62 6c 69 73 74 2d 6d 61 72 6b | ....................tablist-mark |
| 4d40 | 65 64 2d 66 61 63 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 61 62 6c 69 73 | ed-face)))...............(tablis |
| 4d60 | 74 2d 70 75 74 2d 6d 61 72 6b 29 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c | t-put-mark)))))))))..(defun.tabl |
| 4d80 | 69 73 74 2d 75 6e 6d 61 72 6b 2d 61 6c 6c 2d 6d 61 72 6b 73 20 28 26 6f 70 74 69 6f 6e 61 6c 20 | ist-unmark-all-marks.(&optional. |
| 4da0 | 6d 61 72 6b 73 20 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 22 52 65 6d 6f 76 65 20 61 6c 6c | marks.interactive)..."Remove.all |
| 4dc0 | 73 20 6d 61 72 6b 73 20 69 6e 20 4d 41 52 4b 53 2e 0a 0a 4d 41 52 4b 53 20 73 68 6f 75 6c 64 20 | s.marks.in.MARKS...MARKS.should. |
| 4de0 | 62 65 20 61 20 73 74 72 69 6e 67 20 6f 66 20 6d 61 72 6b 20 63 68 61 72 61 63 74 65 72 73 20 74 | be.a.string.of.mark.characters.t |
| 4e00 | 6f 20 6d 61 74 63 68 20 61 6e 64 20 64 65 66 61 75 6c 74 73 0a 74 6f 20 61 6c 6c 20 6d 61 72 6b | o.match.and.defaults.to.all.mark |
| 4e20 | 73 2e 20 20 49 6e 74 65 72 61 63 74 69 76 65 6c 79 2c 20 72 65 6d 6f 76 65 20 61 6c 6c 20 6d 61 | s...Interactively,.remove.all.ma |
| 4e40 | 72 6b 73 2c 20 75 6e 6c 65 73 73 20 61 20 70 72 65 66 69 78 0a 61 72 67 20 77 61 73 20 67 69 76 | rks,.unless.a.prefix.arg.was.giv |
| 4e60 | 65 6e 2c 20 69 6e 20 77 68 69 63 68 20 63 61 73 65 20 61 73 6b 20 61 62 6f 75 74 20 77 68 69 63 | en,.in.which.case.ask.about.whic |
| 4e80 | 68 20 6f 6e 65 73 20 74 6f 20 72 65 6d 6f 76 65 2e 0a 47 69 76 65 20 61 20 6d 65 73 73 61 67 65 | h.ones.to.remove..Give.a.message |
| 4ea0 | 2c 20 69 66 20 69 6e 74 65 72 61 63 74 69 76 65 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2e 0a 0a 52 65 | ,.if.interactive.is.non-nil...Re |
| 4ec0 | 74 75 72 6e 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 75 6e 6d 61 72 6b 65 64 20 6d 61 72 | turns.the.number.of.unmarked.mar |
| 4ee0 | 6b 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 0a 20 20 20 28 6c 69 73 74 20 28 69 66 | ks."...(interactive....(list.(if |
| 4f00 | 20 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .current-prefix-arg............. |
| 4f20 | 20 28 72 65 61 64 2d 73 74 72 69 6e 67 20 22 52 65 6d 6f 76 65 20 6d 61 72 6b 73 3a 20 22 29 29 | .(read-string."Remove.marks:.")) |
| 4f40 | 20 74 29 29 0a 20 20 28 6c 65 74 20 28 28 72 65 20 28 69 66 20 6d 61 72 6b 73 0a 20 20 20 20 20 | .t))...(let.((re.(if.marks...... |
| 4f60 | 20 20 20 20 20 20 20 20 20 20 20 28 74 61 62 6c 69 73 74 2d 6d 61 72 6b 65 72 2d 72 65 67 65 78 | ...........(tablist-marker-regex |
| 4f80 | 70 20 6d 61 72 6b 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 5e 5b 5e 20 5d 22 29 29 | p.marks)..............."^[^.]")) |
| 4fa0 | 0a 20 20 20 20 20 20 20 20 28 72 65 6d 6f 76 65 64 20 30 29 29 0a 20 20 20 20 28 73 61 76 65 2d | .........(removed.0)).....(save- |
| 4fc0 | 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e | excursion.......(goto-char.(poin |
| 4fe0 | 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 72 65 2d 73 65 61 72 63 68 2d | t-min)).......(while.(re-search- |
| 5000 | 66 6f 72 77 61 72 64 20 72 65 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 | forward.re.nil.t).........(let.( |
| 5020 | 28 74 61 62 6c 69 73 74 2d 6d 61 72 6b 65 72 2d 63 68 61 72 20 3f 5c 73 29 0a 20 20 20 20 20 20 | (tablist-marker-char.?\s)....... |
| 5040 | 20 20 20 20 20 20 20 20 74 61 62 6c 69 73 74 2d 6d 61 72 6b 65 72 2d 66 61 63 65 0a 20 20 20 20 | ........tablist-marker-face..... |
| 5060 | 20 20 20 20 20 20 20 20 20 20 74 61 62 6c 69 73 74 2d 6d 61 72 6b 65 64 2d 66 61 63 65 29 0a 20 | ..........tablist-marked-face).. |
| 5080 | 20 20 20 20 20 20 20 20 20 28 74 61 62 6c 69 73 74 2d 70 75 74 2d 6d 61 72 6b 29 29 0a 20 20 20 | .........(tablist-put-mark)).... |
| 50a0 | 20 20 20 20 20 28 63 6c 2d 69 6e 63 66 20 72 65 6d 6f 76 65 64 29 29 29 0a 20 20 20 20 28 77 68 | .....(cl-incf.removed))).....(wh |
| 50c0 | 65 6e 20 69 6e 74 65 72 61 63 74 69 76 65 0a 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 52 | en.interactive.......(message."R |
| 50e0 | 65 6d 6f 76 65 64 20 25 64 20 6d 61 72 6b 73 22 20 72 65 6d 6f 76 65 64 29 29 0a 20 20 20 20 72 | emoved.%d.marks".removed)).....r |
| 5100 | 65 6d 6f 76 65 64 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 74 6f 67 67 6c 65 2d | emoved))..(defun.tablist-toggle- |
| 5120 | 6d 61 72 6b 73 20 28 29 0a 20 20 22 55 6e 6d 61 72 6b 20 61 6c 6c 20 6d 61 72 6b 65 64 20 61 6e | marks.()..."Unmark.all.marked.an |
| 5140 | 64 20 6d 61 72 6b 20 61 6c 6c 20 75 6e 6d 61 72 6b 65 64 20 65 6e 74 72 69 65 73 2e 0a 0a 53 65 | d.mark.all.unmarked.entries...Se |
| 5160 | 65 20 60 74 61 62 6c 69 73 74 2d 70 75 74 2d 6d 61 72 6b 27 2e 22 0a 20 20 28 69 6e 74 65 72 61 | e.`tablist-put-mark'."...(intera |
| 5180 | 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 6d 61 72 6b 65 64 2d 72 65 20 28 74 61 62 6c 69 | ctive)...(let.((marked-re.(tabli |
| 51a0 | 73 74 2d 6d 61 72 6b 65 72 2d 72 65 67 65 78 70 29 29 0a 20 20 20 20 20 20 20 20 28 6e 6f 74 2d | st-marker-regexp)).........(not- |
| 51c0 | 6d 61 72 6b 65 64 2d 72 65 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 74 61 62 6c 69 73 | marked-re..........(let.((tablis |
| 51e0 | 74 2d 6d 61 72 6b 65 72 2d 63 68 61 72 20 3f 5c 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 | t-marker-char.?\s))............( |
| 5200 | 74 61 62 6c 69 73 74 2d 6d 61 72 6b 65 72 2d 72 65 67 65 78 70 29 29 29 29 0a 20 20 20 20 28 73 | tablist-marker-regexp)))).....(s |
| 5220 | 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 | ave-excursion.......(goto-char.( |
| 5240 | 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 28 74 61 62 6c 69 73 74 2d 73 6b 69 70 2d | point-min)).......(tablist-skip- |
| 5260 | 69 6e 76 69 73 69 62 6c 65 2d 65 6e 74 72 69 65 73 29 0a 20 20 20 20 20 20 28 77 68 69 6c 65 20 | invisible-entries).......(while. |
| 5280 | 28 6e 6f 74 20 28 65 6f 62 70 29 29 0a 20 20 20 20 20 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 | (not.(eobp)).........(cond...... |
| 52a0 | 20 20 20 20 28 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 6d 61 72 6b 65 64 2d 72 65 29 0a 20 20 20 20 | ....((looking-at.marked-re)..... |
| 52c0 | 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 20 28 74 61 62 6c 69 73 74 2d 75 | ......(save-excursion.(tablist-u |
| 52e0 | 6e 6d 61 72 6b 2d 62 61 63 6b 77 61 72 64 20 2d 31 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 28 | nmark-backward.-1)))..........(( |
| 5300 | 6c 6f 6f 6b 69 6e 67 2d 61 74 20 6e 6f 74 2d 6d 61 72 6b 65 64 2d 72 65 29 0a 20 20 20 20 20 20 | looking-at.not-marked-re)....... |
| 5320 | 20 20 20 20 28 74 61 62 6c 69 73 74 2d 70 75 74 2d 6d 61 72 6b 29 29 29 0a 20 20 20 20 20 20 20 | ....(tablist-put-mark)))........ |
| 5340 | 20 28 74 61 62 6c 69 73 74 2d 66 6f 72 77 61 72 64 2d 65 6e 74 72 79 29 29 29 0a 20 20 20 20 28 | .(tablist-forward-entry))).....( |
| 5360 | 74 61 62 6c 69 73 74 2d 6d 6f 76 65 2d 74 6f 2d 6d 61 6a 6f 72 2d 63 6f 6c 75 6d 6e 29 29 29 0a | tablist-move-to-major-column))). |
| 5380 | 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 67 65 74 2d 6d 61 72 6b 65 64 2d 69 74 65 6d 73 | .(defun.tablist-get-marked-items |
| 53a0 | 20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 20 64 69 73 74 69 6e 67 75 69 73 68 2d 6f 6e 65 2d | .(&optional.arg.distinguish-one- |
| 53c0 | 6d 61 72 6b 65 64 29 0a 20 20 22 52 65 74 75 72 6e 20 6d 61 72 6b 65 64 20 6f 72 20 41 52 47 20 | marked)..."Return.marked.or.ARG. |
| 53e0 | 65 6e 74 72 69 65 73 2e 22 0a 20 20 28 6c 65 74 20 28 28 69 74 65 6d 73 20 28 73 61 76 65 2d 65 | entries."...(let.((items.(save-e |
| 5400 | 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 61 62 6c 69 | xcursion..................(tabli |
| 5420 | 73 74 2d 6d 61 70 2d 6f 76 65 72 2d 6d 61 72 6b 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | st-map-over-marks............... |
| 5440 | 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 28 63 6f 6e 73 20 28 74 61 62 75 6c 61 74 65 64 2d | ....(lambda.().(cons.(tabulated- |
| 5460 | 6c 69 73 74 2d 67 65 74 2d 69 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | list-get-id).................... |
| 5480 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 61 62 75 6c 61 74 65 64 2d 6c 69 73 74 2d | ................(tabulated-list- |
| 54a0 | 67 65 74 2d 65 6e 74 72 79 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 | get-entry)))...................a |
| 54c0 | 72 67 20 6e 69 6c 20 64 69 73 74 69 6e 67 75 69 73 68 2d 6f 6e 65 2d 6d 61 72 6b 65 64 29 29 29 | rg.nil.distinguish-one-marked))) |
| 54e0 | 29 0a 20 20 20 20 28 69 66 20 28 61 6e 64 20 64 69 73 74 69 6e 67 75 69 73 68 2d 6f 6e 65 2d 6d | ).....(if.(and.distinguish-one-m |
| 5500 | 61 72 6b 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 71 20 28 63 61 72 20 69 74 65 6d | arked..............(eq.(car.item |
| 5520 | 73 29 20 74 29 29 0a 20 20 20 20 20 20 20 20 69 74 65 6d 73 0a 20 20 20 20 20 20 28 6e 72 65 76 | s).t)).........items.......(nrev |
| 5540 | 65 72 73 65 20 69 74 65 6d 73 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 6d | erse.items))))..(defun.tablist-m |
| 5560 | 61 72 6b 2d 69 74 65 6d 73 2d 72 65 67 65 78 70 20 28 63 6f 6c 75 6d 6e 2d 6e 61 6d 65 20 72 65 | ark-items-regexp.(column-name.re |
| 5580 | 67 65 78 70 29 0a 20 20 22 4d 61 72 6b 20 65 6e 74 72 69 65 73 20 6d 61 74 63 68 69 6e 67 20 52 | gexp)..."Mark.entries.matching.R |
| 55a0 | 45 47 45 58 50 20 69 6e 20 63 6f 6c 75 6d 6e 20 43 4f 4c 55 4d 4e 2d 4e 41 4d 45 2e 22 0a 20 20 | EGEXP.in.column.COLUMN-NAME."... |
| 55c0 | 28 69 6e 74 65 72 61 63 74 69 76 65 0a 20 20 20 28 74 61 62 6c 69 73 74 2d 72 65 61 64 2d 72 65 | (interactive....(tablist-read-re |
| 55e0 | 67 65 78 70 2d 66 69 6c 74 65 72 20 22 4d 61 72 6b 22 20 63 75 72 72 65 6e 74 2d 70 72 65 66 69 | gexp-filter."Mark".current-prefi |
| 5600 | 78 2d 61 72 67 20 29 29 0a 20 20 28 74 61 62 6c 69 73 74 2d 6d 61 70 2d 77 69 74 68 2d 66 69 6c | x-arg.))...(tablist-map-with-fil |
| 5620 | 74 65 72 0a 20 20 20 27 74 61 62 6c 69 73 74 2d 70 75 74 2d 6d 61 72 6b 0a 20 20 20 60 28 3d 7e | ter....'tablist-put-mark....`(=~ |
| 5640 | 20 20 2c 63 6f 6c 75 6d 6e 2d 6e 61 6d 65 20 2c 72 65 67 65 78 70 29 29 29 0a 0a 28 64 65 66 75 | ..,column-name.,regexp)))..(defu |
| 5660 | 6e 20 74 61 62 6c 69 73 74 2d 6d 61 72 6b 2d 69 74 65 6d 73 2d 6e 75 6d 65 72 69 63 20 28 62 69 | n.tablist-mark-items-numeric.(bi |
| 5680 | 6e 6f 70 20 63 6f 6c 75 6d 6e 2d 6e 61 6d 65 20 6f 70 65 72 61 6e 64 29 0a 20 20 22 4d 61 72 6b | nop.column-name.operand)..."Mark |
| 56a0 | 20 69 74 65 6d 73 20 66 75 6c 66 69 6c 6c 69 6e 67 20 42 49 4e 4f 50 20 77 69 74 68 20 61 72 67 | .items.fulfilling.BINOP.with.arg |
| 56c0 | 20 4f 50 45 52 41 4e 44 20 69 6e 20 63 6f 6c 75 6d 6e 20 43 4f 4c 55 4d 4e 2d 4e 41 4d 45 2e 0a | .OPERAND.in.column.COLUMN-NAME.. |
| 56e0 | 0a 46 69 72 73 74 20 74 68 65 20 63 6f 6c 75 6d 6e 27 73 20 76 61 6c 75 65 20 69 73 20 63 6f 65 | .First.the.column's.value.is.coe |
| 5700 | 72 63 65 64 20 74 6f 20 61 20 6e 75 6d 62 65 72 20 4e 2e 20 20 54 68 65 6e 20 74 68 65 20 74 65 | rced.to.a.number.N...Then.the.te |
| 5720 | 73 74 0a 70 72 6f 63 65 65 64 73 20 61 73 20 5c 28 42 49 4e 4f 50 20 4e 20 4f 50 45 52 41 4e 44 | st.proceeds.as.\(BINOP.N.OPERAND |
| 5740 | 5c 29 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 0a 20 20 20 28 74 61 62 6c 69 73 74 2d | \)."...(interactive....(tablist- |
| 5760 | 72 65 61 64 2d 6e 75 6d 65 72 69 63 2d 66 69 6c 74 65 72 20 22 4d 61 72 6b 22 20 63 75 72 72 65 | read-numeric-filter."Mark".curre |
| 5780 | 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 29 29 0a 20 20 28 74 61 62 6c 69 73 74 2d 6d 61 70 2d 77 | nt-prefix-arg))...(tablist-map-w |
| 57a0 | 69 74 68 2d 66 69 6c 74 65 72 0a 20 20 20 27 74 61 62 6c 69 73 74 2d 70 75 74 2d 6d 61 72 6b 0a | ith-filter....'tablist-put-mark. |
| 57c0 | 20 20 20 60 28 2c 62 69 6e 6f 70 20 2c 63 6f 6c 75 6d 6e 2d 6e 61 6d 65 20 2c 6f 70 65 72 61 6e | ...`(,binop.,column-name.,operan |
| 57e0 | 64 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 6d 61 70 2d 6f 76 65 72 2d 6d 61 | d)))..(defun.tablist-map-over-ma |
| 5800 | 72 6b 73 20 28 66 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 20 73 68 6f 77 2d 70 72 6f 67 72 | rks.(fn.&optional.arg.show-progr |
| 5820 | 65 73 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ess............................. |
| 5840 | 20 20 20 20 20 20 64 69 73 74 69 6e 67 75 69 73 68 2d 6f 6e 65 2d 6d 61 72 6b 65 64 29 0a 20 20 | ......distinguish-one-marked)... |
| 5860 | 28 70 72 6f 67 31 0a 20 20 20 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 20 20 28 28 61 6e 64 20 | (prog1.......(cond........((and. |
| 5880 | 61 72 67 20 28 69 6e 74 65 67 65 72 70 20 61 72 67 29 29 0a 20 20 20 20 20 20 20 20 28 6c 65 74 | arg.(integerp.arg)).........(let |
| 58a0 | 20 28 72 65 73 75 6c 74 73 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 61 62 6c 69 73 74 2d 72 65 | .(results)...........(tablist-re |
| 58c0 | 70 65 61 74 2d 6f 76 65 72 2d 6c 69 6e 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 61 72 67 0a 20 | peat-over-lines............arg.. |
| 58e0 | 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ..........(lambda.()............ |
| 5900 | 20 20 28 69 66 20 73 68 6f 77 2d 70 72 6f 67 72 65 73 73 20 28 73 69 74 2d 66 6f 72 20 30 29 29 | ..(if.show-progress.(sit-for.0)) |
| 5920 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 66 75 6e 63 61 6c 6c 20 66 6e 29 | ..............(push.(funcall.fn) |
| 5940 | 20 72 65 73 75 6c 74 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 3c 20 61 72 67 | .results)))...........(if.(<.arg |
| 5960 | 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 72 65 76 65 72 73 65 20 72 65 73 75 | .0)...............(nreverse.resu |
| 5980 | 6c 74 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 73 75 6c 74 73 29 29 29 0a 20 20 20 20 | lts).............results)))..... |
| 59a0 | 20 20 20 28 61 72 67 0a 20 20 20 20 20 20 20 20 3b 3b 20 6e 6f 6e 2d 6e 69 6c 2c 20 6e 6f 6e 2d | ...(arg.........;;.non-nil,.non- |
| 59c0 | 69 6e 74 65 67 65 72 20 41 52 47 20 6d 65 61 6e 73 20 75 73 65 20 63 75 72 72 65 6e 74 20 69 74 | integer.ARG.means.use.current.it |
| 59e0 | 65 6d 3a 0a 20 20 20 20 20 20 20 20 28 74 61 62 6c 69 73 74 2d 73 6b 69 70 2d 69 6e 76 69 73 69 | em:.........(tablist-skip-invisi |
| 5a00 | 62 6c 65 2d 65 6e 74 72 69 65 73 29 0a 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 65 6f | ble-entries).........(unless.(eo |
| 5a20 | 62 70 29 0a 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 66 75 6e 63 61 6c 6c 20 66 6e 29 | bp)...........(list.(funcall.fn) |
| 5a40 | 29 29 29 0a 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 28 63 6c 2d 6c 61 62 65 6c 73 | )))........(t.........(cl-labels |
| 5a60 | 20 28 28 73 65 61 72 63 68 20 28 72 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .((search.(re).................. |
| 5a80 | 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 73 75 63 65 73 73 29 0a 20 20 20 20 20 20 20 | ...........(let.(sucess)........ |
| 5aa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 61 62 6c 69 73 74 2d | .......................(tablist- |
| 5ac0 | 73 6b 69 70 2d 69 6e 76 69 73 69 62 6c 65 2d 65 6e 74 72 69 65 73 29 0a 20 20 20 20 20 20 20 20 | skip-invisible-entries)......... |
| 5ae0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 61 6e | ......................(while.(an |
| 5b00 | 64 20 28 73 65 74 71 20 73 75 63 65 73 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | d.(setq.sucess.................. |
| 5b20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ...............................( |
| 5b40 | 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 72 65 20 6e 69 6c 20 74 29 29 0a 20 20 20 | re-search-forward.re.nil.t)).... |
| 5b60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 5b80 | 20 20 20 20 20 20 20 28 69 6e 76 69 73 69 62 6c 65 2d 70 20 28 70 6f 69 6e 74 29 29 29 0a 20 20 | .......(invisible-p.(point)))... |
| 5ba0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 | ..............................(t |
| 5bc0 | 61 62 6c 69 73 74 2d 66 6f 72 77 61 72 64 2d 65 6e 74 72 79 29 29 0a 20 20 20 20 20 20 20 20 20 | ablist-forward-entry)).......... |
| 5be0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 75 63 65 73 73 29 29 29 0a 20 | .....................sucess))).. |
| 5c00 | 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 72 65 67 65 78 70 20 28 74 61 62 6c 69 73 74 2d | .........(let.((regexp.(tablist- |
| 5c20 | 6d 61 72 6b 65 72 2d 72 65 67 65 78 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | marker-regexp))................. |
| 5c40 | 6e 65 78 74 2d 70 6f 73 69 74 69 6f 6e 20 72 65 73 75 6c 74 73 20 66 6f 75 6e 64 29 0a 20 20 20 | next-position.results.found).... |
| 5c60 | 20 20 20 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 | .........(save-excursion........ |
| 5c80 | 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 | .......(goto-char.(point-min)).. |
| 5ca0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 72 65 6d 65 6d 62 65 72 20 70 6f 73 69 74 69 6f | .............;;.remember.positio |
| 5cc0 | 6e 20 6f 66 20 6e 65 78 74 20 6d 61 72 6b 65 64 20 66 69 6c 65 20 62 65 66 6f 72 65 20 42 4f 44 | n.of.next.marked.file.before.BOD |
| 5ce0 | 59 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 63 61 6e 20 69 6e 73 65 72 74 20 6c 69 | Y...............;;.can.insert.li |
| 5d00 | 6e 65 73 20 62 65 66 6f 72 65 20 74 68 65 20 6a 75 73 74 20 66 6f 75 6e 64 20 66 69 6c 65 2c 0a | nes.before.the.just.found.file,. |
| 5d20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 63 6f 6e 66 75 73 69 6e 67 20 75 73 20 62 79 | ..............;;.confusing.us.by |
| 5d40 | 20 66 69 6e 64 69 6e 67 20 74 68 65 20 73 61 6d 65 20 6d 61 72 6b 65 64 20 66 69 6c 65 20 61 67 | .finding.the.same.marked.file.ag |
| 5d60 | 61 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 61 6e 64 20 61 67 61 69 6e 20 61 | ain...............;;.and.again.a |
| 5d80 | 6e 64 2e 2e 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6e 65 78 74 2d 70 | nd..................(setq.next-p |
| 5da0 | 6f 73 69 74 69 6f 6e 20 28 61 6e 64 20 28 73 65 61 72 63 68 20 72 65 67 65 78 70 29 0a 20 20 20 | osition.(and.(search.regexp).... |
| 5dc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 5de0 | 20 20 20 20 28 70 6f 69 6e 74 2d 6d 61 72 6b 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ....(point-marker))............. |
| 5e00 | 20 20 20 20 20 20 20 20 66 6f 75 6e 64 20 28 6e 6f 74 20 28 6e 75 6c 6c 20 6e 65 78 74 2d 70 6f | ........found.(not.(null.next-po |
| 5e20 | 73 69 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 6e | sition)))...............(while.n |
| 5e40 | 65 78 74 2d 70 6f 73 69 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f | ext-position.................(go |
| 5e60 | 74 6f 2d 63 68 61 72 20 6e 65 78 74 2d 70 6f 73 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 | to-char.next-position).......... |
| 5e80 | 20 20 20 20 20 20 20 28 69 66 20 73 68 6f 77 2d 70 72 6f 67 72 65 73 73 20 28 73 69 74 2d 66 6f | .......(if.show-progress.(sit-fo |
| 5ea0 | 72 20 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 66 75 6e | r.0)).................(push.(fun |
| 5ec0 | 63 61 6c 6c 20 66 6e 29 20 72 65 73 75 6c 74 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | call.fn).results)............... |
| 5ee0 | 20 20 3b 3b 20 6d 6f 76 65 20 61 66 74 65 72 20 6c 61 73 74 20 6d 61 74 63 68 0a 20 20 20 20 20 | ..;;.move.after.last.match...... |
| 5f00 | 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 6e 65 78 74 2d 70 6f 73 69 74 | ...........(goto-char.next-posit |
| 5f20 | 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 | ion).................(forward-li |
| 5f40 | 6e 65 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 2d 6d 61 72 6b 65 | ne.1).................(set-marke |
| 5f60 | 72 20 6e 65 78 74 2d 70 6f 73 69 74 69 6f 6e 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 | r.next-position.nil)............ |
| 5f80 | 20 20 20 20 20 28 73 65 74 71 20 6e 65 78 74 2d 70 6f 73 69 74 69 6f 6e 20 28 61 6e 64 20 28 73 | .....(setq.next-position.(and.(s |
| 5fa0 | 65 61 72 63 68 20 72 65 67 65 78 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | earch.regexp)................... |
| 5fc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 69 6e 74 2d 6d 61 | .......................(point-ma |
| 5fe0 | 72 6b 65 72 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 61 6e 64 20 64 | rker))))).............(if.(and.d |
| 6000 | 69 73 74 69 6e 67 75 69 73 68 2d 6f 6e 65 2d 6d 61 72 6b 65 64 20 28 3d 20 28 6c 65 6e 67 74 68 | istinguish-one-marked.(=.(length |
| 6020 | 20 72 65 73 75 6c 74 73 29 20 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 | .results).1)).................(s |
| 6040 | 65 74 71 20 72 65 73 75 6c 74 73 20 28 63 6f 6e 73 20 74 20 72 65 73 75 6c 74 73 29 29 29 0a 20 | etq.results.(cons.t.results))).. |
| 6060 | 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 66 6f 75 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 | ...........(if.found............ |
| 6080 | 20 20 20 20 20 72 65 73 75 6c 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 | .....results...............(unle |
| 60a0 | 73 73 20 28 6f 72 20 28 65 6f 62 70 29 20 28 69 6e 76 69 73 69 62 6c 65 2d 70 20 28 70 6f 69 6e | ss.(or.(eobp).(invisible-p.(poin |
| 60c0 | 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 66 75 6e 63 | t))).................(list.(func |
| 60e0 | 61 6c 6c 20 66 6e 29 29 29 29 29 29 29 29 0a 20 20 20 20 28 74 61 62 6c 69 73 74 2d 6d 6f 76 65 | all.fn)))))))).....(tablist-move |
| 6100 | 2d 74 6f 2d 6d 61 6a 6f 72 2d 63 6f 6c 75 6d 6e 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c | -to-major-column)))..(defun.tabl |
| 6120 | 69 73 74 2d 6d 61 72 6b 65 72 2d 72 65 67 65 78 70 20 28 26 6f 70 74 69 6f 6e 61 6c 20 6d 61 72 | ist-marker-regexp.(&optional.mar |
| 6140 | 6b 73 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 72 65 67 65 78 70 20 6d 61 74 63 68 69 6e 67 20 | ks)..."Return.a.regexp.matching. |
| 6160 | 6d 61 72 6b 73 20 69 6e 20 4d 41 52 4b 53 2e 0a 0a 4d 41 52 4b 53 20 73 68 6f 75 6c 64 20 62 65 | marks.in.MARKS...MARKS.should.be |
| 6180 | 20 61 20 73 74 72 69 6e 67 20 6f 66 20 6d 61 72 6b 20 63 68 61 72 61 63 74 65 72 73 20 74 6f 20 | .a.string.of.mark.characters.to. |
| 61a0 | 6d 61 74 63 68 20 61 6e 64 20 64 65 66 61 75 6c 74 73 0a 74 6f 20 74 68 65 20 63 75 72 72 65 6e | match.and.defaults.to.the.curren |
| 61c0 | 74 20 76 61 6c 75 65 20 6f 66 20 60 74 61 62 6c 69 73 74 2d 6d 61 72 6b 65 72 2d 63 68 61 72 27 | t.value.of.`tablist-marker-char' |
| 61e0 | 20 61 73 20 61 20 73 74 72 69 6e 67 2e 22 0a 20 20 28 63 6f 6e 63 61 74 20 28 66 6f 72 6d 61 74 | .as.a.string."...(concat.(format |
| 6200 | 20 22 5e 5b 25 73 5d 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 6d | ."^[%s]"...................(or.m |
| 6220 | 61 72 6b 73 20 28 73 74 72 69 6e 67 20 74 61 62 6c 69 73 74 2d 6d 61 72 6b 65 72 2d 63 68 61 72 | arks.(string.tablist-marker-char |
| 6240 | 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 67 65 74 2d 6d 61 72 6b 2d 73 | )))))..(defun.tablist-get-mark-s |
| 6260 | 74 61 74 65 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 6d 61 72 6b 20 73 74 61 74 65 | tate.()..."Return.the.mark.state |
| 6280 | 20 6f 66 20 74 68 65 20 65 6e 74 72 79 20 61 74 20 70 6f 69 6e 74 2e 22 0a 20 20 28 73 61 76 65 | .of.the.entry.at.point."...(save |
| 62a0 | 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 28 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e | -excursion.....(beginning-of-lin |
| 62c0 | 65 29 0a 20 20 20 20 28 77 68 65 6e 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 5e 5c 5c 28 5b 5e | e).....(when.(looking-at."^\\([^ |
| 62e0 | 20 5d 5c 5c 29 22 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 6d 61 72 6b 20 28 62 75 66 66 65 | .]\\)").......(let.((mark.(buffe |
| 6300 | 72 2d 73 75 62 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | r-substring....................( |
| 6320 | 6d 61 74 63 68 2d 62 65 67 69 6e 6e 69 6e 67 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | match-beginning.1).............. |
| 6340 | 20 20 20 20 20 20 28 6d 61 74 63 68 2d 65 6e 64 20 31 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 | ......(match-end.1)))).........( |
| 6360 | 74 61 62 6c 69 73 74 2d 6d 6f 76 65 2d 74 6f 2d 6d 61 6a 6f 72 2d 63 6f 6c 75 6d 6e 29 0a 20 20 | tablist-move-to-major-column)... |
| 6380 | 20 20 20 20 20 20 28 6c 69 73 74 20 28 61 72 65 66 20 6d 61 72 6b 20 30 29 0a 20 20 20 20 20 20 | ......(list.(aref.mark.0)....... |
| 63a0 | 20 20 20 20 20 20 20 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 30 20 27 66 61 | ........(get-text-property.0.'fa |
| 63c0 | 63 65 20 6d 61 72 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 65 74 2d 74 65 78 74 | ce.mark)...............(get-text |
| 63e0 | 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 29 20 27 66 61 63 65 29 29 29 29 29 29 0a 0a 28 | -property.(point).'face))))))..( |
| 6400 | 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 70 75 74 2d 6d 61 72 6b 2d 73 74 61 74 65 20 28 73 74 | defun.tablist-put-mark-state.(st |
| 6420 | 61 74 65 29 0a 20 20 22 53 65 74 20 74 68 65 20 6d 61 72 6b 20 6f 66 20 74 68 65 20 65 6e 74 72 | ate)..."Set.the.mark.of.the.entr |
| 6440 | 79 20 61 74 20 70 6f 69 6e 74 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 53 54 41 54 45 2e 0a 0a | y.at.point.according.to.STATE... |
| 6460 | 53 54 41 54 45 20 69 73 20 61 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 6f 66 20 60 74 61 62 6c | STATE.is.a.return.value.of.`tabl |
| 6480 | 69 73 74 2d 67 65 74 2d 6d 61 72 6b 2d 73 74 61 74 65 27 2e 22 0a 20 20 28 63 6c 2d 64 65 73 74 | ist-get-mark-state'."...(cl-dest |
| 64a0 | 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 74 61 62 6c 69 73 74 2d 6d 61 72 6b 65 72 2d 63 | ructuring-bind.(tablist-marker-c |
| 64c0 | 68 61 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 61 | har...........................ta |
| 64e0 | 62 6c 69 73 74 2d 6d 61 72 6b 65 72 2d 66 61 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | blist-marker-face............... |
| 6500 | 20 20 20 20 20 20 20 20 20 20 20 20 74 61 62 6c 69 73 74 2d 6d 61 72 6b 65 64 2d 66 61 63 65 29 | ............tablist-marked-face) |
| 6520 | 0a 20 20 20 20 20 20 73 74 61 74 65 0a 20 20 20 20 28 74 61 62 6c 69 73 74 2d 70 75 74 2d 6d 61 | .......state.....(tablist-put-ma |
| 6540 | 72 6b 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 6d 61 72 6b 2d 70 72 6f 6d 70 | rk)))..(defun.tablist-mark-promp |
| 6560 | 74 20 28 61 72 67 20 69 74 65 6d 73 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 73 74 72 69 6e 67 | t.(arg.items)..."Return.a.string |
| 6580 | 20 73 75 69 74 61 62 6c 65 20 66 6f 72 20 75 73 65 20 69 6e 20 61 20 74 61 62 6c 69 73 74 20 70 | .suitable.for.use.in.a.tablist.p |
| 65a0 | 72 6f 6d 70 74 2e 22 0a 20 20 3b 3b 20 64 69 73 74 69 6e 67 75 69 73 68 2d 6f 6e 65 2d 6d 61 72 | rompt."...;;.distinguish-one-mar |
| 65c0 | 6b 65 64 20 63 61 6e 20 63 61 75 73 65 20 74 68 65 20 66 69 72 73 74 20 65 6c 65 6d 65 6e 74 20 | ked.can.cause.the.first.element. |
| 65e0 | 74 6f 20 62 65 20 6a 75 73 74 20 74 2e 0a 20 20 28 69 66 20 28 65 71 20 28 63 61 72 20 69 74 65 | to.be.just.t....(if.(eq.(car.ite |
| 6600 | 6d 73 29 20 74 29 20 28 73 65 74 71 20 69 74 65 6d 73 20 28 63 64 72 20 69 74 65 6d 73 29 29 29 | ms).t).(setq.items.(cdr.items))) |
| 6620 | 0a 20 20 28 6c 65 74 20 28 28 63 6f 75 6e 74 20 28 6c 65 6e 67 74 68 20 69 74 65 6d 73 29 29 29 | ...(let.((count.(length.items))) |
| 6640 | 0a 20 20 20 20 28 69 66 20 28 3d 20 63 6f 75 6e 74 20 31 29 0a 20 20 20 20 20 20 20 20 28 63 61 | .....(if.(=.count.1).........(ca |
| 6660 | 72 20 69 74 65 6d 73 29 0a 20 20 20 20 20 20 3b 3b 20 6d 6f 72 65 20 74 68 61 6e 20 31 20 69 74 | r.items).......;;.more.than.1.it |
| 6680 | 65 6d 3a 0a 20 20 20 20 20 20 28 69 66 20 28 69 6e 74 65 67 65 72 70 20 61 72 67 29 0a 20 20 20 | em:.......(if.(integerp.arg).... |
| 66a0 | 20 20 20 20 20 20 20 3b 3b 20 61 62 73 28 61 72 67 29 20 3d 20 63 6f 75 6e 74 0a 20 20 20 20 20 | .......;;.abs(arg).=.count...... |
| 66c0 | 20 20 20 20 20 3b 3b 20 50 65 72 68 61 70 73 20 74 68 69 73 20 69 73 20 6e 69 63 65 72 2c 20 62 | .....;;.Perhaps.this.is.nicer,.b |
| 66e0 | 75 74 20 69 74 20 61 6c 73 6f 20 74 61 6b 65 73 20 6d 6f 72 65 20 73 63 72 65 65 6e 20 73 70 61 | ut.it.also.takes.more.screen.spa |
| 6700 | 63 65 3a 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 28 66 6f 72 6d 61 74 20 22 5b 25 73 20 25 64 20 | ce:...........;;(format."[%s.%d. |
| 6720 | 69 74 65 6d 73 5d 22 20 28 69 66 20 28 3e 20 61 72 67 20 30 29 20 22 6e 65 78 74 22 20 22 70 72 | items]".(if.(>.arg.0)."next"."pr |
| 6740 | 65 76 69 6f 75 73 22 29 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 20 20 20 20 20 20 20 20 20 20 | evious")...........;;........... |
| 6760 | 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 75 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 28 66 | .............count)...........(f |
| 6780 | 6f 72 6d 61 74 20 22 5b 6e 65 78 74 20 25 64 20 69 74 65 6d 25 73 5d 22 0a 20 20 20 20 20 20 20 | ormat."[next.%d.item%s]"........ |
| 67a0 | 20 20 20 20 20 20 20 20 20 20 20 61 72 67 20 28 64 69 72 65 64 2d 70 6c 75 72 61 6c 2d 73 20 61 | ...........arg.(dired-plural-s.a |
| 67c0 | 72 67 29 29 0a 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 25 63 20 5b 25 64 20 69 74 65 | rg)).........(format."%c.[%d.ite |
| 67e0 | 6d 25 73 5d 22 20 64 69 72 65 64 2d 6d 61 72 6b 65 72 2d 63 68 61 72 20 63 6f 75 6e 74 0a 20 20 | m%s]".dired-marker-char.count... |
| 6800 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 70 6c 75 72 61 6c 2d 73 20 63 6f | ..............(dired-plural-s.co |
| 6820 | 75 6e 74 29 29 29 29 29 29 0a 0a 3b 3b 0a 3b 3b 20 2a 4d 6f 76 65 6d 65 6e 74 0a 3b 3b 0a 0a 28 | unt))))))..;;.;;.*Movement.;;..( |
| 6840 | 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 66 6f 72 77 61 72 64 2d 65 6e 74 72 79 20 28 26 6f 70 | defun.tablist-forward-entry.(&op |
| 6860 | 74 69 6f 6e 61 6c 20 6e 29 0a 20 20 22 4d 6f 76 65 20 70 61 73 74 20 74 68 65 20 6e 65 78 74 20 | tional.n)..."Move.past.the.next. |
| 6880 | 4e 20 75 6e 66 69 6c 74 65 72 65 64 20 65 6e 74 72 69 65 73 2e 22 0a 20 20 28 75 6e 6c 65 73 73 | N.unfiltered.entries."...(unless |
| 68a0 | 20 6e 20 28 73 65 74 71 20 6e 20 31 29 29 0a 20 20 28 77 68 69 6c 65 20 28 61 6e 64 20 28 3e 20 | .n.(setq.n.1))...(while.(and.(>. |
| 68c0 | 6e 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 65 6f 62 70 29 29 29 | n.0)...............(not.(eobp))) |
| 68e0 | 0a 20 20 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 29 0a 20 20 20 20 28 77 68 65 6e 20 28 69 | .....(forward-line).....(when.(i |
| 6900 | 6e 76 69 73 69 62 6c 65 2d 70 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 28 74 61 62 6c 69 | nvisible-p.(point)).......(tabli |
| 6920 | 73 74 2d 73 6b 69 70 2d 69 6e 76 69 73 69 62 6c 65 2d 65 6e 74 72 69 65 73 29 29 0a 20 20 20 20 | st-skip-invisible-entries))..... |
| 6940 | 28 63 6c 2d 64 65 63 66 20 6e 29 29 0a 20 20 28 77 68 69 6c 65 20 28 61 6e 64 20 28 3c 20 6e 20 | (cl-decf.n))...(while.(and.(<.n. |
| 6960 | 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 62 6f 62 70 29 29 29 0a 20 | 0)...............(not.(bobp))).. |
| 6980 | 20 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 2d 31 29 0a 20 20 20 20 28 77 68 65 6e 20 28 | ...(forward-line.-1).....(when.( |
| 69a0 | 69 6e 76 69 73 69 62 6c 65 2d 70 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 28 74 61 62 6c | invisible-p.(point)).......(tabl |
| 69c0 | 69 73 74 2d 73 6b 69 70 2d 69 6e 76 69 73 69 62 6c 65 2d 65 6e 74 72 69 65 73 20 74 29 29 0a 20 | ist-skip-invisible-entries.t)).. |
| 69e0 | 20 20 20 28 63 6c 2d 69 6e 63 66 20 6e 29 29 0a 20 20 6e 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 | ...(cl-incf.n))...n)..(defun.tab |
| 6a00 | 6c 69 73 74 2d 6e 65 78 74 2d 6c 69 6e 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 6e 29 0a 20 20 28 | list-next-line.(&optional.n)...( |
| 6a20 | 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 29 0a 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 3c | interactive."p")...(when.(and.(< |
| 6a40 | 20 6e 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 | .n.0)..............(save-excursi |
| 6a60 | 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 30 | on................(end-of-line.0 |
| 6a80 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 61 62 6c 69 73 74 2d 73 6b 69 70 2d 69 | )................(tablist-skip-i |
| 6aa0 | 6e 76 69 73 69 62 6c 65 2d 65 6e 74 72 69 65 73 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | nvisible-entries.t)............. |
| 6ac0 | 20 20 20 28 62 6f 62 70 29 29 29 0a 20 20 20 20 28 73 69 67 6e 61 6c 20 27 62 65 67 69 6e 6e 69 | ...(bobp))).....(signal.'beginni |
| 6ae0 | 6e 67 2d 6f 66 2d 62 75 66 66 65 72 20 6e 69 6c 29 29 0a 20 20 28 77 68 65 6e 20 28 61 6e 64 20 | ng-of-buffer.nil))...(when.(and. |
| 6b00 | 28 3e 20 6e 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 | (>.n.0)..............(save-excur |
| 6b20 | 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 61 62 6c 69 73 74 2d 66 6f 72 | sion................(tablist-for |
| 6b40 | 77 61 72 64 2d 65 6e 74 72 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 6f 62 70 | ward-entry)................(eobp |
| 6b60 | 29 29 29 0a 20 20 20 20 28 73 69 67 6e 61 6c 20 27 65 6e 64 2d 6f 66 2d 62 75 66 66 65 72 20 6e | ))).....(signal.'end-of-buffer.n |
| 6b80 | 69 6c 29 29 0a 0a 20 20 28 6c 65 74 20 28 28 63 6f 6c 20 28 74 61 62 6c 69 73 74 2d 63 75 72 72 | il))....(let.((col.(tablist-curr |
| 6ba0 | 65 6e 74 2d 63 6f 6c 75 6d 6e 29 29 29 0a 20 20 20 20 28 74 61 62 6c 69 73 74 2d 66 6f 72 77 61 | ent-column))).....(tablist-forwa |
| 6bc0 | 72 64 2d 65 6e 74 72 79 20 28 6f 72 20 6e 20 31 29 29 0a 20 20 20 20 28 69 66 20 63 6f 6c 0a 20 | rd-entry.(or.n.1)).....(if.col.. |
| 6be0 | 20 20 20 20 20 20 20 28 74 61 62 6c 69 73 74 2d 6d 6f 76 65 2d 74 6f 2d 63 6f 6c 75 6d 6e 20 63 | .......(tablist-move-to-column.c |
| 6c00 | 6f 6c 29 0a 20 20 20 20 20 20 28 74 61 62 6c 69 73 74 2d 6d 6f 76 65 2d 74 6f 2d 6d 61 6a 6f 72 | ol).......(tablist-move-to-major |
| 6c20 | 2d 63 6f 6c 75 6d 6e 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 70 72 65 76 | -column))))..(defun.tablist-prev |
| 6c40 | 69 6f 75 73 2d 6c 69 6e 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 6e 29 0a 20 20 28 69 6e 74 65 72 | ious-line.(&optional.n)...(inter |
| 6c60 | 61 63 74 69 76 65 20 22 70 22 29 0a 20 20 28 74 61 62 6c 69 73 74 2d 6e 65 78 74 2d 6c 69 6e 65 | active."p")...(tablist-next-line |
| 6c80 | 20 28 2d 20 28 6f 72 20 6e 20 31 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d | .(-.(or.n.1))))..(defun.tablist- |
| 6ca0 | 72 65 70 65 61 74 2d 6f 76 65 72 2d 6c 69 6e 65 73 20 28 61 72 67 20 66 75 6e 63 74 69 6f 6e 29 | repeat-over-lines.(arg.function) |
| 6cc0 | 0a 20 20 22 43 61 6c 6c 20 46 55 4e 43 54 49 4f 4e 20 66 6f 72 20 74 68 65 20 6e 65 78 74 20 41 | ..."Call.FUNCTION.for.the.next.A |
| 6ce0 | 52 47 20 65 6e 74 72 69 65 73 2e 22 0a 20 20 3b 3b 20 4d 6f 76 65 20 6f 75 74 20 6f 66 20 70 6f | RG.entries."...;;.Move.out.of.po |
| 6d00 | 74 65 6e 74 69 61 6c 6c 79 20 69 6e 76 69 73 62 6c 65 20 61 72 65 61 2e 0a 20 20 28 74 61 62 6c | tentially.invisble.area....(tabl |
| 6d20 | 69 73 74 2d 73 6b 69 70 2d 69 6e 76 69 73 69 62 6c 65 2d 65 6e 74 72 69 65 73 29 0a 20 20 28 6c | ist-skip-invisible-entries)...(l |
| 6d40 | 65 74 20 28 28 70 6f 73 20 28 6d 61 6b 65 2d 6d 61 72 6b 65 72 29 29 29 0a 20 20 20 20 28 77 68 | et.((pos.(make-marker))).....(wh |
| 6d60 | 69 6c 65 20 28 61 6e 64 20 28 3e 20 61 72 67 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ile.(and.(>.arg.0).............. |
| 6d80 | 20 20 20 28 6e 6f 74 20 28 65 6f 62 70 29 29 29 0a 20 20 20 20 20 20 28 63 6c 2d 64 65 63 66 20 | ...(not.(eobp))).......(cl-decf. |
| 6da0 | 61 72 67 29 0a 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 | arg).......(save-excursion...... |
| 6dc0 | 20 20 20 28 74 61 62 6c 69 73 74 2d 66 6f 72 77 61 72 64 2d 65 6e 74 72 79 29 0a 20 20 20 20 20 | ...(tablist-forward-entry)...... |
| 6de0 | 20 20 20 28 6d 6f 76 65 2d 6d 61 72 6b 65 72 20 70 6f 73 20 28 31 2b 20 28 70 6f 69 6e 74 29 29 | ...(move-marker.pos.(1+.(point)) |
| 6e00 | 29 29 0a 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 65 6f 62 70 29 0a 20 20 20 20 20 20 20 20 | )).......(unless.(eobp)......... |
| 6e20 | 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 20 28 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f | (save-excursion.(funcall.functio |
| 6e40 | 6e 29 29 29 0a 20 20 20 20 20 20 3b 3b 20 41 64 76 61 6e 63 65 20 74 6f 20 74 68 65 20 6e 65 78 | n))).......;;.Advance.to.the.nex |
| 6e60 | 74 20 6c 69 6e 65 2d 2d 61 63 74 75 61 6c 6c 79 2c 20 74 6f 20 74 68 65 20 6c 69 6e 65 20 74 68 | t.line--actually,.to.the.line.th |
| 6e80 | 61 74 20 2a 77 61 73 2a 20 6e 65 78 74 2e 0a 20 20 20 20 20 20 3b 3b 20 28 49 66 20 46 55 4e 43 | at.*was*.next........;;.(If.FUNC |
| 6ea0 | 54 49 4f 4e 20 69 6e 73 65 72 74 65 64 20 73 6f 6d 65 20 6e 65 77 20 6c 69 6e 65 73 20 69 6e 20 | TION.inserted.some.new.lines.in. |
| 6ec0 | 62 65 74 77 65 65 6e 2c 20 73 6b 69 70 20 74 68 65 6d 2e 29 0a 20 20 20 20 20 20 28 67 6f 74 6f | between,.skip.them.).......(goto |
| 6ee0 | 2d 63 68 61 72 20 70 6f 73 29 29 0a 20 20 20 20 28 77 68 69 6c 65 20 28 61 6e 64 20 28 3c 20 61 | -char.pos)).....(while.(and.(<.a |
| 6f00 | 72 67 20 30 29 20 28 6e 6f 74 20 28 62 6f 62 70 29 29 29 0a 20 20 20 20 20 20 28 63 6c 2d 69 6e | rg.0).(not.(bobp))).......(cl-in |
| 6f20 | 63 66 20 61 72 67 29 0a 20 20 20 20 20 20 28 74 61 62 6c 69 73 74 2d 66 6f 72 77 61 72 64 2d 65 | cf.arg).......(tablist-forward-e |
| 6f40 | 6e 74 72 79 20 2d 31 29 0a 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 20 28 | ntry.-1).......(save-excursion.( |
| 6f60 | 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 29 29 29 0a 20 20 20 20 28 6d 6f 76 65 2d 6d 61 | funcall.function))).....(move-ma |
| 6f80 | 72 6b 65 72 20 70 6f 73 20 6e 69 6c 29 0a 20 20 20 20 28 74 61 62 6c 69 73 74 2d 6d 6f 76 65 2d | rker.pos.nil).....(tablist-move- |
| 6fa0 | 74 6f 2d 6d 61 6a 6f 72 2d 63 6f 6c 75 6d 6e 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 | to-major-column)))..(defun.tabli |
| 6fc0 | 73 74 2d 6d 6f 76 65 2d 74 6f 2d 63 6f 6c 75 6d 6e 20 28 6e 29 0a 20 20 22 4d 6f 76 65 20 74 6f | st-move-to-column.(n)..."Move.to |
| 6fe0 | 20 74 68 65 20 4e 27 74 68 20 6c 69 73 74 20 63 6f 6c 75 6d 6e 2e 22 0a 20 20 28 69 6e 74 65 72 | .the.N'th.list.column."...(inter |
| 7000 | 61 63 74 69 76 65 20 22 70 22 29 0a 20 20 28 77 68 65 6e 20 28 74 61 62 75 6c 61 74 65 64 2d 6c | active."p")...(when.(tabulated-l |
| 7020 | 69 73 74 2d 67 65 74 2d 69 64 29 0a 20 20 20 20 28 6c 65 74 20 28 28 63 6f 6c 75 6d 6e 73 20 28 | ist-get-id).....(let.((columns.( |
| 7040 | 74 61 62 6c 69 73 74 2d 63 6f 6c 75 6d 6e 2d 6f 66 66 73 65 74 73 29 29 29 0a 20 20 20 20 20 20 | tablist-column-offsets)))....... |
| 7060 | 28 77 68 65 6e 20 28 6f 72 20 28 3c 20 6e 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (when.(or.(<.n.0)............... |
| 7080 | 20 20 28 3e 3d 20 6e 20 28 6c 65 6e 67 74 68 20 63 6f 6c 75 6d 6e 73 29 29 29 0a 20 20 20 20 20 | ..(>=.n.(length.columns)))...... |
| 70a0 | 20 20 20 28 65 72 72 6f 72 20 22 4e 6f 20 73 75 63 68 20 63 6f 6c 75 6d 6e 3a 20 25 73 22 20 6e | ...(error."No.such.column:.%s".n |
| 70c0 | 29 29 0a 20 20 20 20 20 20 28 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 29 0a 20 20 20 | )).......(beginning-of-line).... |
| 70e0 | 20 20 20 28 66 6f 72 77 61 72 64 2d 63 68 61 72 20 28 6e 74 68 20 6e 20 63 6f 6c 75 6d 6e 73 29 | ...(forward-char.(nth.n.columns) |
| 7100 | 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 70 6c 69 73 74 2d 67 65 74 20 28 6e | ).......(when.(and.(plist-get.(n |
| 7120 | 74 68 63 64 72 20 33 20 28 65 6c 74 20 74 61 62 75 6c 61 74 65 64 2d 6c 69 73 74 2d 66 6f 72 6d | thcdr.3.(elt.tabulated-list-form |
| 7140 | 61 74 20 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | at.n)).......................... |
| 7160 | 20 20 20 3a 72 69 67 68 74 2d 61 6c 69 67 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...:right-align)................ |
| 7180 | 20 20 28 6e 6f 74 20 28 3d 20 6e 20 28 31 2d 20 28 6c 65 6e 67 74 68 20 63 6f 6c 75 6d 6e 73 29 | ..(not.(=.n.(1-.(length.columns) |
| 71a0 | 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 63 68 61 72 20 28 31 2d 20 28 | )))).........(forward-char.(1-.( |
| 71c0 | 63 61 72 20 28 63 64 72 20 28 65 6c 74 20 74 61 62 75 6c 61 74 65 64 2d 6c 69 73 74 2d 66 6f 72 | car.(cdr.(elt.tabulated-list-for |
| 71e0 | 6d 61 74 20 6e 29 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 6d | mat.n)))))))))..(defun.tablist-m |
| 7200 | 6f 76 65 2d 74 6f 2d 6d 61 6a 6f 72 2d 63 6f 6c 75 6d 6e 20 28 26 6f 70 74 69 6f 6e 61 6c 20 66 | ove-to-major-column.(&optional.f |
| 7220 | 69 72 73 74 2d 73 6b 69 70 2d 69 6e 76 69 73 69 62 6c 65 2d 70 29 0a 20 20 22 4d 6f 76 65 20 74 | irst-skip-invisible-p)..."Move.t |
| 7240 | 6f 20 74 68 65 20 66 69 72 73 74 20 6d 61 6a 6f 72 20 63 6f 6c 75 6d 6e 2e 22 0a 20 20 28 69 6e | o.the.first.major.column."...(in |
| 7260 | 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 74 29 29 0a 20 20 28 77 68 65 6e 20 66 69 72 73 | teractive.(list.t))...(when.firs |
| 7280 | 74 2d 73 6b 69 70 2d 69 6e 76 69 73 69 62 6c 65 2d 70 0a 20 20 20 20 28 74 61 62 6c 69 73 74 2d | t-skip-invisible-p.....(tablist- |
| 72a0 | 73 6b 69 70 2d 69 6e 76 69 73 69 62 6c 65 2d 65 6e 74 72 69 65 73 29 29 0a 20 20 28 74 61 62 6c | skip-invisible-entries))...(tabl |
| 72c0 | 69 73 74 2d 6d 6f 76 65 2d 74 6f 2d 63 6f 6c 75 6d 6e 20 28 63 61 72 20 28 74 61 62 6c 69 73 74 | ist-move-to-column.(car.(tablist |
| 72e0 | 2d 6d 61 6a 6f 72 2d 63 6f 6c 75 6d 6e 73 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 | -major-columns))))..(defun.tabli |
| 7300 | 73 74 2d 66 6f 72 77 61 72 64 2d 63 6f 6c 75 6d 6e 20 28 6e 29 0a 20 20 22 4d 6f 76 65 20 6e 20 | st-forward-column.(n)..."Move.n. |
| 7320 | 63 6f 6c 75 6d 6e 73 20 66 6f 72 77 61 72 64 2c 20 77 68 69 6c 65 20 77 72 61 70 70 69 6e 67 20 | columns.forward,.while.wrapping. |
| 7340 | 61 72 6f 75 6e 64 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 29 0a 20 20 28 | around."...(interactive."p")...( |
| 7360 | 75 6e 6c 65 73 73 20 28 74 61 62 75 6c 61 74 65 64 2d 6c 69 73 74 2d 67 65 74 2d 69 64 29 0a 20 | unless.(tabulated-list-get-id).. |
| 7380 | 20 20 20 28 65 72 72 6f 72 20 22 4e 6f 20 65 6e 74 72 79 20 6f 6e 20 74 68 69 73 20 6c 69 6e 65 | ...(error."No.entry.on.this.line |
| 73a0 | 22 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 63 6f 6c 75 6d 6e 73 20 28 74 61 62 6c 69 73 74 2d 63 | "))...(let*.((columns.(tablist-c |
| 73c0 | 6f 6c 75 6d 6e 2d 6f 66 66 73 65 74 73 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 75 72 72 65 6e | olumn-offsets))..........(curren |
| 73e0 | 74 20 28 31 2d 20 28 6c 65 6e 67 74 68 20 63 6f 6c 75 6d 6e 73 29 29 29 29 0a 20 20 20 20 3b 3b | t.(1-.(length.columns)))).....;; |
| 7400 | 20 66 69 6e 64 20 63 75 72 72 65 6e 74 20 63 6f 6c 75 6d 6e 0a 20 20 20 20 28 77 68 69 6c 65 20 | .find.current.column.....(while. |
| 7420 | 28 61 6e 64 20 28 3e 3d 20 63 75 72 72 65 6e 74 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | (and.(>=.current.0)............. |
| 7440 | 20 20 20 20 28 3e 20 28 6e 74 68 20 63 75 72 72 65 6e 74 20 63 6f 6c 75 6d 6e 73 29 0a 20 20 20 | ....(>.(nth.current.columns).... |
| 7460 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 75 72 72 65 6e 74 2d 63 6f 6c 75 6d 6e 29 | ................(current-column) |
| 7480 | 29 29 0a 20 20 20 20 20 20 28 63 6c 2d 64 65 63 66 20 63 75 72 72 65 6e 74 29 29 0a 20 20 20 20 | )).......(cl-decf.current))..... |
| 74a0 | 3b 3b 20 74 68 65 72 65 20 6d 61 79 20 62 65 20 61 6e 20 69 6e 76 69 73 69 62 6c 65 20 73 70 65 | ;;.there.may.be.an.invisible.spe |
| 74c0 | 63 20 68 65 72 65 0a 20 20 20 20 28 77 68 65 6e 20 28 62 6f 6c 70 29 0a 20 20 20 20 20 20 28 66 | c.here.....(when.(bolp).......(f |
| 74e0 | 6f 72 77 61 72 64 2d 63 68 61 72 29 29 0a 20 20 20 20 3b 3b 20 62 65 66 6f 72 65 20 61 6e 79 20 | orward-char)).....;;.before.any. |
| 7500 | 63 6f 6c 75 6d 6e 73 0a 20 20 20 20 28 77 68 65 6e 20 28 3c 20 63 75 72 72 65 6e 74 20 30 29 0a | columns.....(when.(<.current.0). |
| 7520 | 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 2b 20 28 70 6f 69 6e 74 2d 61 74 2d 62 6f | ......(goto-char.(+.(point-at-bo |
| 7540 | 6c 29 20 28 69 66 20 28 3e 20 6e 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | l).(if.(>.n.0).................. |
| 7560 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 72 20 63 6f 6c 75 6d | ......................(car.colum |
| 7580 | 6e 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ns)............................. |
| 75a0 | 20 20 20 20 20 20 20 20 20 28 63 61 72 20 28 6c 61 73 74 20 63 6f 6c 75 6d 6e 73 29 29 29 29 29 | .........(car.(last.columns))))) |
| 75c0 | 0a 20 20 20 20 20 20 28 73 65 74 71 20 6e 20 28 2a 20 28 63 6c 2d 73 69 67 6e 75 6d 20 6e 29 20 | .......(setq.n.(*.(cl-signum.n). |
| 75e0 | 28 31 2d 20 28 61 62 73 20 6e 29 29 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 2f 3d 20 6e 20 | (1-.(abs.n))))).....(when.(/=.n. |
| 7600 | 30 29 0a 20 20 20 20 20 20 28 74 61 62 6c 69 73 74 2d 6d 6f 76 65 2d 74 6f 2d 63 6f 6c 75 6d 6e | 0).......(tablist-move-to-column |
| 7620 | 0a 20 20 20 20 20 20 20 28 6d 6f 64 20 28 2b 20 63 75 72 72 65 6e 74 20 6e 29 20 28 6c 65 6e 67 | ........(mod.(+.current.n).(leng |
| 7640 | 74 68 20 63 6f 6c 75 6d 6e 73 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 | th.columns))))))..(defun.tablist |
| 7660 | 2d 62 61 63 6b 77 61 72 64 2d 63 6f 6c 75 6d 6e 20 28 6e 29 0a 20 20 22 4d 6f 76 65 20 6e 20 63 | -backward-column.(n)..."Move.n.c |
| 7680 | 6f 6c 75 6d 6e 73 20 62 61 63 6b 77 61 72 64 2c 20 77 68 69 6c 65 20 77 72 61 70 70 69 6e 67 20 | olumns.backward,.while.wrapping. |
| 76a0 | 61 72 6f 75 6e 64 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 29 0a 20 20 28 | around."...(interactive."p")...( |
| 76c0 | 74 61 62 6c 69 73 74 2d 66 6f 72 77 61 72 64 2d 63 6f 6c 75 6d 6e 20 28 2d 20 6e 29 29 29 0a 0a | tablist-forward-column.(-.n))).. |
| 76e0 | 3b 3b 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 73 6b 69 70 2d 69 6e 76 69 73 69 62 6c 65 | ;;.(defun.tablist-skip-invisible |
| 7700 | 2d 65 6e 74 72 69 65 73 20 28 26 6f 70 74 69 6f 6e 61 6c 20 62 61 63 6b 77 61 72 64 29 0a 20 20 | -entries.(&optional.backward)... |
| 7720 | 22 53 6b 69 70 20 69 6e 76 69 73 69 62 6c 65 20 65 6e 74 72 69 65 73 20 42 41 43 4b 57 41 52 44 | "Skip.invisible.entries.BACKWARD |
| 7740 | 20 6f 72 20 66 6f 72 77 61 72 64 2e 0a 0a 44 6f 20 6e 6f 74 68 69 6e 67 2c 20 69 66 20 74 68 65 | .or.forward...Do.nothing,.if.the |
| 7760 | 20 65 6e 74 72 79 20 61 74 20 70 6f 69 6e 74 20 69 73 20 76 69 73 69 62 6c 65 2e 20 20 4f 74 68 | .entry.at.point.is.visible...Oth |
| 7780 | 65 72 77 69 73 65 20 6d 6f 76 65 20 74 6f 0a 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 | erwise.move.to.the.beginning.of. |
| 77a0 | 74 68 65 20 6e 65 78 74 20 76 69 73 69 62 6c 65 20 65 6e 74 72 79 20 69 6e 20 74 68 65 20 64 69 | the.next.visible.entry.in.the.di |
| 77c0 | 72 65 63 74 69 6f 6e 0a 64 65 74 65 72 6d 69 6e 65 64 20 62 79 20 42 41 43 4b 57 41 52 44 2e 0a | rection.determined.by.BACKWARD.. |
| 77e0 | 0a 52 65 74 75 72 6e 20 74 2c 20 69 66 20 70 6f 69 6e 74 20 69 73 20 6e 6f 77 20 69 6e 20 61 20 | .Return.t,.if.point.is.now.in.a. |
| 7800 | 76 69 73 69 62 6c 65 20 61 72 65 61 2e 22 0a 0a 20 20 28 63 6f 6e 64 0a 20 20 20 28 28 61 6e 64 | visible.area."....(cond....((and |
| 7820 | 20 62 61 63 6b 77 61 72 64 0a 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 62 6f 62 70 29 29 0a | .backward..........(not.(bobp)). |
| 7840 | 20 20 20 20 20 20 20 20 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 | .........(get-text-property.(poi |
| 7860 | 6e 74 29 20 27 69 6e 76 69 73 69 62 6c 65 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 67 65 74 2d | nt).'invisible)).....(when.(get- |
| 7880 | 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 31 2d 20 28 70 6f 69 6e 74 29 29 20 27 69 6e 76 69 | text-property.(1-.(point)).'invi |
| 78a0 | 73 69 62 6c 65 29 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 72 65 76 69 6f 75 | sible).......(goto-char.(previou |
| 78c0 | 73 2d 73 69 6e 67 6c 65 2d 70 72 6f 70 65 72 74 79 2d 63 68 61 6e 67 65 0a 20 20 20 20 20 20 20 | s-single-property-change........ |
| 78e0 | 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 69 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...........(point).............. |
| 7900 | 20 20 20 20 20 27 69 6e 76 69 73 69 62 6c 65 20 6e 69 6c 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 | .....'invisible.nil.(point-min)) |
| 7920 | 29 29 0a 20 20 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 2d 31 29 29 0a 20 20 20 28 28 61 | )).....(forward-line.-1))....((a |
| 7940 | 6e 64 20 28 6e 6f 74 20 62 61 63 6b 77 61 72 64 29 0a 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 | nd.(not.backward)..........(not. |
| 7960 | 28 65 6f 62 70 29 29 0a 20 20 20 20 20 20 20 20 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 | (eobp))..........(get-text-prope |
| 7980 | 72 74 79 20 28 70 6f 69 6e 74 29 20 27 69 6e 76 69 73 69 62 6c 65 29 29 0a 20 20 20 20 28 67 6f | rty.(point).'invisible)).....(go |
| 79a0 | 74 6f 2d 63 68 61 72 20 28 6e 65 78 74 2d 73 69 6e 67 6c 65 2d 70 72 6f 70 65 72 74 79 2d 63 68 | to-char.(next-single-property-ch |
| 79c0 | 61 6e 67 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 69 6e 74 29 0a 20 20 20 | ange.................(point).... |
| 79e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 27 69 6e 76 69 73 69 62 6c 65 20 6e 69 6c 20 28 70 6f 69 | .............'invisible.nil.(poi |
| 7a00 | 6e 74 2d 6d 61 78 29 29 29 29 29 0a 20 20 28 6e 6f 74 20 28 69 6e 76 69 73 69 62 6c 65 2d 70 20 | nt-max)))))...(not.(invisible-p. |
| 7a20 | 28 70 6f 69 6e 74 29 29 29 29 0a 0a 3b 3b 0a 3b 3b 20 2a 4f 70 65 72 61 74 69 6f 6e 73 0a 3b 3b | (point))))..;;.;;.*Operations.;; |
| 7a40 | 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 79 65 73 2d 6f 72 2d 6e 6f 2d 70 20 28 6f 70 | ..(defun.tablist-yes-or-no-p.(op |
| 7a60 | 65 72 61 74 69 6f 6e 20 61 72 67 20 69 74 65 6d 73 29 0a 20 20 22 51 75 65 72 79 20 74 68 65 20 | eration.arg.items)..."Query.the. |
| 7a80 | 75 73 65 72 20 77 68 65 74 68 65 72 20 74 6f 20 70 72 6f 63 65 65 64 20 77 69 74 68 20 73 6f 6d | user.whether.to.proceed.with.som |
| 7aa0 | 65 20 6f 70 65 72 61 74 69 6f 6e 2e 0a 0a 4f 70 65 72 61 74 69 6f 6e 20 73 68 6f 75 6c 64 20 62 | e.operation...Operation.should.b |
| 7ac0 | 65 20 61 20 73 79 6d 62 6f 6c 20 6f 72 20 73 74 72 69 6e 67 20 64 65 73 63 72 69 62 69 6e 67 20 | e.a.symbol.or.string.describing. |
| 7ae0 | 74 68 65 20 6f 70 65 72 61 74 69 6f 6e 2c 0a 41 52 47 20 74 68 65 20 70 72 65 66 69 78 2d 61 72 | the.operation,.ARG.the.prefix-ar |
| 7b00 | 67 20 6f 66 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 75 73 65 64 20 69 6e 0a 60 74 61 62 6c 69 73 | g.of.the.command.used.in.`tablis |
| 7b20 | 74 2d 67 65 74 2d 6d 61 72 6b 65 64 2d 69 74 65 6d 73 27 20 6f 72 20 65 6c 73 65 77 68 65 72 65 | t-get-marked-items'.or.elsewhere |
| 7b40 | 2c 20 74 6f 20 67 65 74 20 74 68 65 20 49 54 45 4d 53 2e 22 0a 0a 20 20 28 6c 65 74 20 28 28 70 | ,.to.get.the.ITEMS."....(let.((p |
| 7b60 | 70 2d 69 74 65 6d 73 20 28 6d 61 70 63 61 72 20 27 74 61 62 6c 69 73 74 2d 70 72 65 74 74 79 2d | p-items.(mapcar.'tablist-pretty- |
| 7b80 | 70 72 69 6e 74 2d 65 6e 74 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | print-entry..................... |
| 7ba0 | 20 20 20 20 20 20 28 6d 61 70 63 61 72 20 27 63 64 72 20 69 74 65 6d 73 29 29 29 0a 20 20 20 20 | ......(mapcar.'cdr.items)))..... |
| 7bc0 | 20 20 20 20 64 69 72 65 64 2d 6e 6f 2d 63 6f 6e 66 69 72 6d 0a 20 20 20 20 20 20 20 20 28 6f 70 | ....dired-no-confirm.........(op |
| 7be0 | 2d 73 74 72 20 28 75 70 63 61 73 65 2d 69 6e 69 74 69 61 6c 73 0a 20 20 20 20 20 20 20 20 20 20 | -str.(upcase-initials........... |
| 7c00 | 20 20 20 20 20 20 20 28 69 66 20 28 73 74 72 69 6e 67 70 20 6f 70 65 72 61 74 69 6f 6e 29 0a 20 | .......(if.(stringp.operation).. |
| 7c20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 70 65 72 61 74 69 6f 6e 0a 20 20 | ....................operation... |
| 7c40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 6f 70 | .................(symbol-name.op |
| 7c60 | 65 72 61 74 69 6f 6e 29 29 29 29 29 0a 20 20 20 20 28 64 69 72 65 64 2d 6d 61 72 6b 2d 70 6f 70 | eration))))).....(dired-mark-pop |
| 7c80 | 2d 75 70 0a 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 20 2a 25 73 2a 22 20 6f 70 2d 73 74 72 29 | -up......(format.".*%s*".op-str) |
| 7ca0 | 20 6e 69 6c 0a 20 20 20 20 20 70 70 2d 69 74 65 6d 73 0a 20 20 20 20 20 64 69 72 65 64 2d 64 65 | .nil......pp-items......dired-de |
| 7cc0 | 6c 65 74 69 6f 6e 2d 63 6f 6e 66 69 72 6d 65 72 0a 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 25 | letion-confirmer......(format."% |
| 7ce0 | 73 20 25 73 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 70 2d 73 74 72 0a 20 20 20 20 20 | s.%s."..............op-str...... |
| 7d00 | 20 20 20 20 20 20 20 20 28 74 61 62 6c 69 73 74 2d 6d 61 72 6b 2d 70 72 6f 6d 70 74 20 61 72 67 | ........(tablist-mark-prompt.arg |
| 7d20 | 20 70 70 2d 69 74 65 6d 73 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 6f | .pp-items)))))..(defun.tablist-o |
| 7d40 | 70 65 72 61 74 69 6f 6e 2d 61 76 61 69 6c 61 62 6c 65 2d 70 20 28 6f 70 29 0a 20 20 28 61 6e 64 | peration-available-p.(op)...(and |
| 7d60 | 20 28 66 75 6e 63 74 69 6f 6e 70 20 74 61 62 6c 69 73 74 2d 6f 70 65 72 61 74 69 6f 6e 73 2d 66 | .(functionp.tablist-operations-f |
| 7d80 | 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 28 6d 65 6d 71 20 6f 70 20 28 66 75 6e 63 61 6c | unction)........(memq.op.(funcal |
| 7da0 | 6c 20 74 61 62 6c 69 73 74 2d 6f 70 65 72 61 74 69 6f 6e 73 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 | l.tablist-operations-function... |
| 7dc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 73 75 70 70 6f 72 74 65 | .......................'supporte |
| 7de0 | 64 2d 6f 70 65 72 61 74 69 6f 6e 73 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 | d-operations))))..(defun.tablist |
| 7e00 | 2d 64 6f 2d 64 65 6c 65 74 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 29 0a 20 20 22 44 65 | -do-delete.(&optional.arg)..."De |
| 7e20 | 6c 65 74 65 20 41 52 47 20 65 6e 74 72 69 65 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 | lete.ARG.entries."...(interactiv |
| 7e40 | 65 20 22 50 22 29 0a 20 20 28 75 6e 6c 65 73 73 20 28 74 61 62 6c 69 73 74 2d 6f 70 65 72 61 74 | e."P")...(unless.(tablist-operat |
| 7e60 | 69 6f 6e 2d 61 76 61 69 6c 61 62 6c 65 2d 70 20 27 64 65 6c 65 74 65 29 0a 20 20 20 20 28 65 72 | ion-available-p.'delete).....(er |
| 7e80 | 72 6f 72 20 22 44 65 6c 65 74 69 6e 67 20 65 6e 74 72 69 65 73 20 69 73 20 6e 6f 74 20 61 76 61 | ror."Deleting.entries.is.not.ava |
| 7ea0 | 69 6c 61 62 6c 65 20 69 6e 20 74 68 69 73 20 62 75 66 66 65 72 22 29 29 0a 20 20 28 6c 65 74 20 | ilable.in.this.buffer"))...(let. |
| 7ec0 | 28 28 69 74 65 6d 73 20 28 74 61 62 6c 69 73 74 2d 67 65 74 2d 6d 61 72 6b 65 64 2d 69 74 65 6d | ((items.(tablist-get-marked-item |
| 7ee0 | 73 20 61 72 67 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 74 61 62 6c 69 73 74 2d 79 65 73 2d | s.arg))).....(when.(tablist-yes- |
| 7f00 | 6f 72 2d 6e 6f 2d 70 20 27 64 65 6c 65 74 65 20 61 72 67 20 69 74 65 6d 73 29 0a 20 20 20 20 20 | or-no-p.'delete.arg.items)...... |
| 7f20 | 20 28 74 61 62 6c 69 73 74 2d 64 6f 2d 6b 69 6c 6c 2d 6c 69 6e 65 73 20 61 72 67 29 0a 20 20 20 | .(tablist-do-kill-lines.arg).... |
| 7f40 | 20 20 20 28 66 75 6e 63 61 6c 6c 20 74 61 62 6c 69 73 74 2d 6f 70 65 72 61 74 69 6f 6e 73 2d 66 | ...(funcall.tablist-operations-f |
| 7f60 | 75 6e 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 64 65 6c 65 74 65 20 28 | unction................'delete.( |
| 7f80 | 6d 61 70 63 61 72 20 27 63 61 72 20 69 74 65 6d 73 29 29 0a 20 20 20 20 20 20 28 74 61 62 6c 69 | mapcar.'car.items)).......(tabli |
| 7fa0 | 73 74 2d 6d 6f 76 65 2d 74 6f 2d 6d 61 6a 6f 72 2d 63 6f 6c 75 6d 6e 29 29 29 29 0a 0a 28 64 65 | st-move-to-major-column))))..(de |
| 7fc0 | 66 75 6e 20 74 61 62 6c 69 73 74 2d 64 6f 2d 66 6c 61 67 67 65 64 2d 64 65 6c 65 74 65 20 28 26 | fun.tablist-do-flagged-delete.(& |
| 7fe0 | 6f 70 74 69 6f 6e 61 6c 20 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 22 44 65 6c 65 74 65 20 | optional.interactive)..."Delete. |
| 8000 | 61 6c 6c 20 65 6e 74 72 69 65 73 20 6d 61 72 6b 65 64 20 77 69 74 68 20 61 20 44 2e 22 0a 20 20 | all.entries.marked.with.a.D."... |
| 8020 | 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 29 0a 20 20 28 6c 65 74 2a 20 28 28 74 61 62 6c | (interactive."p")...(let*.((tabl |
| 8040 | 69 73 74 2d 6d 61 72 6b 65 72 2d 63 68 61 72 20 3f 44 29 29 0a 20 20 20 20 28 69 66 20 28 73 61 | ist-marker-char.?D)).....(if.(sa |
| 8060 | 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 | ve-excursion...........(goto-cha |
| 8080 | 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 72 65 2d 73 65 61 | r.(point-min))...........(re-sea |
| 80a0 | 72 63 68 2d 66 6f 72 77 61 72 64 20 28 74 61 62 6c 69 73 74 2d 6d 61 72 6b 65 72 2d 72 65 67 65 | rch-forward.(tablist-marker-rege |
| 80c0 | 78 70 29 20 6e 69 6c 20 74 29 29 0a 20 20 20 20 20 20 20 20 28 74 61 62 6c 69 73 74 2d 64 6f 2d | xp).nil.t)).........(tablist-do- |
| 80e0 | 64 65 6c 65 74 65 29 0a 20 20 20 20 20 20 28 6f 72 20 28 6e 6f 74 20 69 6e 74 65 72 61 63 74 69 | delete).......(or.(not.interacti |
| 8100 | 76 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 28 4e 6f 20 64 65 6c 65 | ve)...........(message."(No.dele |
| 8120 | 74 69 6f 6e 73 20 72 65 71 75 65 73 74 65 64 29 22 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 | tions.requested)")))))..(defun.t |
| 8140 | 61 62 6c 69 73 74 2d 64 6f 2d 6b 69 6c 6c 2d 6c 69 6e 65 73 20 28 26 6f 70 74 69 6f 6e 61 6c 20 | ablist-do-kill-lines.(&optional. |
| 8160 | 61 72 67 20 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 22 52 65 6d 6f 76 65 20 41 52 47 20 6c | arg.interactive)..."Remove.ARG.l |
| 8180 | 69 6e 65 73 20 66 72 6f 6d 20 74 68 65 20 64 69 73 70 6c 61 79 2e 22 0a 20 20 28 69 6e 74 65 72 | ines.from.the.display."...(inter |
| 81a0 | 61 63 74 69 76 65 20 28 6c 69 73 74 20 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 20 | active.(list.current-prefix-arg. |
| 81c0 | 74 29 29 0a 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 28 6c 65 74 20 28 | t))...(save-excursion.....(let.( |
| 81e0 | 28 70 6f 73 69 74 69 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 20 28 74 61 62 6c 69 73 74 2d 6d | (positions............(tablist-m |
| 8200 | 61 70 2d 6f 76 65 72 2d 6d 61 72 6b 73 20 27 70 6f 69 6e 74 20 61 72 67 29 29 0a 20 20 20 20 20 | ap-over-marks.'point.arg))...... |
| 8220 | 20 20 20 20 20 28 69 6e 68 69 62 69 74 2d 72 65 61 64 2d 6f 6e 6c 79 20 74 29 29 0a 20 20 20 20 | .....(inhibit-read-only.t))..... |
| 8240 | 20 20 28 64 6f 6c 69 73 74 20 28 70 6f 73 20 70 6f 73 69 74 69 6f 6e 73 29 0a 20 20 20 20 20 20 | ..(dolist.(pos.positions)....... |
| 8260 | 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 70 6f 73 29 0a 20 20 20 20 20 20 20 20 28 74 61 62 75 6c | ..(goto-char.pos).........(tabul |
| 8280 | 61 74 65 64 2d 6c 69 73 74 2d 64 65 6c 65 74 65 2d 65 6e 74 72 79 29 29 0a 20 20 20 20 20 20 28 | ated-list-delete-entry)).......( |
| 82a0 | 77 68 65 6e 20 69 6e 74 65 72 61 63 74 69 76 65 0a 20 20 20 20 20 20 20 20 28 6d 65 73 73 61 67 | when.interactive.........(messag |
| 82c0 | 65 20 28 66 6f 72 6d 61 74 20 22 4b 69 6c 6c 65 64 20 25 64 20 6c 69 6e 65 25 73 22 0a 20 20 20 | e.(format."Killed.%d.line%s".... |
| 82e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 6e 67 74 68 20 70 6f | ......................(length.po |
| 8300 | 73 69 74 69 6f 6e 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | sitions)........................ |
| 8320 | 20 20 28 64 69 72 65 64 2d 70 6c 75 72 61 6c 2d 73 20 28 6c 65 6e 67 74 68 20 70 6f 73 69 74 69 | ..(dired-plural-s.(length.positi |
| 8340 | 6f 6e 73 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 64 6f 2d 6f | ons))))))))..(defun.tablist-do-o |
| 8360 | 70 65 72 61 74 69 6f 6e 20 28 61 72 67 20 66 6e 20 6f 70 65 72 61 74 69 6f 6e 20 26 6f 70 74 69 | peration.(arg.fn.operation.&opti |
| 8380 | 6f 6e 61 6c 20 64 65 6c 65 74 65 2d 70 20 72 65 76 65 72 74 2d 70 29 0a 20 20 22 4f 70 65 72 61 | onal.delete-p.revert-p)..."Opera |
| 83a0 | 74 65 20 6f 6e 20 6d 61 72 6b 65 64 20 69 74 65 6d 73 2e 0a 0a 41 52 47 20 73 68 6f 75 6c 64 20 | te.on.marked.items...ARG.should. |
| 83c0 | 62 65 20 74 68 65 20 60 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 27 2c 20 46 4e 20 | be.the.`current-prefix-arg',.FN. |
| 83e0 | 69 73 20 61 20 66 75 6e 63 74 69 6f 6e 20 6f 66 20 74 77 6f 0a 61 72 67 75 6d 65 6e 74 73 20 5c | is.a.function.of.two.arguments.\ |
| 8400 | 28 49 44 20 45 4e 54 52 59 5c 29 20 68 61 6e 64 6c 69 6e 67 20 74 68 65 20 6f 70 65 72 61 74 69 | (ID.ENTRY\).handling.the.operati |
| 8420 | 6f 6e 2e 20 20 49 74 20 67 65 74 73 20 63 61 6c 6c 65 64 0a 72 65 70 65 61 74 6c 79 20 77 69 74 | on...It.gets.called.repeatly.wit |
| 8440 | 68 20 61 6c 6c 20 6d 61 72 6b 65 64 20 69 74 65 6d 73 2e 20 20 4f 50 45 52 41 54 49 4f 4e 20 69 | h.all.marked.items...OPERATION.i |
| 8460 | 73 20 61 20 73 79 6d 62 6f 6c 20 6f 72 20 73 74 72 69 6e 67 0a 64 65 73 63 72 69 62 69 6e 67 20 | s.a.symbol.or.string.describing. |
| 8480 | 74 68 65 20 6f 70 65 72 61 74 69 6f 6e 2c 20 69 74 20 69 73 20 75 73 65 64 20 66 6f 72 20 64 69 | the.operation,.it.is.used.for.di |
| 84a0 | 73 70 6c 61 79 2e 0a 0a 4f 70 74 69 6f 6e 61 6c 20 6e 6f 6e 2d 6e 69 6c 20 44 45 4c 45 54 45 2d | splay...Optional.non-nil.DELETE- |
| 84c0 | 50 20 6d 65 61 6e 73 2c 20 72 65 6d 6f 76 65 20 74 68 65 20 69 74 65 6d 73 20 66 72 6f 6d 20 74 | P.means,.remove.the.items.from.t |
| 84e0 | 68 65 20 64 69 73 70 6c 61 79 2e 0a 4f 70 74 69 6f 6e 61 6c 20 52 45 56 45 52 54 2d 50 20 6d 65 | he.display..Optional.REVERT-P.me |
| 8500 | 61 6e 73 2c 20 72 65 76 65 72 74 20 74 68 65 20 64 69 73 70 6c 61 79 20 61 66 74 65 72 77 61 72 | ans,.revert.the.display.afterwar |
| 8520 | 64 73 2e 22 0a 20 20 28 6c 65 74 20 28 28 69 74 65 6d 73 20 28 74 61 62 6c 69 73 74 2d 67 65 74 | ds."...(let.((items.(tablist-get |
| 8540 | 2d 6d 61 72 6b 65 64 2d 69 74 65 6d 73 20 61 72 67 29 29 29 0a 20 20 20 20 28 75 6e 6c 65 73 73 | -marked-items.arg))).....(unless |
| 8560 | 20 69 74 65 6d 73 0a 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 4e 6f 20 69 74 65 6d 73 20 6d 61 | .items.......(error."No.items.ma |
| 8580 | 72 6b 65 64 22 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 74 61 62 6c 69 73 74 2d 79 65 73 2d 6f | rked")).....(when.(tablist-yes-o |
| 85a0 | 72 2d 6e 6f 2d 70 20 6f 70 65 72 61 74 69 6f 6e 20 61 72 67 20 69 74 65 6d 73 29 0a 20 20 20 20 | r-no-p.operation.arg.items)..... |
| 85c0 | 20 20 28 77 68 65 6e 20 64 65 6c 65 74 65 2d 70 0a 20 20 20 20 20 20 20 20 28 74 61 62 6c 69 73 | ..(when.delete-p.........(tablis |
| 85e0 | 74 2d 64 6f 2d 6b 69 6c 6c 2d 6c 69 6e 65 73 20 61 72 67 29 29 0a 20 20 20 20 20 20 28 64 6f 6c | t-do-kill-lines.arg)).......(dol |
| 8600 | 69 73 74 20 28 69 74 65 6d 20 69 74 65 6d 73 29 0a 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c | ist.(item.items).........(funcal |
| 8620 | 6c 20 66 6e 20 28 63 61 72 20 69 74 65 6d 29 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 72 65 | l.fn.(car.item))).......(when.re |
| 8640 | 76 65 72 74 2d 70 0a 20 20 20 20 20 20 20 20 28 74 61 62 6c 69 73 74 2d 72 65 76 65 72 74 29 29 | vert-p.........(tablist-revert)) |
| 8660 | 0a 20 20 20 20 20 20 28 74 61 62 6c 69 73 74 2d 6d 6f 76 65 2d 74 6f 2d 6d 61 6a 6f 72 2d 63 6f | .......(tablist-move-to-major-co |
| 8680 | 6c 75 6d 6e 29 29 29 29 0a 0a 3b 3b 0a 3b 3b 20 2a 45 64 69 74 69 6e 67 0a 3b 3b 0a 28 64 65 66 | lumn))))..;;.;;.*Editing.;;.(def |
| 86a0 | 76 61 72 20 74 61 62 6c 69 73 74 2d 65 64 69 74 2d 63 6f 6c 75 6d 6e 2d 6d 69 6e 6f 72 2d 6d 6f | var.tablist-edit-column-minor-mo |
| 86c0 | 64 65 2d 6d 61 70 0a 20 20 28 6c 65 74 20 28 28 6b 6d 61 70 20 28 6d 61 6b 65 2d 73 70 61 72 73 | de-map...(let.((kmap.(make-spars |
| 86e0 | 65 2d 6b 65 79 6d 61 70 29 29 29 0a 20 20 20 20 28 73 65 74 2d 6b 65 79 6d 61 70 2d 70 61 72 65 | e-keymap))).....(set-keymap-pare |
| 8700 | 6e 74 20 6b 6d 61 70 20 28 63 75 72 72 65 6e 74 2d 67 6c 6f 62 61 6c 2d 6d 61 70 29 29 0a 20 20 | nt.kmap.(current-global-map))... |
| 8720 | 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6b 6d 61 70 20 5b 72 65 6d 61 70 20 73 65 6c 66 2d 69 | ..(define-key.kmap.[remap.self-i |
| 8740 | 6e 73 65 72 74 2d 63 6f 6d 6d 61 6e 64 5d 20 27 73 65 6c 66 2d 69 6e 73 65 72 74 2d 63 6f 6d 6d | nsert-command].'self-insert-comm |
| 8760 | 61 6e 64 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6b 6d 61 70 20 22 5c 72 22 20 27 | and).....(define-key.kmap."\r".' |
| 8780 | 74 61 62 6c 69 73 74 2d 65 64 69 74 2d 63 6f 6c 75 6d 6e 2d 63 6f 6d 6d 69 74 29 0a 20 20 20 20 | tablist-edit-column-commit)..... |
| 87a0 | 28 64 65 66 69 6e 65 2d 6b 65 79 20 6b 6d 61 70 20 28 6b 62 64 20 22 43 2d 67 22 29 20 27 74 61 | (define-key.kmap.(kbd."C-g").'ta |
| 87c0 | 62 6c 69 73 74 2d 65 64 69 74 2d 63 6f 6c 75 6d 6e 2d 71 75 69 74 29 0a 20 20 20 20 28 64 65 66 | blist-edit-column-quit).....(def |
| 87e0 | 69 6e 65 2d 6b 65 79 20 6b 6d 61 70 20 28 6b 62 64 20 22 43 2d 63 20 43 2d 63 22 29 20 27 74 61 | ine-key.kmap.(kbd."C-c.C-c").'ta |
| 8800 | 62 6c 69 73 74 2d 65 64 69 74 2d 63 6f 6c 75 6d 6e 2d 63 6f 6d 6d 69 74 29 0a 20 20 20 20 28 64 | blist-edit-column-commit).....(d |
| 8820 | 65 66 69 6e 65 2d 6b 65 79 20 6b 6d 61 70 20 28 6b 62 64 20 22 43 2d 63 20 43 2d 71 22 29 20 27 | efine-key.kmap.(kbd."C-c.C-q").' |
| 8840 | 74 61 62 6c 69 73 74 2d 65 64 69 74 2d 63 6f 6c 75 6d 6e 2d 71 75 69 74 29 0a 20 20 20 20 28 64 | tablist-edit-column-quit).....(d |
| 8860 | 65 66 69 6e 65 2d 6b 65 79 20 6b 6d 61 70 20 22 5c 74 22 20 27 74 61 62 6c 69 73 74 2d 65 64 69 | efine-key.kmap."\t".'tablist-edi |
| 8880 | 74 2d 63 6f 6c 75 6d 6e 2d 63 6f 6d 70 6c 65 74 65 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b | t-column-complete).....(define-k |
| 88a0 | 65 79 20 6b 6d 61 70 20 28 6b 62 64 20 22 54 41 42 22 29 20 27 74 61 62 6c 69 73 74 2d 65 64 69 | ey.kmap.(kbd."TAB").'tablist-edi |
| 88c0 | 74 2d 63 6f 6c 75 6d 6e 2d 63 6f 6d 70 6c 65 74 65 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b | t-column-complete).....(define-k |
| 88e0 | 65 79 20 6b 6d 61 70 20 5b 72 65 6d 61 70 20 65 6e 64 2d 6f 66 2d 62 75 66 66 65 72 5d 20 27 65 | ey.kmap.[remap.end-of-buffer].'e |
| 8900 | 6e 64 2d 6f 66 2d 6c 69 6e 65 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6b 6d 61 70 | nd-of-line).....(define-key.kmap |
| 8920 | 20 5b 72 65 6d 61 70 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 62 75 66 66 65 72 5d 20 27 62 65 | .[remap.beginning-of-buffer].'be |
| 8940 | 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 | ginning-of-line).....(define-key |
| 8960 | 20 6b 6d 61 70 20 5b 72 65 6d 61 70 20 6d 61 72 6b 2d 77 68 6f 6c 65 2d 62 75 66 66 65 72 5d 20 | .kmap.[remap.mark-whole-buffer]. |
| 8980 | 27 74 61 62 6c 69 73 74 2d 65 64 69 74 2d 63 6f 6c 75 6d 6e 2d 6d 61 72 6b 2d 66 69 65 6c 64 29 | 'tablist-edit-column-mark-field) |
| 89a0 | 0a 20 20 20 20 6b 6d 61 70 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 20 | .....kmap))..(define-minor-mode. |
| 89c0 | 74 61 62 6c 69 73 74 2d 65 64 69 74 2d 63 6f 6c 75 6d 6e 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 0a 20 | tablist-edit-column-minor-mode.. |
| 89e0 | 20 22 22 20 6e 69 6c 20 6e 69 6c 20 6e 69 6c 0a 20 20 28 75 6e 6c 65 73 73 20 28 6f 72 20 74 61 | ."".nil.nil.nil...(unless.(or.ta |
| 8a00 | 62 6c 69 73 74 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | blist-minor-mode...............( |
| 8a20 | 64 65 72 69 76 65 64 2d 6d 6f 64 65 2d 70 20 27 74 61 62 6c 69 73 74 2d 6d 6f 64 65 29 29 0a 20 | derived-mode-p.'tablist-mode)).. |
| 8a40 | 20 20 20 28 65 72 72 6f 72 20 22 4e 6f 74 20 69 6e 20 61 20 74 61 62 6c 69 73 74 20 62 75 66 66 | ...(error."Not.in.a.tablist.buff |
| 8a60 | 65 72 22 29 29 0a 20 20 28 63 6f 6e 64 0a 20 20 20 28 74 61 62 6c 69 73 74 2d 65 64 69 74 2d 63 | er"))...(cond....(tablist-edit-c |
| 8a80 | 6f 6c 75 6d 6e 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 0a 20 20 20 20 28 61 64 64 2d 74 6f 2d 6c 69 73 | olumn-minor-mode.....(add-to-lis |
| 8aa0 | 74 20 27 6d 6f 64 65 2d 6c 69 6e 65 2d 6d 69 73 63 2d 69 6e 66 6f 0a 20 20 20 20 20 20 20 20 20 | t.'mode-line-misc-info.......... |
| 8ac0 | 20 20 20 20 20 20 20 20 27 28 74 61 62 6c 69 73 74 2d 65 64 69 74 2d 63 6f 6c 75 6d 6e 2d 6d 69 | ........'(tablist-edit-column-mi |
| 8ae0 | 6e 6f 72 2d 6d 6f 64 65 20 22 5b 65 64 69 74 5d 22 29 29 0a 20 20 20 20 28 61 64 64 2d 68 6f 6f | nor-mode."[edit]")).....(add-hoo |
| 8b00 | 6b 20 27 70 6f 73 74 2d 63 6f 6d 6d 61 6e 64 2d 68 6f 6f 6b 20 27 74 61 62 6c 69 73 74 2d 65 64 | k.'post-command-hook.'tablist-ed |
| 8b20 | 69 74 2d 63 6f 6c 75 6d 6e 2d 63 6f 6e 73 74 72 61 69 6e 2d 70 6f 69 6e 74 20 6e 69 6c 20 74 29 | it-column-constrain-point.nil.t) |
| 8b40 | 0a 20 20 20 20 28 72 65 61 64 2d 6f 6e 6c 79 2d 6d 6f 64 65 20 2d 31 29 29 0a 20 20 20 28 74 0a | .....(read-only-mode.-1))....(t. |
| 8b60 | 20 20 20 20 28 72 65 6d 6f 76 65 2d 68 6f 6f 6b 20 27 70 6f 73 74 2d 63 6f 6d 6d 61 6e 64 2d 68 | ....(remove-hook.'post-command-h |
| 8b80 | 6f 6f 6b 20 27 74 61 62 6c 69 73 74 2d 65 64 69 74 2d 63 6f 6c 75 6d 6e 2d 63 6f 6e 73 74 72 61 | ook.'tablist-edit-column-constra |
| 8ba0 | 69 6e 2d 70 6f 69 6e 74 20 74 29 0a 20 20 20 20 28 72 65 61 64 2d 6f 6e 6c 79 2d 6d 6f 64 65 20 | in-point.t).....(read-only-mode. |
| 8bc0 | 31 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 65 64 69 74 2d 63 6f 6c 75 6d | 1))))..(defun.tablist-edit-colum |
| 8be0 | 6e 20 28 26 6f 70 74 69 6f 6e 61 6c 20 6e 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 | n.(&optional.n)...(interactive." |
| 8c00 | 50 22 29 0a 20 20 28 75 6e 6c 65 73 73 20 6e 20 28 73 65 74 71 20 6e 20 28 74 61 62 6c 69 73 74 | P")...(unless.n.(setq.n.(tablist |
| 8c20 | 2d 63 75 72 72 65 6e 74 2d 63 6f 6c 75 6d 6e 29 29 29 0a 20 20 28 74 61 62 6c 69 73 74 2d 61 73 | -current-column)))...(tablist-as |
| 8c40 | 73 65 72 74 2d 63 6f 6c 75 6d 6e 2d 65 64 69 74 61 62 6c 65 20 6e 29 0a 20 20 28 6c 65 74 2a 20 | sert-column-editable.n)...(let*. |
| 8c60 | 28 28 6f 66 66 73 65 74 73 20 28 61 70 70 65 6e 64 20 28 74 61 62 6c 69 73 74 2d 63 6f 6c 75 6d | ((offsets.(append.(tablist-colum |
| 8c80 | 6e 2d 6f 66 66 73 65 74 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | n-offsets)...................... |
| 8ca0 | 20 20 20 20 20 28 6c 69 73 74 20 28 2d 20 28 70 6f 69 6e 74 2d 61 74 2d 65 6f 6c 29 0a 20 20 20 | .....(list.(-.(point-at-eol).... |
| 8cc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 8ce0 | 28 70 6f 69 6e 74 2d 61 74 2d 62 6f 6c 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 62 65 67 | (point-at-bol)))))..........(beg |
| 8d00 | 20 28 2b 20 28 70 6f 69 6e 74 2d 61 74 2d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(+.(point-at-bol).............. |
| 8d20 | 20 20 20 20 28 6e 74 68 20 6e 20 6f 66 66 73 65 74 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 | ....(nth.n.offsets)))..........( |
| 8d40 | 65 6e 64 20 28 2b 20 28 70 6f 69 6e 74 2d 61 74 2d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 | end.(+.(point-at-bol)........... |
| 8d60 | 20 20 20 20 20 20 20 28 6e 74 68 20 28 31 2b 20 6e 29 20 6f 66 66 73 65 74 73 29 29 29 0a 20 20 | .......(nth.(1+.n).offsets)))... |
| 8d80 | 20 20 20 20 20 20 20 28 65 6e 74 72 79 20 28 74 61 62 75 6c 61 74 65 64 2d 6c 69 73 74 2d 67 65 | .......(entry.(tabulated-list-ge |
| 8da0 | 74 2d 65 6e 74 72 79 20 62 65 67 29 29 0a 20 20 20 20 20 20 20 20 20 28 69 6e 68 69 62 69 74 2d | t-entry.beg))..........(inhibit- |
| 8dc0 | 72 65 61 64 2d 6f 6e 6c 79 20 74 29 0a 20 20 20 20 20 20 20 20 20 28 69 6e 68 69 62 69 74 2d 66 | read-only.t)..........(inhibit-f |
| 8de0 | 69 65 6c 64 2d 74 65 78 74 2d 6d 6f 74 69 6f 6e 20 74 29 0a 20 20 20 20 20 20 20 20 20 28 61 6c | ield-text-motion.t)..........(al |
| 8e00 | 69 73 74 20 60 28 28 65 6e 74 72 79 20 2e 20 2c 65 6e 74 72 79 29 0a 20 20 20 20 20 20 20 20 20 | ist.`((entry...,entry).......... |
| 8e20 | 20 20 20 20 20 20 20 20 20 28 63 6f 6c 75 6d 6e 20 2e 20 2c 6e 29 0a 20 20 20 20 20 20 20 20 20 | .........(column...,n).......... |
| 8e40 | 20 20 20 20 20 20 20 20 20 28 69 64 20 2e 20 2c 28 74 61 62 75 6c 61 74 65 64 2d 6c 69 73 74 2d | .........(id...,(tabulated-list- |
| 8e60 | 67 65 74 2d 69 64 20 62 65 67 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 6f 76 29 0a 20 20 20 20 | get-id.beg))))..........ov)..... |
| 8e80 | 28 67 6f 74 6f 2d 63 68 61 72 20 62 65 67 29 0a 20 20 20 20 28 64 65 6c 65 74 65 2d 72 65 67 69 | (goto-char.beg).....(delete-regi |
| 8ea0 | 6f 6e 20 62 65 67 20 65 6e 64 29 0a 20 20 20 20 28 61 64 64 2d 74 65 78 74 2d 70 72 6f 70 65 72 | on.beg.end).....(add-text-proper |
| 8ec0 | 74 69 65 73 0a 20 20 20 20 20 28 70 6f 69 6e 74 2d 61 74 2d 62 6f 6c 29 20 28 70 6f 69 6e 74 2d | ties......(point-at-bol).(point- |
| 8ee0 | 61 74 2d 65 6f 6c 29 0a 20 20 20 20 20 27 28 72 65 61 64 2d 6f 6e 6c 79 20 74 20 66 69 65 6c 64 | at-eol)......'(read-only.t.field |
| 8f00 | 20 74 29 29 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 28 3d 20 62 65 67 20 28 70 6f 69 6e 74 2d 61 | .t)).....(unless.(=.beg.(point-a |
| 8f20 | 74 2d 62 6f 6c 29 29 0a 20 20 20 20 20 20 28 70 75 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 | t-bol)).......(put-text-property |
| 8f40 | 20 28 31 2d 20 62 65 67 29 20 62 65 67 20 27 72 65 61 72 2d 6e 6f 6e 73 74 69 63 6b 79 20 74 29 | .(1-.beg).beg.'rear-nonsticky.t) |
| 8f60 | 29 0a 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 3b 3b 20 4b | ).....(save-excursion.......;;.K |
| 8f80 | 65 65 70 20 6f 6e 65 20 72 65 61 64 2d 6f 6e 6c 79 20 73 70 61 63 65 20 61 74 20 74 68 65 20 65 | eep.one.read-only.space.at.the.e |
| 8fa0 | 6e 64 20 66 6f 72 20 6b 65 65 70 69 6e 67 20 74 65 78 74 0a 20 20 20 20 20 20 3b 3b 20 70 72 6f | nd.for.keeping.text.......;;.pro |
| 8fc0 | 70 65 72 74 69 65 73 2e 0a 20 20 20 20 20 20 28 69 6e 73 65 72 74 0a 20 20 20 20 20 20 20 28 70 | perties........(insert........(p |
| 8fe0 | 72 6f 70 65 72 74 69 7a 65 0a 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 0a 20 20 20 20 20 20 | ropertize.........(concat....... |
| 9000 | 20 20 20 28 74 61 62 6c 69 73 74 2d 6e 74 68 2d 65 6e 74 72 79 20 6e 20 65 6e 74 72 79 29 0a 20 | ...(tablist-nth-entry.n.entry).. |
| 9020 | 20 20 20 20 20 20 20 20 28 70 72 6f 70 65 72 74 69 7a 65 20 22 20 22 0a 20 20 20 20 20 20 20 20 | ........(propertize."."......... |
| 9040 | 20 20 20 20 20 20 20 20 20 20 20 20 20 27 64 69 73 70 6c 61 79 20 60 28 73 70 61 63 65 20 3a 61 | .............'display.`(space.:a |
| 9060 | 6c 69 67 6e 2d 74 6f 20 2c 28 2d 20 65 6e 64 20 28 70 6f 69 6e 74 2d 61 74 2d 62 6f 6c 29 29 29 | lign-to.,(-.end.(point-at-bol))) |
| 9080 | 29 29 0a 20 20 20 20 20 20 20 20 27 66 69 65 6c 64 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 27 66 | )).........'field.nil.........'f |
| 90a0 | 72 6f 6e 74 2d 73 74 69 63 6b 79 20 27 28 74 61 62 6c 69 73 74 2d 65 64 69 74 29 0a 20 20 20 20 | ront-sticky.'(tablist-edit)..... |
| 90c0 | 20 20 20 20 27 72 65 61 72 2d 6e 6f 6e 73 74 69 63 6b 79 20 27 28 72 65 61 64 2d 6f 6e 6c 79 20 | ....'rear-nonsticky.'(read-only. |
| 90e0 | 66 69 65 6c 64 29 0a 20 20 20 20 20 20 20 20 27 74 61 62 6c 69 73 74 2d 65 64 69 74 20 61 6c 69 | field).........'tablist-edit.ali |
| 9100 | 73 74 29 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 65 6e 64 20 28 70 6f 69 6e 74 29 29 29 0a 20 | st)).......(setq.end.(point))).. |
| 9120 | 20 20 20 28 61 64 64 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 69 65 73 0a 20 20 20 20 20 28 31 2d | ...(add-text-properties......(1- |
| 9140 | 20 65 6e 64 29 20 65 6e 64 20 27 28 72 65 61 64 2d 6f 6e 6c 79 20 74 20 66 69 65 6c 64 20 27 74 | .end).end.'(read-only.t.field.'t |
| 9160 | 61 62 6c 69 73 74 2d 65 64 69 74 2d 65 6e 64 29 29 0a 20 20 20 20 28 73 65 74 71 20 6f 76 20 28 | ablist-edit-end)).....(setq.ov.( |
| 9180 | 6d 61 6b 65 2d 6f 76 65 72 6c 61 79 20 62 65 67 20 65 6e 64 29 29 0a 20 20 20 20 28 6f 76 65 72 | make-overlay.beg.end)).....(over |
| 91a0 | 6c 61 79 2d 70 75 74 20 6f 76 20 27 70 72 69 6f 72 69 74 79 20 39 39 39 39 29 0a 20 20 20 20 28 | lay-put.ov.'priority.9999).....( |
| 91c0 | 6f 76 65 72 6c 61 79 2d 70 75 74 20 6f 76 20 27 66 61 63 65 20 27 28 3a 62 61 63 6b 67 72 6f 75 | overlay-put.ov.'face.'(:backgrou |
| 91e0 | 6e 64 20 22 64 65 65 70 20 73 6b 79 20 62 6c 75 65 22 20 3a 66 6f 72 65 67 72 6f 75 6e 64 20 22 | nd."deep.sky.blue".:foreground." |
| 9200 | 77 68 69 74 65 22 29 29 0a 20 20 20 20 28 6f 76 65 72 6c 61 79 2d 70 75 74 20 6f 76 20 27 65 76 | white")).....(overlay-put.ov.'ev |
| 9220 | 61 70 6f 72 61 74 65 20 74 29 0a 20 20 20 20 28 6f 76 65 72 6c 61 79 2d 70 75 74 20 6f 76 20 27 | aporate.t).....(overlay-put.ov.' |
| 9240 | 74 61 62 6c 69 73 74 2d 65 64 69 74 20 74 29 0a 20 20 20 20 28 74 61 62 6c 69 73 74 2d 65 64 69 | tablist-edit.t).....(tablist-edi |
| 9260 | 74 2d 63 6f 6c 75 6d 6e 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 20 31 29 29 29 0a 0a 28 64 65 66 75 6e | t-column-minor-mode.1)))..(defun |
| 9280 | 20 74 61 62 6c 69 73 74 2d 65 64 69 74 2d 63 6f 6c 75 6d 6e 2d 71 75 69 74 20 28 29 0a 20 20 28 | .tablist-edit-column-quit.()...( |
| 92a0 | 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 74 61 62 6c 69 73 74 2d 65 64 69 74 2d 63 6f 6c | interactive)...(tablist-edit-col |
| 92c0 | 75 6d 6e 2d 63 6f 6d 6d 69 74 20 74 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 65 | umn-commit.t))..(defun.tablist-e |
| 92e0 | 64 69 74 2d 63 6f 6c 75 6d 6e 2d 63 6f 6d 6d 69 74 20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 62 61 | dit-column-commit.(&optional.aba |
| 9300 | 6e 64 6f 6e 2d 65 64 69 74 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 | ndon-edit)...(interactive.(list. |
| 9320 | 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 29 29 0a 20 20 28 6c 65 74 20 28 28 69 6e | current-prefix-arg))...(let.((in |
| 9340 | 68 69 62 69 74 2d 72 65 61 64 2d 6f 6e 6c 79 20 74 29 0a 20 20 20 20 20 20 20 20 28 69 6e 68 69 | hibit-read-only.t).........(inhi |
| 9360 | 62 69 74 2d 66 69 65 6c 64 2d 74 65 78 74 2d 6d 6f 74 69 6f 6e 20 74 29 0a 20 20 20 20 20 20 20 | bit-field-text-motion.t)........ |
| 9380 | 20 62 6f 75 6e 64 73 29 0a 20 20 20 20 28 63 6f 6e 64 69 74 69 6f 6e 2d 63 61 73 65 20 6e 69 6c | .bounds).....(condition-case.nil |
| 93a0 | 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 62 6f 75 6e 64 73 20 28 74 61 62 6c 69 73 74 2d 65 | .........(setq.bounds.(tablist-e |
| 93c0 | 64 69 74 2d 63 6f 6c 75 6d 6e 2d 62 6f 75 6e 64 73 29 29 0a 20 20 20 20 20 20 28 65 72 72 6f 72 | dit-column-bounds)).......(error |
| 93e0 | 0a 20 20 20 20 20 20 20 28 74 61 62 6c 69 73 74 2d 65 64 69 74 2d 63 6f 6c 75 6d 6e 2d 6d 69 6e | ........(tablist-edit-column-min |
| 9400 | 6f 72 2d 6d 6f 64 65 20 2d 31 29 0a 20 20 20 20 20 20 20 28 74 61 62 75 6c 61 74 65 64 2d 6c 69 | or-mode.-1)........(tabulated-li |
| 9420 | 73 74 2d 72 65 76 65 72 74 29 0a 20 20 20 20 20 20 20 28 70 75 74 2d 74 65 78 74 2d 70 72 6f 70 | st-revert)........(put-text-prop |
| 9440 | 65 72 74 79 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 20 28 70 6f 69 6e 74 2d 6d 61 78 29 0a 20 20 20 | erty.(point-min).(point-max).... |
| 9460 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 74 61 62 6c 69 73 74 2d | .......................'tablist- |
| 9480 | 65 64 69 74 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 55 6e 61 62 6c 65 20 | edit.nil)........(error."Unable. |
| 94a0 | 74 6f 20 63 6f 6d 70 6c 65 74 65 20 74 68 65 20 65 64 69 74 22 29 29 29 0a 20 20 20 20 28 6c 65 | to.complete.the.edit"))).....(le |
| 94c0 | 74 2a 20 28 28 62 65 67 20 28 63 61 72 20 62 6f 75 6e 64 73 29 29 0a 20 20 20 20 20 20 20 20 20 | t*.((beg.(car.bounds)).......... |
| 94e0 | 20 20 28 65 6e 64 20 28 63 64 72 20 62 6f 75 6e 64 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ..(end.(cdr.bounds))............ |
| 9500 | 28 61 6c 69 73 74 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 62 65 67 20 27 74 | (alist.(get-text-property.beg.'t |
| 9520 | 61 62 6c 69 73 74 2d 65 64 69 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6c 75 6d 6e | ablist-edit))............(column |
| 9540 | 20 28 63 64 72 20 28 61 73 73 71 20 27 63 6f 6c 75 6d 6e 20 61 6c 69 73 74 29 29 29 0a 20 20 20 | .(cdr.(assq.'column.alist))).... |
| 9560 | 20 20 20 20 20 20 20 20 28 69 64 20 28 63 64 72 20 28 61 73 73 71 20 27 69 64 20 61 6c 69 73 74 | ........(id.(cdr.(assq.'id.alist |
| 9580 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 65 6e 74 72 79 20 28 63 64 72 20 28 61 73 73 71 | )))............(entry.(cdr.(assq |
| 95a0 | 20 27 65 6e 74 72 79 20 61 6c 69 73 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 74 65 | .'entry.alist)))............(ite |
| 95c0 | 6d 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 | m.(buffer-substring-no-propertie |
| 95e0 | 73 20 62 65 67 20 28 31 2d 20 65 6e 64 29 29 29 29 0a 0a 20 20 20 20 20 20 28 75 6e 6c 65 73 73 | s.beg.(1-.end))))........(unless |
| 9600 | 20 61 62 61 6e 64 6f 6e 2d 65 64 69 74 0a 20 20 20 20 20 20 20 20 3b 3b 20 54 68 72 6f 77 73 20 | .abandon-edit.........;;.Throws. |
| 9620 | 61 6e 20 65 72 72 6f 72 2c 20 69 66 20 69 74 65 6d 20 69 73 20 69 6e 76 61 6c 69 64 2e 0a 20 20 | an.error,.if.item.is.invalid.... |
| 9640 | 20 20 20 20 20 20 28 73 65 74 71 20 65 6e 74 72 79 20 28 66 75 6e 63 61 6c 6c 20 74 61 62 6c 69 | ......(setq.entry.(funcall.tabli |
| 9660 | 73 74 2d 6f 70 65 72 61 74 69 6f 6e 73 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 | st-operations-function.......... |
| 9680 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 65 64 69 74 2d 63 6f 6c 75 6d 6e | ....................'edit-column |
| 96a0 | 20 69 64 20 63 6f 6c 75 6d 6e 20 69 74 65 6d 29 29 29 0a 20 20 20 20 20 20 28 74 61 62 6c 69 73 | .id.column.item))).......(tablis |
| 96c0 | 74 2d 65 64 69 74 2d 63 6f 6c 75 6d 6e 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 20 2d 31 29 0a 20 20 20 | t-edit-column-minor-mode.-1).... |
| 96e0 | 20 20 20 28 72 65 6d 6f 76 65 2d 6f 76 65 72 6c 61 79 73 20 62 65 67 20 65 6e 64 20 27 74 61 62 | ...(remove-overlays.beg.end.'tab |
| 9700 | 6c 69 73 74 2d 65 64 69 74 20 74 29 0a 20 20 20 20 20 20 28 70 75 74 2d 74 65 78 74 2d 70 72 6f | list-edit.t).......(put-text-pro |
| 9720 | 70 65 72 74 79 20 62 65 67 20 65 6e 64 20 27 74 61 62 6c 69 73 74 2d 65 64 69 74 20 6e 69 6c 29 | perty.beg.end.'tablist-edit.nil) |
| 9740 | 0a 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 28 70 6f 69 6e 74 2d 61 74 2d | .......(delete-region.(point-at- |
| 9760 | 62 6f 6c 29 20 28 31 2b 20 28 70 6f 69 6e 74 2d 61 74 2d 65 6f 6c 29 29 29 0a 20 20 20 20 20 20 | bol).(1+.(point-at-eol)))....... |
| 9780 | 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 28 74 61 62 75 6c 61 74 | (save-excursion.........(tabulat |
| 97a0 | 65 64 2d 6c 69 73 74 2d 70 72 69 6e 74 2d 65 6e 74 72 79 20 69 64 20 65 6e 74 72 79 29 29 0a 20 | ed-list-print-entry.id.entry)).. |
| 97c0 | 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 63 68 61 72 20 28 6e 74 68 20 63 6f 6c 75 6d 6e 20 28 | .....(forward-char.(nth.column.( |
| 97e0 | 74 61 62 6c 69 73 74 2d 63 6f 6c 75 6d 6e 2d 6f 66 66 73 65 74 73 29 29 29 29 29 29 0a 0a 28 64 | tablist-column-offsets))))))..(d |
| 9800 | 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 65 64 69 74 2d 63 6f 6c 75 6d 6e 2d 63 6f 6d 70 6c 65 74 | efun.tablist-edit-column-complet |
| 9820 | 65 20 28 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 75 6e 6c 65 73 73 20 28 | e.()...(interactive)...(unless.( |
| 9840 | 74 61 62 6c 69 73 74 2d 6f 70 65 72 61 74 69 6f 6e 2d 61 76 61 69 6c 61 62 6c 65 2d 70 20 27 63 | tablist-operation-available-p.'c |
| 9860 | 6f 6d 70 6c 65 74 65 29 0a 20 20 20 20 28 65 72 72 6f 72 20 22 43 6f 6d 70 6c 65 74 69 6f 6e 20 | omplete).....(error."Completion. |
| 9880 | 6e 6f 74 20 61 76 61 69 6c 61 62 6c 65 22 29 29 0a 20 20 28 63 6c 2d 64 65 73 74 72 75 63 74 75 | not.available"))...(cl-destructu |
| 98a0 | 72 69 6e 67 2d 62 69 6e 64 20 28 62 65 67 20 26 72 65 73 74 20 65 6e 64 29 0a 20 20 20 20 20 20 | ring-bind.(beg.&rest.end)....... |
| 98c0 | 28 74 61 62 6c 69 73 74 2d 65 64 69 74 2d 63 6f 6c 75 6d 6e 2d 62 6f 75 6e 64 73 20 74 29 0a 20 | (tablist-edit-column-bounds.t).. |
| 98e0 | 20 20 20 28 6c 65 74 2a 20 28 28 73 74 72 69 6e 67 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 | ...(let*.((string.(buffer-substr |
| 9900 | 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ing-no-properties............... |
| 9920 | 20 20 20 20 20 20 62 65 67 20 65 6e 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 61 6c 69 73 | ......beg.end))............(alis |
| 9940 | 74 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 62 65 67 20 27 74 61 62 6c 69 73 | t.(get-text-property.beg.'tablis |
| 9960 | 74 2d 65 64 69 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6d 70 6c 65 74 69 6f 6e 73 | t-edit))............(completions |
| 9980 | 20 28 66 75 6e 63 61 6c 6c 20 74 61 62 6c 69 73 74 2d 6f 70 65 72 61 74 69 6f 6e 73 2d 66 75 6e | .(funcall.tablist-operations-fun |
| 99a0 | 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ction........................... |
| 99c0 | 20 20 20 20 20 20 20 27 63 6f 6d 70 6c 65 74 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .......'complete................ |
| 99e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 64 72 20 28 61 73 73 71 20 27 69 64 | ..................(cdr.(assq.'id |
| 9a00 | 20 61 6c 69 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .alist))........................ |
| 9a20 | 20 20 20 20 20 20 20 20 20 20 28 63 64 72 20 28 61 73 73 71 20 27 63 6f 6c 75 6d 6e 20 61 6c 69 | ..........(cdr.(assq.'column.ali |
| 9a40 | 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | st))............................ |
| 9a60 | 20 20 20 20 20 20 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ......string.................... |
| 9a80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2d 20 28 70 6f 69 6e 74 29 20 62 65 67 29 29 29 29 | ..............(-.(point).beg)))) |
| 9aa0 | 0a 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 63 6f 6d 70 6c 65 74 69 6f 6e 73 0a 20 20 20 20 20 | .......(unless.completions...... |
| 9ac0 | 20 20 20 28 65 72 72 6f 72 20 22 4e 6f 20 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 61 76 61 69 6c 61 | ...(error."No.completions.availa |
| 9ae0 | 62 6c 65 22 29 29 0a 20 20 20 20 20 20 28 63 6f 6d 70 6c 65 74 69 6f 6e 2d 69 6e 2d 72 65 67 69 | ble")).......(completion-in-regi |
| 9b00 | 6f 6e 20 62 65 67 20 65 6e 64 20 63 6f 6d 70 6c 65 74 69 6f 6e 73 29 29 29 29 0a 0a 28 64 65 66 | on.beg.end.completions))))..(def |
| 9b20 | 75 6e 20 74 61 62 6c 69 73 74 2d 63 6f 6c 75 6d 6e 2d 65 64 69 74 61 62 6c 65 20 28 6e 29 0a 20 | un.tablist-column-editable.(n).. |
| 9b40 | 20 28 61 6e 64 20 28 74 61 62 6c 69 73 74 2d 6f 70 65 72 61 74 69 6f 6e 2d 61 76 61 69 6c 61 62 | .(and.(tablist-operation-availab |
| 9b60 | 6c 65 2d 70 20 27 65 64 69 74 2d 63 6f 6c 75 6d 6e 29 0a 20 20 20 20 20 20 20 28 6e 6f 74 20 28 | le-p.'edit-column)........(not.( |
| 9b80 | 74 61 62 6c 69 73 74 2d 63 6f 6c 75 6d 6e 2d 70 72 6f 70 65 72 74 79 20 6e 20 3a 72 65 61 64 2d | tablist-column-property.n.:read- |
| 9ba0 | 6f 6e 6c 79 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 61 73 73 65 72 74 2d | only))))..(defun.tablist-assert- |
| 9bc0 | 63 6f 6c 75 6d 6e 2d 65 64 69 74 61 62 6c 65 20 28 6e 29 0a 20 20 28 75 6e 6c 65 73 73 20 28 61 | column-editable.(n)...(unless.(a |
| 9be0 | 6e 64 20 28 3e 3d 20 6e 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3c 20 6e 20 | nd.(>=.n.0)................(<.n. |
| 9c00 | 28 6c 65 6e 67 74 68 20 74 61 62 75 6c 61 74 65 64 2d 6c 69 73 74 2d 66 6f 72 6d 61 74 29 29 29 | (length.tabulated-list-format))) |
| 9c20 | 0a 20 20 20 20 28 65 72 72 6f 72 20 22 49 6e 76 61 6c 69 64 20 63 6f 6c 75 6d 6e 20 6e 75 6d 62 | .....(error."Invalid.column.numb |
| 9c40 | 65 72 3a 20 25 73 22 20 6e 29 29 0a 20 20 28 75 6e 6c 65 73 73 20 28 74 61 62 6c 69 73 74 2d 6f | er:.%s".n))...(unless.(tablist-o |
| 9c60 | 70 65 72 61 74 69 6f 6e 2d 61 76 61 69 6c 61 62 6c 65 2d 70 20 27 65 64 69 74 2d 63 6f 6c 75 6d | peration-available-p.'edit-colum |
| 9c80 | 6e 29 0a 20 20 20 20 28 65 72 72 6f 72 20 22 45 64 69 74 69 6e 67 20 63 6f 6c 75 6d 6e 73 20 6e | n).....(error."Editing.columns.n |
| 9ca0 | 6f 74 20 65 6e 61 62 6c 65 64 20 69 6e 20 74 68 69 73 20 62 75 66 66 65 72 22 29 29 0a 20 20 28 | ot.enabled.in.this.buffer"))...( |
| 9cc0 | 77 68 65 6e 20 28 74 61 62 6c 69 73 74 2d 63 6f 6c 75 6d 6e 2d 70 72 6f 70 65 72 74 79 20 6e 20 | when.(tablist-column-property.n. |
| 9ce0 | 3a 72 65 61 64 2d 6f 6e 6c 79 29 0a 20 20 20 20 28 65 72 72 6f 72 20 22 54 68 69 73 20 63 6f 6c | :read-only).....(error."This.col |
| 9d00 | 75 6d 6e 20 69 73 20 72 65 61 64 2d 6f 6e 6c 79 22 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 | umn.is.read-only")))..(defun.tab |
| 9d20 | 6c 69 73 74 2d 65 64 69 74 2d 63 6f 6c 75 6d 6e 2d 63 6f 6e 73 74 72 61 69 6e 2d 70 6f 69 6e 74 | list-edit-column-constrain-point |
| 9d40 | 20 28 29 0a 20 20 28 75 6e 6c 65 73 73 20 74 61 62 6c 69 73 74 2d 65 64 69 74 2d 63 6f 6c 75 6d | .()...(unless.tablist-edit-colum |
| 9d60 | 6e 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 0a 20 20 20 20 28 65 72 72 6f 72 20 22 4e 6f 74 20 65 64 69 | n-minor-mode.....(error."Not.edi |
| 9d80 | 74 69 6e 67 20 61 20 63 6f 6c 75 6d 6e 22 29 29 0a 20 20 28 75 6e 6c 65 73 73 20 28 67 65 74 2d | ting.a.column"))...(unless.(get- |
| 9da0 | 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 29 20 27 74 61 62 6c 69 73 74 2d 65 | text-property.(point).'tablist-e |
| 9dc0 | 64 69 74 29 0a 20 20 20 20 28 6c 65 74 20 28 28 62 6f 75 6e 64 73 20 28 74 61 62 6c 69 73 74 2d | dit).....(let.((bounds.(tablist- |
| 9de0 | 65 64 69 74 2d 63 6f 6c 75 6d 6e 2d 62 6f 75 6e 64 73 29 29 29 0a 20 20 20 20 20 20 28 77 68 65 | edit-column-bounds))).......(whe |
| 9e00 | 6e 20 62 6f 75 6e 64 73 0a 20 20 20 20 20 20 20 20 28 69 66 20 28 3e 20 28 70 6f 69 6e 74 29 20 | n.bounds.........(if.(>.(point). |
| 9e20 | 28 63 64 72 20 62 6f 75 6e 64 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d | (cdr.bounds)).............(goto- |
| 9e40 | 63 68 61 72 20 28 31 2d 20 28 63 64 72 20 62 6f 75 6e 64 73 29 29 29 0a 20 20 20 20 20 20 20 20 | char.(1-.(cdr.bounds)))......... |
| 9e60 | 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 63 61 72 20 62 6f 75 6e 64 73 29 29 29 0a 20 20 20 20 | ..(goto-char.(car.bounds)))..... |
| 9e80 | 20 20 20 20 28 70 6f 69 6e 74 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d | ....(point)))))..(defun.tablist- |
| 9ea0 | 65 64 69 74 2d 63 6f 6c 75 6d 6e 2d 62 6f 75 6e 64 73 20 28 26 6f 70 74 69 6f 6e 61 6c 20 73 6b | edit-column-bounds.(&optional.sk |
| 9ec0 | 69 70 2d 66 69 6e 61 6c 2d 73 70 61 63 65 29 0a 20 20 28 75 6e 6c 65 73 73 20 74 61 62 6c 69 73 | ip-final-space)...(unless.tablis |
| 9ee0 | 74 2d 65 64 69 74 2d 63 6f 6c 75 6d 6e 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 0a 20 20 20 20 28 65 72 | t-edit-column-minor-mode.....(er |
| 9f00 | 72 6f 72 20 22 4e 6f 74 20 65 64 69 74 69 6e 67 20 61 20 63 6f 6c 75 6d 6e 22 29 29 0a 20 20 28 | ror."Not.editing.a.column"))...( |
| 9f20 | 6c 65 74 20 28 28 70 6f 73 20 28 6e 65 78 74 2d 73 69 6e 67 6c 65 2d 70 72 6f 70 65 72 74 79 2d | let.((pos.(next-single-property- |
| 9f40 | 63 68 61 6e 67 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 69 6e 74 29 20 27 74 61 | change...............(point).'ta |
| 9f60 | 62 6c 69 73 74 2d 65 64 69 74 29 29 0a 20 20 20 20 20 20 20 20 62 65 67 20 65 6e 64 29 0a 20 20 | blist-edit)).........beg.end)... |
| 9f80 | 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 28 28 6e 75 6c 6c 20 70 6f 73 29 0a 20 20 20 20 20 20 28 | ..(cond......((null.pos).......( |
| 9fa0 | 73 65 74 71 20 65 6e 64 20 28 70 72 65 76 69 6f 75 73 2d 73 69 6e 67 6c 65 2d 70 72 6f 70 65 72 | setq.end.(previous-single-proper |
| 9fc0 | 74 79 2d 63 68 61 6e 67 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 69 6e | ty-change..................(poin |
| 9fe0 | 74 2d 6d 61 78 29 20 27 74 61 62 6c 69 73 74 2d 65 64 69 74 29 0a 20 20 20 20 20 20 20 20 20 20 | t-max).'tablist-edit)........... |
| a000 | 20 20 62 65 67 20 28 70 72 65 76 69 6f 75 73 2d 73 69 6e 67 6c 65 2d 70 72 6f 70 65 72 74 79 2d | ..beg.(previous-single-property- |
| a020 | 63 68 61 6e 67 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 27 74 61 62 | change..................end.'tab |
| a040 | 6c 69 73 74 2d 65 64 69 74 29 29 29 0a 20 20 20 20 20 28 28 67 65 74 2d 74 65 78 74 2d 70 72 6f | list-edit)))......((get-text-pro |
| a060 | 70 65 72 74 79 20 70 6f 73 20 27 74 61 62 6c 69 73 74 2d 65 64 69 74 29 0a 20 20 20 20 20 20 28 | perty.pos.'tablist-edit).......( |
| a080 | 73 65 74 71 20 62 65 67 20 70 6f 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 28 6e 65 | setq.beg.pos.............end.(ne |
| a0a0 | 78 74 2d 73 69 6e 67 6c 65 2d 70 72 6f 70 65 72 74 79 2d 63 68 61 6e 67 65 0a 20 20 20 20 20 20 | xt-single-property-change....... |
| a0c0 | 20 20 20 20 20 20 20 20 20 20 20 70 6f 73 20 27 74 61 62 6c 69 73 74 2d 65 64 69 74 29 29 29 0a | ...........pos.'tablist-edit))). |
| a0e0 | 20 20 20 20 20 28 70 6f 73 0a 20 20 20 20 20 20 28 73 65 74 71 20 65 6e 64 20 70 6f 73 0a 20 20 | .....(pos.......(setq.end.pos... |
| a100 | 20 20 20 20 20 20 20 20 20 20 62 65 67 20 28 70 72 65 76 69 6f 75 73 2d 73 69 6e 67 6c 65 2d 70 | ..........beg.(previous-single-p |
| a120 | 72 6f 70 65 72 74 79 2d 63 68 61 6e 67 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | roperty-change.................. |
| a140 | 70 6f 73 20 27 74 61 62 6c 69 73 74 2d 65 64 69 74 29 29 29 29 0a 0a 20 20 20 20 28 75 6e 6c 65 | pos.'tablist-edit))))......(unle |
| a160 | 73 73 20 28 61 6e 64 20 62 65 67 20 65 6e 64 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 | ss.(and.beg.end.(get-text-proper |
| a180 | 74 79 20 62 65 67 20 27 74 61 62 6c 69 73 74 2d 65 64 69 74 29 29 0a 20 20 20 20 20 20 28 65 72 | ty.beg.'tablist-edit)).......(er |
| a1a0 | 72 6f 72 20 22 55 6e 61 62 6c 65 20 74 6f 20 6c 6f 63 61 74 65 20 65 64 69 74 65 64 20 74 65 78 | ror."Unable.to.locate.edited.tex |
| a1c0 | 74 22 29 29 0a 20 20 20 20 28 63 6f 6e 73 20 62 65 67 20 28 69 66 20 73 6b 69 70 2d 66 69 6e 61 | t")).....(cons.beg.(if.skip-fina |
| a1e0 | 6c 2d 73 70 61 63 65 20 28 31 2d 20 65 6e 64 29 20 65 6e 64 29 29 29 29 0a 0a 28 64 65 66 75 6e | l-space.(1-.end).end))))..(defun |
| a200 | 20 74 61 62 6c 69 73 74 2d 65 64 69 74 2d 63 6f 6c 75 6d 6e 2d 6d 61 72 6b 2d 66 69 65 6c 64 20 | .tablist-edit-column-mark-field. |
| a220 | 28 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 70 75 73 68 2d 6d 61 72 6b 20 | ()...(interactive)...(push-mark. |
| a240 | 28 66 69 65 6c 64 2d 62 65 67 69 6e 6e 69 6e 67 29 29 0a 20 20 28 70 75 73 68 2d 6d 61 72 6b 20 | (field-beginning))...(push-mark. |
| a260 | 28 66 69 65 6c 64 2d 65 6e 64 29 20 6e 69 6c 20 74 29 0a 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 | (field-end).nil.t)...(goto-char. |
| a280 | 28 66 69 65 6c 64 2d 62 65 67 69 6e 6e 69 6e 67 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c | (field-beginning)))..(defun.tabl |
| a2a0 | 69 73 74 2d 66 69 6e 64 2d 65 6e 74 72 79 20 28 26 6f 70 74 69 6f 6e 61 6c 20 69 64 29 0a 20 20 | ist-find-entry.(&optional.id)... |
| a2c0 | 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 75 6e 6c 65 73 73 20 28 74 61 62 6c 69 73 74 | (interactive)...(unless.(tablist |
| a2e0 | 2d 6f 70 65 72 61 74 69 6f 6e 2d 61 76 61 69 6c 61 62 6c 65 2d 70 20 27 66 69 6e 64 2d 65 6e 74 | -operation-available-p.'find-ent |
| a300 | 72 79 29 0a 20 20 20 20 28 65 72 72 6f 72 20 22 46 69 6e 64 69 6e 67 20 65 6e 74 72 69 65 73 20 | ry).....(error."Finding.entries. |
| a320 | 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 20 69 6e 20 74 68 69 73 20 62 75 66 66 65 72 22 29 29 0a | not.supported.in.this.buffer")). |
| a340 | 20 20 28 66 75 6e 63 61 6c 6c 20 74 61 62 6c 69 73 74 2d 6f 70 65 72 61 74 69 6f 6e 73 2d 66 75 | ..(funcall.tablist-operations-fu |
| a360 | 6e 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 27 66 69 6e 64 2d 65 6e 74 72 79 0a 20 20 | nction............'find-entry... |
| a380 | 20 20 20 20 20 20 20 20 20 28 6f 72 20 69 64 20 28 74 61 62 75 6c 61 74 65 64 2d 6c 69 73 74 2d | .........(or.id.(tabulated-list- |
| a3a0 | 67 65 74 2d 69 64 29 29 29 29 0a 0a 3b 3b 0a 3b 3b 20 2a 55 74 69 6c 69 74 79 0a 3b 3b 0a 0a 28 | get-id))))..;;.;;.*Utility.;;..( |
| a3c0 | 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 63 6f 6c 75 6d 6e 2d 70 72 6f 70 65 72 74 79 20 28 6e | defun.tablist-column-property.(n |
| a3e0 | 20 70 72 6f 70 29 0a 20 20 28 70 6c 69 73 74 2d 67 65 74 0a 20 20 20 28 6e 74 68 63 64 72 20 33 | .prop)...(plist-get....(nthcdr.3 |
| a400 | 20 28 61 72 65 66 20 74 61 62 75 6c 61 74 65 64 2d 6c 69 73 74 2d 66 6f 72 6d 61 74 20 6e 29 29 | .(aref.tabulated-list-format.n)) |
| a420 | 0a 20 20 20 70 72 6f 70 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 63 75 72 72 65 | ....prop))..(defun.tablist-curre |
| a440 | 6e 74 2d 63 6f 6c 75 6d 6e 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 63 6f 6c 75 6d | nt-column.()..."Return.the.colum |
| a460 | 6e 20 6e 75 6d 62 65 72 20 61 74 20 70 6f 69 6e 74 2e 0a 0a 52 65 74 75 72 6e 73 20 6e 69 6c 2c | n.number.at.point...Returns.nil, |
| a480 | 20 69 66 20 70 6f 69 6e 74 20 69 73 20 62 65 66 6f 72 65 20 74 68 65 20 66 69 72 73 74 20 63 6f | .if.point.is.before.the.first.co |
| a4a0 | 6c 75 6d 6e 2e 22 0a 20 20 28 6c 65 74 20 28 28 63 6f 6c 75 6d 6e 0a 20 20 20 20 20 20 20 20 20 | lumn."...(let.((column.......... |
| a4c0 | 28 31 2d 20 28 63 6c 2d 70 6f 73 69 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | (1-.(cl-position...............( |
| a4e0 | 63 75 72 72 65 6e 74 2d 63 6f 6c 75 6d 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 | current-column)...............(a |
| a500 | 70 70 65 6e 64 20 28 74 61 62 6c 69 73 74 2d 63 6f 6c 75 6d 6e 2d 6f 66 66 73 65 74 73 29 0a 20 | ppend.(tablist-column-offsets).. |
| a520 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 6d 6f 73 74 2d | .....................(list.most- |
| a540 | 70 6f 73 69 74 69 76 65 2d 66 69 78 6e 75 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | positive-fixnum))............... |
| a560 | 3a 74 65 73 74 20 28 6c 61 6d 62 64 61 20 28 63 6f 6c 75 6d 6e 20 6f 66 66 73 65 74 29 20 28 3e | :test.(lambda.(column.offset).(> |
| a580 | 20 6f 66 66 73 65 74 20 63 6f 6c 75 6d 6e 29 29 29 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 | .offset.column)))))).....(when.( |
| a5a0 | 3e 3d 20 63 6f 6c 75 6d 6e 20 30 29 0a 20 20 20 20 20 20 63 6f 6c 75 6d 6e 29 29 29 0a 0a 28 64 | >=.column.0).......column)))..(d |
| a5c0 | 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 63 6f 6c 75 6d 6e 2d 6f 66 66 73 65 74 73 20 28 29 0a 20 | efun.tablist-column-offsets.().. |
| a5e0 | 20 22 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 63 6f 6c 75 6d 6e 20 70 6f 73 69 74 69 | ."Return.a.list.of.column.positi |
| a600 | 6f 6e 73 2e 0a 0a 54 68 69 73 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 6f 66 66 73 65 74 73 20 | ons...This.is.a.list.of.offsets. |
| a620 | 66 72 6f 6d 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 74 68 65 20 6c 69 6e 65 2e 22 | from.the.beginning.of.the.line." |
| a640 | 0a 20 20 28 6c 65 74 20 28 28 63 63 20 74 61 62 75 6c 61 74 65 64 2d 6c 69 73 74 2d 70 61 64 64 | ...(let.((cc.tabulated-list-padd |
| a660 | 69 6e 67 29 0a 20 20 20 20 20 20 20 20 63 6f 6c 75 6d 6e 73 29 0a 20 20 20 20 28 64 6f 74 69 6d | ing).........columns).....(dotim |
| a680 | 65 73 20 28 69 20 28 6c 65 6e 67 74 68 20 74 61 62 75 6c 61 74 65 64 2d 6c 69 73 74 2d 66 6f 72 | es.(i.(length.tabulated-list-for |
| a6a0 | 6d 61 74 29 29 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 63 20 28 61 72 65 66 20 74 61 62 75 | mat)).......(let*.((c.(aref.tabu |
| a6c0 | 6c 61 74 65 64 2d 6c 69 73 74 2d 66 6f 72 6d 61 74 20 69 29 29 0a 20 20 20 20 20 20 20 20 20 20 | lated-list-format.i))........... |
| a6e0 | 20 20 20 28 6c 65 6e 20 28 6e 74 68 20 31 20 63 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...(len.(nth.1.c)).............. |
| a700 | 28 70 61 64 20 28 6f 72 20 28 70 6c 69 73 74 2d 67 65 74 20 28 6e 74 68 63 64 72 20 33 20 63 29 | (pad.(or.(plist-get.(nthcdr.3.c) |
| a720 | 20 3a 70 61 64 2d 72 69 67 68 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .:pad-right).................... |
| a740 | 20 20 20 31 29 29 29 0a 20 20 20 20 20 20 20 20 28 70 75 73 68 20 63 63 20 63 6f 6c 75 6d 6e 73 | ...1))).........(push.cc.columns |
| a760 | 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 6e 75 6d 62 65 72 70 20 6c 65 6e 29 0a 20 20 | ).........(when.(numberp.len)... |
| a780 | 20 20 20 20 20 20 20 20 28 63 6c 2d 69 6e 63 66 20 63 63 20 6c 65 6e 29 29 0a 20 20 20 20 20 20 | ........(cl-incf.cc.len))....... |
| a7a0 | 20 20 28 77 68 65 6e 20 70 61 64 0a 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 69 6e 63 66 20 63 | ..(when.pad...........(cl-incf.c |
| a7c0 | 63 20 70 61 64 29 29 29 29 0a 20 20 20 20 28 6e 72 65 76 65 72 73 65 20 63 6f 6c 75 6d 6e 73 29 | c.pad)))).....(nreverse.columns) |
| a7e0 | 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 70 72 65 74 74 79 2d 70 72 69 6e 74 2d | ))..(defun.tablist-pretty-print- |
| a800 | 65 6e 74 72 79 20 28 69 74 65 6d 29 0a 20 20 28 6d 61 70 63 6f 6e 63 61 74 20 28 6c 61 6d 62 64 | entry.(item)...(mapconcat.(lambd |
| a820 | 61 20 28 69 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 61 62 6c 69 73 74 2d 6e 74 | a.(i)................(tablist-nt |
| a840 | 68 2d 65 6e 74 72 79 20 69 20 69 74 65 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 | h-entry.i.item))..............(t |
| a860 | 61 62 6c 69 73 74 2d 6d 61 6a 6f 72 2d 63 6f 6c 75 6d 6e 73 29 20 22 20 22 29 29 0a 0a 28 64 65 | ablist-major-columns)."."))..(de |
| a880 | 66 75 6e 20 74 61 62 6c 69 73 74 2d 2d 73 61 76 65 2d 66 61 63 65 2d 70 72 6f 70 65 72 74 79 20 | fun.tablist--save-face-property. |
| a8a0 | 28 62 65 67 20 65 6e 64 29 0a 20 20 3b 3b 20 57 65 20 6e 65 65 64 20 74 6f 20 64 69 73 74 69 6e | (beg.end)...;;.We.need.to.distin |
| a8c0 | 67 75 69 73 68 20 2c 2c 6e 6f 74 20 73 65 74 27 27 20 66 72 6f 6d 20 27 27 6e 6f 20 66 61 63 65 | guish.,,not.set''.from.''no.face |
| a8e0 | 27 27 2e 0a 20 20 28 75 6e 6c 65 73 73 20 28 61 6e 64 20 28 74 65 78 74 2d 70 72 6f 70 65 72 74 | ''....(unless.(and.(text-propert |
| a900 | 79 2d 6e 6f 74 2d 61 6c 6c 20 62 65 67 20 65 6e 64 20 27 66 61 63 65 20 6e 69 6c 29 0a 20 20 20 | y-not-all.beg.end.'face.nil).... |
| a920 | 20 20 20 20 20 20 20 20 20 20 20 20 28 3c 20 62 65 67 20 65 6e 64 29 29 0a 20 20 20 20 28 70 75 | ............(<.beg.end)).....(pu |
| a940 | 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 62 65 67 20 28 31 2b 20 62 65 67 29 20 27 66 61 | t-text-property.beg.(1+.beg).'fa |
| a960 | 63 65 20 27 64 65 66 61 75 6c 74 29 29 0a 20 20 28 75 6e 6c 65 73 73 20 28 74 65 78 74 2d 70 72 | ce.'default))...(unless.(text-pr |
| a980 | 6f 70 65 72 74 79 2d 6e 6f 74 2d 61 6c 6c 20 62 65 67 20 65 6e 64 20 27 74 61 62 6c 69 73 74 2d | operty-not-all.beg.end.'tablist- |
| a9a0 | 73 61 76 65 64 2d 66 61 63 65 20 6e 69 6c 29 0a 20 20 20 20 28 74 61 62 6c 69 73 74 2d 63 6f 70 | saved-face.nil).....(tablist-cop |
| a9c0 | 79 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 62 65 67 20 65 6e 64 20 27 66 61 63 65 20 27 74 | y-text-property.beg.end.'face.'t |
| a9e0 | 61 62 6c 69 73 74 2d 73 61 76 65 64 2d 66 61 63 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 | ablist-saved-face)))..(defun.tab |
| aa00 | 6c 69 73 74 2d 2d 72 65 73 74 6f 72 65 2d 66 61 63 65 2d 70 72 6f 70 65 72 74 79 20 28 62 65 67 | list--restore-face-property.(beg |
| aa20 | 20 65 6e 64 29 0a 20 20 28 77 68 65 6e 20 28 74 65 78 74 2d 70 72 6f 70 65 72 74 79 2d 6e 6f 74 | .end)...(when.(text-property-not |
| aa40 | 2d 61 6c 6c 20 62 65 67 20 65 6e 64 20 27 74 61 62 6c 69 73 74 2d 73 61 76 65 64 2d 66 61 63 65 | -all.beg.end.'tablist-saved-face |
| aa60 | 20 6e 69 6c 29 0a 20 20 20 20 28 74 61 62 6c 69 73 74 2d 63 6f 70 79 2d 74 65 78 74 2d 70 72 6f | .nil).....(tablist-copy-text-pro |
| aa80 | 70 65 72 74 79 20 62 65 67 20 65 6e 64 20 27 74 61 62 6c 69 73 74 2d 73 61 76 65 64 2d 66 61 63 | perty.beg.end.'tablist-saved-fac |
| aaa0 | 65 20 27 66 61 63 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 63 6f 70 79 2d | e.'face)))..(defun.tablist-copy- |
| aac0 | 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 62 65 67 20 65 6e 64 20 66 72 6f 6d 20 74 6f 29 0a | text-property.(beg.end.from.to). |
| aae0 | 20 20 22 43 6f 70 79 20 74 65 78 74 20 70 72 6f 70 65 72 74 79 20 46 52 4f 4d 20 74 6f 20 54 4f | .."Copy.text.property.FROM.to.TO |
| ab00 | 20 69 6e 20 72 65 67 69 6f 6e 20 42 45 47 20 74 6f 20 45 4e 44 2e 22 0a 20 20 28 6c 65 74 20 28 | .in.region.BEG.to.END."...(let.( |
| ab20 | 28 69 6e 68 69 62 69 74 2d 72 65 61 64 2d 6f 6e 6c 79 20 74 29 29 0a 20 20 20 20 28 73 61 76 65 | (inhibit-read-only.t)).....(save |
| ab40 | 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 3c 20 62 65 67 20 65 | -excursion.......(while.(<.beg.e |
| ab60 | 6e 64 29 0a 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 62 65 67 29 0a 20 20 20 20 | nd).........(goto-char.beg)..... |
| ab80 | 20 20 20 20 28 70 75 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 0a 20 20 20 20 20 20 20 20 20 | ....(put-text-property.......... |
| aba0 | 28 70 6f 69 6e 74 29 0a 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 62 65 67 20 28 6e 65 78 74 | (point)..........(setq.beg.(next |
| abc0 | 2d 73 69 6e 67 6c 65 2d 70 72 6f 70 65 72 74 79 2d 63 68 61 6e 67 65 0a 20 20 20 20 20 20 20 20 | -single-property-change......... |
| abe0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 69 6e 74 29 20 66 72 6f 6d 20 6e 69 6c 20 65 6e 64 | ............(point).from.nil.end |
| ac00 | 29 29 0a 20 20 20 20 20 20 20 20 20 74 6f 0a 20 20 20 20 20 20 20 20 20 28 67 65 74 2d 74 65 78 | ))..........to..........(get-tex |
| ac20 | 74 2d 70 72 6f 70 65 72 74 79 20 28 70 6f 69 6e 74 29 20 66 72 6f 6d 29 29 29 29 29 29 0a 0a 3b | t-property.(point).from))))))..; |
| ac40 | 3b 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 72 65 61 64 2d 63 6f 6c 75 6d 6e 2d 6e 61 6d | ;.(defun.tablist-read-column-nam |
| ac60 | 65 20 28 61 72 67 20 26 6f 70 74 69 6f 6e 61 6c 20 70 72 6f 6d 70 74 20 64 65 66 61 75 6c 74 29 | e.(arg.&optional.prompt.default) |
| ac80 | 0a 20 20 22 52 65 61 64 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 61 20 63 6f 6c 75 6d 6e 20 75 73 | ..."Read.the.name.of.a.column.us |
| aca0 | 69 6e 67 20 41 52 47 2e 0a 0a 49 66 20 41 52 47 20 69 73 20 61 20 6e 75 6d 62 65 72 2c 20 72 65 | ing.ARG...If.ARG.is.a.number,.re |
| acc0 | 74 75 72 6e 20 63 6f 6c 75 6d 6e 20 41 52 47 2e 0a 49 66 20 41 52 47 20 69 73 20 6e 69 6c 2c 20 | turn.column.ARG..If.ARG.is.nil,. |
| ace0 | 72 65 74 75 72 6e 20 44 45 46 41 55 4c 54 20 6f 72 20 74 68 65 20 63 75 72 72 65 6e 74 20 63 6f | return.DEFAULT.or.the.current.co |
| ad00 | 6c 75 6d 6e 2e 0a 45 6c 73 65 20 61 73 6b 20 74 68 65 20 75 73 65 72 2c 20 75 73 69 6e 67 20 50 | lumn..Else.ask.the.user,.using.P |
| ad20 | 52 4f 4d 50 54 20 61 6e 64 20 44 45 46 41 55 4c 54 2e 22 0a 20 20 28 63 6f 6e 64 0a 20 20 20 28 | ROMPT.and.DEFAULT."...(cond....( |
| ad40 | 28 6e 75 6d 62 65 72 70 20 61 72 67 29 0a 20 20 20 20 28 6f 72 20 28 74 61 62 6c 69 73 74 2d 63 | (numberp.arg).....(or.(tablist-c |
| ad60 | 6f 6c 75 6d 6e 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 28 70 72 65 66 69 78 2d 6e 75 6d 65 | olumn-name..........(prefix-nume |
| ad80 | 72 69 63 2d 76 61 6c 75 65 20 61 72 67 29 29 0a 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 | ric-value.arg)).........(error." |
| ada0 | 4e 6f 20 73 75 63 68 20 63 6f 6c 75 6d 6e 3a 20 25 64 22 20 28 70 72 65 66 69 78 2d 6e 75 6d 65 | No.such.column:.%d".(prefix-nume |
| adc0 | 72 69 63 2d 76 61 6c 75 65 20 61 72 67 29 29 29 29 0a 20 20 20 28 28 6e 75 6c 6c 20 61 72 67 29 | ric-value.arg))))....((null.arg) |
| ade0 | 0a 20 20 20 20 28 6f 72 20 64 65 66 61 75 6c 74 0a 20 20 20 20 20 20 20 20 28 74 61 62 6c 69 73 | .....(or.default.........(tablis |
| ae00 | 74 2d 63 6f 6c 75 6d 6e 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 74 61 62 6c | t-column-name..........(or.(tabl |
| ae20 | 69 73 74 2d 63 75 72 72 65 6e 74 2d 63 6f 6c 75 6d 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ist-current-column)............. |
| ae40 | 20 28 63 61 72 20 28 74 61 62 6c 69 73 74 2d 6d 61 6a 6f 72 2d 63 6f 6c 75 6d 6e 73 29 29 0a 20 | .(car.(tablist-major-columns)).. |
| ae60 | 20 20 20 20 20 20 20 20 20 20 20 20 30 29 29 29 29 0a 20 20 20 28 74 0a 20 20 20 20 28 6c 65 74 | ............0))))....(t.....(let |
| ae80 | 2a 20 28 28 64 65 66 61 75 6c 74 20 28 6f 72 20 64 65 66 61 75 6c 74 0a 20 20 20 20 20 20 20 20 | *.((default.(or.default......... |
| aea0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 61 62 6c 69 73 74 2d 63 6f 6c 75 6d 6e 2d | ................(tablist-column- |
| aec0 | 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 | name..........................(c |
| aee0 | 61 72 20 28 74 61 62 6c 69 73 74 2d 6d 61 6a 6f 72 2d 63 6f 6c 75 6d 6e 73 29 29 29 29 29 0a 20 | ar.(tablist-major-columns))))).. |
| af00 | 20 20 20 20 20 20 20 20 20 20 28 72 65 73 75 6c 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 | ..........(result.............(c |
| af20 | 6f 6d 70 6c 65 74 69 6e 67 2d 72 65 61 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 | ompleting-read..............(for |
| af40 | 6d 61 74 20 22 25 73 20 25 73 3a 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | mat."%s.%s:."................... |
| af60 | 20 20 20 28 6f 72 20 70 72 6f 6d 70 74 20 22 55 73 65 20 63 6f 6c 75 6d 6e 22 29 0a 20 20 20 20 | ...(or.prompt."Use.column")..... |
| af80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 64 65 66 61 75 6c 74 0a 20 20 20 | .................(if.default.... |
| afa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 28 | ......................(format."( |
| afc0 | 64 65 66 61 75 6c 74 20 25 73 29 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | default.%s)".................... |
| afe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 66 61 75 6c 74 29 0a 20 20 20 20 20 20 20 20 20 | ..............default).......... |
| b000 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .............."")).............. |
| b020 | 28 74 61 62 6c 69 73 74 2d 63 6f 6c 75 6d 6e 2d 6e 61 6d 65 73 29 0a 20 20 20 20 20 20 20 20 20 | (tablist-column-names).......... |
| b040 | 20 20 20 20 6e 69 6c 20 74 20 6e 69 6c 20 27 74 61 62 6c 69 73 74 2d 63 6f 6c 75 6d 6e 2d 6e 61 | ....nil.t.nil.'tablist-column-na |
| b060 | 6d 65 2d 68 69 73 74 6f 72 79 29 29 29 0a 20 20 20 20 20 20 28 69 66 20 28 3e 20 28 6c 65 6e 67 | me-history))).......(if.(>.(leng |
| b080 | 74 68 20 72 65 73 75 6c 74 29 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 72 65 73 75 6c 74 0a 20 | th.result).0)...........result.. |
| b0a0 | 20 20 20 20 20 20 20 28 69 66 20 28 6e 6f 74 20 64 65 66 61 75 6c 74 29 0a 20 20 20 20 20 20 20 | .......(if.(not.default)........ |
| b0c0 | 20 20 20 20 20 28 65 72 72 6f 72 20 22 4e 6f 20 63 6f 6c 75 6d 6e 20 73 65 6c 65 63 74 65 64 22 | .....(error."No.column.selected" |
| b0e0 | 29 0a 20 20 20 20 20 20 20 20 20 20 64 65 66 61 75 6c 74 29 29 29 29 29 29 0a 0a 28 64 65 66 75 | )...........default))))))..(defu |
| b100 | 6e 20 74 61 62 6c 69 73 74 2d 63 6f 6c 75 6d 6e 2d 6e 61 6d 65 20 28 6e 29 0a 20 20 22 52 65 74 | n.tablist-column-name.(n)..."Ret |
| b120 | 75 72 6e 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 63 6f 6c 75 6d 6e 20 4e 2e 22 0a 20 20 28 77 68 | urn.the.name.of.column.N."...(wh |
| b140 | 65 6e 20 28 61 6e 64 20 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3e 3d 20 6e 20 30 29 0a | en.(and.n..............(>=.n.0). |
| b160 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3c 20 6e 20 28 6c 65 6e 67 74 68 20 74 61 62 75 6c 61 | .............(<.n.(length.tabula |
| b180 | 74 65 64 2d 6c 69 73 74 2d 66 6f 72 6d 61 74 29 29 29 0a 20 20 20 20 28 73 75 62 73 74 72 69 6e | ted-list-format))).....(substrin |
| b1a0 | 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 0a 20 20 20 20 20 28 63 61 72 20 28 65 6c 74 20 74 | g-no-properties......(car.(elt.t |
| b1c0 | 61 62 75 6c 61 74 65 64 2d 6c 69 73 74 2d 66 6f 72 6d 61 74 20 6e 29 29 20 30 29 29 29 0a 0a 28 | abulated-list-format.n)).0)))..( |
| b1e0 | 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 63 6f 6c 75 6d 6e 2d 6e 61 6d 65 73 20 28 29 0a 20 20 | defun.tablist-column-names.()... |
| b200 | 22 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 63 6f 6c 75 6d 6e 2d 6e 61 6d | "Return.a.list.of.all.column-nam |
| b220 | 65 73 2e 22 0a 20 20 28 6d 61 70 63 61 72 20 27 74 61 62 6c 69 73 74 2d 63 6f 6c 75 6d 6e 2d 6e | es."...(mapcar.'tablist-column-n |
| b240 | 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 28 6e 75 6d 62 65 72 2d 73 65 71 75 65 6e 63 65 20 30 | ame...........(number-sequence.0 |
| b260 | 20 28 31 2d 20 28 6c 65 6e 67 74 68 20 74 61 62 75 6c 61 74 65 64 2d 6c 69 73 74 2d 66 6f 72 6d | .(1-.(length.tabulated-list-form |
| b280 | 61 74 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 6e 74 68 2d 65 6e 74 72 | at)))))..(defun.tablist-nth-entr |
| b2a0 | 79 20 28 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 65 6e 74 72 79 29 0a 20 20 28 75 6e 6c 65 73 73 20 | y.(n.&optional.entry)...(unless. |
| b2c0 | 65 6e 74 72 79 20 28 73 65 74 71 20 65 6e 74 72 79 20 28 74 61 62 75 6c 61 74 65 64 2d 6c 69 73 | entry.(setq.entry.(tabulated-lis |
| b2e0 | 74 2d 67 65 74 2d 65 6e 74 72 79 29 29 29 0a 20 20 28 77 68 65 6e 20 28 61 6e 64 20 65 6e 74 72 | t-get-entry)))...(when.(and.entr |
| b300 | 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3e 3d 20 6e 20 30 29 0a 20 20 20 20 20 20 20 20 | y..............(>=.n.0)......... |
| b320 | 20 20 20 20 20 28 3c 20 6e 20 28 6c 65 6e 67 74 68 20 65 6e 74 72 79 29 29 29 0a 20 20 20 20 28 | .....(<.n.(length.entry))).....( |
| b340 | 6c 65 74 20 28 28 73 74 72 20 28 65 6c 74 20 65 6e 74 72 79 20 6e 29 29 29 0a 20 20 20 20 20 20 | let.((str.(elt.entry.n)))....... |
| b360 | 28 69 66 20 28 73 74 72 69 6e 67 70 20 73 74 72 29 0a 20 20 20 20 20 20 20 20 20 20 73 74 72 0a | (if.(stringp.str)...........str. |
| b380 | 20 20 20 20 20 20 20 20 28 63 61 72 20 73 74 72 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 | ........(car.str)))))..(defun.ta |
| b3a0 | 62 6c 69 73 74 2d 6d 61 6a 6f 72 2d 63 6f 6c 75 6d 6e 2d 6e 61 6d 65 20 28 29 0a 20 20 22 52 65 | blist-major-column-name.()..."Re |
| b3c0 | 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 74 68 65 20 6d 61 6a 6f 72 20 63 6f 6c 75 6d 6e 20 | turn.a.list.of.the.major.column. |
| b3e0 | 6e 61 6d 65 73 2e 22 0a 20 20 28 74 61 62 6c 69 73 74 2d 63 6f 6c 75 6d 6e 2d 6e 61 6d 65 20 28 | names."...(tablist-column-name.( |
| b400 | 63 61 72 20 28 74 61 62 6c 69 73 74 2d 6d 61 6a 6f 72 2d 63 6f 6c 75 6d 6e 73 29 29 29 29 0a 0a | car.(tablist-major-columns)))).. |
| b420 | 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 65 78 70 6f 72 74 2d 63 73 76 20 28 26 6f 70 74 69 | (defun.tablist-export-csv.(&opti |
| b440 | 6f 6e 61 6c 20 73 65 70 61 72 61 74 6f 72 20 61 6c 77 61 79 73 2d 71 75 6f 74 65 2d 70 0a 20 20 | onal.separator.always-quote-p... |
| b460 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| b480 | 20 20 20 69 6e 76 69 73 69 62 6c 65 2d 70 20 6f 75 74 2d 62 75 66 66 65 72 20 64 69 73 70 6c 61 | ...invisible-p.out-buffer.displa |
| b4a0 | 79 2d 70 29 0a 20 20 22 45 78 70 6f 72 74 20 61 20 74 61 62 75 6c 61 74 65 64 20 6c 69 73 74 20 | y-p)..."Export.a.tabulated.list. |
| b4c0 | 74 6f 20 61 20 43 53 56 20 66 6f 72 6d 61 74 2e 0a 0a 55 73 65 20 53 45 50 41 52 41 54 4f 52 20 | to.a.CSV.format...Use.SEPARATOR. |
| b4e0 | 28 6f 72 20 3b 29 20 61 6e 64 20 71 75 6f 74 65 20 69 66 20 6e 65 63 65 73 73 61 72 79 20 28 6f | (or.;).and.quote.if.necessary.(o |
| b500 | 72 20 61 6c 77 61 79 73 20 69 66 0a 41 4c 57 41 59 53 2d 51 55 4f 54 45 2d 50 20 69 73 20 6e 6f | r.always.if.ALWAYS-QUOTE-P.is.no |
| b520 | 6e 2d 6e 69 6c 29 2e 20 20 4f 6e 6c 79 20 63 6f 6e 73 69 64 65 72 20 6e 6f 6e 2d 66 69 6c 74 65 | n-nil)...Only.consider.non-filte |
| b540 | 72 65 64 20 65 6e 74 72 69 65 73 2c 0a 75 6e 6c 65 73 73 20 69 6e 76 69 73 69 62 6c 65 2d 70 20 | red.entries,.unless.invisible-p. |
| b560 | 69 73 20 6e 6f 6e 2d 6e 69 6c 2e 20 20 43 72 65 61 74 65 20 61 20 62 75 66 66 65 72 20 66 6f 72 | is.non-nil...Create.a.buffer.for |
| b580 | 20 74 68 65 20 6f 75 74 70 75 74 20 6f 72 0a 69 6e 73 65 72 74 20 69 74 20 61 66 74 65 72 20 70 | .the.output.or.insert.it.after.p |
| b5a0 | 6f 69 6e 74 20 69 6e 20 4f 55 54 2d 42 55 46 46 45 52 2e 20 20 46 69 6e 61 6c 6c 79 20 69 66 20 | oint.in.OUT-BUFFER...Finally.if. |
| b5c0 | 44 49 53 50 4c 41 59 2d 50 20 69 73 0a 6e 6f 6e 2d 6e 69 6c 2c 20 64 69 73 70 6c 61 79 20 74 68 | DISPLAY-P.is.non-nil,.display.th |
| b5e0 | 69 73 20 62 75 66 66 65 72 2e 0a 0a 52 65 74 75 72 6e 20 74 68 65 20 6f 75 74 70 75 74 20 62 75 | is.buffer...Return.the.output.bu |
| b600 | 66 66 65 72 2e 22 0a 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 6e 69 6c | ffer."....(interactive.(list.nil |
| b620 | 20 74 20 6e 69 6c 20 6e 69 6c 20 74 29 29 0a 20 20 28 75 6e 6c 65 73 73 20 28 64 65 72 69 76 65 | .t.nil.nil.t))...(unless.(derive |
| b640 | 64 2d 6d 6f 64 65 2d 70 20 27 74 61 62 75 6c 61 74 65 64 2d 6c 69 73 74 2d 6d 6f 64 65 29 0a 20 | d-mode-p.'tabulated-list-mode).. |
| b660 | 20 20 20 28 65 72 72 6f 72 20 22 4e 6f 74 20 69 6e 20 54 61 62 75 6c 61 74 65 64 20 4c 69 73 74 | ...(error."Not.in.Tabulated.List |
| b680 | 20 4d 6f 64 65 22 29 29 0a 20 20 28 75 6e 6c 65 73 73 20 28 73 74 72 69 6e 67 70 20 73 65 70 61 | .Mode"))...(unless.(stringp.sepa |
| b6a0 | 72 61 74 6f 72 29 0a 20 20 20 20 28 73 65 74 71 20 73 65 70 61 72 61 74 6f 72 20 28 73 74 72 69 | rator).....(setq.separator.(stri |
| b6c0 | 6e 67 20 28 6f 72 20 73 65 70 61 72 61 74 6f 72 20 3f 5c 3b 29 29 29 29 0a 20 20 28 6c 65 74 2a | ng.(or.separator.?\;))))...(let* |
| b6e0 | 20 28 28 6f 75 74 62 20 28 6f 72 20 6f 75 74 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 | .((outb.(or.out-buffer.......... |
| b700 | 20 20 20 20 20 20 20 20 20 20 28 67 65 74 2d 62 75 66 66 65 72 2d 63 72 65 61 74 65 0a 20 20 20 | ..........(get-buffer-create.... |
| b720 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 25 73 2e 63 73 76 | .................(format."%s.csv |
| b740 | 22 20 28 62 75 66 66 65 72 2d 6e 61 6d 65 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 65 73 | ".(buffer-name)))))..........(es |
| b760 | 63 61 70 65 2d 72 65 20 28 66 6f 72 6d 61 74 20 22 5b 25 73 5c 22 5c 6e 5d 22 20 73 65 70 61 72 | cape-re.(format."[%s\"\n]".separ |
| b780 | 61 74 6f 72 29 29 0a 20 20 20 20 20 20 20 20 20 28 68 65 61 64 65 72 20 28 74 61 62 6c 69 73 74 | ator))..........(header.(tablist |
| b7a0 | 2d 63 6f 6c 75 6d 6e 2d 6e 61 6d 65 73 29 29 29 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 28 62 75 | -column-names))).....(unless.(bu |
| b7c0 | 66 66 65 72 2d 6c 69 76 65 2d 70 20 6f 75 74 62 29 0a 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 | ffer-live-p.outb).......(error." |
| b7e0 | 45 78 70 65 63 74 65 64 20 61 20 6c 69 76 65 20 62 75 66 66 65 72 3a 20 25 73 22 20 6f 75 74 62 | Expected.a.live.buffer:.%s".outb |
| b800 | 29 29 0a 20 20 20 20 28 63 6c 2d 6c 61 62 65 6c 73 0a 20 20 20 20 20 20 20 20 28 28 70 72 69 6e | )).....(cl-labels.........((prin |
| b820 | 74 69 74 20 28 65 6e 74 72 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 | tit.(entry)...................(i |
| b840 | 6e 73 65 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 6f 6e | nsert....................(mapcon |
| b860 | 63 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 | cat.....................(lambda. |
| b880 | 28 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 | (e).......................(unles |
| b8a0 | 73 20 28 73 74 72 69 6e 67 70 20 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | s.(stringp.e)................... |
| b8c0 | 20 20 20 20 20 20 28 73 65 74 71 20 65 20 28 63 61 72 20 65 29 29 29 0a 20 20 20 20 20 20 20 20 | ......(setq.e.(car.e)))......... |
| b8e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6f 72 20 61 6c 77 61 79 73 2d 71 75 6f | ..............(if.(or.always-quo |
| b900 | 74 65 2d 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | te-p............................ |
| b920 | 20 20 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 65 73 63 61 70 65 2d 72 65 20 65 29 29 0a 20 | ...(string-match.escape-re.e)).. |
| b940 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 | .........................(concat |
| b960 | 20 22 5c 22 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ."\""........................... |
| b980 | 20 20 20 20 20 20 20 20 28 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e | ........(replace-regexp-in-strin |
| b9a0 | 67 20 22 5c 22 22 20 22 5c 22 5c 22 22 20 65 20 74 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 | g."\""."\"\"".e.t.t)............ |
| b9c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 5c 22 22 29 0a 20 20 20 | ......................."\"").... |
| b9e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 29 29 0a 20 20 20 20 20 20 20 | .....................e))........ |
| ba00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 74 72 79 20 73 65 70 61 72 61 74 6f 72 29 29 0a 20 | .............entry.separator)).. |
| ba20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 3f 5c 6e 29 29 29 0a | .................(insert.?\n))). |
| ba40 | 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 6f 75 74 62 0a | ......(with-current-buffer.outb. |
| ba60 | 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 69 6e 68 69 62 69 74 2d 72 65 61 64 2d 6f 6e 6c 79 | ........(let.((inhibit-read-only |
| ba80 | 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 65 72 61 73 65 2d 62 75 66 66 65 72 29 0a 20 20 | .t))...........(erase-buffer)... |
| baa0 | 20 20 20 20 20 20 20 20 28 70 72 69 6e 74 69 74 20 68 65 61 64 65 72 29 29 29 0a 20 20 20 20 20 | ........(printit.header)))...... |
| bac0 | 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 | .(save-excursion.........(goto-c |
| bae0 | 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 | har.(point-min)).........(unless |
| bb00 | 20 69 6e 76 69 73 69 62 6c 65 2d 70 0a 20 20 20 20 20 20 20 20 20 20 28 74 61 62 6c 69 73 74 2d | .invisible-p...........(tablist- |
| bb20 | 73 6b 69 70 2d 69 6e 76 69 73 69 62 6c 65 2d 65 6e 74 72 69 65 73 29 29 0a 20 20 20 20 20 20 20 | skip-invisible-entries))........ |
| bb40 | 20 28 77 68 69 6c 65 20 28 6e 6f 74 20 28 65 6f 62 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 | .(while.(not.(eobp))...........( |
| bb60 | 6c 65 74 2a 20 28 28 65 6e 74 72 79 20 28 74 61 62 75 6c 61 74 65 64 2d 6c 69 73 74 2d 67 65 74 | let*.((entry.(tabulated-list-get |
| bb80 | 2d 65 6e 74 72 79 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 | -entry))).............(with-curr |
| bba0 | 65 6e 74 2d 62 75 66 66 65 72 20 6f 75 74 62 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c | ent-buffer.outb...............(l |
| bbc0 | 65 74 20 28 28 69 6e 68 69 62 69 74 2d 72 65 61 64 2d 6f 6e 6c 79 20 74 29 29 0a 20 20 20 20 20 | et.((inhibit-read-only.t))...... |
| bbe0 | 20 20 20 20 20 20 20 20 20 20 20 28 70 72 69 6e 74 69 74 20 65 6e 74 72 79 29 29 29 0a 20 20 20 | ...........(printit.entry))).... |
| bc00 | 20 20 20 20 20 20 20 20 20 28 69 66 20 69 6e 76 69 73 69 62 6c 65 2d 70 0a 20 20 20 20 20 20 20 | .........(if.invisible-p........ |
| bc20 | 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 | .........(forward-line)......... |
| bc40 | 20 20 20 20 20 20 28 74 61 62 6c 69 73 74 2d 66 6f 72 77 61 72 64 2d 65 6e 74 72 79 29 29 29 29 | ......(tablist-forward-entry)))) |
| bc60 | 29 0a 20 20 20 20 20 20 28 69 66 20 64 69 73 70 6c 61 79 2d 70 0a 20 20 20 20 20 20 20 20 20 20 | ).......(if.display-p........... |
| bc80 | 28 64 69 73 70 6c 61 79 2d 62 75 66 66 65 72 20 6f 75 74 62 29 29 0a 20 20 20 20 20 20 6f 75 74 | (display-buffer.outb)).......out |
| bca0 | 62 29 29 29 0a 0a 3b 3b 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 65 6e 6c 61 72 67 65 | b)))..;;..(defun.tablist-enlarge |
| bcc0 | 2d 63 6f 6c 75 6d 6e 20 28 26 6f 70 74 69 6f 6e 61 6c 20 63 6f 6c 75 6d 6e 20 77 69 64 74 68 29 | -column.(&optional.column.width) |
| bce0 | 0a 20 20 22 45 6e 6c 61 72 67 65 20 63 6f 6c 75 6d 6e 20 43 4f 4c 55 4d 4e 20 62 79 20 57 49 44 | ..."Enlarge.column.COLUMN.by.WID |
| bd00 | 54 48 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 6c 61 7a 79 20 61 6e 64 20 74 | TH...This.function.is.lazy.and.t |
| bd20 | 68 65 72 66 6f 72 65 20 70 72 65 74 74 79 20 73 6c 6f 77 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 | herfore.pretty.slow."...(interac |
| bd40 | 74 69 76 65 0a 20 20 20 28 6c 69 73 74 20 6e 69 6c 20 28 2a 20 28 70 72 65 66 69 78 2d 6e 75 6d | tive....(list.nil.(*.(prefix-num |
| bd60 | 65 72 69 63 2d 76 61 6c 75 65 20 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 29 0a 20 | eric-value.current-prefix-arg).. |
| bd80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 29 29 29 0a 20 20 28 75 6e 6c 65 73 73 20 63 6f | ...............3)))...(unless.co |
| bda0 | 6c 75 6d 6e 20 28 73 65 74 71 20 63 6f 6c 75 6d 6e 20 28 74 61 62 6c 69 73 74 2d 63 75 72 72 65 | lumn.(setq.column.(tablist-curre |
| bdc0 | 6e 74 2d 63 6f 6c 75 6d 6e 29 29 29 0a 20 20 28 75 6e 6c 65 73 73 20 63 6f 6c 75 6d 6e 0a 20 20 | nt-column)))...(unless.column... |
| bde0 | 20 20 28 65 72 72 6f 72 20 22 4e 6f 20 63 6f 6c 75 6d 6e 20 67 69 76 65 6e 20 61 6e 64 20 6e 6f | ..(error."No.column.given.and.no |
| be00 | 20 65 6e 74 72 79 20 61 74 20 70 6f 69 6e 74 22 29 29 0a 20 20 28 75 6e 6c 65 73 73 20 77 69 64 | .entry.at.point"))...(unless.wid |
| be20 | 74 68 20 28 73 65 74 71 20 77 69 64 74 68 20 31 29 29 0a 20 20 28 77 68 65 6e 20 28 6f 72 20 28 | th.(setq.width.1))...(when.(or.( |
| be40 | 6e 6f 74 20 28 6e 75 6d 62 65 72 70 20 63 6f 6c 75 6d 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 | not.(numberp.column))........... |
| be60 | 20 20 28 3c 20 63 6f 6c 75 6d 6e 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 3e 3d 20 63 | ..(<.column.0).............(>=.c |
| be80 | 6f 6c 75 6d 6e 20 28 6c 65 6e 67 74 68 20 74 61 62 75 6c 61 74 65 64 2d 6c 69 73 74 2d 66 6f 72 | olumn.(length.tabulated-list-for |
| bea0 | 6d 61 74 29 29 29 0a 20 20 20 20 28 65 72 72 6f 72 20 22 4e 6f 20 73 75 63 68 20 63 6f 6c 75 6d | mat))).....(error."No.such.colum |
| bec0 | 6e 3a 20 25 64 22 20 63 6f 6c 75 6d 6e 29 29 0a 20 20 28 77 68 65 6e 20 28 3d 20 63 6f 6c 75 6d | n:.%d".column))...(when.(=.colum |
| bee0 | 6e 20 28 31 2d 20 28 6c 65 6e 67 74 68 20 74 61 62 75 6c 61 74 65 64 2d 6c 69 73 74 2d 66 6f 72 | n.(1-.(length.tabulated-list-for |
| bf00 | 6d 61 74 29 29 29 0a 20 20 20 20 28 65 72 72 6f 72 20 22 43 61 6e 27 74 20 72 65 73 69 7a 65 20 | mat))).....(error."Can't.resize. |
| bf20 | 6c 61 73 74 20 63 6f 6c 75 6d 6e 22 29 29 0a 0a 20 20 28 6c 65 74 2a 20 28 28 63 75 72 2d 77 69 | last.column"))....(let*.((cur-wi |
| bf40 | 64 74 68 20 28 63 61 64 72 20 28 65 6c 74 20 74 61 62 75 6c 61 74 65 64 2d 6c 69 73 74 2d 66 6f | dth.(cadr.(elt.tabulated-list-fo |
| bf60 | 72 6d 61 74 20 63 6f 6c 75 6d 6e 29 29 29 29 0a 20 20 20 20 28 73 65 74 63 61 72 20 28 63 64 72 | rmat.column)))).....(setcar.(cdr |
| bf80 | 20 28 65 6c 74 20 74 61 62 75 6c 61 74 65 64 2d 6c 69 73 74 2d 66 6f 72 6d 61 74 20 63 6f 6c 75 | .(elt.tabulated-list-format.colu |
| bfa0 | 6d 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 78 20 33 20 28 2b 20 63 75 72 2d 77 | mn)).............(max.3.(+.cur-w |
| bfc0 | 69 64 74 68 20 77 69 64 74 68 29 29 29 0a 20 20 20 20 28 74 61 62 6c 69 73 74 2d 77 69 74 68 2d | idth.width))).....(tablist-with- |
| bfe0 | 72 65 6d 65 6d 62 65 72 69 6e 67 2d 65 6e 74 72 79 0a 20 20 20 20 20 20 28 74 61 62 6c 69 73 74 | remembering-entry.......(tablist |
| c000 | 2d 73 61 76 65 2d 6d 61 72 6b 73 0a 20 20 20 20 20 20 20 28 74 61 62 75 6c 61 74 65 64 2d 6c 69 | -save-marks........(tabulated-li |
| c020 | 73 74 2d 69 6e 69 74 2d 68 65 61 64 65 72 29 0a 20 20 20 20 20 20 20 28 74 61 62 75 6c 61 74 65 | st-init-header)........(tabulate |
| c040 | 64 2d 6c 69 73 74 2d 70 72 69 6e 74 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 | d-list-print)))))..(defun.tablis |
| c060 | 74 2d 73 68 72 69 6e 6b 2d 63 6f 6c 75 6d 6e 20 28 26 6f 70 74 69 6f 6e 61 6c 20 63 6f 6c 75 6d | t-shrink-column.(&optional.colum |
| c080 | 6e 20 77 69 64 74 68 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 0a 20 20 20 28 6c 69 73 74 | n.width)...(interactive....(list |
| c0a0 | 20 6e 69 6c 20 28 2a 20 28 70 72 65 66 69 78 2d 6e 75 6d 65 72 69 63 2d 76 61 6c 75 65 20 63 75 | .nil.(*.(prefix-numeric-value.cu |
| c0c0 | 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rrent-prefix-arg)............... |
| c0e0 | 20 20 33 29 29 29 0a 20 20 28 74 61 62 6c 69 73 74 2d 65 6e 6c 61 72 67 65 2d 63 6f 6c 75 6d 6e | ..3)))...(tablist-enlarge-column |
| c100 | 20 63 6f 6c 75 6d 6e 20 28 2d 20 28 6f 72 20 77 69 64 74 68 20 31 29 29 29 29 0a 0a 3b 3b 20 2a | .column.(-.(or.width.1))))..;;.* |
| c120 | 53 6f 72 74 69 6e 67 0a 3b 3b 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 73 6f 72 74 20 | Sorting.;;..(defun.tablist-sort. |
| c140 | 28 26 6f 70 74 69 6f 6e 61 6c 20 63 6f 6c 75 6d 6e 29 0a 20 20 22 53 6f 72 74 20 74 68 65 20 74 | (&optional.column)..."Sort.the.t |
| c160 | 61 62 75 6c 61 74 65 64 2d 6c 69 73 74 20 62 79 20 43 4f 4c 55 4d 4e 2e 0a 0a 43 4f 4c 55 4d 4e | abulated-list.by.COLUMN...COLUMN |
| c180 | 20 6d 61 79 20 62 65 20 65 69 74 68 65 72 20 61 20 6e 61 6d 65 20 6f 72 20 61 6e 20 69 6e 64 65 | .may.be.either.a.name.or.an.inde |
| c1a0 | 78 2e 20 20 54 68 65 20 64 65 66 61 75 6c 74 20 63 6f 6d 70 61 72 65 0a 66 75 6e 63 74 69 6f 6e | x...The.default.compare.function |
| c1c0 | 20 69 73 20 67 69 76 65 6e 20 62 79 20 74 68 65 20 60 74 61 62 75 6c 61 74 65 64 2d 6c 69 73 74 | .is.given.by.the.`tabulated-list |
| c1e0 | 2d 66 6f 72 6d 61 74 27 2c 20 77 68 69 63 68 20 73 65 65 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 | -format',.which.see...This.funct |
| c200 | 69 6f 6e 20 73 61 76 65 73 20 74 68 65 20 63 75 72 72 65 6e 74 20 73 6f 72 74 20 63 6f 6c 75 6d | ion.saves.the.current.sort.colum |
| c220 | 6e 20 61 6e 64 20 74 68 65 20 69 6e 76 65 72 73 65 0a 73 6f 72 74 2d 64 69 72 65 63 74 69 6f 6e | n.and.the.inverse.sort-direction |
| c240 | 20 69 6e 20 74 68 65 20 76 61 72 69 61 62 6c 65 20 60 74 61 62 75 6c 61 74 65 64 2d 6c 69 73 74 | .in.the.variable.`tabulated-list |
| c260 | 2d 73 6f 72 74 2d 6b 65 79 27 2c 20 77 68 69 63 68 0a 61 6c 73 6f 20 64 65 74 65 72 6d 69 6e 65 | -sort-key',.which.also.determine |
| c280 | 73 20 74 68 65 20 64 65 66 61 75 6c 74 20 43 4f 4c 55 4d 4e 20 61 6e 64 20 64 69 72 65 63 74 69 | s.the.default.COLUMN.and.directi |
| c2a0 | 6f 6e 2e 0a 0a 54 68 65 20 6d 61 69 6e 20 64 69 66 66 65 72 65 6e 63 65 20 74 6f 20 60 74 61 62 | on...The.main.difference.to.`tab |
| c2c0 | 75 6c 61 74 65 64 2d 6c 69 73 74 2d 73 6f 72 74 27 20 69 73 2c 20 74 68 61 74 20 74 68 69 73 0a | ulated-list-sort'.is,.that.this. |
| c2e0 | 66 75 6e 63 74 69 6f 6e 20 73 6f 72 74 73 20 74 68 65 20 62 75 66 66 65 72 20 69 6e 2d 70 6c 61 | function.sorts.the.buffer.in-pla |
| c300 | 63 65 20 61 6e 64 20 69 74 20 69 67 6e 6f 72 65 73 20 61 20 6e 69 6c 20 73 6f 72 74 0a 65 6e 74 | ce.and.it.ignores.a.nil.sort.ent |
| c320 | 72 79 20 69 6e 20 60 74 61 62 75 6c 61 74 65 64 2d 6c 69 73 74 2d 66 6f 72 6d 61 74 27 20 61 6e | ry.in.`tabulated-list-format'.an |
| c340 | 64 20 73 6f 72 74 73 20 6f 6e 20 74 68 65 20 63 6f 6c 75 6d 6e 0a 61 6e 79 77 61 79 20 28 77 68 | d.sorts.on.the.column.anyway.(wh |
| c360 | 79 20 6e 6f 74 20 3f 29 2e 22 0a 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 0a 20 20 20 28 6c | y.not.?)."....(interactive....(l |
| c380 | 69 73 74 0a 20 20 20 20 28 69 66 20 28 6e 75 6c 6c 20 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 | ist.....(if.(null.current-prefix |
| c3a0 | 2d 61 72 67 29 0a 20 20 20 20 20 20 20 20 28 74 61 62 6c 69 73 74 2d 63 6f 6c 75 6d 6e 2d 6e 61 | -arg).........(tablist-column-na |
| c3c0 | 6d 65 0a 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 74 61 62 6c 69 73 74 2d 63 75 72 72 65 6e 74 | me..........(or.(tablist-current |
| c3e0 | 2d 63 6f 6c 75 6d 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 72 20 28 74 61 62 6c | -column)..............(car.(tabl |
| c400 | 69 73 74 2d 6d 61 6a 6f 72 2d 63 6f 6c 75 6d 6e 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ist-major-columns))............. |
| c420 | 20 30 29 29 0a 20 20 20 20 20 20 28 74 61 62 6c 69 73 74 2d 72 65 61 64 2d 63 6f 6c 75 6d 6e 2d | .0)).......(tablist-read-column- |
| c440 | 6e 61 6d 65 0a 20 20 20 20 20 20 20 27 28 34 29 20 22 53 6f 72 74 20 62 79 20 63 6f 6c 75 6d 6e | name........'(4)."Sort.by.column |
| c460 | 22 0a 20 20 20 20 20 20 20 28 74 61 62 6c 69 73 74 2d 63 6f 6c 75 6d 6e 2d 6e 61 6d 65 20 28 63 | "........(tablist-column-name.(c |
| c480 | 61 72 20 28 74 61 62 6c 69 73 74 2d 6d 61 6a 6f 72 2d 63 6f 6c 75 6d 6e 73 29 29 29 29 29 29 29 | ar.(tablist-major-columns))))))) |
| c4a0 | 0a 0a 20 20 28 75 6e 6c 65 73 73 20 63 6f 6c 75 6d 6e 0a 20 20 20 20 28 73 65 74 71 20 63 6f 6c | ....(unless.column.....(setq.col |
| c4c0 | 75 6d 6e 20 28 6f 72 20 28 63 61 72 20 74 61 62 75 6c 61 74 65 64 2d 6c 69 73 74 2d 73 6f 72 74 | umn.(or.(car.tabulated-list-sort |
| c4e0 | 2d 6b 65 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 61 62 6c | -key)......................(tabl |
| c500 | 69 73 74 2d 63 6f 6c 75 6d 6e 2d 6e 61 6d 65 20 28 63 61 72 20 28 74 61 62 6c 69 73 74 2d 6d 61 | ist-column-name.(car.(tablist-ma |
| c520 | 6a 6f 72 2d 63 6f 6c 75 6d 6e 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | jor-columns))).................. |
| c540 | 20 20 20 20 28 74 61 62 6c 69 73 74 2d 63 6f 6c 75 6d 6e 2d 6e 61 6d 65 20 30 29 29 29 29 0a 20 | ....(tablist-column-name.0)))).. |
| c560 | 20 28 77 68 65 6e 20 28 6e 75 6d 62 65 72 70 20 63 6f 6c 75 6d 6e 29 0a 20 20 20 20 28 6c 65 74 | .(when.(numberp.column).....(let |
| c580 | 20 28 28 63 6f 6c 75 6d 6e 2d 6e 61 6d 65 20 28 74 61 62 6c 69 73 74 2d 63 6f 6c 75 6d 6e 2d 6e | .((column-name.(tablist-column-n |
| c5a0 | 61 6d 65 20 63 6f 6c 75 6d 6e 29 29 29 0a 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 63 6f 6c 75 | ame.column))).......(unless.colu |
| c5c0 | 6d 6e 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 4e 6f 20 73 75 63 68 20 | mn-name.........(error."No.such. |
| c5e0 | 63 6f 6c 75 6d 6e 3a 20 25 64 22 20 63 6f 6c 75 6d 6e 29 29 0a 20 20 20 20 20 20 28 73 65 74 71 | column:.%d".column)).......(setq |
| c600 | 20 63 6f 6c 75 6d 6e 20 63 6f 6c 75 6d 6e 2d 6e 61 6d 65 29 29 29 0a 0a 20 20 28 73 65 74 71 20 | .column.column-name)))....(setq. |
| c620 | 74 61 62 75 6c 61 74 65 64 2d 6c 69 73 74 2d 73 6f 72 74 2d 6b 65 79 0a 20 20 20 20 20 20 20 20 | tabulated-list-sort-key......... |
| c640 | 28 63 6f 6e 73 20 63 6f 6c 75 6d 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 | (cons.column...............(if.( |
| c660 | 65 71 75 61 6c 20 63 6f 6c 75 6d 6e 20 28 63 61 72 20 74 61 62 75 6c 61 74 65 64 2d 6c 69 73 74 | equal.column.(car.tabulated-list |
| c680 | 2d 73 6f 72 74 2d 6b 65 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 | -sort-key))...................(c |
| c6a0 | 64 72 20 74 61 62 75 6c 61 74 65 64 2d 6c 69 73 74 2d 73 6f 72 74 2d 6b 65 79 29 29 29 29 0a 0a | dr.tabulated-list-sort-key)))).. |
| c6c0 | 20 20 28 6c 65 74 2a 20 28 28 65 6e 74 72 69 65 73 20 28 69 66 20 28 66 75 6e 63 74 69 6f 6e 70 | ..(let*.((entries.(if.(functionp |
| c6e0 | 20 74 61 62 75 6c 61 74 65 64 2d 6c 69 73 74 2d 65 6e 74 72 69 65 73 29 0a 20 20 20 20 20 20 20 | .tabulated-list-entries)........ |
| c700 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 74 61 62 75 6c 61 74 65 | ...............(funcall.tabulate |
| c720 | 64 2d 6c 69 73 74 2d 65 6e 74 72 69 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | d-list-entries)................. |
| c740 | 20 20 20 20 74 61 62 75 6c 61 74 65 64 2d 6c 69 73 74 2d 65 6e 74 72 69 65 73 29 29 0a 20 20 20 | ....tabulated-list-entries)).... |
| c760 | 20 20 20 20 20 20 28 72 65 76 65 72 73 65 20 28 63 64 72 20 74 61 62 75 6c 61 74 65 64 2d 6c 69 | ......(reverse.(cdr.tabulated-li |
| c780 | 73 74 2d 73 6f 72 74 2d 6b 65 79 29 29 0a 20 20 20 20 20 20 20 20 20 28 6e 20 28 74 61 62 75 6c | st-sort-key))..........(n.(tabul |
| c7a0 | 61 74 65 64 2d 6c 69 73 74 2d 2d 63 6f 6c 75 6d 6e 2d 6e 75 6d 62 65 72 20 3b 3b 65 72 72 6f 72 | ated-list--column-number.;;error |
| c7c0 | 73 20 69 66 20 63 6f 6c 75 6d 6e 20 69 73 20 6e 2f 61 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | s.if.column.is.n/a.............. |
| c7e0 | 28 63 61 72 20 74 61 62 75 6c 61 74 65 64 2d 6c 69 73 74 2d 73 6f 72 74 2d 6b 65 79 29 29 29 0a | (car.tabulated-list-sort-key))). |
| c800 | 20 20 20 20 20 20 20 20 20 28 63 6f 6d 70 61 72 65 2d 66 6e 20 28 6e 74 68 20 32 20 28 61 72 65 | .........(compare-fn.(nth.2.(are |
| c820 | 66 20 74 61 62 75 6c 61 74 65 64 2d 6c 69 73 74 2d 66 6f 72 6d 61 74 20 6e 29 29 29 29 0a 0a 20 | f.tabulated-list-format.n))))... |
| c840 | 20 20 20 28 77 68 65 6e 20 28 6f 72 20 28 6e 75 6c 6c 20 63 6f 6d 70 61 72 65 2d 66 6e 29 0a 20 | ...(when.(or.(null.compare-fn).. |
| c860 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 71 20 63 6f 6d 70 61 72 65 2d 66 6e 20 74 29 29 0a | .............(eq.compare-fn.t)). |
| c880 | 20 20 20 20 20 20 28 73 65 74 71 20 63 6f 6d 70 61 72 65 2d 66 6e 0a 20 20 20 20 20 20 20 20 20 | ......(setq.compare-fn.......... |
| c8a0 | 20 20 20 28 6c 61 6d 62 64 61 20 28 61 20 62 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ...(lambda.(a.b)...............( |
| c8c0 | 73 65 74 71 20 61 20 28 61 72 65 66 20 28 63 61 64 72 20 61 29 20 6e 29 29 0a 20 20 20 20 20 20 | setq.a.(aref.(cadr.a).n))....... |
| c8e0 | 20 20 20 20 20 20 20 20 28 73 65 74 71 20 62 20 28 61 72 65 66 20 28 63 61 64 72 20 62 29 20 6e | ........(setq.b.(aref.(cadr.b).n |
| c900 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 3c 20 28 69 66 20 28 73 | ))...............(string<.(if.(s |
| c920 | 74 72 69 6e 67 70 20 61 29 20 61 20 28 63 61 72 20 61 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | tringp.a).a.(car.a))............ |
| c940 | 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 73 74 72 69 6e 67 70 20 62 29 20 62 20 28 63 | ............(if.(stringp.b).b.(c |
| c960 | 61 72 20 62 29 29 29 29 29 29 0a 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 63 6f 6d 70 61 72 65 2d | ar.b))))))......(unless.compare- |
| c980 | 66 6e 0a 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 54 68 69 73 20 63 6f 6c 75 6d 6e 20 63 61 6e | fn.......(error."This.column.can |
| c9a0 | 6e 6f 74 20 62 65 20 73 6f 72 74 65 64 3a 20 25 73 22 20 63 6f 6c 75 6d 6e 29 29 0a 0a 20 20 20 | not.be.sorted:.%s".column))..... |
| c9c0 | 20 28 73 65 74 63 64 72 20 74 61 62 75 6c 61 74 65 64 2d 6c 69 73 74 2d 73 6f 72 74 2d 6b 65 79 | .(setcdr.tabulated-list-sort-key |
| c9e0 | 20 28 6e 6f 74 20 72 65 76 65 72 73 65 29 29 0a 20 20 20 20 3b 3b 20 50 72 65 73 6f 72 74 20 74 | .(not.reverse)).....;;.Presort.t |
| ca00 | 68 65 20 65 6e 74 72 69 65 73 20 61 6e 64 20 68 61 73 68 20 74 68 65 20 72 65 73 75 6c 74 20 61 | he.entries.and.hash.the.result.a |
| ca20 | 6e 64 20 73 6f 72 74 20 74 68 65 20 62 75 66 66 65 72 2e 0a 20 20 20 20 28 73 65 74 71 20 65 6e | nd.sort.the.buffer......(setq.en |
| ca40 | 74 72 69 65 73 20 28 73 6f 72 74 20 28 63 6f 70 79 2d 73 65 71 75 65 6e 63 65 20 65 6e 74 72 69 | tries.(sort.(copy-sequence.entri |
| ca60 | 65 73 29 20 63 6f 6d 70 61 72 65 2d 66 6e 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 68 61 73 68 | es).compare-fn)).....(let.((hash |
| ca80 | 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 74 20 27 65 71 75 61 6c 29 29 | .(make-hash-table.:test.'equal)) |
| caa0 | 29 0a 20 20 20 20 20 20 28 64 6f 74 69 6d 65 73 20 28 69 20 28 6c 65 6e 67 74 68 20 65 6e 74 72 | ).......(dotimes.(i.(length.entr |
| cac0 | 69 65 73 29 29 0a 20 20 20 20 20 20 20 20 28 70 75 74 68 61 73 68 20 28 63 61 61 72 20 65 6e 74 | ies)).........(puthash.(caar.ent |
| cae0 | 72 69 65 73 29 20 69 20 68 61 73 68 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 65 6e 74 72 | ries).i.hash).........(setq.entr |
| cb00 | 69 65 73 20 28 63 64 72 20 65 6e 74 72 69 65 73 29 29 29 0a 20 20 20 20 20 20 28 74 61 62 6c 69 | ies.(cdr.entries))).......(tabli |
| cb20 | 73 74 2d 77 69 74 68 2d 72 65 6d 65 6d 62 65 72 69 6e 67 2d 65 6e 74 72 79 0a 20 20 20 20 20 20 | st-with-remembering-entry....... |
| cb40 | 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 | ..(goto-char.(point-min))....... |
| cb60 | 20 20 28 74 61 62 6c 69 73 74 2d 73 6b 69 70 2d 69 6e 76 69 73 69 62 6c 65 2d 65 6e 74 72 69 65 | ..(tablist-skip-invisible-entrie |
| cb80 | 73 29 0a 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 69 6e 68 69 62 69 74 2d 72 65 61 64 2d 6f | s).........(let.((inhibit-read-o |
| cba0 | 6e 6c 79 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 6f 72 74 2d 73 75 62 72 0a 20 20 20 | nly.t))...........(sort-subr.... |
| cbc0 | 20 20 20 20 20 20 20 20 6e 69 6c 20 27 74 61 62 6c 69 73 74 2d 66 6f 72 77 61 72 64 2d 65 6e 74 | ........nil.'tablist-forward-ent |
| cbe0 | 72 79 20 27 65 6e 64 2d 6f 66 2d 6c 69 6e 65 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 | ry.'end-of-line............(lamb |
| cc00 | 64 61 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 65 74 68 61 73 68 20 28 74 61 62 | da.()..............(gethash.(tab |
| cc20 | 75 6c 61 74 65 64 2d 6c 69 73 74 2d 67 65 74 2d 69 64 29 20 68 61 73 68 20 30 29 29 0a 20 20 20 | ulated-list-get-id).hash.0)).... |
| cc40 | 20 20 20 20 20 20 20 20 6e 69 6c 20 28 69 66 20 72 65 76 65 72 73 65 20 27 3c 20 27 3e 29 29 29 | ........nil.(if.reverse.'<.'>))) |
| cc60 | 29 0a 20 20 20 20 20 20 28 74 61 62 6c 69 73 74 2d 6d 6f 76 65 2d 74 6f 2d 63 6f 6c 75 6d 6e 20 | ).......(tablist-move-to-column. |
| cc80 | 6e 29 0a 20 20 20 20 20 20 3b 3b 20 4d 61 6b 65 20 74 68 65 20 73 6f 72 74 20 61 72 72 6f 77 73 | n).......;;.Make.the.sort.arrows |
| cca0 | 20 64 69 73 70 6c 61 79 2e 0a 20 20 20 20 20 20 28 74 61 62 75 6c 61 74 65 64 2d 6c 69 73 74 2d | .display........(tabulated-list- |
| ccc0 | 69 6e 69 74 2d 68 65 61 64 65 72 29 29 29 29 0a 0a 3b 3b 0a 3b 3b 20 2a 46 69 6c 74 65 72 0a 3b | init-header))))..;;.;;.*Filter.; |
| cce0 | 3b 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 72 65 61 64 2d 66 69 6c 74 65 72 2d 6e 61 | ;..(defun.tablist-read-filter-na |
| cd00 | 6d 65 20 28 70 72 6f 6d 70 74 29 0a 20 20 28 6c 65 74 20 28 28 66 69 6c 74 65 72 20 28 63 64 72 | me.(prompt)...(let.((filter.(cdr |
| cd20 | 20 28 61 73 73 71 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 74 61 62 6c 69 73 74 2d 6e 61 6d 65 64 2d | .(assq.major-mode.tablist-named- |
| cd40 | 66 69 6c 74 65 72 29 29 29 29 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 66 69 6c 74 65 72 0a 20 20 | filter)))).....(unless.filter... |
| cd60 | 20 20 20 20 28 65 72 72 6f 72 20 22 4e 6f 20 66 69 6c 74 65 72 20 64 65 66 69 6e 65 64 20 66 6f | ....(error."No.filter.defined.fo |
| cd80 | 72 20 25 73 20 6d 6f 64 65 22 20 6d 6f 64 65 2d 6e 61 6d 65 29 29 0a 20 20 20 20 28 6c 65 74 20 | r.%s.mode".mode-name)).....(let. |
| cda0 | 28 28 6e 61 6d 65 20 28 63 6f 6d 70 6c 65 74 69 6e 67 2d 72 65 61 64 0a 20 20 20 20 20 20 20 20 | ((name.(completing-read......... |
| cdc0 | 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 25 73 3a 20 22 20 70 72 6f 6d 70 74 29 0a | .........(format."%s:.".prompt). |
| cde0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6c 74 65 72 0a 20 20 20 20 20 20 20 20 | .................filter......... |
| ce00 | 20 20 20 20 20 20 20 20 20 6e 69 6c 20 74 29 29 29 0a 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 | .........nil.t))).......(unless. |
| ce20 | 28 3e 20 28 6c 65 6e 67 74 68 20 6e 61 6d 65 29 20 30 29 0a 20 20 20 20 20 20 20 20 28 65 72 72 | (>.(length.name).0).........(err |
| ce40 | 6f 72 20 22 4e 6f 20 66 69 6c 74 65 72 20 73 65 6c 65 63 74 65 64 22 29 29 0a 20 20 20 20 20 20 | or."No.filter.selected"))....... |
| ce60 | 6e 61 6d 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 61 70 70 6c 79 2d 66 69 | name)))..(defun.tablist-apply-fi |
| ce80 | 6c 74 65 72 20 28 26 6f 70 74 69 6f 6e 61 6c 20 66 69 6c 74 65 72 29 0a 20 20 22 41 70 70 6c 79 | lter.(&optional.filter)..."Apply |
| cea0 | 20 46 49 4c 54 45 52 20 74 6f 20 74 68 65 20 63 75 72 72 65 6e 74 20 74 61 62 75 6c 61 74 65 64 | .FILTER.to.the.current.tabulated |
| cec0 | 20 6c 69 73 74 2e 0a 0a 46 49 4c 54 45 52 20 64 65 66 61 75 6c 74 73 20 74 6f 20 60 74 61 62 6c | .list...FILTER.defaults.to.`tabl |
| cee0 | 69 73 74 2d 63 75 72 72 65 6e 74 2d 66 69 6c 74 65 72 27 2e 22 0a 20 20 28 75 6e 6c 65 73 73 20 | ist-current-filter'."...(unless. |
| cf00 | 66 69 6c 74 65 72 20 28 73 65 74 71 20 66 69 6c 74 65 72 20 74 61 62 6c 69 73 74 2d 63 75 72 72 | filter.(setq.filter.tablist-curr |
| cf20 | 65 6e 74 2d 66 69 6c 74 65 72 29 29 0a 20 20 28 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 75 | ent-filter))...(tablist-filter-u |
| cf40 | 6e 68 69 64 65 2d 62 75 66 66 65 72 29 0a 20 20 28 77 68 65 6e 20 28 61 6e 64 20 66 69 6c 74 65 | nhide-buffer)...(when.(and.filte |
| cf60 | 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 75 6c 6c 20 74 61 62 6c 69 73 74 2d 66 69 6c | r..............(null.tablist-fil |
| cf80 | 74 65 72 2d 73 75 73 70 65 6e 64 65 64 29 29 0a 20 20 20 20 28 74 61 62 6c 69 73 74 2d 77 69 74 | ter-suspended)).....(tablist-wit |
| cfa0 | 68 2d 72 65 6d 65 6d 62 65 72 69 6e 67 2d 65 6e 74 72 79 0a 20 20 20 20 20 20 28 74 61 62 6c 69 | h-remembering-entry.......(tabli |
| cfc0 | 73 74 2d 6d 61 70 2d 77 69 74 68 2d 66 69 6c 74 65 72 0a 20 20 20 20 20 20 20 28 6c 61 6d 62 64 | st-map-with-filter........(lambd |
| cfe0 | 61 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 28 69 66 20 74 61 62 6c 69 73 74 2d 75 6d 61 72 6b | a.nil..........(if.tablist-umark |
| d000 | 2d 66 69 6c 74 65 72 65 64 2d 65 6e 74 72 69 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | -filtered-entries..............( |
| d020 | 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 20 28 74 61 62 6c 69 73 74 2d 75 6e 6d 61 72 6b 2d 66 | save-excursion.(tablist-unmark-f |
| d040 | 6f 72 77 61 72 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 74 61 62 6c 69 73 74 2d 66 69 6c 74 | orward)))..........(tablist-filt |
| d060 | 65 72 2d 68 69 64 65 2d 65 6e 74 72 79 29 29 0a 20 20 20 20 20 20 20 28 74 61 62 6c 69 73 74 2d | er-hide-entry))........(tablist- |
| d080 | 66 69 6c 74 65 72 2d 6e 65 67 61 74 65 20 66 69 6c 74 65 72 29 29 29 29 0a 20 20 28 66 6f 72 63 | filter-negate.filter))))...(forc |
| d0a0 | 65 2d 6d 6f 64 65 2d 6c 69 6e 65 2d 75 70 64 61 74 65 29 29 0a 0a 28 64 65 66 61 64 76 69 63 65 | e-mode-line-update))..(defadvice |
| d0c0 | 20 74 61 62 75 6c 61 74 65 64 2d 6c 69 73 74 2d 70 72 69 6e 74 20 28 61 66 74 65 72 20 74 61 62 | .tabulated-list-print.(after.tab |
| d0e0 | 75 6c 61 74 65 64 2d 6c 69 73 74 20 61 63 74 69 76 61 74 65 29 0a 20 20 22 52 65 61 70 70 6c 79 | ulated-list.activate)..."Reapply |
| d100 | 20 74 68 65 20 66 69 6c 74 65 72 2e 22 0a 20 20 28 77 68 65 6e 20 28 6f 72 20 74 61 62 6c 69 73 | .the.filter."...(when.(or.tablis |
| d120 | 74 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 72 69 76 65 | t-minor-mode.............(derive |
| d140 | 64 2d 6d 6f 64 65 2d 70 20 27 74 61 62 6c 69 73 74 2d 6d 6f 64 65 29 29 0a 20 20 20 20 28 74 61 | d-mode-p.'tablist-mode)).....(ta |
| d160 | 62 6c 69 73 74 2d 61 70 70 6c 79 2d 66 69 6c 74 65 72 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 | blist-apply-filter)))..(defun.ta |
| d180 | 62 6c 69 73 74 2d 65 76 61 6c 2d 66 69 6c 74 65 72 20 28 66 69 6c 74 65 72 29 0a 20 20 28 74 61 | blist-eval-filter.(filter)...(ta |
| d1a0 | 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 65 76 61 6c 0a 20 20 20 66 69 6c 74 65 72 0a 20 20 20 28 | blist-filter-eval....filter....( |
| d1c0 | 74 61 62 75 6c 61 74 65 64 2d 6c 69 73 74 2d 67 65 74 2d 69 64 29 0a 20 20 20 28 74 61 62 75 6c | tabulated-list-get-id)....(tabul |
| d1e0 | 61 74 65 64 2d 6c 69 73 74 2d 67 65 74 2d 65 6e 74 72 79 29 0a 20 20 20 28 63 64 72 20 28 61 73 | ated-list-get-entry)....(cdr.(as |
| d200 | 73 71 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 74 61 62 6c 69 73 74 2d 6e 61 6d 65 64 2d 66 69 6c 74 | sq.major-mode.tablist-named-filt |
| d220 | 65 72 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 6d 61 70 2d 77 69 74 68 2d | er))))..(defun.tablist-map-with- |
| d240 | 66 69 6c 74 65 72 20 28 66 6e 20 66 69 6c 74 65 72 20 26 6f 70 74 69 6f 6e 61 6c 20 73 68 6f 77 | filter.(fn.filter.&optional.show |
| d260 | 2d 70 72 6f 67 72 65 73 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -progress....................... |
| d280 | 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 73 74 69 6e 67 75 69 73 68 2d 6f 6e 65 2d 6d 61 72 | .............distinguish-one-mar |
| d2a0 | 6b 65 64 29 0a 20 20 22 43 61 6c 6c 20 46 4e 20 66 6f 72 20 65 76 65 72 79 20 75 6e 66 69 6c 74 | ked)..."Call.FN.for.every.unfilt |
| d2c0 | 65 72 65 64 20 65 6e 74 72 79 20 6d 61 74 63 68 69 6e 67 20 46 49 4c 54 45 52 2e 22 0a 20 20 28 | ered.entry.matching.FILTER."...( |
| d2e0 | 70 72 6f 67 31 0a 20 20 20 20 20 20 28 63 6c 2d 6c 61 62 65 6c 73 20 28 28 73 65 61 72 63 68 20 | prog1.......(cl-labels.((search. |
| d300 | 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 61 | ()...........................(ta |
| d320 | 62 6c 69 73 74 2d 73 6b 69 70 2d 69 6e 76 69 73 69 62 6c 65 2d 65 6e 74 72 69 65 73 29 0a 20 20 | blist-skip-invisible-entries)... |
| d340 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 | ........................(while.( |
| d360 | 61 6e 64 20 28 6e 6f 74 20 28 65 6f 62 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | and.(not.(eobp))................ |
| d380 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 74 61 62 | .......................(not.(tab |
| d3a0 | 6c 69 73 74 2d 65 76 61 6c 2d 66 69 6c 74 65 72 20 66 69 6c 74 65 72 29 29 29 0a 20 20 20 20 20 | list-eval-filter.filter)))...... |
| d3c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 61 62 6c 69 73 74 2d | .......................(tablist- |
| d3e0 | 66 6f 72 77 61 72 64 2d 65 6e 74 72 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | forward-entry))................. |
| d400 | 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 65 6f 62 70 29 0a 20 20 20 20 20 20 20 | ..........(unless.(eobp)........ |
| d420 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 69 6e 74 2d 6d 61 72 6b | .....................(point-mark |
| d440 | 65 72 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 6e 65 78 74 2d 70 6f 73 69 74 69 | er)))).........(let.(next-positi |
| d460 | 6f 6e 20 72 65 73 75 6c 74 73 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 | on.results)...........(save-excu |
| d480 | 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f | rsion.............(goto-char.(po |
| d4a0 | 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6e 65 78 74 | int-min)).............(setq.next |
| d4c0 | 2d 70 6f 73 69 74 69 6f 6e 20 28 73 65 61 72 63 68 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | -position.(search))............. |
| d4e0 | 28 77 68 69 6c 65 20 6e 65 78 74 2d 70 6f 73 69 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 | (while.next-position............ |
| d500 | 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 6e 65 78 74 2d 70 6f 73 69 74 69 6f 6e 29 0a 20 20 20 | ...(goto-char.next-position).... |
| d520 | 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 73 68 6f 77 2d 70 72 6f 67 72 65 73 73 20 28 73 69 | ...........(if.show-progress.(si |
| d540 | 74 2d 66 6f 72 20 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 66 | t-for.0))...............(push.(f |
| d560 | 75 6e 63 61 6c 6c 20 66 6e 29 20 72 65 73 75 6c 74 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | uncall.fn).results)............. |
| d580 | 20 20 3b 3b 20 6d 6f 76 65 20 61 66 74 65 72 20 6c 61 73 74 20 6d 61 74 63 68 0a 20 20 20 20 20 | ..;;.move.after.last.match...... |
| d5a0 | 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 6e 65 78 74 2d 70 6f 73 69 74 69 6f | .........(goto-char.next-positio |
| d5c0 | 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 31 | n)...............(forward-line.1 |
| d5e0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 2d 6d 61 72 6b 65 72 20 6e 65 78 74 | )...............(set-marker.next |
| d600 | 2d 70 6f 73 69 74 69 6f 6e 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 | -position.nil)...............(se |
| d620 | 74 71 20 6e 65 78 74 2d 70 6f 73 69 74 69 6f 6e 20 28 73 65 61 72 63 68 29 29 29 0a 20 20 20 20 | tq.next-position.(search)))..... |
| d640 | 20 20 20 20 20 20 20 20 28 69 66 20 28 61 6e 64 20 64 69 73 74 69 6e 67 75 69 73 68 2d 6f 6e 65 | ........(if.(and.distinguish-one |
| d660 | 2d 6d 61 72 6b 65 64 20 28 3d 20 28 6c 65 6e 67 74 68 20 72 65 73 75 6c 74 73 29 20 31 29 29 0a | -marked.(=.(length.results).1)). |
| d680 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 72 65 73 75 6c 74 73 20 28 63 | ................(setq.results.(c |
| d6a0 | 6f 6e 73 20 74 20 72 65 73 75 6c 74 73 29 29 29 29 29 29 29 29 0a 0a 3b 3b 0a 3b 3b 20 2a 2a 46 | ons.t.results))))))))..;;.;;.**F |
| d6c0 | 69 6c 74 65 72 20 43 6f 6d 6d 61 6e 64 73 0a 3b 3b 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 | ilter.Commands.;;.(defun.tablist |
| d6e0 | 2d 70 75 73 68 2d 66 69 6c 74 65 72 20 28 66 69 6c 74 65 72 20 26 6f 70 74 69 6f 6e 61 6c 20 69 | -push-filter.(filter.&optional.i |
| d700 | 6e 74 65 72 61 63 74 69 76 65 20 6f 72 2d 70 29 0a 20 20 28 73 65 74 71 20 74 61 62 6c 69 73 74 | nteractive.or-p)...(setq.tablist |
| d720 | 2d 63 75 72 72 65 6e 74 2d 66 69 6c 74 65 72 0a 20 20 20 20 20 20 20 20 28 74 61 62 6c 69 73 74 | -current-filter.........(tablist |
| d740 | 2d 66 69 6c 74 65 72 2d 70 75 73 68 0a 20 20 20 20 20 20 20 20 20 74 61 62 6c 69 73 74 2d 63 75 | -filter-push..........tablist-cu |
| d760 | 72 72 65 6e 74 2d 66 69 6c 74 65 72 0a 20 20 20 20 20 20 20 20 20 66 69 6c 74 65 72 20 6f 72 2d | rrent-filter..........filter.or- |
| d780 | 70 29 29 0a 20 20 28 74 61 62 6c 69 73 74 2d 61 70 70 6c 79 2d 66 69 6c 74 65 72 29 0a 20 20 28 | p))...(tablist-apply-filter)...( |
| d7a0 | 77 68 65 6e 20 69 6e 74 65 72 61 63 74 69 76 65 0a 20 20 20 20 28 74 61 62 6c 69 73 74 2d 64 69 | when.interactive.....(tablist-di |
| d7c0 | 73 70 6c 61 79 2d 66 69 6c 74 65 72 2d 74 65 6d 70 6f 72 61 72 69 6c 79 29 29 29 0a 0a 28 64 65 | splay-filter-temporarily)))..(de |
| d7e0 | 66 75 6e 20 74 61 62 6c 69 73 74 2d 70 6f 70 2d 66 69 6c 74 65 72 20 28 26 6f 70 74 69 6f 6e 61 | fun.tablist-pop-filter.(&optiona |
| d800 | 6c 20 6e 20 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 22 52 65 6d 6f 76 65 20 74 68 65 20 66 | l.n.interactive)..."Remove.the.f |
| d820 | 69 72 73 74 20 4e 20 66 69 6c 74 65 72 20 63 6f 6d 70 6f 6e 65 6e 74 73 2e 22 0a 20 20 28 69 6e | irst.N.filter.components."...(in |
| d840 | 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 28 70 72 65 66 69 78 2d 6e 75 6d 65 72 69 63 2d | teractive.(list.(prefix-numeric- |
| d860 | 76 61 6c 75 65 20 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 29 20 74 29 29 0a 20 20 | value.current-prefix-arg).t))... |
| d880 | 28 77 68 69 6c 65 20 28 61 6e 64 20 74 61 62 6c 69 73 74 2d 63 75 72 72 65 6e 74 2d 66 69 6c 74 | (while.(and.tablist-current-filt |
| d8a0 | 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3e 20 6e 20 30 29 29 0a 20 20 20 20 28 73 | er...............(>.n.0)).....(s |
| d8c0 | 65 74 71 20 74 61 62 6c 69 73 74 2d 63 75 72 72 65 6e 74 2d 66 69 6c 74 65 72 0a 20 20 20 20 20 | etq.tablist-current-filter...... |
| d8e0 | 20 20 20 20 20 28 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 70 6f 70 0a 20 20 20 20 20 20 20 | .....(tablist-filter-pop........ |
| d900 | 20 20 20 20 74 61 62 6c 69 73 74 2d 63 75 72 72 65 6e 74 2d 66 69 6c 74 65 72 29 29 0a 20 20 20 | ....tablist-current-filter)).... |
| d920 | 20 28 63 6c 2d 64 65 63 66 20 6e 29 29 0a 20 20 28 74 61 62 6c 69 73 74 2d 61 70 70 6c 79 2d 66 | .(cl-decf.n))...(tablist-apply-f |
| d940 | 69 6c 74 65 72 29 0a 20 20 28 77 68 65 6e 20 69 6e 74 65 72 61 63 74 69 76 65 0a 20 20 20 20 28 | ilter)...(when.interactive.....( |
| d960 | 77 68 65 6e 20 28 3e 20 6e 20 30 29 0a 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 54 68 65 | when.(>.n.0).......(message."The |
| d980 | 20 66 69 6c 74 65 72 20 69 73 20 65 6d 70 74 79 2e 22 29 29 0a 20 20 20 20 28 74 61 62 6c 69 73 | .filter.is.empty.")).....(tablis |
| d9a0 | 74 2d 64 69 73 70 6c 61 79 2d 66 69 6c 74 65 72 2d 74 65 6d 70 6f 72 61 72 69 6c 79 29 29 0a 20 | t-display-filter-temporarily)).. |
| d9c0 | 20 6e 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 6e 65 67 61 74 65 2d 66 69 6c 74 65 | .n)..(defun.tablist-negate-filte |
| d9e0 | 72 20 28 26 6f 70 74 69 6f 6e 61 6c 20 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 22 4e 65 67 | r.(&optional.interactive)..."Neg |
| da00 | 61 74 65 20 74 68 65 20 63 75 72 72 65 6e 74 20 66 69 6c 74 65 72 2e 22 0a 20 20 28 69 6e 74 65 | ate.the.current.filter."...(inte |
| da20 | 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 74 29 29 0a 20 20 28 73 65 74 71 20 74 61 62 6c 69 73 | ractive.(list.t))...(setq.tablis |
| da40 | 74 2d 63 75 72 72 65 6e 74 2d 66 69 6c 74 65 72 0a 20 20 20 20 20 20 20 20 28 74 61 62 6c 69 73 | t-current-filter.........(tablis |
| da60 | 74 2d 66 69 6c 74 65 72 2d 6e 65 67 61 74 65 0a 20 20 20 20 20 20 20 20 20 74 61 62 6c 69 73 74 | t-filter-negate..........tablist |
| da80 | 2d 63 75 72 72 65 6e 74 2d 66 69 6c 74 65 72 29 29 0a 20 20 28 74 61 62 6c 69 73 74 2d 61 70 70 | -current-filter))...(tablist-app |
| daa0 | 6c 79 2d 66 69 6c 74 65 72 29 0a 20 20 28 77 68 65 6e 20 69 6e 74 65 72 61 63 74 69 76 65 0a 20 | ly-filter)...(when.interactive.. |
| dac0 | 20 20 20 28 74 61 62 6c 69 73 74 2d 64 69 73 70 6c 61 79 2d 66 69 6c 74 65 72 2d 74 65 6d 70 6f | ...(tablist-display-filter-tempo |
| dae0 | 72 61 72 69 6c 79 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 74 6f 67 67 6c 65 | rarily)))..(defun.tablist-toggle |
| db00 | 2d 66 69 72 73 74 2d 66 69 6c 74 65 72 2d 6c 6f 67 69 63 20 28 29 0a 20 20 22 54 6f 67 67 6c 65 | -first-filter-logic.()..."Toggle |
| db20 | 20 62 65 74 77 65 65 6e 20 61 6e 64 2f 6f 72 20 66 6f 72 20 74 68 65 20 66 69 72 73 74 20 66 69 | .between.and/or.for.the.first.fi |
| db40 | 6c 74 65 72 20 6f 70 65 72 61 6e 64 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 | lter.operand."...(interactive).. |
| db60 | 20 28 73 65 74 71 20 74 61 62 6c 69 73 74 2d 63 75 72 72 65 6e 74 2d 66 69 6c 74 65 72 0a 20 20 | .(setq.tablist-current-filter... |
| db80 | 20 20 20 20 20 20 28 70 63 61 73 65 20 74 61 62 6c 69 73 74 2d 63 75 72 72 65 6e 74 2d 66 69 6c | ......(pcase.tablist-current-fil |
| dba0 | 74 65 72 0a 20 20 20 20 20 20 20 20 20 20 28 60 28 6f 72 20 2c 78 31 20 2c 78 32 29 0a 20 20 20 | ter...........(`(or.,x1.,x2).... |
| dbc0 | 20 20 20 20 20 20 20 20 60 28 61 6e 64 20 2c 78 31 20 2c 78 32 29 29 0a 20 20 20 20 20 20 20 20 | ........`(and.,x1.,x2))......... |
| dbe0 | 20 20 28 60 28 61 6e 64 20 2c 78 31 20 2c 78 32 29 0a 20 20 20 20 20 20 20 20 20 20 20 60 28 6f | ..(`(and.,x1.,x2)............`(o |
| dc00 | 72 20 2c 78 31 20 2c 78 32 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 60 28 6e 6f 74 20 2c 78 29 | r.,x1.,x2))...........(`(not.,x) |
| dc20 | 20 78 29 0a 20 20 20 20 20 20 20 20 20 20 28 78 20 60 28 6e 6f 74 20 2c 78 29 29 29 29 0a 20 20 | .x)...........(x.`(not.,x))))... |
| dc40 | 28 74 61 62 6c 69 73 74 2d 61 70 70 6c 79 2d 66 69 6c 74 65 72 29 0a 20 20 28 74 61 62 6c 69 73 | (tablist-apply-filter)...(tablis |
| dc60 | 74 2d 64 69 73 70 6c 61 79 2d 66 69 6c 74 65 72 2d 74 65 6d 70 6f 72 61 72 69 6c 79 29 29 0a 0a | t-display-filter-temporarily)).. |
| dc80 | 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 73 75 73 70 65 6e 64 2d 66 69 6c 74 65 72 20 28 26 | (defun.tablist-suspend-filter.(& |
| dca0 | 6f 70 74 69 6f 6e 61 6c 20 66 6c 61 67 29 0a 20 20 22 54 65 6d 70 6f 72 61 72 69 6c 79 20 64 69 | optional.flag)..."Temporarily.di |
| dcc0 | 73 61 62 6c 65 20 66 69 6c 74 65 72 69 6e 67 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 46 4c 41 | sable.filtering.according.to.FLA |
| dce0 | 47 2e 0a 0a 49 6e 74 65 72 61 63 74 69 76 65 6c 79 2c 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 | G...Interactively,.this.command. |
| dd00 | 74 6f 67 67 6c 65 73 20 66 69 6c 74 65 72 69 6e 67 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 | toggles.filtering."...(interacti |
| dd20 | 76 65 0a 20 20 20 28 6c 69 73 74 20 28 6e 6f 74 20 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d | ve....(list.(not.tablist-filter- |
| dd40 | 73 75 73 70 65 6e 64 65 64 29 29 29 0a 20 20 28 6c 65 74 20 28 28 73 74 61 74 65 20 74 61 62 6c | suspended)))...(let.((state.tabl |
| dd60 | 69 73 74 2d 66 69 6c 74 65 72 2d 73 75 73 70 65 6e 64 65 64 29 29 0a 20 20 20 20 28 75 6e 6c 65 | ist-filter-suspended)).....(unle |
| dd80 | 73 73 20 28 65 71 20 28 6e 6f 74 20 28 6e 6f 74 20 73 74 61 74 65 29 29 0a 20 20 20 20 20 20 20 | ss.(eq.(not.(not.state))........ |
| dda0 | 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 6e 6f 74 20 66 6c 61 67 29 29 29 0a 20 20 20 20 20 | .........(not.(not.flag)))...... |
| ddc0 | 20 28 73 65 74 20 28 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 27 74 61 62 6c | .(set.(make-local-variable.'tabl |
| dde0 | 69 73 74 2d 66 69 6c 74 65 72 2d 73 75 73 70 65 6e 64 65 64 29 20 66 6c 61 67 29 0a 20 20 20 20 | ist-filter-suspended).flag)..... |
| de00 | 20 20 28 74 61 62 6c 69 73 74 2d 61 70 70 6c 79 2d 66 69 6c 74 65 72 29 29 29 29 0a 0a 28 64 65 | ..(tablist-apply-filter))))..(de |
| de20 | 66 75 6e 20 74 61 62 6c 69 73 74 2d 72 65 61 64 2d 72 65 67 65 78 70 2d 66 69 6c 74 65 72 20 28 | fun.tablist-read-regexp-filter.( |
| de40 | 6f 70 65 72 61 74 69 6f 6e 20 61 72 67 29 0a 20 20 28 6c 65 74 20 28 28 63 6f 6c 75 6d 6e 2d 6e | operation.arg)...(let.((column-n |
| de60 | 61 6d 65 20 28 74 61 62 6c 69 73 74 2d 72 65 61 64 2d 63 6f 6c 75 6d 6e 2d 6e 61 6d 65 20 61 72 | ame.(tablist-read-column-name.ar |
| de80 | 67 29 29 29 0a 20 20 20 20 28 6c 69 73 74 0a 20 20 20 20 20 63 6f 6c 75 6d 6e 2d 6e 61 6d 65 0a | g))).....(list......column-name. |
| dea0 | 20 20 20 20 20 28 6c 65 74 20 28 28 72 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 61 64 | .....(let.((re.............(read |
| dec0 | 2d 72 65 67 65 78 70 20 28 66 6f 72 6d 61 74 20 22 25 73 20 77 68 65 72 65 20 25 73 20 6d 61 74 | -regexp.(format."%s.where.%s.mat |
| dee0 | 63 68 65 73 3a 20 22 20 6f 70 65 72 61 74 69 6f 6e 20 63 6f 6c 75 6d 6e 2d 6e 61 6d 65 29 29 29 | ches:.".operation.column-name))) |
| df00 | 29 0a 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 3e 20 28 6c 65 6e 67 74 68 20 72 65 29 20 | )........(unless.(>.(length.re). |
| df20 | 30 29 0a 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 4e 6f 20 72 65 67 65 78 70 20 67 69 | 0)..........(error."No.regexp.gi |
| df40 | 76 65 6e 22 29 29 0a 20 20 20 20 20 20 20 72 65 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 | ven"))........re))))..(defun.tab |
| df60 | 6c 69 73 74 2d 72 65 61 64 2d 65 71 75 61 6c 2d 66 69 6c 74 65 72 20 28 6f 70 65 72 61 74 69 6f | list-read-equal-filter.(operatio |
| df80 | 6e 20 61 72 67 29 0a 20 20 28 6c 65 74 20 28 28 63 6f 6c 75 6d 6e 2d 6e 61 6d 65 20 28 74 61 62 | n.arg)...(let.((column-name.(tab |
| dfa0 | 6c 69 73 74 2d 72 65 61 64 2d 63 6f 6c 75 6d 6e 2d 6e 61 6d 65 20 61 72 67 29 29 29 0a 20 20 20 | list-read-column-name.arg))).... |
| dfc0 | 20 28 6c 69 73 74 0a 20 20 20 20 20 63 6f 6c 75 6d 6e 2d 6e 61 6d 65 0a 20 20 20 20 20 28 72 65 | .(list......column-name......(re |
| dfe0 | 61 64 2d 73 74 72 69 6e 67 20 28 66 6f 72 6d 61 74 20 22 25 73 20 77 68 65 72 65 20 25 73 20 65 | ad-string.(format."%s.where.%s.e |
| e000 | 71 75 61 6c 73 3a 20 22 20 6f 70 65 72 61 74 69 6f 6e 20 63 6f 6c 75 6d 6e 2d 6e 61 6d 65 29 29 | quals:.".operation.column-name)) |
| e020 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 72 65 61 64 2d 6e 75 6d 65 72 69 63 | )))..(defun.tablist-read-numeric |
| e040 | 2d 66 69 6c 74 65 72 20 28 6f 70 65 72 61 74 69 6f 6e 20 61 72 67 29 0a 20 20 28 6c 65 74 2a 20 | -filter.(operation.arg)...(let*. |
| e060 | 28 28 65 6e 74 72 79 20 28 74 61 62 75 6c 61 74 65 64 2d 6c 69 73 74 2d 67 65 74 2d 65 6e 74 72 | ((entry.(tabulated-list-get-entr |
| e080 | 79 20 31 29 29 0a 20 20 20 20 20 20 20 20 20 28 64 65 66 61 75 6c 74 20 28 63 6c 2d 73 6f 6d 65 | y.1))..........(default.(cl-some |
| e0a0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 69 64 78 | ....................(lambda.(idx |
| e0c0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 76 61 | )......................(let.((va |
| e0e0 | 6c 75 65 20 28 74 61 62 6c 69 73 74 2d 6e 74 68 2d 65 6e 74 72 79 20 69 64 78 20 65 6e 74 72 79 | lue.(tablist-nth-entry.idx.entry |
| e100 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e | )))........................(when |
| e120 | 20 28 6f 72 20 28 6e 6f 74 20 28 65 71 20 30 20 28 73 74 72 69 6e 67 2d 74 6f 2d 6e 75 6d 62 65 | .(or.(not.(eq.0.(string-to-numbe |
| e140 | 72 20 76 61 6c 75 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | r.value)))...................... |
| e160 | 20 20 20 20 20 20 20 20 20 20 20 20 28 65 71 75 61 6c 20 22 30 22 20 76 61 6c 75 65 29 29 0a 20 | ............(equal."0".value)).. |
| e180 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 61 62 6c 69 73 74 | ........................(tablist |
| e1a0 | 2d 63 6f 6c 75 6d 6e 2d 6e 61 6d 65 20 69 64 78 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | -column-name.idx))))............ |
| e1c0 | 20 20 20 20 20 20 20 20 28 6e 75 6d 62 65 72 2d 73 65 71 75 65 6e 63 65 20 30 20 28 6c 65 6e 67 | ........(number-sequence.0.(leng |
| e1e0 | 74 68 20 65 6e 74 72 79 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 6f 6c 75 6d 6e 2d 6e 61 | th.entry))))..........(column-na |
| e200 | 6d 65 20 28 74 61 62 6c 69 73 74 2d 72 65 61 64 2d 63 6f 6c 75 6d 6e 2d 6e 61 6d 65 20 61 72 67 | me.(tablist-read-column-name.arg |
| e220 | 20 6e 69 6c 20 64 65 66 61 75 6c 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 6f 70 20 28 63 6f 6d | .nil.default))..........(op.(com |
| e240 | 70 6c 65 74 69 6e 67 2d 72 65 61 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d | pleting-read...............(form |
| e260 | 61 74 20 22 25 73 20 25 73 20 6d 61 74 63 68 69 6e 67 20 62 69 6e 61 72 79 20 6f 70 3a 20 22 20 | at."%s.%s.matching.binary.op:.". |
| e280 | 6f 70 65 72 61 74 69 6f 6e 20 63 6f 6c 75 6d 6e 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 | operation.column-name).......... |
| e2a0 | 20 20 20 20 20 27 28 22 3d 22 20 22 3c 22 20 22 3e 22 20 22 3c 3d 22 20 22 3e 3d 22 29 20 6e 69 | .....'("="."<".">"."<=".">=").ni |
| e2c0 | 6c 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 6f 70 65 72 29 0a 0a 20 20 20 20 28 77 68 65 6e 20 | l.t))..........oper)......(when. |
| e2e0 | 28 65 71 75 61 6c 20 22 22 20 6f 70 29 0a 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 4e 6f 20 6f | (equal."".op).......(error."No.o |
| e300 | 70 65 72 61 74 69 6f 6e 20 73 65 6c 65 63 74 65 64 22 29 29 0a 20 20 20 20 28 73 65 74 71 20 6f | peration.selected")).....(setq.o |
| e320 | 70 20 28 69 6e 74 65 72 6e 20 6f 70 29 29 0a 20 20 20 20 28 73 65 74 71 20 6f 70 65 72 20 28 6e | p.(intern.op)).....(setq.oper.(n |
| e340 | 75 6d 62 65 72 2d 74 6f 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | umber-to-string................. |
| e360 | 28 72 65 61 64 2d 6e 75 6d 62 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 | (read-number..................(f |
| e380 | 6f 72 6d 61 74 20 22 25 73 20 77 68 65 72 65 20 25 73 20 25 73 20 22 20 6f 70 65 72 61 74 69 6f | ormat."%s.where.%s.%s.".operatio |
| e3a0 | 6e 20 63 6f 6c 75 6d 6e 2d 6e 61 6d 65 20 6f 70 29 29 29 29 0a 0a 20 20 20 20 28 6c 69 73 74 20 | n.column-name.op))))......(list. |
| e3c0 | 6f 70 20 63 6f 6c 75 6d 6e 2d 6e 61 6d 65 20 6f 70 65 72 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 | op.column-name.oper)))..(defun.t |
| e3e0 | 61 62 6c 69 73 74 2d 70 75 73 68 2d 72 65 67 65 78 70 2d 66 69 6c 74 65 72 20 28 63 6f 6c 75 6d | ablist-push-regexp-filter.(colum |
| e400 | 6e 2d 6e 61 6d 65 20 72 65 67 65 78 70 29 0a 20 20 22 41 64 64 20 61 20 6e 65 77 20 66 69 6c 74 | n-name.regexp)..."Add.a.new.filt |
| e420 | 65 72 20 6d 61 74 63 68 69 6e 67 20 52 45 47 45 58 50 20 69 6e 20 43 4f 4c 55 4d 4e 2d 4e 41 4d | er.matching.REGEXP.in.COLUMN-NAM |
| e440 | 45 2e 0a 0a 54 68 65 20 66 69 6c 74 65 72 20 69 73 20 61 6e 64 27 65 64 20 77 69 74 68 20 74 68 | E...The.filter.is.and'ed.with.th |
| e460 | 65 20 63 75 72 72 65 6e 74 20 66 69 6c 74 65 72 2e 20 20 55 73 65 0a 60 74 61 62 6c 69 73 74 2d | e.current.filter...Use.`tablist- |
| e480 | 74 6f 67 67 6c 65 2d 66 69 72 73 74 2d 66 69 6c 74 65 72 2d 6c 6f 67 69 63 27 20 74 6f 20 63 68 | toggle-first-filter-logic'.to.ch |
| e4a0 | 61 6e 67 65 20 74 68 69 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 0a 20 20 20 28 74 | ange.this."...(interactive....(t |
| e4c0 | 61 62 6c 69 73 74 2d 77 69 74 68 2d 66 69 6c 74 65 72 2d 64 69 73 70 6c 61 79 65 64 0a 20 20 20 | ablist-with-filter-displayed.... |
| e4e0 | 20 28 74 61 62 6c 69 73 74 2d 72 65 61 64 2d 72 65 67 65 78 70 2d 66 69 6c 74 65 72 20 22 46 69 | .(tablist-read-regexp-filter."Fi |
| e500 | 6c 74 65 72 22 20 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 29 29 29 0a 20 20 28 74 | lter".current-prefix-arg)))...(t |
| e520 | 61 62 6c 69 73 74 2d 70 75 73 68 2d 66 69 6c 74 65 72 0a 20 20 20 60 28 3d 7e 20 2c 63 6f 6c 75 | ablist-push-filter....`(=~.,colu |
| e540 | 6d 6e 2d 6e 61 6d 65 20 2c 72 65 67 65 78 70 29 0a 20 20 20 28 63 61 6c 6c 65 64 2d 69 6e 74 65 | mn-name.,regexp)....(called-inte |
| e560 | 72 61 63 74 69 76 65 6c 79 2d 70 20 27 61 6e 79 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c | ractively-p.'any)))..(defun.tabl |
| e580 | 69 73 74 2d 70 75 73 68 2d 65 71 75 61 6c 2d 66 69 6c 74 65 72 20 28 63 6f 6c 75 6d 6e 2d 6e 61 | ist-push-equal-filter.(column-na |
| e5a0 | 6d 65 20 73 74 72 69 6e 67 29 0a 20 20 22 41 64 64 20 61 20 6e 65 77 20 66 69 6c 74 65 72 20 77 | me.string)..."Add.a.new.filter.w |
| e5c0 | 68 72 65 20 73 74 72 69 6e 67 20 65 71 75 61 6c 73 20 43 4f 4c 55 4d 4e 2d 4e 41 4d 45 27 73 20 | hre.string.equals.COLUMN-NAME's. |
| e5e0 | 76 61 6c 75 65 2e 0a 0a 54 68 65 20 66 69 6c 74 65 72 20 69 73 20 61 6e 64 27 65 64 20 77 69 74 | value...The.filter.is.and'ed.wit |
| e600 | 68 20 74 68 65 20 63 75 72 72 65 6e 74 20 66 69 6c 74 65 72 2e 20 20 55 73 65 0a 60 74 61 62 6c | h.the.current.filter...Use.`tabl |
| e620 | 69 73 74 2d 74 6f 67 67 6c 65 2d 66 69 72 73 74 2d 66 69 6c 74 65 72 2d 6c 6f 67 69 63 27 20 74 | ist-toggle-first-filter-logic'.t |
| e640 | 6f 20 63 68 61 6e 67 65 20 74 68 69 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 0a 20 | o.change.this."...(interactive.. |
| e660 | 20 20 28 74 61 62 6c 69 73 74 2d 77 69 74 68 2d 66 69 6c 74 65 72 2d 64 69 73 70 6c 61 79 65 64 | ..(tablist-with-filter-displayed |
| e680 | 0a 20 20 20 20 28 74 61 62 6c 69 73 74 2d 72 65 61 64 2d 65 71 75 61 6c 2d 66 69 6c 74 65 72 20 | .....(tablist-read-equal-filter. |
| e6a0 | 22 46 69 6c 74 65 72 22 20 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 29 29 29 0a 20 | "Filter".current-prefix-arg))).. |
| e6c0 | 20 28 74 61 62 6c 69 73 74 2d 70 75 73 68 2d 66 69 6c 74 65 72 0a 20 20 20 60 28 3d 3d 20 2c 63 | .(tablist-push-filter....`(==.,c |
| e6e0 | 6f 6c 75 6d 6e 2d 6e 61 6d 65 20 2c 73 74 72 69 6e 67 29 0a 20 20 20 28 63 61 6c 6c 65 64 2d 69 | olumn-name.,string)....(called-i |
| e700 | 6e 74 65 72 61 63 74 69 76 65 6c 79 2d 70 20 27 61 6e 79 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 | nteractively-p.'any)))..(defun.t |
| e720 | 61 62 6c 69 73 74 2d 70 75 73 68 2d 6e 75 6d 65 72 69 63 2d 66 69 6c 74 65 72 20 28 6f 70 20 63 | ablist-push-numeric-filter.(op.c |
| e740 | 6f 6c 75 6d 6e 2d 6e 61 6d 65 20 32 6e 64 2d 61 72 67 29 0a 20 20 22 41 64 64 20 61 20 6e 65 77 | olumn-name.2nd-arg)..."Add.a.new |
| e760 | 20 66 69 6c 74 65 72 20 6d 61 74 63 68 69 6e 67 20 61 20 6e 75 6d 65 72 69 63 20 70 72 65 64 69 | .filter.matching.a.numeric.predi |
| e780 | 63 61 74 65 2e 0a 0a 54 68 65 20 66 69 6c 74 65 72 20 69 73 20 61 6e 64 27 65 64 20 77 69 74 68 | cate...The.filter.is.and'ed.with |
| e7a0 | 20 74 68 65 20 63 75 72 72 65 6e 74 20 66 69 6c 74 65 72 2e 20 20 55 73 65 0a 60 74 61 62 6c 69 | .the.current.filter...Use.`tabli |
| e7c0 | 73 74 2d 74 6f 67 67 6c 65 2d 66 69 72 73 74 2d 66 69 6c 74 65 72 2d 6c 6f 67 69 63 27 20 74 6f | st-toggle-first-filter-logic'.to |
| e7e0 | 20 63 68 61 6e 67 65 20 74 68 69 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 0a 20 20 | .change.this."...(interactive... |
| e800 | 20 28 74 61 62 6c 69 73 74 2d 77 69 74 68 2d 66 69 6c 74 65 72 2d 64 69 73 70 6c 61 79 65 64 0a | .(tablist-with-filter-displayed. |
| e820 | 20 20 20 20 28 74 61 62 6c 69 73 74 2d 72 65 61 64 2d 6e 75 6d 65 72 69 63 2d 66 69 6c 74 65 72 | ....(tablist-read-numeric-filter |
| e840 | 20 22 46 69 6c 74 65 72 22 20 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 29 29 29 0a | ."Filter".current-prefix-arg))). |
| e860 | 20 20 28 74 61 62 6c 69 73 74 2d 70 75 73 68 2d 66 69 6c 74 65 72 0a 20 20 20 60 28 2c 6f 70 20 | ..(tablist-push-filter....`(,op. |
| e880 | 2c 63 6f 6c 75 6d 6e 2d 6e 61 6d 65 20 2c 32 6e 64 2d 61 72 67 29 0a 20 20 20 28 63 61 6c 6c 65 | ,column-name.,2nd-arg)....(calle |
| e8a0 | 64 2d 69 6e 74 65 72 61 63 74 69 76 65 6c 79 2d 70 20 27 61 6e 79 29 29 29 0a 0a 28 64 65 66 75 | d-interactively-p.'any)))..(defu |
| e8c0 | 6e 20 74 61 62 6c 69 73 74 2d 70 75 73 68 2d 6e 61 6d 65 64 2d 66 69 6c 74 65 72 20 28 6e 61 6d | n.tablist-push-named-filter.(nam |
| e8e0 | 65 29 0a 20 20 22 41 64 64 20 61 20 6e 61 6d 65 64 20 66 69 6c 74 65 72 20 63 61 6c 6c 65 64 20 | e)..."Add.a.named.filter.called. |
| e900 | 4e 41 4d 45 2e 0a 0a 4e 61 6d 65 64 20 66 69 6c 74 65 72 20 61 72 65 20 73 61 76 65 64 20 69 6e | NAME...Named.filter.are.saved.in |
| e920 | 20 74 68 65 20 76 61 72 69 61 62 6c 65 20 60 74 61 62 6c 69 73 74 2d 6e 61 6d 65 64 2d 66 69 6c | .the.variable.`tablist-named-fil |
| e940 | 74 65 72 27 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 0a 20 20 20 28 74 61 62 6c 69 73 | ter'."...(interactive....(tablis |
| e960 | 74 2d 77 69 74 68 2d 66 69 6c 74 65 72 2d 64 69 73 70 6c 61 79 65 64 0a 20 20 20 20 28 6c 69 73 | t-with-filter-displayed.....(lis |
| e980 | 74 0a 20 20 20 20 20 28 74 61 62 6c 69 73 74 2d 72 65 61 64 2d 66 69 6c 74 65 72 2d 6e 61 6d 65 | t......(tablist-read-filter-name |
| e9a0 | 20 22 41 64 64 20 66 69 6c 74 65 72 22 29 29 29 29 0a 20 20 28 77 68 65 6e 20 28 61 6e 64 20 6e | ."Add.filter"))))...(when.(and.n |
| e9c0 | 61 6d 65 20 28 73 79 6d 62 6f 6c 70 20 6e 61 6d 65 29 29 0a 20 20 20 20 28 73 65 74 71 20 6e 61 | ame.(symbolp.name)).....(setq.na |
| e9e0 | 6d 65 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 6e 61 6d 65 29 29 29 0a 20 20 28 74 61 62 6c 69 | me.(symbol-name.name)))...(tabli |
| ea00 | 73 74 2d 70 75 73 68 2d 66 69 6c 74 65 72 20 6e 61 6d 65 20 28 63 61 6c 6c 65 64 2d 69 6e 74 65 | st-push-filter.name.(called-inte |
| ea20 | 72 61 63 74 69 76 65 6c 79 2d 70 20 27 61 6e 79 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c | ractively-p.'any)))..(defun.tabl |
| ea40 | 69 73 74 2d 64 65 6c 65 74 65 2d 6e 61 6d 65 64 2d 66 69 6c 74 65 72 20 28 6e 61 6d 65 20 26 6f | ist-delete-named-filter.(name.&o |
| ea60 | 70 74 69 6f 6e 61 6c 20 6d 6f 64 65 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 0a 20 20 20 | ptional.mode)...(interactive.... |
| ea80 | 28 74 61 62 6c 69 73 74 2d 77 69 74 68 2d 66 69 6c 74 65 72 2d 64 69 73 70 6c 61 79 65 64 0a 20 | (tablist-with-filter-displayed.. |
| eaa0 | 20 20 20 28 6c 69 73 74 0a 20 20 20 20 20 28 74 61 62 6c 69 73 74 2d 72 65 61 64 2d 66 69 6c 74 | ...(list......(tablist-read-filt |
| eac0 | 65 72 2d 6e 61 6d 65 20 22 44 65 6c 65 74 65 20 66 69 6c 74 65 72 22 29 29 29 29 0a 20 20 28 73 | er-name."Delete.filter"))))...(s |
| eae0 | 65 74 71 20 74 61 62 6c 69 73 74 2d 63 75 72 72 65 6e 74 2d 66 69 6c 74 65 72 0a 20 20 20 20 20 | etq.tablist-current-filter...... |
| eb00 | 20 20 20 28 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 6d 61 70 0a 20 20 20 20 20 20 20 20 20 | ...(tablist-filter-map.......... |
| eb20 | 28 6c 61 6d 62 64 61 20 28 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 65 71 | (lambda.(f)............(when.(eq |
| eb40 | 75 61 6c 20 66 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 66 | ual.f.name)..............(setq.f |
| eb60 | 20 28 74 61 62 6c 69 73 74 2d 67 65 74 2d 6e 61 6d 65 64 2d 66 69 6c 74 65 72 20 66 29 29 29 0a | .(tablist-get-named-filter.f))). |
| eb80 | 20 20 20 20 20 20 20 20 20 20 20 66 29 0a 20 20 20 20 20 20 20 20 20 74 61 62 6c 69 73 74 2d 63 | ...........f)..........tablist-c |
| eba0 | 75 72 72 65 6e 74 2d 66 69 6c 74 65 72 29 29 0a 20 20 28 75 6e 6c 65 73 73 20 6d 6f 64 65 20 28 | urrent-filter))...(unless.mode.( |
| ebc0 | 73 65 74 71 20 6d 6f 64 65 20 6d 61 6a 6f 72 2d 6d 6f 64 65 29 29 0a 20 20 28 6c 65 74 20 28 28 | setq.mode.major-mode))...(let.(( |
| ebe0 | 6d 6f 64 65 2d 66 69 6c 74 65 72 0a 20 20 20 20 20 20 20 20 20 28 61 73 73 71 20 6d 6f 64 65 20 | mode-filter..........(assq.mode. |
| ec00 | 74 61 62 6c 69 73 74 2d 6e 61 6d 65 64 2d 66 69 6c 74 65 72 29 29 29 0a 20 20 20 20 28 77 68 65 | tablist-named-filter))).....(whe |
| ec20 | 6e 20 6d 6f 64 65 2d 66 69 6c 74 65 72 0a 20 20 20 20 20 20 28 73 65 74 63 64 72 20 6d 6f 64 65 | n.mode-filter.......(setcdr.mode |
| ec40 | 2d 66 69 6c 74 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 72 65 6d 6f 76 65 | -filter...............(cl-remove |
| ec60 | 20 6e 61 6d 65 20 28 63 64 72 20 6d 6f 64 65 2d 66 69 6c 74 65 72 29 0a 20 20 20 20 20 20 20 20 | .name.(cdr.mode-filter)......... |
| ec80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 74 65 73 74 20 27 65 71 75 61 6c 20 3a 6b | .................:test.'equal.:k |
| eca0 | 65 79 20 27 63 61 72 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 6e 61 6d | ey.'car)))))..(defun.tablist-nam |
| ecc0 | 65 2d 63 75 72 72 65 6e 74 2d 66 69 6c 74 65 72 20 28 6e 61 6d 65 29 0a 20 20 28 69 6e 74 65 72 | e-current-filter.(name)...(inter |
| ece0 | 61 63 74 69 76 65 0a 20 20 20 28 6c 69 73 74 20 28 74 61 62 6c 69 73 74 2d 77 69 74 68 2d 66 69 | active....(list.(tablist-with-fi |
| ed00 | 6c 74 65 72 2d 64 69 73 70 6c 61 79 65 64 0a 20 20 20 20 20 20 20 20 20 20 28 72 65 61 64 2d 73 | lter-displayed...........(read-s |
| ed20 | 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 22 41 64 64 20 6e 61 6d 65 20 66 6f 72 20 63 | tring............"Add.name.for.c |
| ed40 | 75 72 72 65 6e 74 20 66 69 6c 74 65 72 3a 20 22 29 29 29 29 0a 20 20 28 75 6e 6c 65 73 73 20 74 | urrent.filter:."))))...(unless.t |
| ed60 | 61 62 6c 69 73 74 2d 63 75 72 72 65 6e 74 2d 66 69 6c 74 65 72 0a 20 20 20 20 28 65 72 72 6f 72 | ablist-current-filter.....(error |
| ed80 | 20 22 46 69 6c 74 65 72 20 69 73 20 65 6d 70 74 79 22 29 29 0a 20 20 28 75 6e 6c 65 73 73 20 28 | ."Filter.is.empty"))...(unless.( |
| eda0 | 3e 20 28 6c 65 6e 67 74 68 20 6e 61 6d 65 29 20 30 29 0a 20 20 20 20 28 65 72 72 6f 72 20 22 4e | >.(length.name).0).....(error."N |
| edc0 | 6f 20 6e 61 6d 65 20 67 69 76 65 6e 22 29 29 0a 20 20 28 74 61 62 6c 69 73 74 2d 70 75 74 2d 6e | o.name.given"))...(tablist-put-n |
| ede0 | 61 6d 65 64 2d 66 69 6c 74 65 72 0a 20 20 20 6e 61 6d 65 20 28 69 66 20 28 73 74 72 69 6e 67 70 | amed-filter....name.(if.(stringp |
| ee00 | 20 74 61 62 6c 69 73 74 2d 63 75 72 72 65 6e 74 2d 66 69 6c 74 65 72 29 0a 20 20 20 20 20 20 20 | .tablist-current-filter)........ |
| ee20 | 20 20 20 20 20 28 74 61 62 6c 69 73 74 2d 67 65 74 2d 6e 61 6d 65 64 2d 66 69 6c 74 65 72 0a 20 | .....(tablist-get-named-filter.. |
| ee40 | 20 20 20 20 20 20 20 20 20 20 20 20 74 61 62 6c 69 73 74 2d 63 75 72 72 65 6e 74 2d 66 69 6c 74 | ............tablist-current-filt |
| ee60 | 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 74 61 62 6c 69 73 74 2d 63 75 72 72 65 6e 74 2d 66 69 | er)...........tablist-current-fi |
| ee80 | 6c 74 65 72 29 29 0a 20 20 28 73 65 74 71 20 74 61 62 6c 69 73 74 2d 63 75 72 72 65 6e 74 2d 66 | lter))...(setq.tablist-current-f |
| eea0 | 69 6c 74 65 72 20 6e 61 6d 65 29 0a 20 20 28 66 6f 72 63 65 2d 6d 6f 64 65 2d 6c 69 6e 65 2d 75 | ilter.name)...(force-mode-line-u |
| eec0 | 70 64 61 74 65 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 64 65 63 6f 6e 73 74 72 | pdate))..(defun.tablist-deconstr |
| eee0 | 75 63 74 2d 6e 61 6d 65 64 2d 66 69 6c 74 65 72 20 28 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 | uct-named-filter.()...(interacti |
| ef00 | 76 65 29 0a 20 20 28 6c 65 74 20 28 66 6f 75 6e 64 29 0a 20 20 20 20 28 73 65 74 71 20 74 61 62 | ve)...(let.(found).....(setq.tab |
| ef20 | 6c 69 73 74 2d 63 75 72 72 65 6e 74 2d 66 69 6c 74 65 72 0a 20 20 20 20 20 20 20 20 20 20 28 74 | list-current-filter...........(t |
| ef40 | 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 6d 61 70 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 | ablist-filter-map............(la |
| ef60 | 6d 62 64 61 20 28 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 | mbda.(f)..............(when.(and |
| ef80 | 20 28 6e 6f 74 20 66 6f 75 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(not.found).................... |
| efa0 | 20 20 20 20 20 28 73 74 72 69 6e 67 70 20 66 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....(stringp.f))............... |
| efc0 | 20 28 73 65 74 71 20 66 6f 75 6e 64 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | .(setq.found.t)................( |
| efe0 | 6c 65 74 20 28 28 64 66 20 28 74 61 62 6c 69 73 74 2d 67 65 74 2d 6e 61 6d 65 64 2d 66 69 6c 74 | let.((df.(tablist-get-named-filt |
| f000 | 65 72 20 66 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 | er.f)))..................(unless |
| f020 | 20 64 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 46 | .df....................(error."F |
| f040 | 69 6c 74 65 72 20 69 73 20 6e 6f 74 20 64 65 66 69 6e 65 64 3a 20 25 73 22 20 66 29 29 0a 20 20 | ilter.is.not.defined:.%s".f))... |
| f060 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 66 20 64 66 29 29 29 0a 20 20 20 | ...............(setq.f.df))).... |
| f080 | 20 20 20 20 20 20 20 20 20 20 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 74 61 62 6c 69 73 74 2d | ..........f)............tablist- |
| f0a0 | 63 75 72 72 65 6e 74 2d 66 69 6c 74 65 72 29 29 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 66 6f 75 | current-filter)).....(unless.fou |
| f0c0 | 6e 64 0a 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 4e 6f 20 6e 61 6d 65 64 20 66 69 6c 74 65 72 | nd.......(error."No.named.filter |
| f0e0 | 20 66 6f 75 6e 64 22 29 29 0a 20 20 20 20 28 66 6f 72 63 65 2d 6d 6f 64 65 2d 6c 69 6e 65 2d 75 | .found")).....(force-mode-line-u |
| f100 | 70 64 61 74 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d | pdate)))..(defun.tablist-filter- |
| f120 | 6e 61 6d 65 73 20 28 26 6f 70 74 69 6f 6e 61 6c 20 6d 6f 64 65 29 0a 20 20 28 6d 61 70 63 61 72 | names.(&optional.mode)...(mapcar |
| f140 | 20 27 63 61 72 20 28 63 64 72 20 28 61 73 73 71 20 28 6f 72 20 6d 6f 64 65 20 6d 61 6a 6f 72 2d | .'car.(cdr.(assq.(or.mode.major- |
| f160 | 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | mode)........................... |
| f180 | 74 61 62 6c 69 73 74 2d 6e 61 6d 65 64 2d 66 69 6c 74 65 72 29 29 29 29 0a 0a 28 64 65 66 75 6e | tablist-named-filter))))..(defun |
| f1a0 | 20 74 61 62 6c 69 73 74 2d 67 65 74 2d 6e 61 6d 65 64 2d 66 69 6c 74 65 72 20 28 6e 61 6d 65 20 | .tablist-get-named-filter.(name. |
| f1c0 | 26 6f 70 74 69 6f 6e 61 6c 20 6d 6f 64 65 29 0a 20 20 28 63 64 72 20 28 61 73 73 6f 63 20 6e 61 | &optional.mode)...(cdr.(assoc.na |
| f1e0 | 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 64 72 20 28 61 73 73 71 20 28 6f 72 20 | me...............(cdr.(assq.(or. |
| f200 | 6d 6f 64 65 20 6d 61 6a 6f 72 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | mode.major-mode)................ |
| f220 | 20 20 20 20 20 20 20 20 20 20 74 61 62 6c 69 73 74 2d 6e 61 6d 65 64 2d 66 69 6c 74 65 72 29 29 | ..........tablist-named-filter)) |
| f240 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 70 75 74 2d 6e 61 6d 65 64 2d 66 69 | )))..(defun.tablist-put-named-fi |
| f260 | 6c 74 65 72 20 28 6e 61 6d 65 20 66 69 6c 74 65 72 20 26 6f 70 74 69 6f 6e 61 6c 20 6d 6f 64 65 | lter.(name.filter.&optional.mode |
| f280 | 29 0a 20 20 28 75 6e 6c 65 73 73 20 6d 6f 64 65 20 28 73 65 74 71 20 6d 6f 64 65 20 6d 61 6a 6f | )...(unless.mode.(setq.mode.majo |
| f2a0 | 72 2d 6d 6f 64 65 29 29 0a 20 20 28 6c 65 74 20 28 28 6d 6f 64 65 2d 66 69 6c 74 65 72 0a 20 20 | r-mode))...(let.((mode-filter... |
| f2c0 | 20 20 20 20 20 20 20 28 61 73 73 71 20 6d 6f 64 65 20 74 61 62 6c 69 73 74 2d 6e 61 6d 65 64 2d | .......(assq.mode.tablist-named- |
| f2e0 | 66 69 6c 74 65 72 29 29 29 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 6d 6f 64 65 2d 66 69 6c 74 65 | filter))).....(unless.mode-filte |
| f300 | 72 0a 20 20 20 20 20 20 28 73 65 74 71 20 6d 6f 64 65 2d 66 69 6c 74 65 72 20 28 63 6f 6e 73 20 | r.......(setq.mode-filter.(cons. |
| f320 | 6d 6f 64 65 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 28 70 75 73 68 20 6d 6f 64 65 2d 66 69 6c 74 | mode.nil)).......(push.mode-filt |
| f340 | 65 72 20 74 61 62 6c 69 73 74 2d 6e 61 6d 65 64 2d 66 69 6c 74 65 72 29 29 0a 20 20 20 20 28 6c | er.tablist-named-filter)).....(l |
| f360 | 65 74 20 28 28 65 6e 74 72 79 20 28 61 73 73 6f 63 20 6e 61 6d 65 20 6d 6f 64 65 2d 66 69 6c 74 | et.((entry.(assoc.name.mode-filt |
| f380 | 65 72 29 29 29 0a 20 20 20 20 20 20 28 69 66 20 65 6e 74 72 79 0a 20 20 20 20 20 20 20 20 20 20 | er))).......(if.entry........... |
| f3a0 | 28 73 65 74 63 64 72 20 65 6e 74 72 79 20 66 69 6c 74 65 72 29 0a 20 20 20 20 20 20 20 20 28 73 | (setcdr.entry.filter).........(s |
| f3c0 | 65 74 63 64 72 20 6d 6f 64 65 2d 66 69 6c 74 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | etcdr.mode-filter............... |
| f3e0 | 20 20 28 6c 69 73 74 20 28 63 6f 6e 73 20 6e 61 6d 65 20 66 69 6c 74 65 72 29 29 29 29 29 29 29 | ..(list.(cons.name.filter))))))) |
| f400 | 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 76 61 6c 69 64 61 74 65 2d 6e 61 6d 65 64 2d | ..(defun.tablist-validate-named- |
| f420 | 66 69 6c 74 65 72 20 28 66 69 6c 74 65 72 29 0a 20 20 28 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 | filter.(filter)...(tablist-filte |
| f440 | 72 2d 6d 61 70 0a 20 20 20 28 6c 61 6d 62 64 61 20 28 66 29 0a 20 20 20 20 20 28 77 68 65 6e 20 | r-map....(lambda.(f)......(when. |
| f460 | 28 61 6e 64 20 28 73 74 72 69 6e 67 70 20 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (and.(stringp.f)................ |
| f480 | 20 28 6e 75 6c 6c 20 28 74 61 62 6c 69 73 74 2d 67 65 74 2d 6e 61 6d 65 64 2d 66 69 6c 74 65 72 | .(null.(tablist-get-named-filter |
| f4a0 | 20 66 29 29 29 0a 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 55 6e 64 65 66 69 6e 65 64 20 6e | .f)))........(error."Undefined.n |
| f4c0 | 61 6d 65 64 20 66 69 6c 74 65 72 3a 20 25 73 20 28 64 65 66 69 6e 65 64 3a 20 25 73 29 22 20 66 | amed.filter:.%s.(defined:.%s)".f |
| f4e0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 6f 6e 63 61 74 20 27 69 64 65 6e 74 | ...............(mapconcat.'ident |
| f500 | 69 74 79 20 28 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 6e 61 6d 65 73 29 20 22 2c 22 29 29 | ity.(tablist-filter-names).",")) |
| f520 | 29 29 0a 20 20 20 66 69 6c 74 65 72 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 65 | ))....filter))..(defun.tablist-e |
| f540 | 64 69 74 2d 66 69 6c 74 65 72 20 28 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 | dit-filter.()...(interactive)... |
| f560 | 28 73 65 74 71 20 74 61 62 6c 69 73 74 2d 63 75 72 72 65 6e 74 2d 66 69 6c 74 65 72 0a 20 20 20 | (setq.tablist-current-filter.... |
| f580 | 20 20 20 20 20 28 74 61 62 6c 69 73 74 2d 77 69 74 68 2d 66 69 6c 74 65 72 2d 64 69 73 70 6c 61 | .....(tablist-with-filter-displa |
| f5a0 | 79 65 64 0a 20 20 20 20 20 20 20 20 20 28 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 65 64 69 | yed..........(tablist-filter-edi |
| f5c0 | 74 2d 66 69 6c 74 65 72 0a 20 20 20 20 20 20 20 20 20 20 22 45 64 69 74 20 66 69 6c 74 65 72 3a | t-filter..........."Edit.filter: |
| f5e0 | 20 22 0a 20 20 20 20 20 20 20 20 20 20 74 61 62 6c 69 73 74 2d 63 75 72 72 65 6e 74 2d 66 69 6c | ."...........tablist-current-fil |
| f600 | 74 65 72 0a 20 20 20 20 20 20 20 20 20 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 27 74 61 62 | ter...........nil...........'tab |
| f620 | 6c 69 73 74 2d 76 61 6c 69 64 61 74 65 2d 6e 61 6d 65 64 2d 66 69 6c 74 65 72 29 29 29 0a 20 20 | list-validate-named-filter)))... |
| f640 | 28 74 61 62 6c 69 73 74 2d 61 70 70 6c 79 2d 66 69 6c 74 65 72 29 29 0a 0a 28 64 65 66 75 6e 20 | (tablist-apply-filter))..(defun. |
| f660 | 74 61 62 6c 69 73 74 2d 63 6c 65 61 72 2d 66 69 6c 74 65 72 20 28 29 0a 20 20 28 69 6e 74 65 72 | tablist-clear-filter.()...(inter |
| f680 | 61 63 74 69 76 65 29 0a 20 20 28 73 65 74 71 20 74 61 62 6c 69 73 74 2d 63 75 72 72 65 6e 74 2d | active)...(setq.tablist-current- |
| f6a0 | 66 69 6c 74 65 72 20 6e 69 6c 29 0a 20 20 28 74 61 62 6c 69 73 74 2d 61 70 70 6c 79 2d 66 69 6c | filter.nil)...(tablist-apply-fil |
| f6c0 | 74 65 72 29 29 0a 0a 3b 3b 20 2a 2a 44 69 73 70 6c 61 79 69 6e 67 20 66 69 6c 74 65 72 0a 3b 3b | ter))..;;.**Displaying.filter.;; |
| f6e0 | 0a 0a 28 64 65 66 63 6f 6e 73 74 20 74 61 62 6c 69 73 74 2d 64 69 73 70 6c 61 79 2d 66 69 6c 74 | ..(defconst.tablist-display-filt |
| f700 | 65 72 2d 6d 6f 64 65 2d 6c 69 6e 65 2d 74 61 67 20 6e 69 6c 29 0a 0a 28 64 65 66 75 6e 20 74 61 | er-mode-line-tag.nil)..(defun.ta |
| f720 | 62 6c 69 73 74 2d 64 69 73 70 6c 61 79 2d 66 69 6c 74 65 72 20 28 26 6f 70 74 69 6f 6e 61 6c 20 | blist-display-filter.(&optional. |
| f740 | 66 6c 61 67 29 0a 20 20 22 44 69 73 70 6c 61 79 20 74 68 65 20 63 75 72 72 65 6e 74 20 66 69 6c | flag)..."Display.the.current.fil |
| f760 | 74 65 72 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 46 4c 41 47 2e 0a 0a 49 66 20 46 4c 41 47 20 | ter.according.to.FLAG...If.FLAG. |
| f780 | 68 61 73 20 74 68 65 20 76 61 6c 75 65 20 27 74 6f 67 67 6c 65 2c 20 74 6f 67 67 6c 65 20 69 74 | has.the.value.'toggle,.toggle.it |
| f7a0 | 27 73 20 76 69 73 69 62 69 6c 69 74 79 2e 0a 49 66 20 46 4c 41 47 20 68 61 73 20 74 68 65 20 27 | 's.visibility..If.FLAG.has.the.' |
| f7c0 | 73 74 61 74 65 2c 20 74 68 65 6e 20 64 6f 20 6e 6f 74 68 69 6e 67 20 62 75 74 20 72 65 74 75 72 | state,.then.do.nothing.but.retur |
| f7e0 | 6e 20 74 68 65 20 63 75 72 72 65 6e 74 0a 76 69 73 69 62 69 6c 69 74 79 2e 22 0a 20 20 28 69 6e | n.the.current.visibility."...(in |
| f800 | 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 27 74 6f 67 67 6c 65 29 29 0a 20 20 28 6c 65 74 | teractive.(list.'toggle))...(let |
| f820 | 2a 20 28 28 74 61 67 20 27 74 61 62 6c 69 73 74 2d 64 69 73 70 6c 61 79 2d 66 69 6c 74 65 72 2d | *.((tag.'tablist-display-filter- |
| f840 | 6d 6f 64 65 2d 6c 69 6e 65 2d 74 61 67 29 0a 20 20 20 20 20 20 20 20 20 28 64 69 73 70 6c 61 79 | mode-line-tag)..........(display |
| f860 | 65 64 2d 70 20 28 6e 6f 74 20 28 6e 6f 74 20 28 61 73 73 71 20 74 61 67 20 6d 6f 64 65 2d 6c 69 | ed-p.(not.(not.(assq.tag.mode-li |
| f880 | 6e 65 2d 66 6f 72 6d 61 74 29 29 29 29 29 0a 20 20 20 20 28 69 66 20 28 65 71 20 66 6c 61 67 20 | ne-format))))).....(if.(eq.flag. |
| f8a0 | 27 73 74 61 74 65 29 0a 20 20 20 20 20 20 20 20 64 69 73 70 6c 61 79 65 64 2d 70 0a 20 20 20 20 | 'state).........displayed-p..... |
| f8c0 | 20 20 28 6c 65 74 20 28 28 64 69 73 70 6c 61 79 2d 70 20 28 6e 6f 74 20 28 6e 6f 74 20 28 69 66 | ..(let.((display-p.(not.(not.(if |
| f8e0 | 20 28 65 71 20 66 6c 61 67 20 27 74 6f 67 67 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(eq.flag.'toggle).............. |
| f900 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 64 69 73 | ........................(not.dis |
| f920 | 70 6c 61 79 65 64 2d 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | played-p)....................... |
| f940 | 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6c 61 67 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 | .............flag))))).........( |
| f960 | 75 6e 6c 65 73 73 20 28 65 71 20 64 69 73 70 6c 61 79 65 64 2d 70 20 64 69 73 70 6c 61 79 2d 70 | unless.(eq.displayed-p.display-p |
| f980 | 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6d 6f 64 65 2d 6c 69 6e 65 2d 66 6f 72 6d | )...........(setq.mode-line-form |
| f9a0 | 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 64 69 73 70 6c 61 79 2d 70 | at.................(if.display-p |
| f9c0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 63 6f 6e 73 | .....................(list.(cons |
| f9e0 | 20 74 61 67 20 6d 6f 64 65 2d 6c 69 6e 65 2d 66 6f 72 6d 61 74 29 0a 20 20 20 20 20 20 20 20 20 | .tag.mode-line-format).......... |
| fa00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 3a 65 76 61 6c 0a 20 20 20 20 20 20 20 | .................'(:eval........ |
| fa20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 70 6c 61 63 65 2d 72 65 | .....................(replace-re |
| fa40 | 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | gexp-in-string.................. |
| fa60 | 20 20 20 20 20 20 20 20 20 20 20 20 22 25 22 20 22 25 25 22 0a 20 20 20 20 20 20 20 20 20 20 20 | ............"%"."%%"............ |
| fa80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 0a 20 20 20 20 20 20 | ..................(concat....... |
| faa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 70 65 72 74 | ........................(propert |
| fac0 | 69 7a 65 20 22 46 69 6c 74 65 72 3a 20 22 20 27 66 61 63 65 20 27 6d 69 6e 69 62 75 66 66 65 72 | ize."Filter:.".'face.'minibuffer |
| fae0 | 2d 70 72 6f 6d 70 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -prompt)........................ |
| fb00 | 20 20 20 20 20 20 20 28 61 6e 64 20 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 73 75 73 70 65 | .......(and.tablist-filter-suspe |
| fb20 | 6e 64 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nded............................ |
| fb40 | 20 20 20 20 20 20 20 20 22 5b 73 75 73 70 65 6e 64 65 64 5d 20 22 29 0a 20 20 20 20 20 20 20 20 | ........"[suspended].")......... |
| fb60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 74 61 62 6c 69 73 | ......................(if.tablis |
| fb80 | 74 2d 63 75 72 72 65 6e 74 2d 66 69 6c 74 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t-current-filter................ |
| fba0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 61 62 6c 69 73 74 2d 66 69 6c 74 | ...................(tablist-filt |
| fbc0 | 65 72 2d 75 6e 70 61 72 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | er-unparse...................... |
| fbe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 61 62 6c 69 73 74 2d 63 75 72 72 65 6e 74 2d 66 69 | ..............tablist-current-fi |
| fc00 | 6c 74 65 72 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | lter.t)......................... |
| fc20 | 20 20 20 20 20 20 20 20 22 5b 6e 6f 6e 65 5d 22 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | ........"[none]")))))........... |
| fc40 | 20 20 20 20 20 20 20 20 28 63 64 72 20 28 61 73 73 71 20 74 61 67 20 6d 6f 64 65 2d 6c 69 6e 65 | ........(cdr.(assq.tag.mode-line |
| fc60 | 2d 66 6f 72 6d 61 74 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 66 6f 72 63 65 2d 6d 6f 64 65 | -format))))).........(force-mode |
| fc80 | 2d 6c 69 6e 65 2d 75 70 64 61 74 65 29 0a 20 20 20 20 20 20 20 20 64 69 73 70 6c 61 79 2d 70 29 | -line-update).........display-p) |
| fca0 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 64 69 73 70 6c 61 79 2d 66 69 6c 74 | )))..(defun.tablist-display-filt |
| fcc0 | 65 72 2d 74 65 6d 70 6f 72 61 72 69 6c 79 20 28 29 0a 20 20 28 74 61 62 6c 69 73 74 2d 77 69 74 | er-temporarily.()...(tablist-wit |
| fce0 | 68 2d 66 69 6c 74 65 72 2d 64 69 73 70 6c 61 79 65 64 0a 20 20 20 28 73 69 74 2d 66 6f 72 20 39 | h-filter-displayed....(sit-for.9 |
| fd00 | 39 39 39 29 29 29 0a 0a 3b 3b 0a 3b 3b 20 2a 2a 48 69 64 69 6e 67 2f 55 6e 68 69 64 69 6e 67 20 | 999)))..;;.;;.**Hiding/Unhiding. |
| fd20 | 45 6e 74 72 69 65 73 0a 3b 3b 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 | Entries.;;.(defun.tablist-filter |
| fd40 | 2d 73 65 74 2d 65 6e 74 72 79 2d 68 69 64 64 65 6e 20 28 66 6c 61 67 20 26 6f 70 74 69 6f 6e 61 | -set-entry-hidden.(flag.&optiona |
| fd60 | 6c 20 70 6f 73 29 0a 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 28 77 68 | l.pos)...(save-excursion.....(wh |
| fd80 | 65 6e 20 70 6f 73 20 28 67 6f 74 6f 2d 63 68 61 72 20 70 6f 73 29 29 0a 20 20 20 20 28 62 65 67 | en.pos.(goto-char.pos)).....(beg |
| fda0 | 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 29 0a 20 20 20 20 28 6c 65 74 20 28 28 69 6e 68 69 62 | inning-of-line).....(let.((inhib |
| fdc0 | 69 74 2d 72 65 61 64 2d 6f 6e 6c 79 20 74 29 29 0a 20 20 20 20 20 20 28 61 64 64 2d 74 65 78 74 | it-read-only.t)).......(add-text |
| fde0 | 2d 70 72 6f 70 65 72 74 69 65 73 0a 20 20 20 20 20 20 20 28 70 6f 69 6e 74 2d 61 74 2d 62 6f 6c | -properties........(point-at-bol |
| fe00 | 29 0a 20 20 20 20 20 20 20 28 31 2b 20 28 70 6f 69 6e 74 2d 61 74 2d 65 6f 6c 29 29 0a 20 20 20 | )........(1+.(point-at-eol)).... |
| fe20 | 20 20 20 20 60 28 69 6e 76 69 73 69 62 6c 65 20 2c 66 6c 61 67 29 29 29 29 29 0a 0a 28 64 65 66 | ....`(invisible.,flag)))))..(def |
| fe40 | 75 6e 20 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 68 69 64 65 2d 65 6e 74 72 79 20 28 26 6f | un.tablist-filter-hide-entry.(&o |
| fe60 | 70 74 69 6f 6e 61 6c 20 70 6f 73 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 | ptional.pos)...(interactive)...( |
| fe80 | 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 73 65 74 2d 65 6e 74 72 79 2d 68 69 64 64 65 6e 20 | tablist-filter-set-entry-hidden. |
| fea0 | 74 20 70 6f 73 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 75 | t.pos))..(defun.tablist-filter-u |
| fec0 | 6e 68 69 64 65 2d 65 6e 74 72 79 20 28 26 6f 70 74 69 6f 6e 61 6c 20 70 6f 73 29 0a 20 20 28 74 | nhide-entry.(&optional.pos)...(t |
| fee0 | 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 73 65 74 2d 65 6e 74 72 79 2d 68 69 64 64 65 6e 20 6e | ablist-filter-set-entry-hidden.n |
| ff00 | 69 6c 20 70 6f 73 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d | il.pos))..(defun.tablist-filter- |
| ff20 | 75 6e 68 69 64 65 2d 62 75 66 66 65 72 20 28 29 0a 20 20 28 6c 65 74 20 28 28 69 6e 68 69 62 69 | unhide-buffer.()...(let.((inhibi |
| ff40 | 74 2d 72 65 61 64 2d 6f 6e 6c 79 20 74 29 29 0a 20 20 20 20 28 72 65 6d 6f 76 65 2d 74 65 78 74 | t-read-only.t)).....(remove-text |
| ff60 | 2d 70 72 6f 70 65 72 74 69 65 73 0a 20 20 20 20 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 20 28 70 6f | -properties......(point-min).(po |
| ff80 | 69 6e 74 2d 6d 61 78 29 0a 20 20 20 20 20 27 28 69 6e 76 69 73 69 62 6c 65 29 29 29 29 0a 0a 28 | int-max)......'(invisible))))..( |
| ffa0 | 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 77 69 6e 64 6f 77 2d 61 74 74 61 63 68 20 28 61 77 69 | defun.tablist-window-attach.(awi |
| ffc0 | 6e 64 6f 77 20 26 6f 70 74 69 6f 6e 61 6c 20 77 69 6e 64 6f 77 29 0a 20 20 22 41 74 74 61 63 68 | ndow.&optional.window)..."Attach |
| ffe0 | 20 41 57 49 4e 44 4f 57 20 74 6f 20 57 49 4e 44 4f 57 2e 0a 0a 54 68 69 73 20 68 61 73 20 74 68 | .AWINDOW.to.WINDOW...This.has.th |
| 10000 | 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 65 66 66 65 63 74 2e 20 20 57 68 65 6e 65 76 65 72 20 57 49 | e.following.effect...Whenever.WI |
| 10020 | 4e 44 4f 57 2c 20 64 65 66 61 75 6c 74 69 6e 67 20 74 6f 0a 74 68 65 20 73 65 6c 65 63 74 65 64 | NDOW,.defaulting.to.the.selected |
| 10040 | 20 77 69 6e 64 6f 77 2c 20 73 74 6f 70 73 20 64 69 73 70 6c 61 79 69 6e 67 20 74 68 65 20 62 75 | .window,.stops.displaying.the.bu |
| 10060 | 66 66 65 72 20 69 74 20 63 75 72 72 65 6e 74 6c 79 0a 64 69 73 70 6c 61 79 73 20 28 65 2e 67 2e | ffer.it.currently.displays.(e.g. |
| 10080 | 2c 20 62 79 20 73 77 69 74 63 68 69 6e 67 20 62 75 66 66 65 72 73 20 6f 72 20 62 65 63 61 75 73 | ,.by.switching.buffers.or.becaus |
| 100a0 | 65 20 69 74 20 77 61 73 20 64 65 6c 65 74 65 64 29 0a 41 57 49 4e 44 4f 57 20 69 73 20 64 65 6c | e.it.was.deleted).AWINDOW.is.del |
| 100c0 | 65 74 65 64 2e 22 0a 20 20 28 75 6e 6c 65 73 73 20 77 69 6e 64 6f 77 20 28 73 65 74 71 20 77 69 | eted."...(unless.window.(setq.wi |
| 100e0 | 6e 64 6f 77 20 28 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 29 29 29 0a 20 20 28 6c 65 74 20 | ndow.(selected-window)))...(let. |
| 10100 | 28 28 62 75 66 66 65 72 20 28 77 69 6e 64 6f 77 2d 62 75 66 66 65 72 20 77 69 6e 64 6f 77 29 29 | ((buffer.(window-buffer.window)) |
| 10120 | 0a 20 20 20 20 20 20 20 20 28 68 6f 6f 6b 20 28 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 77 69 6e | .........(hook.(make-symbol."win |
| 10140 | 64 6f 77 2d 61 74 74 61 63 68 2d 68 6f 6f 6b 22 29 29 29 0a 20 20 20 20 28 66 73 65 74 20 68 6f | dow-attach-hook"))).....(fset.ho |
| 10160 | 6f 6b 0a 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 20 | ok...........(lambda.()......... |
| 10180 | 20 20 20 20 28 77 68 65 6e 20 28 6f 72 20 28 6e 6f 74 20 28 77 69 6e 64 6f 77 2d 6c 69 76 65 2d | ....(when.(or.(not.(window-live- |
| 101a0 | 70 20 77 69 6e 64 6f 77 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | p.window))...................... |
| 101c0 | 20 28 6e 6f 74 20 28 65 71 20 62 75 66 66 65 72 20 28 77 69 6e 64 6f 77 2d 62 75 66 66 65 72 20 | .(not.(eq.buffer.(window-buffer. |
| 101e0 | 77 69 6e 64 6f 77 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 6d 6f 76 65 | window))))...............(remove |
| 10200 | 2d 68 6f 6f 6b 20 27 77 69 6e 64 6f 77 2d 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 2d 63 68 61 6e | -hook.'window-configuration-chan |
| 10220 | 67 65 2d 68 6f 6f 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ge-hook......................... |
| 10240 | 20 20 20 68 6f 6f 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 44 65 6c 65 74 69 | ...hook)...............;;.Deleti |
| 10260 | 6e 67 20 77 69 6e 64 6f 77 73 20 69 6e 73 69 64 65 20 77 63 63 68 20 6d 61 79 20 63 61 75 73 65 | ng.windows.inside.wcch.may.cause |
| 10280 | 20 65 72 72 6f 72 73 20 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 77 69 6e 64 | .errors.in...............;;.wind |
| 102a0 | 6f 77 73 2e 65 6c 20 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 75 6e 2d 77 69 74 68 | ows.el.................(run-with |
| 102c0 | 2d 74 69 6d 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 20 6e 69 6c 20 28 6c 61 6d | -timer................0.nil.(lam |
| 102e0 | 62 64 61 20 28 77 69 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | bda.(win)....................... |
| 10300 | 20 28 77 68 65 6e 20 28 61 6e 64 20 28 77 69 6e 64 6f 77 2d 6c 69 76 65 2d 70 20 77 69 6e 29 0a | .(when.(and.(window-live-p.win). |
| 10320 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 10340 | 20 20 28 6e 6f 74 20 28 65 71 20 77 69 6e 20 28 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 29 | ..(not.(eq.win.(selected-window) |
| 10360 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 | )))..........................(de |
| 10380 | 6c 65 74 65 2d 77 69 6e 64 6f 77 20 77 69 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | lete-window.win))).............. |
| 103a0 | 20 20 61 77 69 6e 64 6f 77 29 29 29 29 0a 20 20 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 77 69 6e | ..awindow)))).....(add-hook.'win |
| 103c0 | 64 6f 77 2d 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 2d 63 68 61 6e 67 65 2d 68 6f 6f 6b 20 68 6f | dow-configuration-change-hook.ho |
| 103e0 | 6f 6b 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 64 69 73 70 6c 61 79 2d 62 75 | ok)))..(defun.tablist-display-bu |
| 10400 | 66 66 65 72 2d 73 70 6c 69 74 2d 62 65 6c 6f 77 2d 61 6e 64 2d 61 74 74 61 63 68 20 28 62 75 66 | ffer-split-below-and-attach.(buf |
| 10420 | 20 61 6c 69 73 74 29 0a 20 20 22 44 69 73 70 6c 61 79 20 62 75 66 66 65 72 20 61 63 74 69 6f 6e | .alist)..."Display.buffer.action |
| 10440 | 20 75 73 69 6e 67 20 60 74 61 62 6c 69 73 74 2d 77 69 6e 64 6f 77 2d 61 74 74 61 63 68 27 2e 22 | .using.`tablist-window-attach'." |
| 10460 | 0a 20 20 28 6c 65 74 20 28 28 77 69 6e 64 6f 77 20 28 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f | ...(let.((window.(selected-windo |
| 10480 | 77 29 29 0a 20 20 20 20 20 20 20 20 28 68 65 69 67 68 74 20 28 63 64 72 20 28 61 73 73 71 20 27 | w)).........(height.(cdr.(assq.' |
| 104a0 | 77 69 6e 64 6f 77 2d 68 65 69 67 68 74 20 61 6c 69 73 74 29 29 29 0a 20 20 20 20 20 20 20 20 6e | window-height.alist))).........n |
| 104c0 | 65 77 77 69 6e 29 0a 20 20 20 20 28 77 68 65 6e 20 68 65 69 67 68 74 0a 20 20 20 20 20 20 28 77 | ewwin).....(when.height.......(w |
| 104e0 | 68 65 6e 20 28 66 6c 6f 61 74 70 20 68 65 69 67 68 74 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 | hen.(floatp.height).........(set |
| 10500 | 71 20 68 65 69 67 68 74 20 28 72 6f 75 6e 64 20 28 2a 20 68 65 69 67 68 74 20 28 66 72 61 6d 65 | q.height.(round.(*.height.(frame |
| 10520 | 2d 68 65 69 67 68 74 29 29 29 29 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 68 65 69 67 68 74 20 | -height))))).......(setq.height. |
| 10540 | 28 2d 20 28 6d 61 78 20 68 65 69 67 68 74 20 77 69 6e 64 6f 77 2d 6d 69 6e 2d 68 65 69 67 68 74 | (-.(max.height.window-min-height |
| 10560 | 29 29 29 29 0a 20 20 20 20 28 73 65 74 71 20 6e 65 77 77 69 6e 20 28 77 69 6e 64 6f 77 2d 2d 64 | )))).....(setq.newwin.(window--d |
| 10580 | 69 73 70 6c 61 79 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | isplay-buffer................... |
| 105a0 | 62 75 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 70 6c 69 74 2d 77 69 6e | buf...................(split-win |
| 105c0 | 64 6f 77 2d 62 65 6c 6f 77 20 68 65 69 67 68 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | dow-below.height)............... |
| 105e0 | 20 20 20 20 27 77 69 6e 64 6f 77 20 61 6c 69 73 74 29 29 0a 20 20 20 20 28 74 61 62 6c 69 73 74 | ....'window.alist)).....(tablist |
| 10600 | 2d 77 69 6e 64 6f 77 2d 61 74 74 61 63 68 20 6e 65 77 77 69 6e 20 77 69 6e 64 6f 77 29 0a 20 20 | -window-attach.newwin.window)... |
| 10620 | 20 20 6e 65 77 77 69 6e 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 67 65 6e 65 72 | ..newwin))..(defun.tablist-gener |
| 10640 | 61 74 65 2d 73 6f 72 74 65 72 20 28 63 6f 6c 75 6d 6e 20 63 6f 6d 70 61 72 65 2d 66 6e 20 26 6f | ate-sorter.(column.compare-fn.&o |
| 10660 | 70 74 69 6f 6e 61 6c 20 72 65 61 64 2d 66 6e 29 0a 20 20 22 47 65 6e 65 72 61 74 65 20 61 20 73 | ptional.read-fn)..."Generate.a.s |
| 10680 | 6f 72 74 20 66 75 6e 63 74 69 6f 6e 20 66 6f 72 20 60 74 61 62 75 6c 61 74 65 64 2d 6c 69 73 74 | ort.function.for.`tabulated-list |
| 106a0 | 27 20 65 6e 74 72 69 65 73 2e 0a 0a 45 78 61 6d 70 6c 65 3a 0a 0a 20 20 20 20 20 5c 28 74 61 62 | '.entries...Example:.......\(tab |
| 106c0 | 6c 69 73 74 2d 67 65 6e 65 72 61 74 65 2d 73 6f 72 74 65 72 20 30 20 27 3c 20 27 73 74 72 69 6e | list-generate-sorter.0.'<.'strin |
| 106e0 | 67 2d 74 6f 2d 6e 75 6d 62 65 72 5c 29 0a 0a 77 6f 75 6c 64 20 63 72 65 61 74 65 20 61 20 73 6f | g-to-number\)..would.create.a.so |
| 10700 | 72 74 20 66 75 6e 63 74 69 6f 6e 20 73 6f 72 74 69 6e 67 20 60 74 61 62 75 6c 61 74 65 64 2d 6c | rt.function.sorting.`tabulated-l |
| 10720 | 69 73 74 2d 65 6e 74 72 69 65 73 27 20 6f 6e 0a 74 68 65 20 30 2d 74 68 20 63 6f 6c 75 6d 6e 20 | ist-entries'.on.the.0-th.column. |
| 10740 | 61 73 20 6e 75 6d 62 65 72 73 20 62 79 20 74 68 65 20 6c 65 73 73 2d 74 68 61 6e 20 72 65 6c 61 | as.numbers.by.the.less-than.rela |
| 10760 | 74 69 6f 6e 2e 22 0a 0a 20 20 28 6c 61 6d 62 64 61 20 28 65 31 20 65 32 29 0a 20 20 20 20 28 66 | tion."....(lambda.(e1.e2).....(f |
| 10780 | 75 6e 63 61 6c 6c 20 63 6f 6d 70 61 72 65 2d 66 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | uncall.compare-fn..............( |
| 107a0 | 66 75 6e 63 61 6c 6c 20 28 6f 72 20 72 65 61 64 2d 66 6e 20 27 69 64 65 6e 74 69 74 79 29 0a 20 | funcall.(or.read-fn.'identity).. |
| 107c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 72 65 66 20 28 63 61 64 72 | .....................(aref.(cadr |
| 107e0 | 20 65 31 29 20 63 6f 6c 75 6d 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 | .e1).column))..............(func |
| 10800 | 61 6c 6c 20 72 65 61 64 2d 66 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | all.read-fn..................... |
| 10820 | 20 20 28 61 72 65 66 20 28 63 61 64 72 20 65 32 29 20 63 6f 6c 75 6d 6e 29 29 29 29 29 0a 0a 28 | ..(aref.(cadr.e2).column)))))..( |
| 10840 | 70 72 6f 76 69 64 65 20 27 74 61 62 6c 69 73 74 29 0a 3b 3b 3b 20 74 61 62 6c 69 73 74 2e 65 6c | provide.'tablist).;;;.tablist.el |
| 10860 | 20 65 6e 64 73 20 68 65 72 65 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ends.here...................... |
| 10880 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 108a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 108c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 108e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10900 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10920 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10940 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10960 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10980 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 109a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 109c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 109e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10a00 | 74 61 62 6c 69 73 74 2d 31 2e 30 2f 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2e 65 6c 00 00 00 | tablist-1.0/tablist-filter.el... |
| 10a20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10a40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10a60 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 10a80 | 30 30 33 37 31 36 33 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 34 37 33 34 00 20 30 00 00 00 | 0037163.00000000000.014734..0... |
| 10aa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10ac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10ae0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10b00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 10b20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 10b40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10b60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10b80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10ba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10bc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10be0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10c00 | 3b 3b 3b 20 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2e 65 6c 20 2d 2d 2d 20 46 69 6c 74 65 72 | ;;;.tablist-filter.el.---.Filter |
| 10c20 | 20 65 78 70 72 65 73 73 69 6f 6e 73 20 66 6f 72 20 74 61 62 6c 69 73 74 73 2e 20 20 2d 2a 2d 20 | .expressions.for.tablists...-*-. |
| 10c40 | 6c 65 78 69 63 61 6c 2d 62 69 6e 64 69 6e 67 3a 74 20 2d 2a 2d 0a 0a 3b 3b 20 43 6f 70 79 72 69 | lexical-binding:t.-*-..;;.Copyri |
| 10c60 | 67 68 74 20 28 43 29 20 32 30 31 33 2c 20 32 30 31 34 20 20 41 6e 64 72 65 61 73 20 50 6f 6c 69 | ght.(C).2013,.2014..Andreas.Poli |
| 10c80 | 74 7a 0a 0a 3b 3b 20 41 75 74 68 6f 72 3a 20 41 6e 64 72 65 61 73 20 50 6f 6c 69 74 7a 20 3c 70 | tz..;;.Author:.Andreas.Politz.<p |
| 10ca0 | 6f 6c 69 74 7a 61 40 66 68 2d 74 72 69 65 72 2e 64 65 3e 0a 3b 3b 20 4b 65 79 77 6f 72 64 73 3a | olitza@fh-trier.de>.;;.Keywords: |
| 10cc0 | 20 65 78 74 65 6e 73 69 6f 6e 73 2c 20 6c 69 73 70 0a 0a 3b 3b 20 54 68 69 73 20 70 72 6f 67 72 | .extensions,.lisp..;;.This.progr |
| 10ce0 | 61 6d 20 69 73 20 66 72 65 65 20 73 6f 66 74 77 61 72 65 3b 20 79 6f 75 20 63 61 6e 20 72 65 64 | am.is.free.software;.you.can.red |
| 10d00 | 69 73 74 72 69 62 75 74 65 20 69 74 20 61 6e 64 2f 6f 72 20 6d 6f 64 69 66 79 0a 3b 3b 20 69 74 | istribute.it.and/or.modify.;;.it |
| 10d20 | 20 75 6e 64 65 72 20 74 68 65 20 74 65 72 6d 73 20 6f 66 20 74 68 65 20 47 4e 55 20 47 65 6e 65 | .under.the.terms.of.the.GNU.Gene |
| 10d40 | 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 61 73 20 70 75 62 6c 69 73 68 65 64 20 | ral.Public.License.as.published. |
| 10d60 | 62 79 0a 3b 3b 20 74 68 65 20 46 72 65 65 20 53 6f 66 74 77 61 72 65 20 46 6f 75 6e 64 61 74 69 | by.;;.the.Free.Software.Foundati |
| 10d80 | 6f 6e 2c 20 65 69 74 68 65 72 20 76 65 72 73 69 6f 6e 20 33 20 6f 66 20 74 68 65 20 4c 69 63 65 | on,.either.version.3.of.the.Lice |
| 10da0 | 6e 73 65 2c 20 6f 72 0a 3b 3b 20 28 61 74 20 79 6f 75 72 20 6f 70 74 69 6f 6e 29 20 61 6e 79 20 | nse,.or.;;.(at.your.option).any. |
| 10dc0 | 6c 61 74 65 72 20 76 65 72 73 69 6f 6e 2e 0a 0a 3b 3b 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 | later.version...;;.This.program. |
| 10de0 | 69 73 20 64 69 73 74 72 69 62 75 74 65 64 20 69 6e 20 74 68 65 20 68 6f 70 65 20 74 68 61 74 20 | is.distributed.in.the.hope.that. |
| 10e00 | 69 74 20 77 69 6c 6c 20 62 65 20 75 73 65 66 75 6c 2c 0a 3b 3b 20 62 75 74 20 57 49 54 48 4f 55 | it.will.be.useful,.;;.but.WITHOU |
| 10e20 | 54 20 41 4e 59 20 57 41 52 52 41 4e 54 59 3b 20 77 69 74 68 6f 75 74 20 65 76 65 6e 20 74 68 65 | T.ANY.WARRANTY;.without.even.the |
| 10e40 | 20 69 6d 70 6c 69 65 64 20 77 61 72 72 61 6e 74 79 20 6f 66 0a 3b 3b 20 4d 45 52 43 48 41 4e 54 | .implied.warranty.of.;;.MERCHANT |
| 10e60 | 41 42 49 4c 49 54 59 20 6f 72 20 46 49 54 4e 45 53 53 20 46 4f 52 20 41 20 50 41 52 54 49 43 55 | ABILITY.or.FITNESS.FOR.A.PARTICU |
| 10e80 | 4c 41 52 20 50 55 52 50 4f 53 45 2e 20 20 53 65 65 20 74 68 65 0a 3b 3b 20 47 4e 55 20 47 65 6e | LAR.PURPOSE...See.the.;;.GNU.Gen |
| 10ea0 | 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 66 6f 72 20 6d 6f 72 65 20 64 65 74 | eral.Public.License.for.more.det |
| 10ec0 | 61 69 6c 73 2e 0a 0a 3b 3b 20 59 6f 75 20 73 68 6f 75 6c 64 20 68 61 76 65 20 72 65 63 65 69 76 | ails...;;.You.should.have.receiv |
| 10ee0 | 65 64 20 61 20 63 6f 70 79 20 6f 66 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 | ed.a.copy.of.the.GNU.General.Pub |
| 10f00 | 6c 69 63 20 4c 69 63 65 6e 73 65 0a 3b 3b 20 61 6c 6f 6e 67 20 77 69 74 68 20 74 68 69 73 20 70 | lic.License.;;.along.with.this.p |
| 10f20 | 72 6f 67 72 61 6d 2e 20 20 49 66 20 6e 6f 74 2c 20 73 65 65 20 3c 68 74 74 70 3a 2f 2f 77 77 77 | rogram...If.not,.see.<http://www |
| 10f40 | 2e 67 6e 75 2e 6f 72 67 2f 6c 69 63 65 6e 73 65 73 2f 3e 2e 0a 0a 3b 3b 3b 20 43 6f 6d 6d 65 6e | .gnu.org/licenses/>...;;;.Commen |
| 10f60 | 74 61 72 79 3a 0a 0a 3b 3b 0a 0a 28 64 65 66 76 61 72 20 70 79 74 68 6f 6e 2d 6d 6f 64 65 2d 68 | tary:..;;..(defvar.python-mode-h |
| 10f80 | 6f 6f 6b 29 0a 28 6c 65 74 20 28 70 79 74 68 6f 6e 2d 6d 6f 64 65 2d 68 6f 6f 6b 29 20 20 20 20 | ook).(let.(python-mode-hook).... |
| 10fa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 46 49 58 4d 45 3a 20 57 68 79 3f 0a 28 72 65 71 75 69 | .............;FIXME:.Why?.(requi |
| 10fc0 | 72 65 20 27 73 65 6d 61 6e 74 69 63 2f 77 69 73 65 6e 74 2f 63 6f 6d 70 29 0a 28 72 65 71 75 69 | re.'semantic/wisent/comp).(requi |
| 10fe0 | 72 65 20 27 73 65 6d 61 6e 74 69 63 2f 77 69 73 65 6e 74 2f 77 69 73 65 6e 74 29 29 0a 0a 3b 3b | re.'semantic/wisent/wisent))..;; |
| 11000 | 3b 20 43 6f 64 65 3a 0a 0a 28 64 65 66 76 61 72 20 77 69 73 65 6e 74 2d 65 6f 69 2d 74 65 72 6d | ;.Code:..(defvar.wisent-eoi-term |
| 11020 | 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 77 69 73 65 6e 74 2d 70 61 72 73 65 | ).(declare-function.wisent-parse |
| 11040 | 20 22 73 65 6d 61 6e 74 69 63 2f 77 69 73 65 6e 74 2f 77 69 73 65 6e 74 2e 65 6c 22 29 0a 0a 28 | ."semantic/wisent/wisent.el")..( |
| 11060 | 64 65 66 76 61 72 20 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 62 69 6e 61 72 79 2d 6f 70 65 | defvar.tablist-filter-binary-ope |
| 11080 | 72 61 74 6f 72 0a 20 20 27 28 28 3d 3d 20 2e 20 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 6f | rator...'((==...tablist-filter-o |
| 110a0 | 70 2d 65 71 75 61 6c 29 0a 20 20 20 20 28 3d 7e 20 2e 20 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 | p-equal).....(=~...tablist-filte |
| 110c0 | 72 2d 6f 70 2d 72 65 67 65 78 70 29 0a 20 20 20 20 28 3c 20 2e 20 74 61 62 6c 69 73 74 2d 66 69 | r-op-regexp).....(<...tablist-fi |
| 110e0 | 6c 74 65 72 2d 6f 70 2d 3c 29 0a 20 20 20 20 28 3e 20 2e 20 74 61 62 6c 69 73 74 2d 66 69 6c 74 | lter-op-<).....(>...tablist-filt |
| 11100 | 65 72 2d 6f 70 2d 3e 29 0a 20 20 20 20 28 3c 3d 20 2e 20 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 | er-op->).....(<=...tablist-filte |
| 11120 | 72 2d 6f 70 2d 3c 3d 29 0a 20 20 20 20 28 3e 3d 20 2e 20 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 | r-op-<=).....(>=...tablist-filte |
| 11140 | 72 2d 6f 70 2d 3e 3d 29 0a 20 20 20 20 28 3d 20 2e 20 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 | r-op->=).....(=...tablist-filter |
| 11160 | 2d 6f 70 2d 3d 29 29 29 0a 0a 28 64 65 66 76 61 72 20 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 | -op-=)))..(defvar.tablist-filter |
| 11180 | 2d 75 6e 61 72 79 2d 6f 70 65 72 61 74 6f 72 20 6e 69 6c 29 0a 0a 28 64 65 66 76 61 72 20 74 61 | -unary-operator.nil)..(defvar.ta |
| 111a0 | 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 77 69 73 65 6e 74 2d 70 61 72 73 65 72 20 6e 69 6c 29 0a | blist-filter-wisent-parser.nil). |
| 111c0 | 0a 28 64 65 66 76 61 72 20 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 6c 65 78 65 72 2d 72 65 | .(defvar.tablist-filter-lexer-re |
| 111e0 | 67 65 78 70 73 20 6e 69 6c 29 0a 0a 28 64 65 66 76 61 72 20 74 61 62 6c 69 73 74 2d 66 69 6c 74 | gexps.nil)..(defvar.tablist-filt |
| 11200 | 65 72 2d 77 69 73 65 6e 74 2d 67 72 61 6d 6d 61 72 0a 20 20 27 28 0a 20 20 20 20 3b 3b 20 74 65 | er-wisent-grammar...'(.....;;.te |
| 11220 | 72 6d 69 6e 61 6c 73 0a 20 20 20 20 3b 3b 20 55 73 65 20 6c 6f 77 65 72 63 61 73 65 20 66 6f 72 | rminals.....;;.Use.lowercase.for |
| 11240 | 20 62 65 74 74 65 72 20 6c 6f 6f 6b 69 6e 67 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 73 2e 0a | .better.looking.error.messages.. |
| 11260 | 20 20 20 20 28 6f 70 65 72 61 6e 64 20 75 6e 61 72 79 2d 6f 70 65 72 61 74 6f 72 20 62 69 6e 61 | ....(operand.unary-operator.bina |
| 11280 | 72 79 2d 6f 70 65 72 61 74 6f 72 20 6f 72 20 61 6e 64 20 6e 6f 74 29 0a 0a 20 20 20 20 3b 3b 20 | ry-operator.or.and.not)......;;. |
| 112a0 | 74 65 72 6d 69 6e 61 6c 20 61 73 73 6f 63 69 61 74 69 76 69 74 79 20 26 20 70 72 65 63 65 64 65 | terminal.associativity.&.precede |
| 112c0 | 6e 63 65 0a 20 20 20 20 28 28 6c 65 66 74 20 62 69 6e 61 72 79 2d 6f 70 65 72 61 74 6f 72 29 0a | nce.....((left.binary-operator). |
| 112e0 | 20 20 20 20 20 28 6c 65 66 74 20 75 6e 61 72 79 2d 6f 70 65 72 61 74 6f 72 29 0a 20 20 20 20 20 | .....(left.unary-operator)...... |
| 11300 | 28 6c 65 66 74 20 6f 72 29 0a 20 20 20 20 20 28 6c 65 66 74 20 61 6e 64 29 0a 20 20 20 20 20 28 | (left.or)......(left.and)......( |
| 11320 | 6c 65 66 74 20 6e 6f 74 29 29 0a 0a 20 20 20 20 3b 3b 20 72 75 6c 65 73 0a 20 20 20 20 28 66 69 | left.not))......;;.rules.....(fi |
| 11340 | 6c 74 65 72 2d 6f 72 2d 65 6d 70 74 79 0a 20 20 20 20 20 28 28 6e 69 6c 29 29 0a 20 20 20 20 20 | lter-or-empty......((nil))...... |
| 11360 | 28 28 3f 5c 28 20 3f 5c 29 29 20 6e 69 6c 29 0a 20 20 20 20 20 28 28 66 69 6c 74 65 72 29 20 24 | ((?\(.?\)).nil)......((filter).$ |
| 11380 | 31 29 29 0a 20 20 20 20 28 66 69 6c 74 65 72 0a 20 20 20 20 20 28 28 6f 70 65 72 61 6e 64 29 20 | 1)).....(filter......((operand). |
| 113a0 | 24 31 29 20 3b 3b 4e 61 6d 65 64 20 66 69 6c 74 65 72 0a 20 20 20 20 20 28 28 6f 70 65 72 61 6e | $1).;;Named.filter......((operan |
| 113c0 | 64 20 62 69 6e 61 72 79 2d 6f 70 65 72 61 74 6f 72 20 6f 70 65 72 61 6e 64 29 20 60 28 2c 28 69 | d.binary-operator.operand).`(,(i |
| 113e0 | 6e 74 65 72 6e 20 24 32 29 20 2c 24 31 20 2c 24 33 29 29 0a 20 20 20 20 20 28 28 75 6e 61 72 79 | ntern.$2).,$1.,$3))......((unary |
| 11400 | 2d 6f 70 65 72 61 74 6f 72 20 6f 70 65 72 61 6e 64 29 20 60 28 2c 28 69 6e 74 65 72 6e 20 24 31 | -operator.operand).`(,(intern.$1 |
| 11420 | 29 20 2c 24 32 29 29 0a 20 20 20 20 20 28 28 6e 6f 74 20 66 69 6c 74 65 72 29 20 60 28 6e 6f 74 | ).,$2))......((not.filter).`(not |
| 11440 | 20 2c 24 32 29 29 0a 20 20 20 20 20 28 28 66 69 6c 74 65 72 20 61 6e 64 20 66 69 6c 74 65 72 29 | .,$2))......((filter.and.filter) |
| 11460 | 20 60 28 61 6e 64 20 2c 24 31 20 2c 24 33 29 29 0a 20 20 20 20 20 28 28 66 69 6c 74 65 72 20 6f | .`(and.,$1.,$3))......((filter.o |
| 11480 | 72 20 66 69 6c 74 65 72 29 20 60 28 6f 72 20 2c 24 31 20 2c 24 33 29 29 0a 20 20 20 20 20 28 28 | r.filter).`(or.,$1.,$3))......(( |
| 114a0 | 3f 5c 28 20 66 69 6c 74 65 72 20 3f 5c 29 29 20 24 32 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 | ?\(.filter.?\)).$2))))..(defun.t |
| 114c0 | 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 70 61 72 73 65 72 2d 69 6e 69 74 20 28 26 6f 70 74 69 | ablist-filter-parser-init.(&opti |
| 114e0 | 6f 6e 61 6c 20 72 65 69 6e 69 74 69 61 6c 69 7a 65 20 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 | onal.reinitialize.interactive).. |
| 11500 | 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 74 20 74 29 29 0a 20 20 28 75 6e 6c | .(interactive.(list.t.t))...(unl |
| 11520 | 65 73 73 20 28 61 6e 64 20 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 6c 65 78 65 72 2d 72 65 | ess.(and.tablist-filter-lexer-re |
| 11540 | 67 65 78 70 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 72 65 69 6e 69 74 | gexps................(not.reinit |
| 11560 | 69 61 6c 69 7a 65 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 72 65 20 28 6d 61 70 63 61 72 0a 20 | ialize)).....(let.((re.(mapcar.. |
| 11580 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 6c 29 0a 20 20 20 20 20 20 | ..............(lambda.(l)....... |
| 115a0 | 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 72 65 20 28 72 65 67 65 78 70 2d 6f 70 74 | ...........(let.((re.(regexp-opt |
| 115c0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 | .............................(ma |
| 115e0 | 70 63 61 72 20 27 73 79 6d 62 6f 6c 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | pcar.'symbol-name............... |
| 11600 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 61 72 20 27 63 | ......................(mapcar.'c |
| 11620 | 61 72 20 6c 29 29 20 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ar.l)).t)))....................( |
| 11640 | 69 66 20 28 3d 20 28 6c 65 6e 67 74 68 20 72 65 29 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 | if.(=.(length.re).0)............ |
| 11660 | 20 20 20 20 20 20 20 20 20 20 20 20 22 2e 5c 5c 60 22 20 3b 3b 6d 61 74 63 68 65 73 20 6e 6f 74 | ............".\\`".;;matches.not |
| 11680 | 68 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 29 29 29 0a | hing......................re))). |
| 116a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 74 61 62 6c 69 73 74 2d 66 69 6c | ...............(list.tablist-fil |
| 116c0 | 74 65 72 2d 62 69 6e 61 72 79 2d 6f 70 65 72 61 74 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ter-binary-operator............. |
| 116e0 | 20 20 20 20 20 20 20 20 20 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 75 6e 61 72 79 2d 6f 70 | .........tablist-filter-unary-op |
| 11700 | 65 72 61 74 6f 72 29 29 29 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 74 61 62 6c 69 73 74 2d 66 | erator)))).......(setq.tablist-f |
| 11720 | 69 6c 74 65 72 2d 6c 65 78 65 72 2d 72 65 67 65 78 70 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ilter-lexer-regexps............. |
| 11740 | 28 6e 72 65 76 65 72 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 28 63 6f | (nreverse..............(cons.(co |
| 11760 | 6e 63 61 74 20 22 5c 5c 28 3f 3a 22 20 28 63 61 72 20 72 65 29 20 22 5c 5c 7c 22 20 28 63 61 64 | ncat."\\(?:".(car.re)."\\|".(cad |
| 11780 | 72 20 72 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | r.re)........................... |
| 117a0 | 20 22 5c 5c 7c 5b 20 5c 74 5c 66 5c 72 5c 6e 5c 22 21 28 29 5d 5c 5c 7c 26 26 5c 5c 7c 7c 7c 5c | ."\\|[.\t\f\r\n\"!()]\\|&&\\|||\ |
| 117c0 | 5c 29 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 29 29 29 29 29 0a | \)")....................re))))). |
| 117e0 | 20 20 28 75 6e 6c 65 73 73 20 28 61 6e 64 20 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 77 69 | ..(unless.(and.tablist-filter-wi |
| 11800 | 73 65 6e 74 2d 70 61 72 73 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 | sent-parser................(not. |
| 11820 | 72 65 69 6e 69 74 69 61 6c 69 7a 65 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 77 69 73 65 6e 74 | reinitialize)).....(let.((wisent |
| 11840 | 2d 63 6f 6d 70 69 6c 65 2d 67 72 61 6d 6d 61 72 2a 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 79 | -compile-grammar*............(sy |
| 11860 | 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 27 77 69 73 65 6e | mbol-function.............'wisen |
| 11880 | 74 2d 63 6f 6d 70 69 6c 65 2d 67 72 61 6d 6d 61 72 29 29 29 0a 20 20 20 20 20 20 28 73 65 74 71 | t-compile-grammar))).......(setq |
| 118a0 | 20 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 77 69 73 65 6e 74 2d 70 61 72 73 65 72 0a 20 20 | .tablist-filter-wisent-parser... |
| 118c0 | 20 20 20 20 20 20 20 20 20 20 3b 3b 20 54 72 69 63 6b 20 74 68 65 20 62 79 74 65 2d 63 6f 6d 70 | ..........;;.Trick.the.byte-comp |
| 118e0 | 69 6c 65 20 69 6e 74 6f 20 6e 6f 74 20 75 73 69 6e 67 20 74 68 65 20 62 79 74 65 2d 63 6f 6d 70 | ile.into.not.using.the.byte-comp |
| 11900 | 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 68 61 6e 64 6c 65 72 20 69 6e 20 73 65 | ile.............;;.handler.in.se |
| 11920 | 6d 61 6e 74 69 63 2f 77 69 73 65 6e 74 2f 63 6f 6d 70 2e 65 6c 2c 20 73 69 6e 63 65 20 69 74 20 | mantic/wisent/comp.el,.since.it. |
| 11940 | 64 6f 65 73 20 6e 6f 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 61 6c 77 61 79 73 20 77 | does.not.............;;.always.w |
| 11960 | 6f 72 6b 20 28 77 69 73 65 6e 74 2d 63 6f 6e 74 65 78 74 2d 63 6f 6d 70 69 6c 65 2d 67 72 61 6d | ork.(wisent-context-compile-gram |
| 11980 | 6d 61 72 20 6e 2f 61 29 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 77 | mar.n/a)..............(funcall.w |
| 119a0 | 69 73 65 6e 74 2d 63 6f 6d 70 69 6c 65 2d 67 72 61 6d 6d 61 72 2a 0a 20 20 20 20 20 20 20 20 20 | isent-compile-grammar*.......... |
| 119c0 | 20 20 20 20 20 20 20 20 20 20 20 20 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 77 69 73 65 6e | ............tablist-filter-wisen |
| 119e0 | 74 2d 67 72 61 6d 6d 61 72 29 29 29 29 0a 20 20 28 77 68 65 6e 20 69 6e 74 65 72 61 63 74 69 76 | t-grammar))))...(when.interactiv |
| 11a00 | 65 0a 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 50 61 72 73 65 72 20 72 65 69 6e 69 74 69 61 6c | e.....(message."Parser.reinitial |
| 11a20 | 69 7a 65 64 2e 22 29 29 0a 20 20 6e 69 6c 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d | ized."))...nil)..(defun.tablist- |
| 11a40 | 66 69 6c 74 65 72 2d 77 69 73 65 6e 74 2d 6c 65 78 65 72 20 28 29 0a 20 20 28 63 6c 2d 64 65 73 | filter-wisent-lexer.()...(cl-des |
| 11a60 | 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 75 6e 61 72 79 2d 6f 70 20 62 69 6e 61 72 79 | tructuring-bind.(unary-op.binary |
| 11a80 | 2d 6f 70 20 6b 65 79 77 6f 72 64 73 29 0a 20 20 20 20 20 20 74 61 62 6c 69 73 74 2d 66 69 6c 74 | -op.keywords).......tablist-filt |
| 11aa0 | 65 72 2d 6c 65 78 65 72 2d 72 65 67 65 78 70 73 0a 20 20 20 20 28 73 6b 69 70 2d 63 68 61 72 73 | er-lexer-regexps.....(skip-chars |
| 11ac0 | 2d 66 6f 72 77 61 72 64 20 22 20 5c 74 5c 66 5c 72 5c 6e 22 29 0a 20 20 20 20 28 63 6f 6e 64 0a | -forward.".\t\f\r\n").....(cond. |
| 11ae0 | 20 20 20 20 20 28 28 65 6f 62 70 29 20 28 6c 69 73 74 20 77 69 73 65 6e 74 2d 65 6f 69 2d 74 65 | .....((eobp).(list.wisent-eoi-te |
| 11b00 | 72 6d 29 29 0a 20 20 20 20 20 28 28 3d 20 3f 5c 22 20 28 63 68 61 72 2d 61 66 74 65 72 29 29 0a | rm))......((=.?\".(char-after)). |
| 11b20 | 20 20 20 20 20 20 60 28 6f 70 65 72 61 6e 64 20 2c 20 28 63 6f 6e 64 69 74 69 6f 6e 2d 63 61 73 | ......`(operand.,.(condition-cas |
| 11b40 | 65 20 65 72 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 61 64 20 | e.err.....................(read. |
| 11b60 | 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (current-buffer))............... |
| 11b80 | 20 20 20 20 28 65 72 72 6f 72 20 28 73 69 67 6e 61 6c 20 28 63 61 72 20 65 72 72 29 20 28 63 6f | ....(error.(signal.(car.err).(co |
| 11ba0 | 6e 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ns.............................. |
| 11bc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 69 6e 76 61 6c 69 64 20 6c 69 73 70 20 73 74 72 | ..............."invalid.lisp.str |
| 11be0 | 69 6e 67 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ing"............................ |
| 11c00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 64 72 20 65 72 72 29 29 29 29 29 29 29 | .................(cdr.err))))))) |
| 11c20 | 0a 20 20 20 20 20 28 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 75 6e 61 72 79 2d 6f 70 29 0a 20 20 20 | ......((looking-at.unary-op).... |
| 11c40 | 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 6d 61 74 63 68 2d 65 6e 64 20 30 29 29 0a 20 20 20 | ...(goto-char.(match-end.0)).... |
| 11c60 | 20 20 20 60 28 75 6e 61 72 79 2d 6f 70 65 72 61 74 6f 72 20 2c 28 6d 61 74 63 68 2d 73 74 72 69 | ...`(unary-operator.,(match-stri |
| 11c80 | 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 30 29 29 29 0a 20 20 20 20 20 28 28 6c 6f 6f | ng-no-properties.0)))......((loo |
| 11ca0 | 6b 69 6e 67 2d 61 74 20 62 69 6e 61 72 79 2d 6f 70 29 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 | king-at.binary-op).......(goto-c |
| 11cc0 | 68 61 72 20 28 6d 61 74 63 68 2d 65 6e 64 20 30 29 29 0a 20 20 20 20 20 20 60 28 62 69 6e 61 72 | har.(match-end.0)).......`(binar |
| 11ce0 | 79 2d 6f 70 65 72 61 74 6f 72 20 2c 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f | y-operator.,(match-string-no-pro |
| 11d00 | 70 65 72 74 69 65 73 20 30 29 29 29 0a 20 20 20 20 20 28 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 | perties.0)))......((looking-at." |
| 11d20 | 26 26 22 29 0a 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 63 68 61 72 20 32 29 0a 20 20 20 20 | &&").......(forward-char.2)..... |
| 11d40 | 20 20 60 28 61 6e 64 20 22 26 26 22 29 29 0a 20 20 20 20 20 28 28 6c 6f 6f 6b 69 6e 67 2d 61 74 | ..`(and."&&"))......((looking-at |
| 11d60 | 20 22 7c 7c 22 29 0a 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 63 68 61 72 20 32 29 0a 20 20 | ."||").......(forward-char.2)... |
| 11d80 | 20 20 20 20 60 28 6f 72 20 22 7c 7c 22 29 29 0a 20 20 20 20 20 28 28 3d 20 3f 21 20 28 63 68 61 | ....`(or."||"))......((=.?!.(cha |
| 11da0 | 72 2d 61 66 74 65 72 29 29 0a 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 63 68 61 72 29 0a 20 | r-after)).......(forward-char).. |
| 11dc0 | 20 20 20 20 20 60 28 6e 6f 74 20 22 21 22 29 29 0a 20 20 20 20 20 28 28 3d 20 3f 5c 28 20 28 63 | .....`(not."!"))......((=.?\(.(c |
| 11de0 | 68 61 72 2d 61 66 74 65 72 29 29 0a 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 63 68 61 72 29 | har-after)).......(forward-char) |
| 11e00 | 0a 20 20 20 20 20 20 60 28 3f 5c 28 20 22 28 22 29 29 0a 20 20 20 20 20 28 28 3d 20 3f 5c 29 20 | .......`(?\(."("))......((=.?\). |
| 11e20 | 28 63 68 61 72 2d 61 66 74 65 72 29 29 0a 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 63 68 61 | (char-after)).......(forward-cha |
| 11e40 | 72 29 0a 20 20 20 20 20 20 60 28 3f 5c 29 20 22 29 22 29 29 0a 20 20 20 20 20 28 74 0a 20 20 20 | r).......`(?\).")"))......(t.... |
| 11e60 | 20 20 20 28 6c 65 74 20 28 28 62 65 67 20 28 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 | ...(let.((beg.(point)))......... |
| 11e80 | 28 77 68 65 6e 20 28 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 6b 65 79 77 6f 72 64 | (when.(re-search-forward.keyword |
| 11ea0 | 73 20 6e 69 6c 20 27 6d 6f 76 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 | s.nil.'move)...........(goto-cha |
| 11ec0 | 72 20 28 6d 61 74 63 68 2d 62 65 67 69 6e 6e 69 6e 67 20 30 29 29 29 0a 20 20 20 20 20 20 20 20 | r.(match-beginning.0)))......... |
| 11ee0 | 60 28 6f 70 65 72 61 6e 64 20 2c 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d | `(operand.,(buffer-substring-no- |
| 11f00 | 70 72 6f 70 65 72 74 69 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 | properties...................beg |
| 11f20 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 69 6e 74 29 29 29 29 29 29 29 | ...................(point))))))) |
| 11f40 | 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 70 61 72 73 65 20 28 | )..(defun.tablist-filter-parse.( |
| 11f60 | 66 69 6c 74 65 72 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 73 46 69 6c 74 65 72 3a | filter)...(interactive."sFilter: |
| 11f80 | 20 22 29 0a 20 20 28 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 70 61 72 73 65 72 2d 69 6e 69 | .")...(tablist-filter-parser-ini |
| 11fa0 | 74 29 0a 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 0a 20 20 20 20 28 73 61 76 65 | t)...(with-temp-buffer.....(save |
| 11fc0 | 2d 65 78 63 75 72 73 69 6f 6e 20 28 69 6e 73 65 72 74 20 66 69 6c 74 65 72 29 29 0a 20 20 20 20 | -excursion.(insert.filter))..... |
| 11fe0 | 28 63 6f 6e 64 69 74 69 6f 6e 2d 63 61 73 65 20 65 72 72 6f 72 0a 20 20 20 20 20 20 20 20 28 77 | (condition-case.error.........(w |
| 12000 | 69 73 65 6e 74 2d 70 61 72 73 65 20 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 77 69 73 65 6e | isent-parse.tablist-filter-wisen |
| 12020 | 74 2d 70 61 72 73 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 | t-parser.......................' |
| 12040 | 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 77 69 73 65 6e 74 2d 6c 65 78 65 72 0a 20 20 20 20 | tablist-filter-wisent-lexer..... |
| 12060 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 6d 73 67 29 0a | ..................(lambda.(msg). |
| 12080 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 69 67 6e 61 6c 20 | ........................(signal. |
| 120a0 | 27 65 72 72 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | 'error.......................... |
| 120c0 | 20 20 20 20 20 20 20 28 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 | .......(replace-regexp-in-string |
| 120e0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 12100 | 20 20 22 5c 5c 24 45 4f 49 22 20 22 65 6e 64 20 6f 66 20 69 6e 70 75 74 22 0a 20 20 20 20 20 20 | .."\\$EOI"."end.of.input"....... |
| 12120 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 73 67 20 74 | ...........................msg.t |
| 12140 | 20 74 29 29 29 29 0a 20 20 20 20 20 20 28 65 72 72 6f 72 0a 20 20 20 20 20 20 20 28 73 69 67 6e | .t)))).......(error........(sign |
| 12160 | 61 6c 20 27 65 72 72 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 70 70 65 6e 64 | al.'error................(append |
| 12180 | 20 28 69 66 20 28 63 6f 6e 73 70 20 28 63 64 72 20 65 72 72 6f 72 29 29 0a 20 20 20 20 20 20 20 | .(if.(consp.(cdr.error))........ |
| 121a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 64 72 20 65 72 72 6f 72 29 0a | ....................(cdr.error). |
| 121c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 | .........................(list.( |
| 121e0 | 63 64 72 20 65 72 72 6f 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | cdr.error))).................... |
| 12200 | 20 20 20 20 28 6c 69 73 74 20 28 70 6f 69 6e 74 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e | ....(list.(point))))))))..(defun |
| 12220 | 20 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 75 6e 70 61 72 73 65 20 28 66 69 6c 74 65 72 20 | .tablist-filter-unparse.(filter. |
| 12240 | 26 6f 70 74 69 6f 6e 61 6c 20 6e 6f 65 72 72 6f 72 29 0a 20 20 28 63 6c 2d 6c 61 62 65 6c 73 0a | &optional.noerror)...(cl-labels. |
| 12260 | 20 20 20 20 28 28 75 6e 70 61 72 73 65 20 28 66 69 6c 74 65 72 20 26 6f 70 74 69 6f 6e 61 6c 20 | ....((unparse.(filter.&optional. |
| 12280 | 6e 6f 65 72 72 6f 72 29 0a 20 20 20 20 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 20 20 20 28 28 | noerror)........(cond.........(( |
| 122a0 | 73 74 72 69 6e 67 70 20 66 69 6c 74 65 72 29 0a 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6f 72 | stringp.filter)..........(if.(or |
| 122c0 | 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 28 6e 74 68 20 32 20 74 61 62 6c 69 73 74 2d 66 69 | .(string-match.(nth.2.tablist-fi |
| 122e0 | 6c 74 65 72 2d 6c 65 78 65 72 2d 72 65 67 65 78 70 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | lter-lexer-regexps)............. |
| 12300 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6c 74 65 72 29 0a 20 20 20 20 20 | ...................filter)...... |
| 12320 | 20 20 20 20 20 20 20 20 20 20 20 20 28 3d 20 30 20 28 6c 65 6e 67 74 68 20 66 69 6c 74 65 72 29 | ............(=.0.(length.filter) |
| 12340 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 25 53 22 20 66 69 6c | ))..............(format."%S".fil |
| 12360 | 74 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 66 69 6c 74 65 72 29 29 0a 20 20 20 20 20 20 20 | ter)............filter))........ |
| 12380 | 20 28 28 61 6e 64 20 28 65 71 20 28 63 61 72 2d 73 61 66 65 20 66 69 6c 74 65 72 29 20 27 6e 6f | .((and.(eq.(car-safe.filter).'no |
| 123a0 | 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3d 20 28 6c 65 6e 67 74 68 20 66 69 6c 74 | t)...............(=.(length.filt |
| 123c0 | 65 72 29 20 32 29 29 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 70 61 72 65 6e 20 28 6d | er).2))..........(let.((paren.(m |
| 123e0 | 65 6d 71 20 28 63 61 72 2d 73 61 66 65 20 28 6e 74 68 20 31 20 66 69 6c 74 65 72 29 29 20 27 28 | emq.(car-safe.(nth.1.filter)).'( |
| 12400 | 6f 72 20 61 6e 64 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 21 | or.and))))............(format."! |
| 12420 | 25 73 25 73 25 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 70 | %s%s%s"....................(if.p |
| 12440 | 61 72 65 6e 20 22 28 22 20 22 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | aren."("."").................... |
| 12460 | 28 75 6e 70 61 72 73 65 20 28 63 61 64 72 20 66 69 6c 74 65 72 29 20 6e 6f 65 72 72 6f 72 29 0a | (unparse.(cadr.filter).noerror). |
| 12480 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 70 61 72 65 6e 20 22 29 22 | ...................(if.paren.")" |
| 124a0 | 20 22 22 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 28 61 6e 64 20 28 6d 65 6d 71 20 28 63 61 72 | ."")))).........((and.(memq.(car |
| 124c0 | 2d 73 61 66 65 20 66 69 6c 74 65 72 29 20 27 28 61 6e 64 20 6f 72 29 29 0a 20 20 20 20 20 20 20 | -safe.filter).'(and.or))........ |
| 124e0 | 20 20 20 20 20 20 20 28 3d 20 28 6c 65 6e 67 74 68 20 66 69 6c 74 65 72 29 20 33 29 29 0a 20 20 | .......(=.(length.filter).3))... |
| 12500 | 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6c 70 61 72 65 6e 20 28 61 6e 64 20 28 65 71 20 28 63 | .......(let.((lparen.(and.(eq.(c |
| 12520 | 61 72 20 66 69 6c 74 65 72 29 20 27 61 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ar.filter).'and)................ |
| 12540 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 71 20 27 6f 72 20 28 63 61 72 2d 73 61 66 65 20 28 | .............(eq.'or.(car-safe.( |
| 12560 | 63 61 72 2d 73 61 66 65 20 28 63 64 72 20 66 69 6c 74 65 72 29 29 29 29 29 29 0a 20 20 20 20 20 | car-safe.(cdr.filter))))))...... |
| 12580 | 20 20 20 20 20 20 20 20 20 20 28 72 70 61 72 65 6e 20 28 61 6e 64 20 28 65 71 20 28 63 61 72 20 | ..........(rparen.(and.(eq.(car. |
| 125a0 | 66 69 6c 74 65 72 29 20 27 61 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | filter).'and)................... |
| 125c0 | 20 20 20 20 20 20 20 20 20 20 28 65 71 20 27 6f 72 20 28 63 61 72 2d 73 61 66 65 20 28 63 61 72 | ..........(eq.'or.(car-safe.(car |
| 125e0 | 2d 73 61 66 65 20 28 63 64 64 72 20 66 69 6c 74 65 72 29 29 29 29 29 29 29 0a 20 20 20 20 20 20 | -safe.(cddr.filter)))))))....... |
| 12600 | 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 25 73 25 73 25 73 20 25 73 20 25 73 25 73 25 73 22 0a | .....(format."%s%s%s.%s.%s%s%s". |
| 12620 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 6c 70 61 72 65 6e 20 22 28 | ...................(if.lparen."( |
| 12640 | 22 20 22 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 70 61 72 73 | "."")....................(unpars |
| 12660 | 65 20 28 63 61 64 72 20 66 69 6c 74 65 72 29 20 6e 6f 65 72 72 6f 72 29 0a 20 20 20 20 20 20 20 | e.(cadr.filter).noerror)........ |
| 12680 | 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 6c 70 61 72 65 6e 20 22 29 22 20 22 22 29 0a 20 | ............(if.lparen.")"."").. |
| 126a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 63 61 73 65 20 28 63 61 72 20 | ..................(cl-case.(car. |
| 126c0 | 66 69 6c 74 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e | filter)......................(an |
| 126e0 | 64 20 22 26 26 22 29 20 28 6f 72 20 22 7c 7c 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | d."&&").(or."||")).............. |
| 12700 | 20 20 20 20 20 20 28 69 66 20 72 70 61 72 65 6e 20 22 28 22 20 22 22 29 0a 20 20 20 20 20 20 20 | ......(if.rparen."("."")........ |
| 12720 | 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 70 61 72 73 65 20 28 63 61 72 20 28 63 64 64 72 20 | ............(unparse.(car.(cddr. |
| 12740 | 66 69 6c 74 65 72 29 29 20 6e 6f 65 72 72 6f 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | filter)).noerror)............... |
| 12760 | 20 20 20 20 20 28 69 66 20 72 70 61 72 65 6e 20 22 29 22 20 22 22 29 29 29 29 0a 20 20 20 20 20 | .....(if.rparen.")".""))))...... |
| 12780 | 20 20 20 28 28 61 6e 64 20 28 61 73 73 71 20 28 63 61 72 2d 73 61 66 65 20 66 69 6c 74 65 72 29 | ...((and.(assq.(car-safe.filter) |
| 127a0 | 20 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 62 69 6e 61 72 79 2d 6f 70 65 72 61 74 6f 72 29 | .tablist-filter-binary-operator) |
| 127c0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3d 20 28 6c 65 6e 67 74 68 20 66 69 6c 74 65 72 | ...............(=.(length.filter |
| 127e0 | 29 20 33 29 29 0a 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 25 73 20 25 73 20 25 73 | ).3))..........(format."%s.%s.%s |
| 12800 | 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 70 61 72 73 65 20 28 63 61 64 | "..................(unparse.(cad |
| 12820 | 72 20 66 69 6c 74 65 72 29 20 6e 6f 65 72 72 6f 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | r.filter).noerror).............. |
| 12840 | 20 20 20 20 28 63 61 72 20 66 69 6c 74 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....(car.filter)................ |
| 12860 | 20 20 28 75 6e 70 61 72 73 65 20 28 63 61 72 20 28 63 64 64 72 20 66 69 6c 74 65 72 29 29 20 6e | ..(unparse.(car.(cddr.filter)).n |
| 12880 | 6f 65 72 72 6f 72 29 29 29 0a 20 20 20 20 20 20 20 20 28 28 61 6e 64 20 28 61 73 73 71 20 28 63 | oerror))).........((and.(assq.(c |
| 128a0 | 61 72 2d 73 61 66 65 20 66 69 6c 74 65 72 29 20 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 75 | ar-safe.filter).tablist-filter-u |
| 128c0 | 6e 61 72 79 2d 6f 70 65 72 61 74 6f 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3d 20 | nary-operator)...............(=. |
| 128e0 | 28 6c 65 6e 67 74 68 20 66 69 6c 74 65 72 29 20 32 29 29 0a 20 20 20 20 20 20 20 20 20 28 66 6f | (length.filter).2))..........(fo |
| 12900 | 72 6d 61 74 20 22 25 73 20 25 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 | rmat."%s.%s"..................(c |
| 12920 | 61 72 20 66 69 6c 74 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 70 | ar.filter)..................(unp |
| 12940 | 61 72 73 65 20 28 63 61 64 72 20 66 69 6c 74 65 72 29 20 6e 6f 65 72 72 6f 72 29 29 29 0a 20 20 | arse.(cadr.filter).noerror)))... |
| 12960 | 20 20 20 20 20 20 28 28 6e 6f 74 20 66 69 6c 74 65 72 29 20 22 22 29 0a 20 20 20 20 20 20 20 20 | ......((not.filter)."")......... |
| 12980 | 28 74 20 28 66 75 6e 63 61 6c 6c 20 28 69 66 20 6e 6f 65 72 72 6f 72 20 27 66 6f 72 6d 61 74 20 | (t.(funcall.(if.noerror.'format. |
| 129a0 | 27 65 72 72 6f 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 49 6e 76 | 'error)....................."Inv |
| 129c0 | 61 6c 69 64 20 66 69 6c 74 65 72 3a 20 25 73 22 20 66 69 6c 74 65 72 29 29 29 29 29 0a 20 20 20 | alid.filter:.%s".filter))))).... |
| 129e0 | 20 28 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 70 61 72 73 65 72 2d 69 6e 69 74 29 0a 20 20 | .(tablist-filter-parser-init)... |
| 12a00 | 20 20 28 75 6e 70 61 72 73 65 20 66 69 6c 74 65 72 20 6e 6f 65 72 72 6f 72 29 29 29 0a 0a 28 64 | ..(unparse.filter.noerror)))..(d |
| 12a20 | 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 65 76 61 6c 20 28 66 69 6c 74 65 72 | efun.tablist-filter-eval.(filter |
| 12a40 | 20 69 64 20 65 6e 74 72 79 20 26 6f 70 74 69 6f 6e 61 6c 20 6e 61 6d 65 64 2d 61 6c 69 73 74 29 | .id.entry.&optional.named-alist) |
| 12a60 | 0a 20 20 28 63 6c 2d 6c 61 62 65 6c 73 0a 20 20 20 20 28 28 66 65 76 61 6c 20 28 66 69 6c 74 65 | ...(cl-labels.....((feval.(filte |
| 12a80 | 72 29 0a 20 20 20 20 20 20 20 28 70 63 61 73 65 20 66 69 6c 74 65 72 0a 20 20 20 20 20 20 20 20 | r)........(pcase.filter......... |
| 12aa0 | 20 28 60 28 6e 6f 74 20 2e 20 2c 28 61 6e 64 20 6f 70 65 72 61 6e 64 20 28 67 75 61 72 64 20 28 | .(`(not...,(and.operand.(guard.( |
| 12ac0 | 6e 6f 74 20 28 63 64 72 20 6f 70 65 72 61 6e 64 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | not.(cdr.operand)))))........... |
| 12ae0 | 28 6e 6f 74 20 28 66 65 76 61 6c 20 28 63 61 72 20 6f 70 65 72 61 6e 64 29 29 29 29 0a 20 20 20 | (not.(feval.(car.operand)))).... |
| 12b00 | 20 20 20 20 20 20 28 60 28 61 6e 64 20 2e 20 2c 28 61 6e 64 20 6f 70 65 72 61 6e 64 73 20 28 67 | ......(`(and...,(and.operands.(g |
| 12b20 | 75 61 72 64 20 28 3d 20 32 20 28 6c 65 6e 67 74 68 20 6f 70 65 72 61 6e 64 73 29 29 29 29 29 0a | uard.(=.2.(length.operands))))). |
| 12b40 | 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 28 66 65 76 61 6c | ..........(and............(feval |
| 12b60 | 20 28 6e 74 68 20 30 20 6f 70 65 72 61 6e 64 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 66 | .(nth.0.operands))............(f |
| 12b80 | 65 76 61 6c 20 28 6e 74 68 20 31 20 6f 70 65 72 61 6e 64 73 29 29 29 29 0a 20 20 20 20 20 20 20 | eval.(nth.1.operands))))........ |
| 12ba0 | 20 20 28 60 28 6f 72 20 2e 20 2c 28 61 6e 64 20 6f 70 65 72 61 6e 64 73 20 28 67 75 61 72 64 20 | ..(`(or...,(and.operands.(guard. |
| 12bc0 | 28 3d 20 32 20 28 6c 65 6e 67 74 68 20 6f 70 65 72 61 6e 64 73 29 29 29 29 29 0a 20 20 20 20 20 | (=.2.(length.operands)))))...... |
| 12be0 | 20 20 20 20 20 28 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 28 66 65 76 61 6c 20 28 6e 74 68 20 | .....(or............(feval.(nth. |
| 12c00 | 30 20 6f 70 65 72 61 6e 64 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 66 65 76 61 6c 20 28 | 0.operands))............(feval.( |
| 12c20 | 6e 74 68 20 31 20 6f 70 65 72 61 6e 64 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 60 28 2c | nth.1.operands))))..........(`(, |
| 12c40 | 6f 70 20 2e 20 2c 28 61 6e 64 20 6f 70 65 72 61 6e 64 73 20 28 67 75 61 72 64 20 28 3d 20 28 6c | op...,(and.operands.(guard.(=.(l |
| 12c60 | 65 6e 67 74 68 20 6f 70 65 72 61 6e 64 73 29 20 31 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | ength.operands).1))))........... |
| 12c80 | 28 6c 65 74 20 28 28 66 6e 20 28 61 73 73 71 20 6f 70 20 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 | (let.((fn.(assq.op.tablist-filte |
| 12ca0 | 72 2d 75 6e 61 72 79 2d 6f 70 65 72 61 74 6f 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | r-unary-operator)))............. |
| 12cc0 | 28 75 6e 6c 65 73 73 20 66 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 | (unless.fn...............(error. |
| 12ce0 | 22 55 6e 64 65 66 69 6e 65 64 20 75 6e 61 72 79 20 6f 70 65 72 61 74 6f 72 3a 20 25 73 22 20 6f | "Undefined.unary.operator:.%s".o |
| 12d00 | 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 6e 20 69 64 20 65 | p)).............(funcall.fn.id.e |
| 12d20 | 6e 74 72 79 20 28 63 61 72 20 6f 70 65 72 61 6e 64 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 | ntry.(car.operands)))).......... |
| 12d40 | 28 60 28 2c 6f 70 20 2e 20 2c 28 61 6e 64 20 6f 70 65 72 61 6e 64 73 20 28 67 75 61 72 64 20 28 | (`(,op...,(and.operands.(guard.( |
| 12d60 | 3d 20 28 6c 65 6e 67 74 68 20 6f 70 65 72 61 6e 64 73 29 20 32 29 29 29 29 0a 20 20 20 20 20 20 | =.(length.operands).2))))....... |
| 12d80 | 20 20 20 20 28 6c 65 74 20 28 28 66 6e 20 28 63 64 72 20 28 61 73 73 71 20 6f 70 20 74 61 62 6c | ....(let.((fn.(cdr.(assq.op.tabl |
| 12da0 | 69 73 74 2d 66 69 6c 74 65 72 2d 62 69 6e 61 72 79 2d 6f 70 65 72 61 74 6f 72 29 29 29 29 0a 20 | ist-filter-binary-operator)))).. |
| 12dc0 | 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 66 6e 0a 20 20 20 20 20 20 20 20 20 20 | ...........(unless.fn........... |
| 12de0 | 20 20 20 20 28 65 72 72 6f 72 20 22 55 6e 64 65 66 69 6e 65 64 20 62 69 6e 61 72 79 20 6f 70 65 | ....(error."Undefined.binary.ope |
| 12e00 | 72 61 74 6f 72 3a 20 25 73 22 20 6f 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e | rator:.%s".op)).............(fun |
| 12e20 | 63 61 6c 6c 20 66 6e 20 69 64 20 65 6e 74 72 79 20 28 63 61 72 20 6f 70 65 72 61 6e 64 73 29 0a | call.fn.id.entry.(car.operands). |
| 12e40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 64 72 20 6f 70 65 72 61 | .....................(cadr.opera |
| 12e60 | 6e 64 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 28 67 75 61 72 64 20 28 73 74 72 69 6e 67 | nds))))..........((guard.(string |
| 12e80 | 70 20 66 69 6c 74 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 66 6e 20 28 | p.filter))...........(let.((fn.( |
| 12ea0 | 63 64 72 20 28 61 73 73 6f 63 20 66 69 6c 74 65 72 20 6e 61 6d 65 64 2d 61 6c 69 73 74 29 29 29 | cdr.(assoc.filter.named-alist))) |
| 12ec0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 66 6e 0a 20 20 20 20 20 20 20 | ).............(unless.fn........ |
| 12ee0 | 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 55 6e 64 65 66 69 6e 65 64 20 6e 61 6d 65 64 20 66 | .......(error."Undefined.named.f |
| 12f00 | 69 6c 74 65 72 3a 20 25 73 22 20 66 69 6c 74 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ilter:.%s".filter))............. |
| 12f20 | 28 69 66 20 28 66 75 6e 63 74 69 6f 6e 70 20 66 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | (if.(functionp.fn).............. |
| 12f40 | 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 6e 20 69 64 20 65 6e 74 72 79 29 29 0a 20 20 20 20 20 20 | ...(funcall.fn.id.entry))....... |
| 12f60 | 20 20 20 20 20 20 28 66 65 76 61 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 73 | ......(feval..............(if.(s |
| 12f80 | 74 72 69 6e 67 70 20 66 6e 29 20 28 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 75 6e 70 61 72 | tringp.fn).(tablist-filter-unpar |
| 12fa0 | 73 65 20 66 6e 29 20 66 6e 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 60 6e 69 6c 20 74 29 0a | se.fn).fn))))..........(`nil.t). |
| 12fc0 | 20 20 20 20 20 20 20 20 20 28 5f 20 28 65 72 72 6f 72 20 22 49 6e 76 61 6c 69 64 20 66 69 6c 74 | .........(_.(error."Invalid.filt |
| 12fe0 | 65 72 3a 20 25 73 22 20 66 69 6c 74 65 72 29 29 29 29 29 0a 20 20 20 20 28 66 65 76 61 6c 20 66 | er:.%s".filter))))).....(feval.f |
| 13000 | 69 6c 74 65 72 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d | ilter)))..(defun.tablist-filter- |
| 13020 | 67 65 74 2d 69 74 65 6d 2d 62 79 2d 6e 61 6d 65 20 28 65 6e 74 72 79 20 63 6f 6c 2d 6e 61 6d 65 | get-item-by-name.(entry.col-name |
| 13040 | 29 0a 20 20 28 6c 65 74 2a 20 28 28 63 6f 6c 20 28 63 6c 2d 70 6f 73 69 74 69 6f 6e 20 63 6f 6c | )...(let*.((col.(cl-position.col |
| 13060 | 2d 6e 61 6d 65 20 74 61 62 75 6c 61 74 65 64 2d 6c 69 73 74 2d 66 6f 72 6d 61 74 0a 20 20 20 20 | -name.tabulated-list-format..... |
| 13080 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6b 65 79 20 27 63 61 72 | .......................:key.'car |
| 130a0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 74 65 73 | ............................:tes |
| 130c0 | 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 | t............................(la |
| 130e0 | 6d 62 64 61 20 28 73 31 20 73 32 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | mbda.(s1.s2).................... |
| 13100 | 20 20 20 20 20 20 20 20 20 20 28 65 71 20 74 20 28 63 6f 6d 70 61 72 65 2d 73 74 72 69 6e 67 73 | ..........(eq.t.(compare-strings |
| 13120 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 13140 | 20 20 20 20 20 73 31 20 6e 69 6c 20 6e 69 6c 20 73 32 20 6e 69 6c 20 6e 69 6c 20 74 29 29 29 29 | .....s1.nil.nil.s2.nil.nil.t)))) |
| 13160 | 29 0a 20 20 20 20 20 20 20 20 20 28 69 74 65 6d 20 28 61 6e 64 20 63 6f 6c 20 28 65 6c 74 20 65 | )..........(item.(and.col.(elt.e |
| 13180 | 6e 74 72 79 20 63 6f 6c 29 29 29 29 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 63 6f 6c 0a 20 20 20 | ntry.col)))).....(unless.col.... |
| 131a0 | 20 20 20 28 65 72 72 6f 72 20 22 4e 6f 20 73 75 63 68 20 63 6f 6c 75 6d 6e 3a 20 25 73 22 20 63 | ...(error."No.such.column:.%s".c |
| 131c0 | 6f 6c 2d 6e 61 6d 65 29 29 0a 20 20 20 20 28 69 66 20 28 63 6f 6e 73 70 20 69 74 65 6d 29 20 20 | ol-name)).....(if.(consp.item).. |
| 131e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 28 4c 41 42 45 4c 20 2e 20 50 52 4f 50 53 29 | ................;(LABEL...PROPS) |
| 13200 | 0a 20 20 20 20 20 20 20 20 28 63 61 72 20 69 74 65 6d 29 0a 20 20 20 20 20 20 69 74 65 6d 29 29 | .........(car.item).......item)) |
| 13220 | 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 6f 70 2d 65 71 75 61 | )..(defun.tablist-filter-op-equa |
| 13240 | 6c 20 28 5f 69 64 20 65 6e 74 72 79 20 6f 70 31 20 6f 70 32 29 0a 20 20 22 43 4f 4c 55 4d 4e 20 | l.(_id.entry.op1.op2)..."COLUMN. |
| 13260 | 3d 3d 20 53 54 52 49 4e 47 20 3a 20 4d 61 74 63 68 65 73 20 69 66 20 43 4f 4c 55 4d 4e 27 73 20 | ==.STRING.:.Matches.if.COLUMN's. |
| 13280 | 65 6e 74 72 79 20 69 73 20 65 71 75 61 6c 20 74 6f 20 53 54 52 49 4e 47 2e 22 0a 20 20 28 6c 65 | entry.is.equal.to.STRING."...(le |
| 132a0 | 74 20 28 28 69 74 65 6d 20 28 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 67 65 74 2d 69 74 65 | t.((item.(tablist-filter-get-ite |
| 132c0 | 6d 2d 62 79 2d 6e 61 6d 65 20 65 6e 74 72 79 20 6f 70 31 29 29 29 0a 20 20 20 20 28 73 74 72 69 | m-by-name.entry.op1))).....(stri |
| 132e0 | 6e 67 3d 20 69 74 65 6d 20 6f 70 32 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d | ng=.item.op2)))..(defun.tablist- |
| 13300 | 66 69 6c 74 65 72 2d 6f 70 2d 72 65 67 65 78 70 20 28 5f 69 64 20 65 6e 74 72 79 20 6f 70 31 20 | filter-op-regexp.(_id.entry.op1. |
| 13320 | 6f 70 32 29 0a 20 20 22 43 4f 4c 55 4d 4e 20 3d 7e 20 52 45 47 45 58 50 20 3a 20 4d 61 74 63 68 | op2)..."COLUMN.=~.REGEXP.:.Match |
| 13340 | 65 73 20 69 66 20 43 4f 4c 55 4d 4e 27 73 20 65 6e 74 72 79 20 6d 61 74 63 68 65 73 20 52 45 47 | es.if.COLUMN's.entry.matches.REG |
| 13360 | 45 58 50 2e 22 0a 20 20 28 6c 65 74 20 28 28 69 74 65 6d 20 28 74 61 62 6c 69 73 74 2d 66 69 6c | EXP."...(let.((item.(tablist-fil |
| 13380 | 74 65 72 2d 67 65 74 2d 69 74 65 6d 2d 62 79 2d 6e 61 6d 65 20 65 6e 74 72 79 20 6f 70 31 29 29 | ter-get-item-by-name.entry.op1)) |
| 133a0 | 29 0a 20 20 20 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 6f 70 32 20 69 74 65 6d 29 29 29 0a | ).....(string-match.op2.item))). |
| 133c0 | 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 6f 70 2d 3c 20 28 69 64 20 | .(defun.tablist-filter-op-<.(id. |
| 133e0 | 65 6e 74 72 79 20 6f 70 31 20 6f 70 32 29 0a 20 20 22 43 4f 4c 55 4d 4e 20 3c 20 4e 55 4d 42 45 | entry.op1.op2)..."COLUMN.<.NUMBE |
| 13400 | 52 20 3a 20 4d 61 74 63 68 65 73 20 69 66 20 43 4f 4c 55 4d 4e 27 73 20 65 6e 74 72 79 20 69 73 | R.:.Matches.if.COLUMN's.entry.is |
| 13420 | 20 6c 65 73 73 20 74 68 61 6e 20 4e 55 4d 42 45 52 2e 22 0a 20 20 28 74 61 62 6c 69 73 74 2d 66 | .less.than.NUMBER."...(tablist-f |
| 13440 | 69 6c 74 65 72 2d 6f 70 2d 6e 75 6d 65 72 69 63 20 27 3c 20 69 64 20 65 6e 74 72 79 20 6f 70 31 | ilter-op-numeric.'<.id.entry.op1 |
| 13460 | 20 6f 70 32 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 6f 70 | .op2))..(defun.tablist-filter-op |
| 13480 | 2d 3e 20 28 69 64 20 65 6e 74 72 79 20 6f 70 31 20 6f 70 32 29 0a 20 20 22 43 4f 4c 55 4d 4e 20 | ->.(id.entry.op1.op2)..."COLUMN. |
| 134a0 | 3e 20 4e 55 4d 42 45 52 20 3a 20 4d 61 74 63 68 65 73 20 69 66 20 43 4f 4c 55 4d 4e 27 73 20 65 | >.NUMBER.:.Matches.if.COLUMN's.e |
| 134c0 | 6e 74 72 79 20 69 73 20 67 72 65 61 74 65 72 20 74 68 61 6e 20 4e 55 4d 42 45 52 2e 22 0a 20 20 | ntry.is.greater.than.NUMBER."... |
| 134e0 | 28 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 6f 70 2d 6e 75 6d 65 72 69 63 20 27 3e 20 69 64 | (tablist-filter-op-numeric.'>.id |
| 13500 | 20 65 6e 74 72 79 20 6f 70 31 20 6f 70 32 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 | .entry.op1.op2))..(defun.tablist |
| 13520 | 2d 66 69 6c 74 65 72 2d 6f 70 2d 3c 3d 20 28 69 64 20 65 6e 74 72 79 20 6f 70 31 20 6f 70 32 29 | -filter-op-<=.(id.entry.op1.op2) |
| 13540 | 0a 20 20 22 43 4f 4c 55 4d 4e 20 3c 3d 20 4e 55 4d 42 45 52 20 3a 20 4d 61 74 63 68 65 73 20 69 | ..."COLUMN.<=.NUMBER.:.Matches.i |
| 13560 | 66 20 43 4f 4c 55 4d 4e 27 73 20 65 6e 74 72 79 20 69 73 20 6c 65 73 73 20 74 68 61 6e 20 6f 72 | f.COLUMN's.entry.is.less.than.or |
| 13580 | 20 65 71 75 61 6c 20 74 6f 20 4e 55 4d 42 45 52 2e 22 0a 20 20 28 74 61 62 6c 69 73 74 2d 66 69 | .equal.to.NUMBER."...(tablist-fi |
| 135a0 | 6c 74 65 72 2d 6f 70 2d 6e 75 6d 65 72 69 63 20 27 3c 3d 20 69 64 20 65 6e 74 72 79 20 6f 70 31 | lter-op-numeric.'<=.id.entry.op1 |
| 135c0 | 20 6f 70 32 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 6f 70 | .op2))..(defun.tablist-filter-op |
| 135e0 | 2d 3e 3d 20 28 69 64 20 65 6e 74 72 79 20 6f 70 31 20 6f 70 32 29 0a 20 20 22 43 4f 4c 55 4d 4e | ->=.(id.entry.op1.op2)..."COLUMN |
| 13600 | 20 3e 3d 20 4e 55 4d 42 45 52 20 3a 20 4d 61 74 63 68 65 73 20 69 66 20 43 4f 4c 55 4d 4e 27 73 | .>=.NUMBER.:.Matches.if.COLUMN's |
| 13620 | 20 65 6e 74 72 79 20 69 73 20 67 72 65 61 74 65 72 20 74 68 61 6e 20 6f 72 20 65 71 75 61 6c 20 | .entry.is.greater.than.or.equal. |
| 13640 | 74 6f 20 4e 55 4d 42 45 52 2e 22 0a 20 20 28 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 6f 70 | to.NUMBER."...(tablist-filter-op |
| 13660 | 2d 6e 75 6d 65 72 69 63 20 27 3e 3d 20 69 64 20 65 6e 74 72 79 20 6f 70 31 20 6f 70 32 29 29 0a | -numeric.'>=.id.entry.op1.op2)). |
| 13680 | 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 6f 70 2d 3d 20 28 69 64 20 | .(defun.tablist-filter-op-=.(id. |
| 136a0 | 65 6e 74 72 79 20 6f 70 31 20 6f 70 32 29 0a 20 20 22 43 4f 4c 55 4d 4e 20 3d 20 4e 55 4d 42 45 | entry.op1.op2)..."COLUMN.=.NUMBE |
| 136c0 | 52 20 3a 20 4d 61 74 63 68 65 73 20 69 66 20 43 4f 4c 55 4d 4e 27 73 20 65 6e 74 72 79 20 61 73 | R.:.Matches.if.COLUMN's.entry.as |
| 136e0 | 20 61 20 6e 75 6d 62 65 72 20 69 73 20 65 71 75 61 6c 20 74 6f 20 4e 55 4d 42 45 52 2e 22 0a 20 | .a.number.is.equal.to.NUMBER.".. |
| 13700 | 20 28 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 6f 70 2d 6e 75 6d 65 72 69 63 20 27 3d 20 69 | .(tablist-filter-op-numeric.'=.i |
| 13720 | 64 20 65 6e 74 72 79 20 6f 70 31 20 6f 70 32 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 | d.entry.op1.op2))..(defun.tablis |
| 13740 | 74 2d 66 69 6c 74 65 72 2d 6f 70 2d 6e 75 6d 65 72 69 63 20 28 6f 70 20 5f 69 64 20 65 6e 74 72 | t-filter-op-numeric.(op._id.entr |
| 13760 | 79 20 6f 70 31 20 6f 70 32 29 0a 20 20 28 6c 65 74 20 28 28 69 74 65 6d 20 28 74 61 62 6c 69 73 | y.op1.op2)...(let.((item.(tablis |
| 13780 | 74 2d 66 69 6c 74 65 72 2d 67 65 74 2d 69 74 65 6d 2d 62 79 2d 6e 61 6d 65 20 65 6e 74 72 79 20 | t-filter-get-item-by-name.entry. |
| 137a0 | 6f 70 31 29 29 29 0a 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 6f 70 20 28 73 74 72 69 6e 67 2d 74 | op1))).....(funcall.op.(string-t |
| 137c0 | 6f 2d 6e 75 6d 62 65 72 20 69 74 65 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 | o-number.item)..............(str |
| 137e0 | 69 6e 67 2d 74 6f 2d 6e 75 6d 62 65 72 20 6f 70 32 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 | ing-to-number.op2))))..(defun.ta |
| 13800 | 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 68 65 6c 70 20 28 26 6f 70 74 69 6f 6e 61 6c 20 74 65 6d | blist-filter-help.(&optional.tem |
| 13820 | 70 6f 72 61 72 79 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 63 6c 2d 6c 61 | porary)...(interactive)...(cl-la |
| 13840 | 62 65 6c 73 0a 20 20 20 20 28 28 70 72 69 6e 63 2d 6f 70 20 28 6f 70 29 0a 20 20 20 20 20 20 20 | bels.....((princ-op.(op)........ |
| 13860 | 28 70 72 69 6e 63 20 28 63 61 72 20 6f 70 29 29 0a 20 20 20 20 20 20 20 28 70 72 69 6e 63 20 28 | (princ.(car.op))........(princ.( |
| 13880 | 63 6f 6e 63 61 74 20 28 6d 61 6b 65 2d 73 74 72 69 6e 67 20 28 6d 61 78 20 30 20 28 2d 20 34 20 | concat.(make-string.(max.0.(-.4. |
| 138a0 | 28 6c 65 6e 67 74 68 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 28 63 61 72 20 6f 70 29 29 29 29 | (length.(symbol-name.(car.op)))) |
| 138c0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )............................... |
| 138e0 | 20 20 20 20 20 3f 5c 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....?\s)....................... |
| 13900 | 22 2d 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 72 20 | "-.".......................(car. |
| 13920 | 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (split-string................... |
| 13940 | 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 28 63 64 | ..........(or.(documentation.(cd |
| 13960 | 72 20 6f 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | r.op)).......................... |
| 13980 | 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 46 49 58 4d 45 3a 20 4e 6f 74 20 64 6f 63 75 6d | .......(format."FIXME:.Not.docum |
| 139a0 | 65 6e 74 65 64 3a 20 25 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ented:.%s"...................... |
| 139c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 64 72 20 6f 70 29 29 29 0a 20 20 | ...................(cdr.op)))... |
| 139e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 5c 6e 22 20 74 | .........................."\n".t |
| 13a00 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 5c 6e 22 29 29 29 | ))......................."\n"))) |
| 13a20 | 29 0a 20 20 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 0a 20 | ).....(with-temp-buffer-window.. |
| 13a40 | 20 20 20 20 22 2a 48 65 6c 70 2a 22 0a 20 20 20 20 20 28 69 66 20 74 65 6d 70 6f 72 61 72 79 0a | ...."*Help*"......(if.temporary. |
| 13a60 | 20 20 20 20 20 20 20 20 20 27 28 28 6c 61 6d 62 64 61 20 28 62 75 66 20 61 6c 69 73 74 29 0a 20 | .........'((lambda.(buf.alist).. |
| 13a80 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 77 69 6e 0a 20 20 20 20 20 20 20 20 20 | ............(let.((win.......... |
| 13aa0 | 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 64 69 73 70 6c 61 79 2d 62 75 66 66 65 72 2d 72 | ...........(or.(display-buffer-r |
| 13ac0 | 65 75 73 65 2d 77 69 6e 64 6f 77 20 62 75 66 20 61 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 | euse-window.buf.alist).......... |
| 13ae0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 73 70 6c 61 79 2d 62 75 66 66 65 72 2d 69 | ...............(display-buffer-i |
| 13b00 | 6e 2d 73 69 64 65 2d 77 69 6e 64 6f 77 20 62 75 66 20 61 6c 69 73 74 29 29 29 29 0a 20 20 20 20 | n-side-window.buf.alist))))..... |
| 13b20 | 20 20 20 20 20 20 20 20 20 20 20 28 66 69 74 2d 77 69 6e 64 6f 77 2d 74 6f 2d 62 75 66 66 65 72 | ...........(fit-window-to-buffer |
| 13b40 | 20 77 69 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 69 6e 29 29 0a 20 20 20 20 20 | .win)................win))...... |
| 13b60 | 20 20 20 20 20 20 28 73 69 64 65 20 2e 20 62 6f 74 74 6f 6d 29 29 29 0a 20 20 20 20 20 6e 69 6c | ......(side...bottom)))......nil |
| 13b80 | 0a 20 20 20 20 20 28 70 72 69 6e 63 20 22 46 69 6c 74 65 72 20 65 6e 74 72 69 65 73 20 77 69 74 | ......(princ."Filter.entries.wit |
| 13ba0 | 68 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 6f 70 65 72 61 74 6f 72 73 2e 5c 6e 5c 6e 22 29 | h.the.following.operators.\n\n") |
| 13bc0 | 0a 20 20 20 20 20 28 70 72 69 6e 63 20 22 26 26 20 20 2d 20 46 49 4c 54 45 52 31 20 26 26 20 46 | ......(princ."&&..-.FILTER1.&&.F |
| 13be0 | 49 4c 54 45 52 32 20 3a 20 4c 6f 63 69 63 61 6c 20 61 6e 64 2e 5c 6e 22 29 0a 20 20 20 20 20 28 | ILTER2.:.Locical.and.\n")......( |
| 13c00 | 70 72 69 6e 63 20 22 7c 7c 20 20 2d 20 46 49 4c 54 45 52 31 20 7c 7c 20 46 49 4c 54 45 52 32 20 | princ."||..-.FILTER1.||.FILTER2. |
| 13c20 | 3a 20 4c 6f 63 69 63 61 6c 20 6f 72 2e 5c 6e 22 29 0a 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 | :.Locical.or.\n")......(dolist.( |
| 13c40 | 6f 70 20 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 62 69 6e 61 72 79 2d 6f 70 65 72 61 74 6f | op.tablist-filter-binary-operato |
| 13c60 | 72 29 0a 20 20 20 20 20 20 20 28 70 72 69 6e 63 2d 6f 70 20 6f 70 29 29 0a 20 20 20 20 20 28 70 | r)........(princ-op.op))......(p |
| 13c80 | 72 69 6e 63 20 22 21 20 20 2d 20 21 20 46 49 4c 54 45 52 20 3a 20 4c 6f 63 69 63 61 6c 20 6e 6f | rinc."!..-.!.FILTER.:.Locical.no |
| 13ca0 | 74 2e 5c 6e 5c 6e 22 29 0a 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 6f 70 20 74 61 62 6c 69 73 | t.\n\n")......(dolist.(op.tablis |
| 13cc0 | 74 2d 66 69 6c 74 65 72 2d 75 6e 61 72 79 2d 6f 70 65 72 61 74 6f 72 29 0a 20 20 20 20 20 20 20 | t-filter-unary-operator)........ |
| 13ce0 | 28 70 72 69 6e 63 2d 6f 70 20 6f 70 29 29 0a 20 20 20 20 20 28 70 72 69 6e 63 20 22 5c 22 2e 2e | (princ-op.op))......(princ."\".. |
| 13d00 | 2e 5c 22 20 6d 61 79 20 62 65 20 75 73 65 64 20 74 6f 20 71 75 6f 74 65 20 6e 61 6d 65 73 20 61 | .\".may.be.used.to.quote.names.a |
| 13d20 | 6e 64 20 76 61 6c 75 65 73 20 69 66 20 6e 65 63 65 73 73 61 72 79 2c 0a 61 6e 64 20 5c 28 2e 2e | nd.values.if.necessary,.and.\(.. |
| 13d40 | 2e 5c 29 20 74 6f 20 67 72 6f 75 70 20 65 78 70 72 65 73 73 69 6f 6e 73 2e 22 29 0a 20 20 20 20 | .\).to.group.expressions.")..... |
| 13d60 | 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 73 74 61 6e 64 61 72 64 2d 6f | .(with-current-buffer.standard-o |
| 13d80 | 75 74 70 75 74 0a 20 20 20 20 20 20 20 28 68 65 6c 70 2d 6d 6f 64 65 29 29 29 29 29 0a 0a 3b 3b | utput........(help-mode)))))..;; |
| 13da0 | 0a 3b 3b 20 2a 2a 46 69 6c 74 65 72 20 46 75 6e 63 74 69 6f 6e 73 0a 3b 3b 0a 0a 3b 3b 20 66 69 | .;;.**Filter.Functions.;;..;;.fi |
| 13dc0 | 6c 74 65 72 20 3a 3a 3d 20 6e 69 6c 20 7c 20 6e 61 6d 65 64 20 7c 20 66 6e 20 7c 20 28 4f 50 20 | lter.::=.nil.|.named.|.fn.|.(OP. |
| 13de0 | 4f 50 31 20 5b 4f 50 32 5d 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 | OP1.[OP2])..(defun.tablist-filte |
| 13e00 | 72 2d 6e 65 67 61 74 65 20 28 66 69 6c 74 65 72 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 66 69 | r-negate.(filter)..."Return.a.fi |
| 13e20 | 6c 74 65 72 20 6e 6f 74 20 6d 61 74 63 68 69 6e 67 20 66 69 6c 74 65 72 2e 22 0a 20 20 28 63 6f | lter.not.matching.filter."...(co |
| 13e40 | 6e 64 0a 20 20 20 28 28 65 71 20 28 63 61 72 2d 73 61 66 65 20 66 69 6c 74 65 72 29 20 27 6e 6f | nd....((eq.(car-safe.filter).'no |
| 13e60 | 74 29 0a 20 20 20 20 28 63 61 64 72 20 66 69 6c 74 65 72 29 29 0a 20 20 20 28 66 69 6c 74 65 72 | t).....(cadr.filter))....(filter |
| 13e80 | 0a 20 20 20 20 28 6c 69 73 74 20 27 6e 6f 74 20 66 69 6c 74 65 72 29 29 29 29 0a 0a 28 64 65 66 | .....(list.'not.filter))))..(def |
| 13ea0 | 75 6e 20 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 70 75 73 68 20 28 66 69 6c 74 65 72 20 6e | un.tablist-filter-push.(filter.n |
| 13ec0 | 65 77 2d 66 69 6c 74 65 72 20 26 6f 70 74 69 6f 6e 61 6c 20 6f 72 2d 70 29 0a 20 20 22 52 65 74 | ew-filter.&optional.or-p)..."Ret |
| 13ee0 | 75 72 6e 20 61 20 66 69 6c 74 65 72 20 63 6f 6d 62 69 6e 69 6e 67 20 46 49 4c 54 45 52 20 61 6e | urn.a.filter.combining.FILTER.an |
| 13f00 | 64 20 4e 45 57 2d 46 49 4c 54 45 52 2e 0a 0a 42 79 20 64 65 66 61 75 6c 74 20 74 68 65 20 66 69 | d.NEW-FILTER...By.default.the.fi |
| 13f20 | 6c 74 65 72 73 20 61 72 65 20 61 6e 64 27 65 64 2c 20 75 6e 6c 65 73 73 20 4f 52 2d 50 20 69 73 | lters.are.and'ed,.unless.OR-P.is |
| 13f40 | 20 6e 6f 6e 2d 6e 69 6c 2e 22 0a 20 20 28 69 66 20 28 6f 72 20 28 6e 75 6c 6c 20 66 69 6c 74 65 | .non-nil."...(if.(or.(null.filte |
| 13f60 | 72 29 0a 20 20 20 20 20 20 20 20 20 20 28 6e 75 6c 6c 20 6e 65 77 2d 66 69 6c 74 65 72 29 29 0a | r)...........(null.new-filter)). |
| 13f80 | 20 20 20 20 20 20 28 6f 72 20 66 69 6c 74 65 72 0a 20 20 20 20 20 20 20 20 20 20 6e 65 77 2d 66 | ......(or.filter...........new-f |
| 13fa0 | 69 6c 74 65 72 29 0a 20 20 20 20 28 6c 69 73 74 20 28 69 66 20 6f 72 2d 70 20 27 6f 72 20 27 61 | ilter).....(list.(if.or-p.'or.'a |
| 13fc0 | 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 66 69 6c 74 65 72 20 6e 65 77 2d 66 69 6c 74 65 72 29 | nd)...........filter.new-filter) |
| 13fe0 | 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 70 6f 70 20 28 66 | ))..(defun.tablist-filter-pop.(f |
| 14000 | 69 6c 74 65 72 29 0a 20 20 22 52 65 6d 6f 76 65 20 74 68 65 20 66 69 72 73 74 20 6f 70 65 72 61 | ilter)..."Remove.the.first.opera |
| 14020 | 74 6f 72 20 6f 72 20 6f 70 65 72 61 6e 64 20 66 72 6f 6d 20 66 69 6c 74 65 72 2e 0a 0a 49 66 20 | tor.or.operand.from.filter...If. |
| 14040 | 66 69 6c 74 65 72 20 73 74 61 72 74 73 20 77 69 74 68 20 61 20 6e 65 67 61 74 69 6f 6e 2c 20 72 | filter.starts.with.a.negation,.r |
| 14060 | 65 74 75 72 6e 20 66 69 6c 74 65 72 20 75 6e 6e 65 67 61 74 65 64 2c 0a 69 66 20 66 69 6c 74 65 | eturn.filter.unnegated,.if.filte |
| 14080 | 72 20 73 74 61 72 74 73 20 77 69 74 68 20 61 20 64 69 73 2d 20 6f 72 20 63 6f 6e 6a 75 63 74 69 | r.starts.with.a.dis-.or.conjucti |
| 140a0 | 6f 6e 2c 20 72 65 6d 6f 76 65 20 74 68 65 20 66 69 72 73 74 20 6f 70 65 72 61 6e 64 2c 0a 69 66 | on,.remove.the.first.operand,.if |
| 140c0 | 20 66 69 6c 74 65 72 20 69 73 20 6e 69 6c 2c 20 72 61 69 73 65 20 61 6e 20 65 72 72 6f 72 2c 0a | .filter.is.nil,.raise.an.error,. |
| 140e0 | 65 6c 73 65 20 72 65 74 75 72 6e 20 6e 69 6c 2e 22 0a 20 20 28 70 63 61 73 65 20 66 69 6c 74 65 | else.return.nil."...(pcase.filte |
| 14100 | 72 0a 20 20 20 20 28 60 28 2c 28 6f 72 20 60 61 6e 64 20 60 6f 72 29 20 2e 20 2c 74 61 69 6c 29 | r.....(`(,(or.`and.`or)...,tail) |
| 14120 | 0a 20 20 20 20 20 28 63 61 72 20 28 63 64 72 20 74 61 69 6c 29 29 29 0a 20 20 20 20 28 60 28 6e | ......(car.(cdr.tail))).....(`(n |
| 14140 | 6f 74 20 2e 20 2c 6f 70 31 29 0a 20 20 20 20 20 28 63 61 72 20 6f 70 31 29 29 0a 20 20 20 20 28 | ot...,op1)......(car.op1)).....( |
| 14160 | 5f 20 28 75 6e 6c 65 73 73 20 66 69 6c 74 65 72 0a 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 | _.(unless.filter..........(error |
| 14180 | 20 22 46 69 6c 74 65 72 20 69 73 20 65 6d 70 74 79 22 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 | ."Filter.is.empty")))))..(defun. |
| 141a0 | 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 6d 61 70 20 28 66 6e 20 66 69 6c 74 65 72 29 0a 20 | tablist-filter-map.(fn.filter).. |
| 141c0 | 20 28 70 63 61 73 65 20 66 69 6c 74 65 72 0a 20 20 20 20 28 60 28 2c 28 6f 72 20 60 61 6e 64 20 | .(pcase.filter.....(`(,(or.`and. |
| 141e0 | 60 6f 72 20 60 6e 6f 74 29 20 2e 20 2c 74 61 69 6c 29 0a 20 20 20 20 20 28 63 6f 6e 73 20 28 63 | `or.`not)...,tail)......(cons.(c |
| 14200 | 61 72 20 66 69 6c 74 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 61 72 20 28 6c | ar.filter)............(mapcar.(l |
| 14220 | 61 6d 62 64 61 20 28 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ambda.(f)......................( |
| 14240 | 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 6d 61 70 20 66 6e 20 66 29 29 0a 20 20 20 20 20 20 | tablist-filter-map.fn.f))....... |
| 14260 | 20 20 20 20 20 20 20 20 20 20 20 20 20 74 61 69 6c 29 29 29 0a 20 20 20 20 28 5f 20 28 66 75 6e | .............tail))).....(_.(fun |
| 14280 | 63 61 6c 6c 20 66 6e 20 66 69 6c 74 65 72 29 29 29 29 0a 0a 3b 3b 0a 3b 3b 20 52 65 61 64 69 6e | call.fn.filter))))..;;.;;.Readin |
| 142a0 | 67 20 66 69 6c 74 65 72 0a 3b 3b 0a 0a 28 64 65 66 76 61 72 20 74 61 62 6c 69 73 74 2d 66 69 6c | g.filter.;;..(defvar.tablist-fil |
| 142c0 | 74 65 72 2d 65 64 69 74 2d 68 69 73 74 6f 72 79 20 6e 69 6c 29 0a 28 64 65 66 76 61 72 20 74 61 | ter-edit-history.nil).(defvar.ta |
| 142e0 | 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 65 64 69 74 2d 64 69 73 70 6c 61 79 2d 68 65 6c 70 20 74 | blist-filter-edit-display-help.t |
| 14300 | 29 0a 0a 28 64 65 66 75 6e 20 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 65 64 69 74 2d 66 69 | )..(defun.tablist-filter-edit-fi |
| 14320 | 6c 74 65 72 20 28 70 72 6f 6d 70 74 20 26 6f 70 74 69 6f 6e 61 6c 0a 20 20 20 20 20 20 20 20 20 | lter.(prompt.&optional.......... |
| 14340 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 14360 | 20 69 6e 69 74 69 61 6c 2d 66 69 6c 74 65 72 20 68 69 73 74 6f 72 79 0a 20 20 20 20 20 20 20 20 | .initial-filter.history......... |
| 14380 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 143a0 | 20 20 76 61 6c 69 64 61 74 65 2d 66 6e 29 0a 20 20 28 6c 65 74 2a 20 28 28 73 74 72 20 28 74 61 | ..validate-fn)...(let*.((str.(ta |
| 143c0 | 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 75 6e 70 61 72 73 65 20 69 6e 69 74 69 61 6c 2d 66 69 6c | blist-filter-unparse.initial-fil |
| 143e0 | 74 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 28 66 69 6c 74 65 72 20 69 6e 69 74 69 61 6c 2d 66 | ter))..........(filter.initial-f |
| 14400 | 69 6c 74 65 72 29 0a 20 20 20 20 20 20 20 20 20 28 76 61 6c 69 64 61 74 65 2d 66 6e 20 28 6f 72 | ilter)..........(validate-fn.(or |
| 14420 | 20 76 61 6c 69 64 61 74 65 2d 66 6e 20 27 69 64 65 6e 74 69 74 79 29 29 0a 20 20 20 20 20 20 20 | .validate-fn.'identity))........ |
| 14440 | 20 20 65 72 72 6f 72 20 64 6f 6e 65 29 0a 20 20 20 20 28 73 61 76 65 2d 77 69 6e 64 6f 77 2d 65 | ..error.done).....(save-window-e |
| 14460 | 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 28 77 68 65 6e 20 74 61 62 6c 69 73 74 2d 66 69 6c | xcursion.......(when.tablist-fil |
| 14480 | 74 65 72 2d 65 64 69 74 2d 64 69 73 70 6c 61 79 2d 68 65 6c 70 0a 20 20 20 20 20 20 20 20 28 74 | ter-edit-display-help.........(t |
| 144a0 | 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 68 65 6c 70 20 74 29 29 0a 20 20 20 20 20 20 28 77 68 | ablist-filter-help.t)).......(wh |
| 144c0 | 69 6c 65 20 28 6e 6f 74 20 64 6f 6e 65 29 0a 20 20 20 20 20 20 20 20 28 6d 69 6e 69 62 75 66 66 | ile.(not.done).........(minibuff |
| 144e0 | 65 72 2d 77 69 74 68 2d 73 65 74 75 70 2d 68 6f 6f 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 | er-with-setup-hook.............( |
| 14500 | 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 65 72 | lambda.()...............(when.er |
| 14520 | 72 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 63 61 72 20 65 | ror.................(when.(car.e |
| 14540 | 72 72 6f 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 | rror)...................(goto-ch |
| 14560 | 61 72 20 28 2b 20 28 66 69 65 6c 64 2d 62 65 67 69 6e 6e 69 6e 67 29 0a 20 20 20 20 20 20 20 20 | ar.(+.(field-beginning)......... |
| 14580 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 72 20 65 72 72 | ........................(car.err |
| 145a0 | 6f 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6b 69 70 2d 63 68 | or)))...................(skip-ch |
| 145c0 | 61 72 73 2d 62 61 63 6b 77 61 72 64 20 22 20 5c 74 5c 6e 22 29 29 0a 20 20 20 20 20 20 20 20 20 | ars-backward.".\t\n")).......... |
| 145e0 | 20 20 20 20 20 20 20 28 6d 69 6e 69 62 75 66 66 65 72 2d 6d 65 73 73 61 67 65 20 22 25 73 22 20 | .......(minibuffer-message."%s". |
| 14600 | 28 63 64 72 20 65 72 72 6f 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 | (cdr.error)).................(se |
| 14620 | 74 71 20 65 72 72 6f 72 20 6e 69 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 | tq.error.nil)))...........(setq. |
| 14640 | 73 74 72 20 28 70 72 6f 70 65 72 74 69 7a 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | str.(propertize................. |
| 14660 | 20 20 20 20 20 28 72 65 61 64 2d 73 74 72 69 6e 67 20 70 72 6f 6d 70 74 20 73 74 72 0a 20 20 20 | .....(read-string.prompt.str.... |
| 14680 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ...............................( |
| 146a0 | 6f 72 20 68 69 73 74 6f 72 79 20 27 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 65 64 69 74 2d | or.history.'tablist-filter-edit- |
| 146c0 | 68 69 73 74 6f 72 79 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 6e 65 20 | history))).................done. |
| 146e0 | 74 29 29 0a 20 20 20 20 20 20 20 20 28 63 6f 6e 64 69 74 69 6f 6e 2d 63 61 73 65 20 65 72 72 0a | t)).........(condition-case.err. |
| 14700 | 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ............(progn.............. |
| 14720 | 20 28 73 65 74 71 20 66 69 6c 74 65 72 20 28 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 2d 70 61 | .(setq.filter.(tablist-filter-pa |
| 14740 | 72 73 65 20 73 74 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c | rse.str))...............(funcall |
| 14760 | 20 76 61 6c 69 64 61 74 65 2d 66 6e 20 66 69 6c 74 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 | .validate-fn.filter))........... |
| 14780 | 28 65 72 72 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 64 6f 6e 65 20 6e 69 6c | (error............(setq.done.nil |
| 147a0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 65 72 72 6f 72 20 28 63 6f 6e 73 20 28 | )............(setq.error.(cons.( |
| 147c0 | 63 61 72 2d 73 61 66 65 20 28 63 64 64 72 20 65 72 72 29 29 20 6e 69 6c 29 29 0a 20 20 20 20 20 | car-safe.(cddr.err)).nil))...... |
| 147e0 | 20 20 20 20 20 20 28 77 68 65 6e 20 28 63 61 72 20 65 72 72 6f 72 29 0a 20 20 20 20 20 20 20 20 | ......(when.(car.error)......... |
| 14800 | 20 20 20 20 20 28 73 65 74 71 20 73 74 72 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 | .....(setq.str.(with-temp-buffer |
| 14820 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 | ..........................(inser |
| 14840 | 74 20 73 74 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t.str).......................... |
| 14860 | 28 67 6f 74 6f 2d 63 68 61 72 20 28 63 61 72 20 65 72 72 6f 72 29 29 0a 20 20 20 20 20 20 20 20 | (goto-char.(car.error))......... |
| 14880 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 | .................(set-text-prope |
| 148a0 | 72 74 69 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rties........................... |
| 148c0 | 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (progn.......................... |
| 148e0 | 20 20 20 28 73 6b 69 70 2d 63 68 61 72 73 2d 62 61 63 6b 77 61 72 64 20 22 20 5c 74 5c 6e 22 29 | ...(skip-chars-backward.".\t\n") |
| 14900 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 61 | .............................(ba |
| 14920 | 63 6b 77 61 72 64 2d 63 68 61 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ckward-char).................... |
| 14940 | 20 20 20 20 20 20 20 20 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .........(point))............... |
| 14960 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 69 6e 20 28 63 61 72 20 65 72 72 6f 72 29 20 28 70 6f | ............(min.(car.error).(po |
| 14980 | 69 6e 74 2d 6d 61 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | int-max))....................... |
| 149a0 | 20 20 20 20 27 28 66 61 63 65 20 65 72 72 6f 72 20 72 65 61 72 2d 6e 6f 6e 73 74 69 63 6b 79 20 | ....'(face.error.rear-nonsticky. |
| 149c0 | 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 75 | t))..........................(bu |
| 149e0 | 66 66 65 72 2d 73 74 72 69 6e 67 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 63 | ffer-string))))............(setc |
| 14a00 | 64 72 20 65 72 72 6f 72 20 28 65 72 72 6f 72 2d 6d 65 73 73 61 67 65 2d 73 74 72 69 6e 67 20 65 | dr.error.(error-message-string.e |
| 14a20 | 72 72 29 29 29 29 29 0a 20 20 20 20 20 20 66 69 6c 74 65 72 29 29 29 0a 0a 28 70 72 6f 76 69 64 | rr))))).......filter)))..(provid |
| 14a40 | 65 20 27 74 61 62 6c 69 73 74 2d 66 69 6c 74 65 72 29 0a 3b 3b 3b 20 74 61 62 6c 69 73 74 2d 66 | e.'tablist-filter).;;;.tablist-f |
| 14a60 | 69 6c 74 65 72 2e 65 6c 20 65 6e 64 73 20 68 65 72 65 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 | ilter.el.ends.here.............. |
| 14a80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 14aa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 14ac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 14ae0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 14b00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 14b20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 14b40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 14b60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 14b80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 14ba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 14bc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 14be0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 14c00 | 74 61 62 6c 69 73 74 2d 31 2e 30 2f 2e 64 69 72 2d 6c 6f 63 61 6c 73 2e 65 6c 00 00 00 00 00 00 | tablist-1.0/.dir-locals.el...... |
| 14c20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 14c40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 14c60 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 14c80 | 30 30 30 30 30 30 34 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 34 30 37 36 00 20 30 00 00 00 | 0000004.00000000000.014076..0... |
| 14ca0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 14cc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 14ce0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 14d00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 14d20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 14d40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 14d60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 14d80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 14da0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 14dc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 14de0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 14e00 | 6e 69 6c 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | nil............................. |
| 14e20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 14e40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 14e60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 14e80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 14ea0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 14ec0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 14ee0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 14f00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 14f20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 14f40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 14f60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 14f80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 14fa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 14fc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 14fe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 15000 | 74 61 62 6c 69 73 74 2d 31 2e 30 2f 74 61 62 6c 69 73 74 2d 70 6b 67 2e 65 6c 00 00 00 00 00 00 | tablist-1.0/tablist-pkg.el...... |
| 15020 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 15040 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 15060 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 15080 | 30 30 30 30 36 32 35 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 34 32 32 31 00 20 30 00 00 00 | 0000625.00000000000.014221..0... |
| 150a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 150c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 150e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 15100 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 15120 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 15140 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 15160 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 15180 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 151a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 151c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 151e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 15200 | 3b 3b 20 47 65 6e 65 72 61 74 65 64 20 70 61 63 6b 61 67 65 20 64 65 73 63 72 69 70 74 69 6f 6e | ;;.Generated.package.description |
| 15220 | 20 66 72 6f 6d 20 74 61 62 6c 69 73 74 2e 65 6c 20 20 2d 2a 2d 20 6e 6f 2d 62 79 74 65 2d 63 6f | .from.tablist.el..-*-.no-byte-co |
| 15240 | 6d 70 69 6c 65 3a 20 74 20 2d 2a 2d 0a 28 64 65 66 69 6e 65 2d 70 61 63 6b 61 67 65 20 22 74 61 | mpile:.t.-*-.(define-package."ta |
| 15260 | 62 6c 69 73 74 22 20 22 31 2e 30 22 20 22 45 78 74 65 6e 64 65 64 20 74 61 62 75 6c 61 74 65 64 | blist"."1.0"."Extended.tabulated |
| 15280 | 2d 6c 69 73 74 2d 6d 6f 64 65 22 20 27 28 28 65 6d 61 63 73 20 22 32 34 2e 33 22 29 29 20 3a 63 | -list-mode".'((emacs."24.3")).:c |
| 152a0 | 6f 6d 6d 69 74 20 22 66 36 62 34 39 35 64 30 39 34 39 34 37 38 34 31 36 33 63 33 65 36 62 61 37 | ommit."f6b495d09494784163c3e6ba7 |
| 152c0 | 35 62 37 37 31 62 37 31 66 65 32 32 36 61 38 22 20 3a 75 72 6c 20 22 68 74 74 70 73 3a 2f 2f 65 | 5b771b71fe226a8".:url."https://e |
| 152e0 | 6c 70 61 2e 6e 6f 6e 67 6e 75 2e 6f 72 67 2f 6e 6f 6e 67 6e 75 2f 74 61 62 6c 69 73 74 2e 68 74 | lpa.nongnu.org/nongnu/tablist.ht |
| 15300 | 6d 6c 22 20 3a 61 75 74 68 6f 72 73 20 27 28 28 22 41 6e 64 72 65 61 73 20 50 6f 6c 69 74 7a 22 | ml".:authors.'(("Andreas.Politz" |
| 15320 | 20 2e 20 22 70 6f 6c 69 74 7a 61 40 66 68 2d 74 72 69 65 72 2e 64 65 22 29 29 20 3a 6d 61 69 6e | ..."politza@fh-trier.de")).:main |
| 15340 | 74 61 69 6e 65 72 20 27 28 22 41 6e 64 72 65 61 73 20 50 6f 6c 69 74 7a 22 20 2e 20 22 70 6f 6c | tainer.'("Andreas.Politz"..."pol |
| 15360 | 69 74 7a 61 40 66 68 2d 74 72 69 65 72 2e 64 65 22 29 20 3a 6b 65 79 77 6f 72 64 73 20 27 28 22 | itza@fh-trier.de").:keywords.'(" |
| 15380 | 65 78 74 65 6e 73 69 6f 6e 73 22 20 22 6c 69 73 70 22 29 29 0a 00 00 00 00 00 00 00 00 00 00 00 | extensions"."lisp"))............ |
| 153a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 153c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 153e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 15400 | 74 61 62 6c 69 73 74 2d 31 2e 30 2f 4d 61 6b 65 66 69 6c 65 00 00 00 00 00 00 00 00 00 00 00 00 | tablist-1.0/Makefile............ |
| 15420 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 15440 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 15460 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 15480 | 30 30 30 30 34 36 31 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 33 31 31 34 00 20 30 00 00 00 | 0000461.00000000000.013114..0... |
| 154a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 154c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 154e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 15500 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 15520 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 15540 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 15560 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 15580 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 155a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 155c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 155e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 15600 | 45 4d 41 43 53 20 3f 3d 20 65 6d 61 63 73 0a 23 20 48 61 6e 64 6c 65 20 74 68 65 20 6d 65 73 73 | EMACS.?=.emacs.#.Handle.the.mess |
| 15620 | 20 77 68 65 6e 20 69 6e 73 69 64 65 20 45 6d 61 63 73 2e 0a 75 6e 65 78 70 6f 72 74 20 49 4e 53 | .when.inside.Emacs..unexport.INS |
| 15640 | 49 44 45 5f 45 4d 41 43 53 09 09 23 63 61 73 6b 20 6e 6f 74 20 6c 69 6b 65 20 74 68 69 73 2e 0a | IDE_EMACS..#cask.not.like.this.. |
| 15660 | 69 66 65 71 20 28 24 28 45 4d 41 43 53 29 2c 20 74 29 0a 45 4d 41 43 53 20 3d 20 65 6d 61 63 73 | ifeq.($(EMACS),.t).EMACS.=.emacs |
| 15680 | 0a 65 6e 64 69 66 0a 0a 65 6d 61 63 73 20 3d 20 24 28 45 4d 41 43 53 29 0a 0a 61 6c 6c 3a 20 70 | .endif..emacs.=.$(EMACS)..all:.p |
| 156a0 | 61 63 6b 61 67 65 0a 0a 62 79 74 65 2d 63 6f 6d 70 69 6c 65 3a 0a 09 63 61 73 6b 20 65 78 65 63 | ackage..byte-compile:..cask.exec |
| 156c0 | 20 24 28 65 6d 61 63 73 29 20 2d 2d 62 61 74 63 68 20 2d 4c 20 6c 69 73 70 20 2d 66 20 62 61 74 | .$(emacs).--batch.-L.lisp.-f.bat |
| 156e0 | 63 68 2d 62 79 74 65 2d 63 6f 6d 70 69 6c 65 20 2a 2e 65 6c 0a 0a 70 61 63 6b 61 67 65 3a 0a 09 | ch-byte-compile.*.el..package:.. |
| 15700 | 63 61 73 6b 20 70 61 63 6b 61 67 65 0a 63 6c 65 61 6e 3a 0a 09 72 6d 20 2d 72 66 20 64 69 73 74 | cask.package.clean:..rm.-rf.dist |
| 15720 | 0a 09 72 6d 20 2d 66 20 2d 2d 20 2a 2e 65 6c 63 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ..rm.-f.--.*.elc................ |
| 15740 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 15760 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 15780 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 157a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 157c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 157e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 15800 | 74 61 62 6c 69 73 74 2d 31 2e 30 2f 43 61 73 6b 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | tablist-1.0/Cask................ |
| 15820 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 15840 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 15860 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 15880 | 30 30 30 30 31 31 30 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 32 32 34 37 00 20 30 00 00 00 | 0000110.00000000000.012247..0... |
| 158a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 158c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 158e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 15900 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 15920 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 15940 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 15960 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 15980 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 159a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 159c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 159e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 15a00 | 28 73 6f 75 72 63 65 20 67 6e 75 29 0a 28 73 6f 75 72 63 65 20 6d 65 6c 70 61 29 0a 0a 28 70 61 | (source.gnu).(source.melpa)..(pa |
| 15a20 | 63 6b 61 67 65 2d 66 69 6c 65 20 22 74 61 62 6c 69 73 74 2e 65 6c 22 29 0a 28 66 69 6c 65 73 20 | ckage-file."tablist.el").(files. |
| 15a40 | 22 2a 2e 65 6c 22 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | "*.el")......................... |
| 15a60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 15a80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 15aa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 15ac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 15ae0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 15b00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 15b20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 15b40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 15b60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 15b80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 15ba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 15bc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 15be0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 15c00 | 74 61 62 6c 69 73 74 2d 31 2e 30 2f 52 45 41 44 4d 45 2e 6d 64 00 00 00 00 00 00 00 00 00 00 00 | tablist-1.0/README.md........... |
| 15c20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 15c40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 15c60 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 15c80 | 30 30 30 35 34 36 33 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 32 37 34 32 00 20 30 00 00 00 | 0005463.00000000000.012742..0... |
| 15ca0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 15cc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 15ce0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 15d00 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 15d20 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 15d40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 15d60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 15d80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 15da0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 15dc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 15de0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 15e00 | 23 20 54 61 62 6c 69 73 74 0a 0a 54 68 69 73 20 70 61 63 6b 61 67 65 20 61 64 64 73 20 6d 61 72 | #.Tablist..This.package.adds.mar |
| 15e20 | 6b 73 20 61 6e 64 20 66 69 6c 74 65 72 73 20 74 6f 20 60 74 61 62 75 6c 61 74 65 64 2d 6c 69 73 | ks.and.filters.to.`tabulated-lis |
| 15e40 | 74 2d 6d 6f 64 65 60 2e 20 49 74 20 61 6c 73 6f 0a 70 75 74 73 20 61 20 64 69 72 65 64 20 66 61 | t-mode`..It.also.puts.a.dired.fa |
| 15e60 | 63 65 20 6f 6e 20 74 61 62 75 6c 61 74 65 64 20 6c 69 73 74 20 62 75 66 66 65 72 73 2e 0a 0a 49 | ce.on.tabulated.list.buffers...I |
| 15e80 | 74 20 63 61 6e 20 62 65 20 75 73 65 64 20 62 79 20 64 65 72 69 76 69 6e 67 20 66 72 6f 6d 20 60 | t.can.be.used.by.deriving.from.` |
| 15ea0 | 74 61 62 6c 69 73 74 2d 6d 6f 64 65 60 2c 20 6f 72 20 77 69 74 68 20 6d 6f 72 65 20 6c 69 6d 69 | tablist-mode`,.or.with.more.limi |
| 15ec0 | 74 65 64 20 66 65 61 74 75 72 65 73 0a 62 79 20 65 6e 61 62 6c 69 6e 67 20 60 74 61 62 6c 69 73 | ted.features.by.enabling.`tablis |
| 15ee0 | 74 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 60 20 69 6e 73 69 64 65 20 61 20 60 74 61 62 75 6c 61 74 65 | t-minor-mode`.inside.a.`tabulate |
| 15f00 | 64 2d 6c 69 73 74 2d 6d 6f 64 65 60 20 62 75 66 66 65 72 2e 0a 0a 23 20 54 61 62 6c 69 73 74 20 | d-list-mode`.buffer...#.Tablist. |
| 15f20 | 6d 69 6e 6f 72 20 6d 6f 64 65 0a 0a 7c 20 63 6f 6d 6d 61 6e 64 20 20 20 20 20 20 20 20 20 20 20 | minor.mode..|.command........... |
| 15f40 | 20 20 20 20 20 20 20 7c 20 6b 65 79 6d 61 70 20 20 20 20 20 20 20 20 20 20 20 20 20 7c 0a 7c 2d | .......|.keymap.............|.|- |
| 15f60 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 7c 2d 2d 2d 2d 2d 2d | -------------------------|------ |
| 15f80 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 7c 0a 7c 20 74 61 62 6c 69 73 74 2d 6d 61 72 6b 2d 66 | --------------|.|.tablist-mark-f |
| 15fa0 | 6f 72 77 61 72 64 20 20 20 20 20 7c 20 3c 6b 62 64 3e 6d 3c 2f 6b 62 64 3e 20 20 20 20 20 20 20 | orward.....|.<kbd>m</kbd>....... |
| 15fc0 | 7c 0a 7c 20 74 61 62 6c 69 73 74 2d 75 6e 6d 61 72 6b 2d 62 61 63 6b 77 61 72 64 20 20 7c 20 3c | |.|.tablist-unmark-backward..|.< |
| 15fe0 | 6b 62 64 3e 44 45 4c 3c 2f 6b 62 64 3e 20 20 20 20 20 7c 0a 7c 20 74 61 62 6c 69 73 74 2d 64 6f | kbd>DEL</kbd>.....|.|.tablist-do |
| 16000 | 2d 6b 69 6c 6c 2d 6c 69 6e 65 73 20 20 20 20 7c 20 3c 6b 62 64 3e 6b 3c 2f 6b 62 64 3e 20 20 20 | -kill-lines....|.<kbd>k</kbd>... |
| 16020 | 20 20 20 20 7c 0a 7c 20 74 61 62 6c 69 73 74 2d 75 6e 6d 61 72 6b 2d 61 6c 6c 2d 6d 61 72 6b 73 | ....|.|.tablist-unmark-all-marks |
| 16040 | 20 7c 20 3c 6b 62 64 3e 55 3c 2f 6b 62 64 3e 20 20 20 20 20 20 20 7c 0a 7c 20 74 61 62 6c 69 73 | .|.<kbd>U</kbd>.......|.|.tablis |
| 16060 | 74 2d 75 6e 6d 61 72 6b 2d 66 6f 72 77 61 72 64 20 20 20 7c 20 3c 6b 62 64 3e 75 3c 2f 6b 62 64 | t-unmark-forward...|.<kbd>u</kbd |
| 16080 | 3e 20 20 20 20 20 20 20 7c 0a 7c 20 74 61 62 6c 69 73 74 2d 74 6f 67 67 6c 65 2d 6d 61 72 6b 73 | >.......|.|.tablist-toggle-marks |
| 160a0 | 20 20 20 20 20 7c 20 3c 6b 62 64 3e 74 3c 2f 6b 62 64 3e 20 20 20 20 20 20 20 7c 0a 7c 20 74 61 | .....|.<kbd>t</kbd>.......|.|.ta |
| 160c0 | 62 6c 69 73 74 2d 73 6f 72 74 20 20 20 20 20 20 20 20 20 20 20 20 20 7c 20 3c 6b 62 64 3e 73 3c | blist-sort.............|.<kbd>s< |
| 160e0 | 2f 6b 62 64 3e 20 20 20 20 20 20 20 7c 0a 7c 20 74 61 62 6c 69 73 74 2d 73 68 72 69 6e 6b 2d 63 | /kbd>.......|.|.tablist-shrink-c |
| 16100 | 6f 6c 75 6d 6e 20 20 20 20 7c 20 3c 6b 62 64 3e 3c 3c 2f 6b 62 64 3e 20 20 20 20 20 20 20 7c 0a | olumn....|.<kbd><</kbd>.......|. |
| 16120 | 7c 20 74 61 62 6c 69 73 74 2d 65 6e 6c 61 72 67 65 2d 63 6f 6c 75 6d 6e 20 20 20 7c 20 3c 6b 62 | |.tablist-enlarge-column...|.<kb |
| 16140 | 64 3e 3e 3c 2f 6b 62 64 3e 20 20 20 20 20 20 20 7c 0a 7c 20 74 61 62 6c 69 73 74 2d 71 75 69 74 | d>></kbd>.......|.|.tablist-quit |
| 16160 | 20 20 20 20 20 20 20 20 20 20 20 20 20 7c 20 3c 6b 62 64 3e 71 3c 2f 6b 62 64 3e 20 20 20 20 20 | .............|.<kbd>q</kbd>..... |
| 16180 | 20 20 7c 0a 7c 20 74 61 62 6c 69 73 74 2d 72 65 76 65 72 74 20 20 20 20 20 20 20 20 20 20 20 7c | ..|.|.tablist-revert...........| |
| 161a0 | 20 3c 6b 62 64 3e 47 3c 2f 6b 62 64 3e 20 20 20 20 20 20 20 7c 0a 7c 20 74 61 62 6c 69 73 74 2d | .<kbd>G</kbd>.......|.|.tablist- |
| 161c0 | 65 78 70 6f 72 74 2d 63 73 76 20 20 20 20 20 20 20 7c 20 3c 6b 62 64 3e 43 2d 63 20 43 2d 65 3c | export-csv.......|.<kbd>C-c.C-e< |
| 161e0 | 2f 6b 62 64 3e 20 7c 0a 0a 0a 23 23 20 4d 61 72 6b 73 0a 0a 7c 20 63 6f 6d 6d 61 6e 64 20 20 20 | /kbd>.|...##.Marks..|.command... |
| 16200 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7c 20 6b 65 79 6d 61 70 20 20 20 20 20 20 20 | .................|.keymap....... |
| 16220 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7c 0a 7c 2d 2d 2d 2d 2d 2d 2d 2d 2d | ....................|.|--------- |
| 16240 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 7c 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | -------------------|------------ |
| 16260 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 7c 0a 7c 20 74 61 62 6c 69 73 | ----------------------|.|.tablis |
| 16280 | 74 2d 63 68 61 6e 67 65 2d 6d 61 72 6b 73 20 20 20 20 20 20 20 7c 20 3c 6b 62 64 3e 2a 20 63 3c | t-change-marks.......|.<kbd>*.c< |
| 162a0 | 2f 6b 62 64 3e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7c 0a 7c 20 74 61 62 6c | /kbd>...................|.|.tabl |
| 162c0 | 69 73 74 2d 75 6e 6d 61 72 6b 2d 61 6c 6c 2d 6d 61 72 6b 73 20 20 20 7c 20 3c 6b 62 64 3e 2a 20 | ist-unmark-all-marks...|.<kbd>*. |
| 162e0 | 21 3c 2f 6b 62 64 3e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7c 0a 7c 20 74 61 | !</kbd>...................|.|.ta |
| 16300 | 62 6c 69 73 74 2d 6d 61 72 6b 2d 69 74 65 6d 73 2d 72 65 67 65 78 70 20 20 7c 20 3c 6b 62 64 3e | blist-mark-items-regexp..|.<kbd> |
| 16320 | 2a 20 72 3c 2f 6b 62 64 3e 20 6f 72 20 3c 6b 62 64 3e 25 20 6d 3c 2f 6b 62 64 3e 20 7c 0a 7c 20 | *.r</kbd>.or.<kbd>%.m</kbd>.|.|. |
| 16340 | 74 61 62 6c 69 73 74 2d 6d 61 72 6b 2d 69 74 65 6d 73 2d 6e 75 6d 65 72 69 63 20 7c 20 3c 6b 62 | tablist-mark-items-numeric.|.<kb |
| 16360 | 64 3e 2a 20 6e 3c 2f 6b 62 64 3e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7c 0a | d>*.n</kbd>...................|. |
| 16380 | 7c 20 74 61 62 6c 69 73 74 2d 6d 61 72 6b 2d 66 6f 72 77 61 72 64 20 20 20 20 20 20 20 7c 20 3c | |.tablist-mark-forward.......|.< |
| 163a0 | 6b 62 64 3e 2a 20 6d 3c 2f 6b 62 64 3e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | kbd>*.m</kbd>................... |
| 163c0 | 7c 0a 0a 23 23 20 46 69 6c 74 65 72 73 0a 0a 7c 20 63 6f 6d 6d 61 6e 64 20 20 20 20 20 20 20 20 | |..##.Filters..|.command........ |
| 163e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7c 20 6b 65 79 6d 61 70 20 20 20 20 20 | ...................|.keymap..... |
| 16400 | 20 20 20 20 7c 0a 7c 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | ....|.|------------------------- |
| 16420 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 7c 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 7c 0a 7c 20 74 | ----------|----------------|.|.t |
| 16440 | 61 62 6c 69 73 74 2d 70 6f 70 2d 66 69 6c 74 65 72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ablist-pop-filter............... |
| 16460 | 20 7c 20 3c 6b 62 64 3e 2f 20 70 3c 2f 6b 62 64 3e 20 7c 0a 7c 20 74 61 62 6c 69 73 74 2d 70 75 | .|.<kbd>/.p</kbd>.|.|.tablist-pu |
| 16480 | 73 68 2d 72 65 67 65 78 70 2d 66 69 6c 74 65 72 20 20 20 20 20 20 20 20 7c 20 3c 6b 62 64 3e 2f | sh-regexp-filter........|.<kbd>/ |
| 164a0 | 20 72 3c 2f 6b 62 64 3e 20 7c 0a 7c 20 74 61 62 6c 69 73 74 2d 70 75 73 68 2d 65 71 75 61 6c 2d | .r</kbd>.|.|.tablist-push-equal- |
| 164c0 | 66 69 6c 74 65 72 20 20 20 20 20 20 20 20 20 7c 20 3c 6b 62 64 3e 2f 20 3d 3c 2f 6b 62 64 3e 20 | filter.........|.<kbd>/.=</kbd>. |
| 164e0 | 7c 0a 7c 20 74 61 62 6c 69 73 74 2d 70 75 73 68 2d 6e 75 6d 65 72 69 63 2d 66 69 6c 74 65 72 20 | |.|.tablist-push-numeric-filter. |
| 16500 | 20 20 20 20 20 20 7c 20 3c 6b 62 64 3e 2f 20 6e 3c 2f 6b 62 64 3e 20 7c 0a 7c 20 74 61 62 6c 69 | ......|.<kbd>/.n</kbd>.|.|.tabli |
| 16520 | 73 74 2d 6e 65 67 61 74 65 2d 66 69 6c 74 65 72 20 20 20 20 20 20 20 20 20 20 20 20 20 7c 20 3c | st-negate-filter.............|.< |
| 16540 | 6b 62 64 3e 2f 20 21 3c 2f 6b 62 64 3e 20 7c 0a 7c 20 74 61 62 6c 69 73 74 2d 74 6f 67 67 6c 65 | kbd>/.!</kbd>.|.|.tablist-toggle |
| 16560 | 2d 66 69 72 73 74 2d 66 69 6c 74 65 72 2d 6c 6f 67 69 63 20 7c 20 3c 6b 62 64 3e 2f 20 74 3c 2f | -first-filter-logic.|.<kbd>/.t</ |
| 16580 | 6b 62 64 3e 20 7c 0a 7c 20 74 61 62 6c 69 73 74 2d 64 69 73 70 6c 61 79 2d 66 69 6c 74 65 72 20 | kbd>.|.|.tablist-display-filter. |
| 165a0 | 20 20 20 20 20 20 20 20 20 20 20 7c 20 3c 6b 62 64 3e 2f 20 2f 3c 2f 6b 62 64 3e 20 7c 0a 7c 20 | ...........|.<kbd>/./</kbd>.|.|. |
| 165c0 | 74 61 62 6c 69 73 74 2d 73 75 73 70 65 6e 64 2d 66 69 6c 74 65 72 20 20 20 20 20 20 20 20 20 20 | tablist-suspend-filter.......... |
| 165e0 | 20 20 7c 20 3c 6b 62 64 3e 2f 20 7a 3c 2f 6b 62 64 3e 20 7c 0a 7c 20 74 61 62 6c 69 73 74 2d 70 | ..|.<kbd>/.z</kbd>.|.|.tablist-p |
| 16600 | 75 73 68 2d 6e 61 6d 65 64 2d 66 69 6c 74 65 72 20 20 20 20 20 20 20 20 20 7c 20 3c 6b 62 64 3e | ush-named-filter.........|.<kbd> |
| 16620 | 2f 20 61 3c 2f 6b 62 64 3e 20 7c 0a 7c 20 74 61 62 6c 69 73 74 2d 6e 61 6d 65 2d 63 75 72 72 65 | /.a</kbd>.|.|.tablist-name-curre |
| 16640 | 6e 74 2d 66 69 6c 74 65 72 20 20 20 20 20 20 20 7c 20 3c 6b 62 64 3e 2f 20 73 3c 2f 6b 62 64 3e | nt-filter.......|.<kbd>/.s</kbd> |
| 16660 | 20 7c 0a 7c 20 74 61 62 6c 69 73 74 2d 64 65 6c 65 74 65 2d 6e 61 6d 65 64 2d 66 69 6c 74 65 72 | .|.|.tablist-delete-named-filter |
| 16680 | 20 20 20 20 20 20 20 7c 20 3c 6b 62 64 3e 2f 20 44 3c 2f 6b 62 64 3e 20 7c 0a 7c 20 74 61 62 6c | .......|.<kbd>/.D</kbd>.|.|.tabl |
| 166a0 | 69 73 74 2d 64 65 63 6f 6e 73 74 72 75 63 74 2d 6e 61 6d 65 64 2d 66 69 6c 74 65 72 20 20 7c 20 | ist-deconstruct-named-filter..|. |
| 166c0 | 3c 6b 62 64 3e 2f 20 64 3c 2f 6b 62 64 3e 20 7c 0a 7c 20 74 61 62 6c 69 73 74 2d 65 64 69 74 2d | <kbd>/.d</kbd>.|.|.tablist-edit- |
| 166e0 | 66 69 6c 74 65 72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7c 20 3c 6b 62 64 3e 2f 20 65 3c | filter...............|.<kbd>/.e< |
| 16700 | 2f 6b 62 64 3e 20 7c 0a 7c 20 74 61 62 6c 69 73 74 2d 63 6c 65 61 72 2d 66 69 6c 74 65 72 20 20 | /kbd>.|.|.tablist-clear-filter.. |
| 16720 | 20 20 20 20 20 20 20 20 20 20 20 20 7c 20 3c 6b 62 64 3e 2f 20 43 3c 2f 6b 62 64 3e 20 7c 0a 0a | ............|.<kbd>/.C</kbd>.|.. |
| 16740 | 23 20 54 61 62 6c 69 73 74 20 6d 6f 64 65 0a 0a 53 61 6d 65 20 62 69 6e 64 69 6e 67 73 20 61 73 | #.Tablist.mode..Same.bindings.as |
| 16760 | 20 60 74 61 62 6c 69 73 74 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 60 2c 20 70 6c 75 73 20 74 68 65 20 | .`tablist-minor-mode`,.plus.the. |
| 16780 | 66 6f 6c 6c 6f 77 69 6e 67 3a 0a 0a 7c 20 63 6f 6d 6d 61 6e 64 20 20 20 20 20 20 20 20 20 20 20 | following:..|.command........... |
| 167a0 | 20 20 20 20 20 20 20 20 7c 20 6b 65 79 6d 61 70 20 20 20 20 20 20 20 20 20 7c 0a 7c 2d 2d 2d 2d | ........|.keymap.........|.|---- |
| 167c0 | 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 7c 2d 2d 2d 2d 2d 2d 2d 2d | -----------------------|-------- |
| 167e0 | 2d 2d 2d 2d 2d 2d 2d 2d 7c 0a 7c 20 74 61 62 6c 69 73 74 2d 66 6c 61 67 2d 66 6f 72 77 61 72 64 | --------|.|.tablist-flag-forward |
| 16800 | 20 20 20 20 20 20 7c 20 3c 6b 62 64 3e 64 3c 2f 6b 62 64 3e 20 20 20 7c 0a 7c 20 74 61 62 6c 69 | ......|.<kbd>d</kbd>...|.|.tabli |
| 16820 | 73 74 2d 66 69 6e 64 2d 65 6e 74 72 79 20 20 20 20 20 20 20 20 7c 20 3c 6b 62 64 3e 52 45 54 3c | st-find-entry........|.<kbd>RET< |
| 16840 | 2f 6b 62 64 3e 20 7c 0a 7c 20 74 61 62 6c 69 73 74 2d 66 69 6e 64 2d 65 6e 74 72 79 20 20 20 20 | /kbd>.|.|.tablist-find-entry.... |
| 16860 | 20 20 20 20 7c 20 3c 6b 62 64 3e 66 3c 2f 6b 62 64 3e 20 20 20 7c 0a 7c 20 74 61 62 6c 69 73 74 | ....|.<kbd>f</kbd>...|.|.tablist |
| 16880 | 2d 64 6f 2d 64 65 6c 65 74 65 20 20 20 20 20 20 20 20 20 7c 20 3c 6b 62 64 3e 44 3c 2f 6b 62 64 | -do-delete.........|.<kbd>D</kbd |
| 168a0 | 3e 20 20 20 7c 0a 7c 20 74 61 62 6c 69 73 74 2d 64 6f 2d 63 6f 70 79 20 20 20 20 20 20 20 20 20 | >...|.|.tablist-do-copy......... |
| 168c0 | 20 20 7c 20 3c 6b 62 64 3e 43 3c 2f 6b 62 64 3e 20 20 20 7c 0a 7c 20 74 61 62 6c 69 73 74 2d 64 | ..|.<kbd>C</kbd>...|.|.tablist-d |
| 168e0 | 6f 2d 72 65 6e 61 6d 65 20 20 20 20 20 20 20 20 20 7c 20 3c 6b 62 64 3e 52 3c 2f 6b 62 64 3e 20 | o-rename.........|.<kbd>R</kbd>. |
| 16900 | 20 20 7c 0a 7c 20 74 61 62 6c 69 73 74 2d 64 6f 2d 66 6c 61 67 67 65 64 2d 64 65 6c 65 74 65 20 | ..|.|.tablist-do-flagged-delete. |
| 16920 | 7c 20 3c 6b 62 64 3e 78 3c 2f 6b 62 64 3e 20 20 20 7c 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 | |.<kbd>x</kbd>...|.............. |
| 16940 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 16960 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 16980 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 169a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 169c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 169e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 16a00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 16a20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 16a40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 16a60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 16a80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 16aa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 16ac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 16ae0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 16b00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 16b20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 16b40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 16b60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 16b80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 16ba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 16bc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 16be0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 16c00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 16c20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 16c40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 16c60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 16c80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 16ca0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 16cc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 16ce0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 16d00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 16d20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 16d40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 16d60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 16d80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 16da0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 16dc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 16de0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 16e00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 16e20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 16e40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 16e60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 16e80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 16ea0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 16ec0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 16ee0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 16f00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 16f20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 16f40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 16f60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 16f80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 16fa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 16fc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 16fe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17000 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17020 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17040 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17060 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17080 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 170a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 170c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 170e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17100 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17120 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17140 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17160 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17180 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 171a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 171c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 171e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17200 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17220 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17240 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17260 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17280 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 172a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 172c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 172e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17300 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17320 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 173a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 173c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 173e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17400 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17420 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17440 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17460 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17480 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 174a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 174c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 174e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17500 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17520 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17540 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17560 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17580 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 175a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 175c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 175e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17600 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17620 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17640 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17660 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17680 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 176a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 176c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 176e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17700 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17720 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17740 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17760 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17780 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 177a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 177c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 177e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17800 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17820 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17840 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17860 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17880 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 178a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 178c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 178e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17900 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17920 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17940 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17960 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17980 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 179a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 179c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 179e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17a00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17a20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17a40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17a60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17a80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17aa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17ac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17ae0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17b00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17b20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17b40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17b60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17b80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17ba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17bc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17be0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17c00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17c20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17c40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17c60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17c80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17ca0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17cc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17ce0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17d00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17d20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17d40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17d60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17d80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17da0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17dc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17de0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17e00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17e20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17e40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17e60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17e80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17ea0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17ec0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17ee0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17f00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17f20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17f40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17f60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17f80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17fa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17fc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 17fe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18000 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18020 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18040 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18060 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18080 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 180a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 180c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 180e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18100 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18120 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18140 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18160 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18180 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 181a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 181c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 181e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18200 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18220 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18240 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18260 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18280 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 182a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 182c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 182e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18300 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18320 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 183a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 183c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 183e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18400 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18420 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18440 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18460 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18480 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 184a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 184c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 184e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18500 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18520 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18540 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18560 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18580 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 185a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 185c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 185e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18600 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18620 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18640 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18660 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18680 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 186a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 186c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 186e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18700 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18720 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18740 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18760 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18780 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 187a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 187c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 187e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18800 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18820 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18840 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18860 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18880 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 188a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 188c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 188e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18900 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18920 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18940 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18960 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18980 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 189a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 189c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 189e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18a00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18a20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18a40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18a60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18a80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18aa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18ac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18ae0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18b00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18b20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18b40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18b60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18b80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18ba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18bc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18be0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18c00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18c20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18c40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18c60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18c80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18ca0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18cc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18ce0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18d00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18d20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18d40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18d60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18d80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18da0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18dc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18de0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18e00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18e20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18e40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18e60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18e80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18ea0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18ec0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18ee0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18f00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18f20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18f40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18f60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18f80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18fa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18fc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 18fe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
 |
index : dotemacs.git | |
| my Emacs configuration | Craig Jennings |
| summaryrefslogtreecommitdiff |
blob: b753612550fb889e650219a4329db11ffe4df607 (plain)