| ofs | hex dump | ascii |
|---|---|---|
| 0000 | 67 69 74 2d 67 75 74 74 65 72 2d 32 30 32 32 30 39 32 32 2e 32 35 36 2f 00 00 00 00 00 00 00 00 | git-gutter-20220922.256/........ |
| 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 33 30 32 33 00 20 35 00 00 00 | 0000000.00000000000.013023..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 | 67 69 74 2d 67 75 74 74 65 72 2d 32 30 32 32 30 39 32 32 2e 32 35 36 2f 67 69 74 2d 67 75 74 74 | git-gutter-20220922.256/git-gutt |
| 0220 | 65 72 2d 70 6b 67 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | er-pkg.el....................... |
| 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 30 30 30 37 30 35 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 32 32 31 00 20 30 00 00 00 | 0000705.00000000000.016221..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 | 28 64 65 66 69 6e 65 2d 70 61 63 6b 61 67 65 20 22 67 69 74 2d 67 75 74 74 65 72 22 20 22 32 30 | (define-package."git-gutter"."20 |
| 0420 | 32 32 30 39 32 32 2e 32 35 36 22 20 22 50 6f 72 74 20 6f 66 20 53 75 62 6c 69 6d 65 20 54 65 78 | 220922.256"."Port.of.Sublime.Tex |
| 0440 | 74 20 70 6c 75 67 69 6e 20 47 69 74 47 75 74 74 65 72 22 0a 20 20 27 28 28 65 6d 61 63 73 20 22 | t.plugin.GitGutter"...'((emacs." |
| 0460 | 32 35 2e 31 22 29 29 0a 20 20 3a 63 6f 6d 6d 69 74 20 22 65 63 32 38 65 38 35 64 32 33 37 30 36 | 25.1"))...:commit."ec28e85d23706 |
| 0480 | 35 63 62 33 63 32 38 64 62 34 62 36 36 64 31 32 39 64 61 36 64 33 30 39 66 39 63 22 20 3a 61 75 | 5cb3c28db4b66d129da6d309f9c".:au |
| 04a0 | 74 68 6f 72 73 0a 20 20 27 28 28 22 53 79 6f 68 65 69 20 59 4f 53 48 49 44 41 22 20 2e 20 22 73 | thors...'(("Syohei.YOSHIDA"..."s |
| 04c0 | 79 6f 68 65 78 40 67 6d 61 69 6c 2e 63 6f 6d 22 29 29 0a 20 20 3a 6d 61 69 6e 74 61 69 6e 65 72 | yohex@gmail.com"))...:maintainer |
| 04e0 | 73 0a 20 20 27 28 28 22 4e 65 69 6c 20 4f 6b 61 6d 6f 74 6f 22 20 2e 20 22 6e 65 69 6c 2e 6f 6b | s...'(("Neil.Okamoto"..."neil.ok |
| 0500 | 61 6d 6f 74 6f 2b 6d 65 6c 70 61 40 67 6d 61 69 6c 2e 63 6f 6d 22 29 29 0a 20 20 3a 6d 61 69 6e | amoto+melpa@gmail.com"))...:main |
| 0520 | 74 61 69 6e 65 72 0a 20 20 27 28 22 4e 65 69 6c 20 4f 6b 61 6d 6f 74 6f 22 20 2e 20 22 6e 65 69 | tainer...'("Neil.Okamoto"..."nei |
| 0540 | 6c 2e 6f 6b 61 6d 6f 74 6f 2b 6d 65 6c 70 61 40 67 6d 61 69 6c 2e 63 6f 6d 22 29 0a 20 20 3a 75 | l.okamoto+melpa@gmail.com")...:u |
| 0560 | 72 6c 20 22 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 65 6d 61 63 73 6f 72 70 68 | rl."https://github.com/emacsorph |
| 0580 | 61 6e 61 67 65 2f 67 69 74 2d 67 75 74 74 65 72 22 29 0a 3b 3b 20 4c 6f 63 61 6c 20 56 61 72 69 | anage/git-gutter").;;.Local.Vari |
| 05a0 | 61 62 6c 65 73 3a 0a 3b 3b 20 6e 6f 2d 62 79 74 65 2d 63 6f 6d 70 69 6c 65 3a 20 74 0a 3b 3b 20 | ables:.;;.no-byte-compile:.t.;;. |
| 05c0 | 45 6e 64 3a 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 | End:............................ |
| 05e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0600 | 67 69 74 2d 67 75 74 74 65 72 2d 32 30 32 32 30 39 32 32 2e 32 35 36 2f 67 69 74 2d 67 75 74 74 | git-gutter-20220922.256/git-gutt |
| 0620 | 65 72 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | er.el........................... |
| 0640 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0660 | 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 |
| 0680 | 30 31 33 30 30 33 34 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 34 34 31 00 20 30 00 00 00 | 0130034.00000000000.015441..0... |
| 06a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 06c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 06e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0700 | 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................... |
| 0720 | 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................... |
| 0740 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0760 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0780 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 07a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 07c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 07e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0800 | 3b 3b 3b 20 67 69 74 2d 67 75 74 74 65 72 2e 65 6c 20 2d 2d 2d 20 50 6f 72 74 20 6f 66 20 53 75 | ;;;.git-gutter.el.---.Port.of.Su |
| 0820 | 62 6c 69 6d 65 20 54 65 78 74 20 70 6c 75 67 69 6e 20 47 69 74 47 75 74 74 65 72 20 2d 2a 2d 20 | blime.Text.plugin.GitGutter.-*-. |
| 0840 | 6c 65 78 69 63 61 6c 2d 62 69 6e 64 69 6e 67 3a 20 74 3b 20 2d 2a 2d 0a 0a 3b 3b 20 43 6f 70 79 | lexical-binding:.t;.-*-..;;.Copy |
| 0860 | 72 69 67 68 74 20 28 43 29 20 32 30 31 36 2d 32 30 32 30 20 53 79 6f 68 65 69 20 59 4f 53 48 49 | right.(C).2016-2020.Syohei.YOSHI |
| 0880 | 44 41 20 3c 73 79 6f 68 65 78 40 67 6d 61 69 6c 2e 63 6f 6d 3e 0a 3b 3b 20 43 6f 70 79 72 69 67 | DA.<syohex@gmail.com>.;;.Copyrig |
| 08a0 | 68 74 20 28 43 29 20 32 30 32 30 2d 32 30 32 32 20 4e 65 69 6c 20 4f 6b 61 6d 6f 74 6f 20 3c 6e | ht.(C).2020-2022.Neil.Okamoto.<n |
| 08c0 | 65 69 6c 2e 6f 6b 61 6d 6f 74 6f 2b 6d 65 6c 70 61 40 67 6d 61 69 6c 2e 63 6f 6d 3e 0a 3b 3b 20 | eil.okamoto+melpa@gmail.com>.;;. |
| 08e0 | 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 32 30 2d 32 30 32 32 20 53 68 65 6e 2c 20 4a 65 | Copyright.(C).2020-2022.Shen,.Je |
| 0900 | 6e 2d 43 68 69 65 68 20 3c 6a 63 73 30 39 30 32 31 38 40 67 6d 61 69 6c 2e 63 6f 6d 3e 0a 0a 3b | n-Chieh.<jcs090218@gmail.com>..; |
| 0920 | 3b 20 41 75 74 68 6f 72 3a 20 53 79 6f 68 65 69 20 59 4f 53 48 49 44 41 20 3c 73 79 6f 68 65 78 | ;.Author:.Syohei.YOSHIDA.<syohex |
| 0940 | 40 67 6d 61 69 6c 2e 63 6f 6d 3e 0a 3b 3b 20 4d 61 69 6e 74 61 69 6e 65 72 3a 20 4e 65 69 6c 20 | @gmail.com>.;;.Maintainer:.Neil. |
| 0960 | 4f 6b 61 6d 6f 74 6f 20 3c 6e 65 69 6c 2e 6f 6b 61 6d 6f 74 6f 2b 6d 65 6c 70 61 40 67 6d 61 69 | Okamoto.<neil.okamoto+melpa@gmai |
| 0980 | 6c 2e 63 6f 6d 3e 0a 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 53 68 65 6e 2c 20 4a 65 6e 2d | l.com>.;;.............Shen,.Jen- |
| 09a0 | 43 68 69 65 68 20 3c 6a 63 73 30 39 30 32 31 38 40 67 6d 61 69 6c 2e 63 6f 6d 3e 0a 3b 3b 20 55 | Chieh.<jcs090218@gmail.com>.;;.U |
| 09c0 | 52 4c 3a 20 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 65 6d 61 63 73 6f 72 70 68 | RL:.https://github.com/emacsorph |
| 09e0 | 61 6e 61 67 65 2f 67 69 74 2d 67 75 74 74 65 72 0a 3b 3b 20 56 65 72 73 69 6f 6e 3a 20 30 2e 39 | anage/git-gutter.;;.Version:.0.9 |
| 0a00 | 32 0a 3b 3b 20 50 61 63 6b 61 67 65 2d 52 65 71 75 69 72 65 73 3a 20 28 28 65 6d 61 63 73 20 22 | 2.;;.Package-Requires:.((emacs." |
| 0a20 | 32 35 2e 31 22 29 29 0a 0a 3b 3b 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 66 72 65 65 | 25.1"))..;;.This.program.is.free |
| 0a40 | 20 73 6f 66 74 77 61 72 65 3b 20 79 6f 75 20 63 61 6e 20 72 65 64 69 73 74 72 69 62 75 74 65 20 | .software;.you.can.redistribute. |
| 0a60 | 69 74 20 61 6e 64 2f 6f 72 20 6d 6f 64 69 66 79 0a 3b 3b 20 69 74 20 75 6e 64 65 72 20 74 68 65 | it.and/or.modify.;;.it.under.the |
| 0a80 | 20 74 65 72 6d 73 20 6f 66 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 | .terms.of.the.GNU.General.Public |
| 0aa0 | 20 4c 69 63 65 6e 73 65 20 61 73 20 70 75 62 6c 69 73 68 65 64 20 62 79 0a 3b 3b 20 74 68 65 20 | .License.as.published.by.;;.the. |
| 0ac0 | 46 72 65 65 20 53 6f 66 74 77 61 72 65 20 46 6f 75 6e 64 61 74 69 6f 6e 2c 20 65 69 74 68 65 72 | Free.Software.Foundation,.either |
| 0ae0 | 20 76 65 72 73 69 6f 6e 20 33 20 6f 66 20 74 68 65 20 4c 69 63 65 6e 73 65 2c 20 6f 72 0a 3b 3b | .version.3.of.the.License,.or.;; |
| 0b00 | 20 28 61 74 20 79 6f 75 72 20 6f 70 74 69 6f 6e 29 20 61 6e 79 20 6c 61 74 65 72 20 76 65 72 73 | .(at.your.option).any.later.vers |
| 0b20 | 69 6f 6e 2e 0a 0a 3b 3b 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 64 69 73 74 72 69 62 | ion...;;.This.program.is.distrib |
| 0b40 | 75 74 65 64 20 69 6e 20 74 68 65 20 68 6f 70 65 20 74 68 61 74 20 69 74 20 77 69 6c 6c 20 62 65 | uted.in.the.hope.that.it.will.be |
| 0b60 | 20 75 73 65 66 75 6c 2c 0a 3b 3b 20 62 75 74 20 57 49 54 48 4f 55 54 20 41 4e 59 20 57 41 52 52 | .useful,.;;.but.WITHOUT.ANY.WARR |
| 0b80 | 41 4e 54 59 3b 20 77 69 74 68 6f 75 74 20 65 76 65 6e 20 74 68 65 20 69 6d 70 6c 69 65 64 20 77 | ANTY;.without.even.the.implied.w |
| 0ba0 | 61 72 72 61 6e 74 79 20 6f 66 0a 3b 3b 20 4d 45 52 43 48 41 4e 54 41 42 49 4c 49 54 59 20 6f 72 | arranty.of.;;.MERCHANTABILITY.or |
| 0bc0 | 20 46 49 54 4e 45 53 53 20 46 4f 52 20 41 20 50 41 52 54 49 43 55 4c 41 52 20 50 55 52 50 4f 53 | .FITNESS.FOR.A.PARTICULAR.PURPOS |
| 0be0 | 45 2e 20 20 53 65 65 20 74 68 65 0a 3b 3b 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 | E...See.the.;;.GNU.General.Publi |
| 0c00 | 63 20 4c 69 63 65 6e 73 65 20 66 6f 72 20 6d 6f 72 65 20 64 65 74 61 69 6c 73 2e 0a 0a 3b 3b 20 | c.License.for.more.details...;;. |
| 0c20 | 59 6f 75 20 73 68 6f 75 6c 64 20 68 61 76 65 20 72 65 63 65 69 76 65 64 20 61 20 63 6f 70 79 20 | You.should.have.received.a.copy. |
| 0c40 | 6f 66 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 | of.the.GNU.General.Public.Licens |
| 0c60 | 65 0a 3b 3b 20 61 6c 6f 6e 67 20 77 69 74 68 20 74 68 69 73 20 70 72 6f 67 72 61 6d 2e 20 20 49 | e.;;.along.with.this.program...I |
| 0c80 | 66 20 6e 6f 74 2c 20 73 65 65 20 3c 68 74 74 70 3a 2f 2f 77 77 77 2e 67 6e 75 2e 6f 72 67 2f 6c | f.not,.see.<http://www.gnu.org/l |
| 0ca0 | 69 63 65 6e 73 65 73 2f 3e 2e 0a 0a 3b 3b 3b 20 43 6f 6d 6d 65 6e 74 61 72 79 3a 0a 3b 3b 0a 3b | icenses/>...;;;.Commentary:.;;.; |
| 0cc0 | 3b 20 50 6f 72 74 20 6f 66 20 47 69 74 47 75 74 74 65 72 20 77 68 69 63 68 20 69 73 20 61 20 70 | ;.Port.of.GitGutter.which.is.a.p |
| 0ce0 | 6c 75 67 69 6e 20 6f 66 20 53 75 62 6c 69 6d 65 20 54 65 78 74 0a 0a 3b 3b 3b 20 43 6f 64 65 3a | lugin.of.Sublime.Text..;;;.Code: |
| 0d00 | 0a 0a 28 72 65 71 75 69 72 65 20 27 63 6c 2d 6c 69 62 29 0a 0a 28 64 65 66 67 72 6f 75 70 20 67 | ..(require.'cl-lib)..(defgroup.g |
| 0d20 | 69 74 2d 67 75 74 74 65 72 20 6e 69 6c 0a 20 20 22 50 6f 72 74 20 47 69 74 47 75 74 74 65 72 22 | it-gutter.nil..."Port.GitGutter" |
| 0d40 | 0a 20 20 3a 70 72 65 66 69 78 20 22 67 69 74 2d 67 75 74 74 65 72 3a 22 0a 20 20 3a 67 72 6f 75 | ...:prefix."git-gutter:"...:grou |
| 0d60 | 70 20 27 76 63 29 0a 0a 28 64 65 66 76 61 72 20 67 69 74 2d 67 75 74 74 65 72 2d 6d 6f 64 65 20 | p.'vc)..(defvar.git-gutter-mode. |
| 0d80 | 6e 69 6c 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 67 69 74 2d 67 75 74 74 65 72 3a 77 69 6e 64 | nil)..(defcustom.git-gutter:wind |
| 0da0 | 6f 77 2d 77 69 64 74 68 20 6e 69 6c 0a 20 20 22 43 68 61 72 61 63 74 65 72 20 77 69 64 74 68 20 | ow-width.nil..."Character.width. |
| 0dc0 | 6f 66 20 67 75 74 74 65 72 20 77 69 6e 64 6f 77 2e 20 20 45 6d 61 63 73 20 6d 69 73 74 61 6b 65 | of.gutter.window...Emacs.mistake |
| 0de0 | 73 20 77 69 64 74 68 20 6f 66 20 73 6f 6d 65 20 63 68 61 72 61 63 74 65 72 73 2e 0a 49 74 20 69 | s.width.of.some.characters..It.i |
| 0e00 | 73 20 62 65 74 74 65 72 20 74 6f 20 65 78 70 6c 69 63 69 74 6c 79 20 61 73 73 69 67 6e 20 77 69 | s.better.to.explicitly.assign.wi |
| 0e20 | 64 74 68 20 74 6f 20 74 68 69 73 20 76 61 72 69 61 62 6c 65 2c 20 69 66 20 79 6f 75 20 75 73 65 | dth.to.this.variable,.if.you.use |
| 0e40 | 20 66 75 6c 6c 2d 77 69 64 74 68 0a 63 68 61 72 61 63 74 65 72 20 66 6f 72 20 73 69 67 6e 73 20 | .full-width.character.for.signs. |
| 0e60 | 6f 66 20 63 68 61 6e 67 65 73 22 0a 20 20 3a 74 79 70 65 20 27 69 6e 74 65 67 65 72 0a 20 20 3a | of.changes"...:type.'integer...: |
| 0e80 | 67 72 6f 75 70 20 27 67 69 74 2d 67 75 74 74 65 72 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 67 | group.'git-gutter)..(defcustom.g |
| 0ea0 | 69 74 2d 67 75 74 74 65 72 3a 64 69 66 66 2d 6f 70 74 69 6f 6e 20 22 22 0a 20 20 22 4f 70 74 69 | it-gutter:diff-option.""..."Opti |
| 0ec0 | 6f 6e 20 6f 66 20 27 67 69 74 20 64 69 66 66 27 2e 22 0a 20 20 3a 74 79 70 65 20 27 73 74 72 69 | on.of.'git.diff'."...:type.'stri |
| 0ee0 | 6e 67 0a 20 20 3a 67 72 6f 75 70 20 27 67 69 74 2d 67 75 74 74 65 72 29 0a 0a 28 64 65 66 63 75 | ng...:group.'git-gutter)..(defcu |
| 0f00 | 73 74 6f 6d 20 67 69 74 2d 67 75 74 74 65 72 3a 73 75 62 76 65 72 73 69 6f 6e 2d 64 69 66 66 2d | stom.git-gutter:subversion-diff- |
| 0f20 | 6f 70 74 69 6f 6e 20 22 22 0a 20 20 22 4f 70 74 69 6f 6e 20 6f 66 20 27 73 76 6e 20 64 69 66 66 | option.""..."Option.of.'svn.diff |
| 0f40 | 27 2e 22 0a 20 20 3a 74 79 70 65 20 27 73 74 72 69 6e 67 0a 20 20 3a 67 72 6f 75 70 20 27 67 69 | '."...:type.'string...:group.'gi |
| 0f60 | 74 2d 67 75 74 74 65 72 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 67 69 74 2d 67 75 74 74 65 72 | t-gutter)..(defcustom.git-gutter |
| 0f80 | 3a 6d 65 72 63 75 72 69 61 6c 2d 64 69 66 66 2d 6f 70 74 69 6f 6e 20 22 22 0a 20 20 22 4f 70 74 | :mercurial-diff-option.""..."Opt |
| 0fa0 | 69 6f 6e 20 6f 66 20 27 68 67 20 64 69 66 66 27 2e 22 0a 20 20 3a 74 79 70 65 20 27 73 74 72 69 | ion.of.'hg.diff'."...:type.'stri |
| 0fc0 | 6e 67 0a 20 20 3a 67 72 6f 75 70 20 27 67 69 74 2d 67 75 74 74 65 72 29 0a 0a 28 64 65 66 63 75 | ng...:group.'git-gutter)..(defcu |
| 0fe0 | 73 74 6f 6d 20 67 69 74 2d 67 75 74 74 65 72 3a 62 61 7a 61 61 72 2d 64 69 66 66 2d 6f 70 74 69 | stom.git-gutter:bazaar-diff-opti |
| 1000 | 6f 6e 20 22 22 0a 20 20 22 4f 70 74 69 6f 6e 20 6f 66 20 27 62 7a 72 20 64 69 66 66 27 2e 22 0a | on.""..."Option.of.'bzr.diff'.". |
| 1020 | 20 20 3a 74 79 70 65 20 27 73 74 72 69 6e 67 0a 20 20 3a 67 72 6f 75 70 20 27 67 69 74 2d 67 75 | ..:type.'string...:group.'git-gu |
| 1040 | 74 74 65 72 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 67 69 74 2d 67 75 74 74 65 72 3a 75 70 64 | tter)..(defcustom.git-gutter:upd |
| 1060 | 61 74 65 2d 63 6f 6d 6d 61 6e 64 73 0a 20 20 27 28 69 64 6f 2d 73 77 69 74 63 68 2d 62 75 66 66 | ate-commands...'(ido-switch-buff |
| 1080 | 65 72 20 68 65 6c 6d 2d 62 75 66 66 65 72 73 2d 6c 69 73 74 29 0a 20 20 22 45 61 63 68 20 63 6f | er.helm-buffers-list)..."Each.co |
| 10a0 | 6d 6d 61 6e 64 20 6f 66 20 74 68 69 73 20 6c 69 73 74 20 69 73 20 65 78 65 63 75 74 65 64 2c 20 | mmand.of.this.list.is.executed,. |
| 10c0 | 67 75 74 74 65 72 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 69 73 20 75 70 64 61 74 65 64 2e 22 0a | gutter.information.is.updated.". |
| 10e0 | 20 20 3a 74 79 70 65 20 27 28 6c 69 73 74 20 28 66 75 6e 63 74 69 6f 6e 20 3a 74 61 67 20 22 55 | ..:type.'(list.(function.:tag."U |
| 1100 | 70 64 61 74 65 20 63 6f 6d 6d 61 6e 64 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | pdate.command")................( |
| 1120 | 72 65 70 65 61 74 20 3a 69 6e 6c 69 6e 65 20 74 20 28 66 75 6e 63 74 69 6f 6e 20 3a 74 61 67 20 | repeat.:inline.t.(function.:tag. |
| 1140 | 22 55 70 64 61 74 65 20 63 6f 6d 6d 61 6e 64 22 29 29 29 0a 20 20 3a 67 72 6f 75 70 20 27 67 69 | "Update.command")))...:group.'gi |
| 1160 | 74 2d 67 75 74 74 65 72 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 67 69 74 2d 67 75 74 74 65 72 | t-gutter)..(defcustom.git-gutter |
| 1180 | 3a 75 70 64 61 74 65 2d 77 69 6e 64 6f 77 73 2d 63 6f 6d 6d 61 6e 64 73 0a 20 20 27 28 6b 69 6c | :update-windows-commands...'(kil |
| 11a0 | 6c 2d 62 75 66 66 65 72 20 69 64 6f 2d 6b 69 6c 6c 2d 62 75 66 66 65 72 29 0a 20 20 22 45 61 63 | l-buffer.ido-kill-buffer)..."Eac |
| 11c0 | 68 20 63 6f 6d 6d 61 6e 64 20 6f 66 20 74 68 69 73 20 6c 69 73 74 20 69 73 20 65 78 65 63 75 74 | h.command.of.this.list.is.execut |
| 11e0 | 65 64 2c 20 67 75 74 74 65 72 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 69 73 0a 75 70 64 61 74 65 | ed,.gutter.information.is.update |
| 1200 | 64 20 61 6e 64 20 67 75 74 74 65 72 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 6f 66 20 6f 74 68 65 | d.and.gutter.information.of.othe |
| 1220 | 72 20 77 69 6e 64 6f 77 73 2e 22 0a 20 20 3a 74 79 70 65 20 27 28 6c 69 73 74 20 28 66 75 6e 63 | r.windows."...:type.'(list.(func |
| 1240 | 74 69 6f 6e 20 3a 74 61 67 20 22 55 70 64 61 74 65 20 63 6f 6d 6d 61 6e 64 22 29 0a 20 20 20 20 | tion.:tag."Update.command")..... |
| 1260 | 20 20 20 20 20 20 20 20 20 20 20 28 72 65 70 65 61 74 20 3a 69 6e 6c 69 6e 65 20 74 20 28 66 75 | ...........(repeat.:inline.t.(fu |
| 1280 | 6e 63 74 69 6f 6e 20 3a 74 61 67 20 22 55 70 64 61 74 65 20 63 6f 6d 6d 61 6e 64 22 29 29 29 0a | nction.:tag."Update.command"))). |
| 12a0 | 20 20 3a 67 72 6f 75 70 20 27 67 69 74 2d 67 75 74 74 65 72 29 0a 0a 28 64 65 66 63 75 73 74 6f | ..:group.'git-gutter)..(defcusto |
| 12c0 | 6d 20 67 69 74 2d 67 75 74 74 65 72 3a 75 70 64 61 74 65 2d 68 6f 6f 6b 73 0a 20 20 27 28 61 66 | m.git-gutter:update-hooks...'(af |
| 12e0 | 74 65 72 2d 73 61 76 65 2d 68 6f 6f 6b 0a 20 20 20 20 61 66 74 65 72 2d 72 65 76 65 72 74 2d 68 | ter-save-hook.....after-revert-h |
| 1300 | 6f 6f 6b 0a 20 20 20 20 66 69 6e 64 2d 66 69 6c 65 2d 68 6f 6f 6b 0a 20 20 20 20 61 66 74 65 72 | ook.....find-file-hook.....after |
| 1320 | 2d 63 68 61 6e 67 65 2d 6d 61 6a 6f 72 2d 6d 6f 64 65 2d 68 6f 6f 6b 0a 20 20 20 20 74 65 78 74 | -change-major-mode-hook.....text |
| 1340 | 2d 73 63 61 6c 65 2d 6d 6f 64 65 2d 68 6f 6f 6b 29 0a 20 20 22 48 6f 6f 6b 20 70 6f 69 6e 74 73 | -scale-mode-hook)..."Hook.points |
| 1360 | 20 6f 66 20 75 70 64 61 74 69 6e 67 20 67 75 74 74 65 72 2e 22 0a 20 20 3a 74 79 70 65 20 27 28 | .of.updating.gutter."...:type.'( |
| 1380 | 6c 69 73 74 20 28 68 6f 6f 6b 20 3a 74 61 67 20 22 48 6f 6f 6b 50 6f 69 6e 74 22 29 0a 20 20 20 | list.(hook.:tag."HookPoint").... |
| 13a0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 70 65 61 74 20 3a 69 6e 6c 69 6e 65 20 74 20 28 68 | ............(repeat.:inline.t.(h |
| 13c0 | 6f 6f 6b 20 3a 74 61 67 20 22 48 6f 6f 6b 50 6f 69 6e 74 22 29 29 29 0a 20 20 3a 67 72 6f 75 70 | ook.:tag."HookPoint")))...:group |
| 13e0 | 20 27 67 69 74 2d 67 75 74 74 65 72 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 67 69 74 2d 67 75 | .'git-gutter)..(defcustom.git-gu |
| 1400 | 74 74 65 72 3a 61 6c 77 61 79 73 2d 73 68 6f 77 2d 73 65 70 61 72 61 74 6f 72 20 6e 69 6c 0a 20 | tter:always-show-separator.nil.. |
| 1420 | 20 22 53 68 6f 77 20 73 65 70 61 72 61 74 6f 72 20 65 76 65 6e 20 69 66 20 74 68 65 72 65 20 61 | ."Show.separator.even.if.there.a |
| 1440 | 72 65 20 6e 6f 20 63 68 61 6e 67 65 73 2e 22 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e | re.no.changes."...:type.'boolean |
| 1460 | 0a 20 20 3a 67 72 6f 75 70 20 27 67 69 74 2d 67 75 74 74 65 72 29 0a 0a 28 64 65 66 63 75 73 74 | ...:group.'git-gutter)..(defcust |
| 1480 | 6f 6d 20 67 69 74 2d 67 75 74 74 65 72 3a 73 65 70 61 72 61 74 6f 72 2d 73 69 67 6e 20 6e 69 6c | om.git-gutter:separator-sign.nil |
| 14a0 | 0a 20 20 22 53 65 70 61 72 61 74 6f 72 20 73 69 67 6e 2e 22 0a 20 20 3a 74 79 70 65 20 27 73 74 | ..."Separator.sign."...:type.'st |
| 14c0 | 72 69 6e 67 0a 20 20 3a 67 72 6f 75 70 20 27 67 69 74 2d 67 75 74 74 65 72 29 0a 0a 28 64 65 66 | ring...:group.'git-gutter)..(def |
| 14e0 | 63 75 73 74 6f 6d 20 67 69 74 2d 67 75 74 74 65 72 3a 6d 6f 64 69 66 69 65 64 2d 73 69 67 6e 20 | custom.git-gutter:modified-sign. |
| 1500 | 22 3d 22 0a 20 20 22 4d 6f 64 69 66 69 65 64 20 73 69 67 6e 2e 22 0a 20 20 3a 74 79 70 65 20 27 | "="..."Modified.sign."...:type.' |
| 1520 | 73 74 72 69 6e 67 0a 20 20 3a 67 72 6f 75 70 20 27 67 69 74 2d 67 75 74 74 65 72 29 0a 0a 28 64 | string...:group.'git-gutter)..(d |
| 1540 | 65 66 63 75 73 74 6f 6d 20 67 69 74 2d 67 75 74 74 65 72 3a 61 64 64 65 64 2d 73 69 67 6e 20 22 | efcustom.git-gutter:added-sign." |
| 1560 | 2b 22 0a 20 20 22 41 64 64 65 64 20 73 69 67 6e 2e 22 0a 20 20 3a 74 79 70 65 20 27 73 74 72 69 | +"..."Added.sign."...:type.'stri |
| 1580 | 6e 67 0a 20 20 3a 67 72 6f 75 70 20 27 67 69 74 2d 67 75 74 74 65 72 29 0a 0a 28 64 65 66 63 75 | ng...:group.'git-gutter)..(defcu |
| 15a0 | 73 74 6f 6d 20 67 69 74 2d 67 75 74 74 65 72 3a 64 65 6c 65 74 65 64 2d 73 69 67 6e 20 22 2d 22 | stom.git-gutter:deleted-sign."-" |
| 15c0 | 0a 20 20 22 44 65 6c 65 74 65 64 20 73 69 67 6e 2e 22 0a 20 20 3a 74 79 70 65 20 27 73 74 72 69 | ..."Deleted.sign."...:type.'stri |
| 15e0 | 6e 67 0a 20 20 3a 67 72 6f 75 70 20 27 67 69 74 2d 67 75 74 74 65 72 29 0a 0a 28 64 65 66 63 75 | ng...:group.'git-gutter)..(defcu |
| 1600 | 73 74 6f 6d 20 67 69 74 2d 67 75 74 74 65 72 3a 75 6e 63 68 61 6e 67 65 64 2d 73 69 67 6e 20 6e | stom.git-gutter:unchanged-sign.n |
| 1620 | 69 6c 0a 20 20 22 55 6e 63 68 61 6e 67 65 64 20 73 69 67 6e 2e 22 0a 20 20 3a 74 79 70 65 20 27 | il..."Unchanged.sign."...:type.' |
| 1640 | 73 74 72 69 6e 67 0a 20 20 3a 67 72 6f 75 70 20 27 67 69 74 2d 67 75 74 74 65 72 29 0a 0a 28 64 | string...:group.'git-gutter)..(d |
| 1660 | 65 66 63 75 73 74 6f 6d 20 67 69 74 2d 67 75 74 74 65 72 3a 68 69 64 65 2d 67 75 74 74 65 72 20 | efcustom.git-gutter:hide-gutter. |
| 1680 | 6e 69 6c 0a 20 20 22 48 69 64 65 20 67 75 74 74 65 72 20 69 66 20 74 68 65 72 65 20 61 72 65 20 | nil..."Hide.gutter.if.there.are. |
| 16a0 | 6e 6f 20 63 68 61 6e 67 65 73 2e 22 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 0a 20 20 | no.changes."...:type.'boolean... |
| 16c0 | 3a 67 72 6f 75 70 20 27 67 69 74 2d 67 75 74 74 65 72 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 | :group.'git-gutter)..(defcustom. |
| 16e0 | 67 69 74 2d 67 75 74 74 65 72 3a 6c 69 67 68 74 65 72 20 22 20 47 69 74 47 75 74 74 65 72 22 0a | git-gutter:lighter.".GitGutter". |
| 1700 | 20 20 22 4d 69 6e 6f 72 20 6d 6f 64 65 20 6c 69 67 68 74 65 72 20 69 6e 20 6d 6f 64 65 2d 6c 69 | .."Minor.mode.lighter.in.mode-li |
| 1720 | 6e 65 2e 22 0a 20 20 3a 74 79 70 65 20 27 73 74 72 69 6e 67 0a 20 20 3a 67 72 6f 75 70 20 27 67 | ne."...:type.'string...:group.'g |
| 1740 | 69 74 2d 67 75 74 74 65 72 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 67 69 74 2d 67 75 74 74 65 | it-gutter)..(defcustom.git-gutte |
| 1760 | 72 3a 76 65 72 62 6f 73 69 74 79 20 30 0a 20 20 22 4c 6f 67 2f 6d 65 73 73 61 67 65 20 6c 65 76 | r:verbosity.0..."Log/message.lev |
| 1780 | 65 6c 2e 20 20 34 20 6d 65 61 6e 73 20 61 6c 6c 2c 20 30 20 6e 6f 74 68 69 6e 67 2e 22 0a 20 20 | el...4.means.all,.0.nothing."... |
| 17a0 | 3a 74 79 70 65 20 27 69 6e 74 65 67 65 72 0a 20 20 3a 67 72 6f 75 70 20 27 67 69 74 2d 67 75 74 | :type.'integer...:group.'git-gut |
| 17c0 | 74 65 72 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 67 69 74 2d 67 75 74 74 65 72 3a 76 69 73 75 | ter)..(defcustom.git-gutter:visu |
| 17e0 | 61 6c 2d 6c 69 6e 65 20 6e 69 6c 0a 20 20 22 53 68 6f 77 20 73 69 67 6e 20 61 74 20 67 75 74 74 | al-line.nil..."Show.sign.at.gutt |
| 1800 | 65 72 20 62 79 20 76 69 73 75 61 6c 20 6c 69 6e 65 2e 22 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f | er.by.visual.line."...:type.'boo |
| 1820 | 6c 65 61 6e 0a 20 20 3a 67 72 6f 75 70 20 27 67 69 74 2d 67 75 74 74 65 72 29 0a 0a 28 64 65 66 | lean...:group.'git-gutter)..(def |
| 1840 | 66 61 63 65 20 67 69 74 2d 67 75 74 74 65 72 3a 73 65 70 61 72 61 74 6f 72 0a 20 20 27 28 28 74 | face.git-gutter:separator...'((t |
| 1860 | 20 28 3a 66 6f 72 65 67 72 6f 75 6e 64 20 22 63 79 61 6e 22 20 3a 77 65 69 67 68 74 20 62 6f 6c | .(:foreground."cyan".:weight.bol |
| 1880 | 64 20 3a 69 6e 68 65 72 69 74 20 64 65 66 61 75 6c 74 29 29 29 0a 20 20 22 46 61 63 65 20 6f 66 | d.:inherit.default)))..."Face.of |
| 18a0 | 20 73 65 70 61 72 61 74 6f 72 22 29 0a 0a 28 64 65 66 66 61 63 65 20 67 69 74 2d 67 75 74 74 65 | .separator")..(defface.git-gutte |
| 18c0 | 72 3a 6d 6f 64 69 66 69 65 64 0a 20 20 27 28 28 74 20 28 3a 66 6f 72 65 67 72 6f 75 6e 64 20 22 | r:modified...'((t.(:foreground." |
| 18e0 | 6d 61 67 65 6e 74 61 22 20 3a 77 65 69 67 68 74 20 62 6f 6c 64 20 3a 69 6e 68 65 72 69 74 20 64 | magenta".:weight.bold.:inherit.d |
| 1900 | 65 66 61 75 6c 74 29 29 29 0a 20 20 22 46 61 63 65 20 6f 66 20 6d 6f 64 69 66 69 65 64 22 29 0a | efault)))..."Face.of.modified"). |
| 1920 | 0a 28 64 65 66 66 61 63 65 20 67 69 74 2d 67 75 74 74 65 72 3a 61 64 64 65 64 0a 20 20 27 28 28 | .(defface.git-gutter:added...'(( |
| 1940 | 74 20 28 3a 66 6f 72 65 67 72 6f 75 6e 64 20 22 67 72 65 65 6e 22 20 3a 77 65 69 67 68 74 20 62 | t.(:foreground."green".:weight.b |
| 1960 | 6f 6c 64 20 3a 69 6e 68 65 72 69 74 20 64 65 66 61 75 6c 74 29 29 29 0a 20 20 22 46 61 63 65 20 | old.:inherit.default)))..."Face. |
| 1980 | 6f 66 20 61 64 64 65 64 22 29 0a 0a 28 64 65 66 66 61 63 65 20 67 69 74 2d 67 75 74 74 65 72 3a | of.added")..(defface.git-gutter: |
| 19a0 | 64 65 6c 65 74 65 64 0a 20 20 27 28 28 74 20 28 3a 66 6f 72 65 67 72 6f 75 6e 64 20 22 72 65 64 | deleted...'((t.(:foreground."red |
| 19c0 | 22 20 3a 77 65 69 67 68 74 20 62 6f 6c 64 20 3a 69 6e 68 65 72 69 74 20 64 65 66 61 75 6c 74 29 | ".:weight.bold.:inherit.default) |
| 19e0 | 29 29 0a 20 20 22 46 61 63 65 20 6f 66 20 64 65 6c 65 74 65 64 22 29 0a 0a 28 64 65 66 66 61 63 | ))..."Face.of.deleted")..(deffac |
| 1a00 | 65 20 67 69 74 2d 67 75 74 74 65 72 3a 75 6e 63 68 61 6e 67 65 64 0a 20 20 27 28 28 74 20 28 3a | e.git-gutter:unchanged...'((t.(: |
| 1a20 | 62 61 63 6b 67 72 6f 75 6e 64 20 22 79 65 6c 6c 6f 77 22 20 3a 69 6e 68 65 72 69 74 20 64 65 66 | background."yellow".:inherit.def |
| 1a40 | 61 75 6c 74 29 29 29 0a 20 20 22 46 61 63 65 20 6f 66 20 75 6e 63 68 61 6e 67 65 64 22 29 0a 0a | ault)))..."Face.of.unchanged").. |
| 1a60 | 28 64 65 66 63 75 73 74 6f 6d 20 67 69 74 2d 67 75 74 74 65 72 3a 64 69 73 61 62 6c 65 64 2d 6d | (defcustom.git-gutter:disabled-m |
| 1a80 | 6f 64 65 73 20 6e 69 6c 0a 20 20 22 41 20 6c 69 73 74 20 6f 66 20 6d 6f 64 65 73 20 77 68 69 63 | odes.nil..."A.list.of.modes.whic |
| 1aa0 | 68 20 60 67 6c 6f 62 61 6c 2d 67 69 74 2d 67 75 74 74 65 72 2d 6d 6f 64 65 27 20 73 68 6f 75 6c | h.`global-git-gutter-mode'.shoul |
| 1ac0 | 64 20 62 65 20 64 69 73 61 62 6c 65 64 2e 22 0a 20 20 3a 74 79 70 65 20 27 28 72 65 70 65 61 74 | d.be.disabled."...:type.'(repeat |
| 1ae0 | 20 73 79 6d 62 6f 6c 29 0a 20 20 3a 67 72 6f 75 70 20 27 67 69 74 2d 67 75 74 74 65 72 29 0a 0a | .symbol)...:group.'git-gutter).. |
| 1b00 | 28 64 65 66 63 75 73 74 6f 6d 20 67 69 74 2d 67 75 74 74 65 72 3a 68 61 6e 64 6c 65 64 2d 62 61 | (defcustom.git-gutter:handled-ba |
| 1b20 | 63 6b 65 6e 64 73 20 27 28 67 69 74 29 0a 20 20 22 4c 69 73 74 20 6f 66 20 76 65 72 73 69 6f 6e | ckends.'(git)..."List.of.version |
| 1b40 | 20 63 6f 6e 74 72 6f 6c 20 62 61 63 6b 65 6e 64 73 20 66 6f 72 20 77 68 69 63 68 20 60 67 69 74 | .control.backends.for.which.`git |
| 1b60 | 2d 67 75 74 74 65 72 2e 65 6c 60 20 77 69 6c 6c 20 62 65 20 75 73 65 64 2e 0a 60 67 69 74 27 2c | -gutter.el`.will.be.used..`git', |
| 1b80 | 20 60 73 76 6e 27 2c 20 60 68 67 27 2c 20 61 6e 64 20 60 62 7a 72 27 20 61 72 65 20 73 75 70 70 | .`svn',.`hg',.and.`bzr'.are.supp |
| 1ba0 | 6f 72 74 65 64 2e 22 0a 20 20 3a 74 79 70 65 20 27 28 72 65 70 65 61 74 20 73 79 6d 62 6f 6c 29 | orted."...:type.'(repeat.symbol) |
| 1bc0 | 0a 20 20 3a 67 72 6f 75 70 20 27 67 69 74 2d 67 75 74 74 65 72 29 0a 0a 28 64 65 66 76 61 72 20 | ...:group.'git-gutter)..(defvar. |
| 1be0 | 67 69 74 2d 67 75 74 74 65 72 3a 76 69 65 77 2d 64 69 66 66 2d 66 75 6e 63 74 69 6f 6e 20 23 27 | git-gutter:view-diff-function.#' |
| 1c00 | 67 69 74 2d 67 75 74 74 65 72 3a 76 69 65 77 2d 64 69 66 66 2d 69 6e 66 6f 73 0a 20 20 22 46 75 | git-gutter:view-diff-infos..."Fu |
| 1c20 | 6e 63 74 69 6f 6e 20 6f 66 20 76 69 65 77 69 6e 67 20 63 68 61 6e 67 65 73 2e 22 29 0a 0a 28 64 | nction.of.viewing.changes.")..(d |
| 1c40 | 65 66 76 61 72 20 67 69 74 2d 67 75 74 74 65 72 3a 63 6c 65 61 72 2d 66 75 6e 63 74 69 6f 6e 20 | efvar.git-gutter:clear-function. |
| 1c60 | 23 27 67 69 74 2d 67 75 74 74 65 72 3a 63 6c 65 61 72 2d 64 69 66 66 2d 69 6e 66 6f 73 0a 20 20 | #'git-gutter:clear-diff-infos... |
| 1c80 | 22 46 75 6e 63 74 69 6f 6e 20 6f 66 20 63 6c 65 61 72 20 63 68 61 6e 67 65 73 2e 22 29 0a 0a 28 | "Function.of.clear.changes.")..( |
| 1ca0 | 64 65 66 76 61 72 20 67 69 74 2d 67 75 74 74 65 72 3a 69 6e 69 74 2d 66 75 6e 63 74 69 6f 6e 20 | defvar.git-gutter:init-function. |
| 1cc0 | 27 6e 69 6c 0a 20 20 22 46 75 6e 63 74 69 6f 6e 20 6f 66 20 69 6e 69 74 69 61 6c 69 7a 65 2e 22 | 'nil..."Function.of.initialize." |
| 1ce0 | 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 67 69 74 2d 67 75 74 74 65 72 2d 6d 6f 64 65 2d 6f 6e | )..(defcustom.git-gutter-mode-on |
| 1d00 | 2d 68 6f 6f 6b 20 6e 69 6c 0a 20 20 22 48 6f 6f 6b 20 72 75 6e 20 77 68 65 6e 20 67 69 74 2d 67 | -hook.nil..."Hook.run.when.git-g |
| 1d20 | 75 74 74 65 72 20 6d 6f 64 65 20 65 6e 61 62 6c 65 2e 22 0a 20 20 3a 74 79 70 65 20 27 68 6f 6f | utter.mode.enable."...:type.'hoo |
| 1d40 | 6b 0a 20 20 3a 67 72 6f 75 70 20 27 67 69 74 2d 67 75 74 74 65 72 29 0a 0a 28 64 65 66 63 75 73 | k...:group.'git-gutter)..(defcus |
| 1d60 | 74 6f 6d 20 67 69 74 2d 67 75 74 74 65 72 2d 6d 6f 64 65 2d 6f 66 66 2d 68 6f 6f 6b 20 6e 69 6c | tom.git-gutter-mode-off-hook.nil |
| 1d80 | 0a 20 20 22 48 6f 6f 6b 20 72 75 6e 20 77 68 65 6e 20 67 69 74 2d 67 75 74 74 65 72 20 6d 6f 64 | ..."Hook.run.when.git-gutter.mod |
| 1da0 | 65 20 64 69 73 61 62 6c 65 2e 22 0a 20 20 3a 74 79 70 65 20 27 68 6f 6f 6b 0a 20 20 3a 67 72 6f | e.disable."...:type.'hook...:gro |
| 1dc0 | 75 70 20 27 67 69 74 2d 67 75 74 74 65 72 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 67 69 74 2d | up.'git-gutter)..(defcustom.git- |
| 1de0 | 67 75 74 74 65 72 3a 75 70 64 61 74 65 2d 69 6e 74 65 72 76 61 6c 20 30 0a 20 20 22 54 69 6d 65 | gutter:update-interval.0..."Time |
| 1e00 | 20 69 6e 74 65 72 76 61 6c 20 69 6e 20 73 65 63 6f 6e 64 73 20 66 6f 72 20 75 70 64 61 74 69 6e | .interval.in.seconds.for.updatin |
| 1e20 | 67 20 64 69 66 66 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e 22 0a 20 20 3a 74 79 70 65 20 27 69 6e | g.diff.information."...:type.'in |
| 1e40 | 74 65 67 65 72 0a 20 20 3a 67 72 6f 75 70 20 27 67 69 74 2d 67 75 74 74 65 72 29 0a 0a 28 64 65 | teger...:group.'git-gutter)..(de |
| 1e60 | 66 63 75 73 74 6f 6d 20 67 69 74 2d 67 75 74 74 65 72 3a 61 73 6b 2d 70 20 74 0a 20 20 22 41 73 | fcustom.git-gutter:ask-p.t..."As |
| 1e80 | 6b 20 77 68 65 74 68 65 72 20 63 6f 6d 6d 69 74 2f 72 65 76 65 72 74 20 6f 72 20 6e 6f 74 2e 22 | k.whether.commit/revert.or.not." |
| 1ea0 | 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 0a 20 20 3a 67 72 6f 75 70 20 27 67 69 74 2d | ...:type.'boolean...:group.'git- |
| 1ec0 | 67 75 74 74 65 72 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 67 69 74 2d 67 75 74 74 65 72 3a 64 | gutter)..(defcustom.git-gutter:d |
| 1ee0 | 69 73 70 6c 61 79 2d 70 20 74 0a 20 20 22 44 69 73 70 6c 61 79 20 64 69 66 66 20 69 6e 66 6f 72 | isplay-p.t..."Display.diff.infor |
| 1f00 | 6d 61 74 69 6f 6e 20 6f 72 20 6e 6f 74 2e 22 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e | mation.or.not."...:type.'boolean |
| 1f20 | 0a 20 20 3a 67 72 6f 75 70 20 27 67 69 74 2d 67 75 74 74 65 72 29 0a 0a 28 64 65 66 76 61 72 20 | ...:group.'git-gutter)..(defvar. |
| 1f40 | 67 69 74 2d 67 75 74 74 65 72 3a 73 74 61 72 74 2d 72 65 76 69 73 69 6f 6e 20 6e 69 6c 0a 20 20 | git-gutter:start-revision.nil... |
| 1f60 | 22 53 74 61 72 74 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 66 6f 72 20 76 63 20 64 69 66 66 73 2e | "Starting.revision.for.vc.diffs. |
| 1f80 | 0a 43 61 6e 20 62 65 20 61 20 64 69 72 65 63 74 6f 72 79 2d 6c 6f 63 61 6c 20 76 61 72 69 61 62 | .Can.be.a.directory-local.variab |
| 1fa0 | 6c 65 20 69 6e 20 79 6f 75 72 20 70 72 6f 6a 65 63 74 2e 22 29 0a 0a 28 6d 61 6b 65 2d 76 61 72 | le.in.your.project.")..(make-var |
| 1fc0 | 69 61 62 6c 65 2d 62 75 66 66 65 72 2d 6c 6f 63 61 6c 20 27 67 69 74 2d 67 75 74 74 65 72 3a 73 | iable-buffer-local.'git-gutter:s |
| 1fe0 | 74 61 72 74 2d 72 65 76 69 73 69 6f 6e 29 0a 28 70 75 74 20 27 67 69 74 2d 67 75 74 74 65 72 3a | tart-revision).(put.'git-gutter: |
| 2000 | 73 74 61 72 74 2d 72 65 76 69 73 69 6f 6e 20 27 73 61 66 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 | start-revision.'safe-local-varia |
| 2020 | 62 6c 65 0a 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 78 29 20 28 6f 72 20 28 62 6f 6f 6c 65 61 | ble......(lambda.(x).(or.(boolea |
| 2040 | 6e 70 20 78 29 20 28 73 74 72 69 6e 67 70 20 78 29 29 29 29 0a 0a 28 63 6c 2d 64 65 66 73 74 72 | np.x).(stringp.x))))..(cl-defstr |
| 2060 | 75 63 74 20 67 69 74 2d 67 75 74 74 65 72 2d 68 75 6e 6b 0a 20 20 74 79 70 65 20 63 6f 6e 74 65 | uct.git-gutter-hunk...type.conte |
| 2080 | 6e 74 20 73 74 61 72 74 2d 6c 69 6e 65 20 65 6e 64 2d 6c 69 6e 65 29 0a 0a 28 64 65 66 76 61 72 | nt.start-line.end-line)..(defvar |
| 20a0 | 2d 6c 6f 63 61 6c 20 67 69 74 2d 67 75 74 74 65 72 3a 65 6e 61 62 6c 65 64 20 6e 69 6c 29 0a 28 | -local.git-gutter:enabled.nil).( |
| 20c0 | 64 65 66 76 61 72 20 67 69 74 2d 67 75 74 74 65 72 3a 64 69 66 66 69 6e 66 6f 73 20 6e 69 6c 29 | defvar.git-gutter:diffinfos.nil) |
| 20e0 | 0a 28 64 65 66 76 61 72 20 67 69 74 2d 67 75 74 74 65 72 3a 68 61 73 2d 69 6e 64 69 72 65 63 74 | .(defvar.git-gutter:has-indirect |
| 2100 | 2d 62 75 66 66 65 72 73 20 6e 69 6c 29 0a 28 64 65 66 76 61 72 20 67 69 74 2d 67 75 74 74 65 72 | -buffers.nil).(defvar.git-gutter |
| 2120 | 3a 72 65 61 6c 2d 74 68 69 73 2d 63 6f 6d 6d 61 6e 64 20 6e 69 6c 29 0a 28 64 65 66 76 61 72 20 | :real-this-command.nil).(defvar. |
| 2140 | 67 69 74 2d 67 75 74 74 65 72 3a 6c 69 6e 75 6d 2d 65 6e 61 62 6c 65 64 20 6e 69 6c 29 0a 28 64 | git-gutter:linum-enabled.nil).(d |
| 2160 | 65 66 76 61 72 20 67 69 74 2d 67 75 74 74 65 72 3a 6c 69 6e 75 6d 2d 70 72 65 76 2d 77 69 6e 64 | efvar.git-gutter:linum-prev-wind |
| 2180 | 6f 77 2d 6d 61 72 67 69 6e 20 6e 69 6c 29 0a 28 64 65 66 76 61 72 20 67 69 74 2d 67 75 74 74 65 | ow-margin.nil).(defvar.git-gutte |
| 21a0 | 72 3a 76 63 73 2d 74 79 70 65 20 6e 69 6c 29 0a 28 64 65 66 76 61 72 20 67 69 74 2d 67 75 74 74 | r:vcs-type.nil).(defvar.git-gutt |
| 21c0 | 65 72 3a 72 65 76 69 73 69 6f 6e 2d 68 69 73 74 6f 72 79 20 6e 69 6c 29 0a 28 64 65 66 76 61 72 | er:revision-history.nil).(defvar |
| 21e0 | 20 67 69 74 2d 67 75 74 74 65 72 3a 75 70 64 61 74 65 2d 74 69 6d 65 72 20 6e 69 6c 29 0a 28 64 | .git-gutter:update-timer.nil).(d |
| 2200 | 65 66 76 61 72 2d 6c 6f 63 61 6c 20 67 69 74 2d 67 75 74 74 65 72 3a 6c 61 73 74 2d 63 68 61 72 | efvar-local.git-gutter:last-char |
| 2220 | 73 2d 6d 6f 64 69 66 69 65 64 2d 74 69 63 6b 20 6e 69 6c 29 0a 0a 28 64 65 66 76 61 72 20 67 69 | s-modified-tick.nil)..(defvar.gi |
| 2240 | 74 2d 67 75 74 74 65 72 3a 70 6f 70 75 70 2d 62 75 66 66 65 72 20 22 2a 67 69 74 2d 67 75 74 74 | t-gutter:popup-buffer."*git-gutt |
| 2260 | 65 72 3a 64 69 66 66 2a 22 29 0a 28 64 65 66 76 61 72 20 67 69 74 2d 67 75 74 74 65 72 3a 69 67 | er:diff*").(defvar.git-gutter:ig |
| 2280 | 6e 6f 72 65 2d 63 6f 6d 6d 61 6e 64 73 0a 20 20 27 28 6d 69 6e 69 62 75 66 66 65 72 2d 63 6f 6d | nore-commands...'(minibuffer-com |
| 22a0 | 70 6c 65 74 65 2d 61 6e 64 2d 65 78 69 74 0a 20 20 20 20 65 78 69 74 2d 6d 69 6e 69 62 75 66 66 | plete-and-exit.....exit-minibuff |
| 22c0 | 65 72 0a 20 20 20 20 69 64 6f 2d 65 78 69 74 2d 6d 69 6e 69 62 75 66 66 65 72 0a 20 20 20 20 68 | er.....ido-exit-minibuffer.....h |
| 22e0 | 65 6c 6d 2d 6d 61 79 62 65 2d 65 78 69 74 2d 6d 69 6e 69 62 75 66 66 65 72 0a 20 20 20 20 68 65 | elm-maybe-exit-minibuffer.....he |
| 2300 | 6c 6d 2d 63 6f 6e 66 69 72 6d 2d 61 6e 64 2d 65 78 69 74 2d 6d 69 6e 69 62 75 66 66 65 72 29 29 | lm-confirm-and-exit-minibuffer)) |
| 2320 | 0a 0a 28 64 65 66 6d 61 63 72 6f 20 67 69 74 2d 67 75 74 74 65 72 3a 61 77 68 65 6e 20 28 74 65 | ..(defmacro.git-gutter:awhen.(te |
| 2340 | 73 74 20 26 72 65 73 74 20 62 6f 64 79 29 0a 20 20 22 41 6e 61 70 68 6f 72 69 63 20 77 68 65 6e | st.&rest.body)..."Anaphoric.when |
| 2360 | 2e 0a 41 72 67 75 6d 65 6e 74 20 54 45 53 54 20 69 73 20 74 68 65 20 63 61 73 65 20 62 65 66 6f | ..Argument.TEST.is.the.case.befo |
| 2380 | 72 65 20 42 4f 44 59 20 65 78 65 63 75 74 69 6f 6e 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 | re.BODY.execution."...(declare.( |
| 23a0 | 69 6e 64 65 6e 74 20 31 29 29 0a 20 20 60 28 6c 65 74 20 28 28 69 74 20 2c 74 65 73 74 29 29 0a | indent.1))...`(let.((it.,test)). |
| 23c0 | 20 20 20 20 20 28 77 68 65 6e 20 69 74 20 2c 40 62 6f 64 79 29 29 29 0a 0a 28 64 65 66 73 75 62 | .....(when.it.,@body)))..(defsub |
| 23e0 | 73 74 20 67 69 74 2d 67 75 74 74 65 72 3a 65 78 65 63 75 74 65 2d 63 6f 6d 6d 61 6e 64 20 28 63 | st.git-gutter:execute-command.(c |
| 2400 | 6d 64 20 6f 75 74 70 75 74 20 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 28 61 70 70 6c 79 20 23 | md.output.&rest.args)...(apply.# |
| 2420 | 27 70 72 6f 63 65 73 73 2d 66 69 6c 65 20 63 6d 64 20 6e 69 6c 20 6f 75 74 70 75 74 20 6e 69 6c | 'process-file.cmd.nil.output.nil |
| 2440 | 20 61 72 67 73 29 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 69 6e 2d 67 69 | .args))..(defun.git-gutter:in-gi |
| 2460 | 74 2d 72 65 70 6f 73 69 74 6f 72 79 2d 70 20 28 29 0a 20 20 28 77 68 65 6e 20 28 65 78 65 63 75 | t-repository-p.()...(when.(execu |
| 2480 | 74 61 62 6c 65 2d 66 69 6e 64 20 22 67 69 74 22 29 0a 20 20 20 20 28 77 69 74 68 2d 74 65 6d 70 | table-find."git").....(with-temp |
| 24a0 | 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 28 77 68 65 6e 2d 6c 65 74 20 28 28 65 78 65 63 2d 72 | -buffer.......(when-let.((exec-r |
| 24c0 | 65 73 75 6c 74 20 28 67 69 74 2d 67 75 74 74 65 72 3a 65 78 65 63 75 74 65 2d 63 6f 6d 6d 61 6e | esult.(git-gutter:execute-comman |
| 24e0 | 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 20 20 20 | d............................... |
| 2500 | 20 22 67 69 74 22 20 74 20 22 72 65 76 2d 70 61 72 73 65 22 20 22 2d 2d 69 73 2d 69 6e 73 69 64 | ."git".t."rev-parse"."--is-insid |
| 2520 | 65 2d 77 6f 72 6b 2d 74 72 65 65 22 29 29 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 7a | e-work-tree"))).........(when.(z |
| 2540 | 65 72 6f 70 20 65 78 65 63 2d 72 65 73 75 6c 74 29 0a 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 | erop.exec-result)...........(got |
| 2560 | 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 20 20 20 28 6c | o-char.(point-min))...........(l |
| 2580 | 6f 6f 6b 69 6e 67 2d 61 74 2d 70 20 22 74 72 75 65 22 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e | ooking-at-p."true"))))))..(defun |
| 25a0 | 20 67 69 74 2d 67 75 74 74 65 72 3a 69 6e 2d 72 65 70 6f 73 69 74 6f 72 79 2d 63 6f 6d 6d 6f 6e | .git-gutter:in-repository-common |
| 25c0 | 2d 70 20 28 63 6d 64 20 63 68 65 63 6b 2d 73 75 62 63 6d 64 20 72 65 70 6f 64 69 72 29 0a 20 20 | -p.(cmd.check-subcmd.repodir)... |
| 25e0 | 28 61 6e 64 20 28 65 78 65 63 75 74 61 62 6c 65 2d 66 69 6e 64 20 63 6d 64 29 0a 20 20 20 20 20 | (and.(executable-find.cmd)...... |
| 2600 | 20 20 28 6c 6f 63 61 74 65 2d 64 6f 6d 69 6e 61 74 69 6e 67 2d 66 69 6c 65 20 64 65 66 61 75 6c | ..(locate-dominating-file.defaul |
| 2620 | 74 2d 64 69 72 65 63 74 6f 72 79 20 72 65 70 6f 64 69 72 29 0a 20 20 20 20 20 20 20 28 7a 65 72 | t-directory.repodir)........(zer |
| 2640 | 6f 70 20 28 61 70 70 6c 79 20 23 27 67 69 74 2d 67 75 74 74 65 72 3a 65 78 65 63 75 74 65 2d 63 | op.(apply.#'git-gutter:execute-c |
| 2660 | 6f 6d 6d 61 6e 64 20 63 6d 64 20 6e 69 6c 20 63 68 65 63 6b 2d 73 75 62 63 6d 64 29 29 0a 20 20 | ommand.cmd.nil.check-subcmd))... |
| 2680 | 20 20 20 20 20 28 6e 6f 74 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 2d 70 20 28 72 65 67 65 78 | .....(not.(string-match-p.(regex |
| 26a0 | 70 2d 71 75 6f 74 65 20 28 63 6f 6e 63 61 74 20 22 2f 22 20 72 65 70 6f 64 69 72 20 22 2f 22 29 | p-quote.(concat."/".repodir."/") |
| 26c0 | 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 64 65 | ).............................de |
| 26e0 | 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 2d | fault-directory))))..(defun.git- |
| 2700 | 67 75 74 74 65 72 3a 76 63 73 2d 63 68 65 63 6b 2d 66 75 6e 63 74 69 6f 6e 20 28 76 63 73 29 0a | gutter:vcs-check-function.(vcs). |
| 2720 | 20 20 28 63 6c 2d 63 61 73 65 20 76 63 73 0a 20 20 20 20 28 67 69 74 20 28 67 69 74 2d 67 75 74 | ..(cl-case.vcs.....(git.(git-gut |
| 2740 | 74 65 72 3a 69 6e 2d 67 69 74 2d 72 65 70 6f 73 69 74 6f 72 79 2d 70 29 29 0a 20 20 20 20 28 73 | ter:in-git-repository-p)).....(s |
| 2760 | 76 6e 20 28 67 69 74 2d 67 75 74 74 65 72 3a 69 6e 2d 72 65 70 6f 73 69 74 6f 72 79 2d 63 6f 6d | vn.(git-gutter:in-repository-com |
| 2780 | 6d 6f 6e 2d 70 20 22 73 76 6e 22 20 27 28 22 69 6e 66 6f 22 29 20 22 2e 73 76 6e 22 29 29 0a 20 | mon-p."svn".'("info").".svn")).. |
| 27a0 | 20 20 20 28 68 67 20 28 67 69 74 2d 67 75 74 74 65 72 3a 69 6e 2d 72 65 70 6f 73 69 74 6f 72 79 | ...(hg.(git-gutter:in-repository |
| 27c0 | 2d 63 6f 6d 6d 6f 6e 2d 70 20 22 68 67 22 20 27 28 22 72 6f 6f 74 22 29 20 22 2e 68 67 22 29 29 | -common-p."hg".'("root").".hg")) |
| 27e0 | 0a 20 20 20 20 28 62 7a 72 20 28 67 69 74 2d 67 75 74 74 65 72 3a 69 6e 2d 72 65 70 6f 73 69 74 | .....(bzr.(git-gutter:in-reposit |
| 2800 | 6f 72 79 2d 63 6f 6d 6d 6f 6e 2d 70 20 22 62 7a 72 22 20 27 28 22 72 6f 6f 74 22 29 20 22 2e 62 | ory-common-p."bzr".'("root").".b |
| 2820 | 7a 72 22 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 69 6e 2d 72 65 | zr"))))..(defun.git-gutter:in-re |
| 2840 | 70 6f 73 69 74 6f 72 79 2d 70 20 28 29 0a 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 76 63 73 | pository-p.()...(cl-loop.for.vcs |
| 2860 | 20 69 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 68 61 6e 64 6c 65 64 2d 62 61 63 6b 65 6e 64 73 0a | .in.git-gutter:handled-backends. |
| 2880 | 20 20 20 20 20 20 20 20 20 20 20 77 68 65 6e 20 28 67 69 74 2d 67 75 74 74 65 72 3a 76 63 73 2d | ...........when.(git-gutter:vcs- |
| 28a0 | 63 68 65 63 6b 2d 66 75 6e 63 74 69 6f 6e 20 76 63 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 72 | check-function.vcs)............r |
| 28c0 | 65 74 75 72 6e 20 28 73 65 74 71 2d 6c 6f 63 61 6c 20 67 69 74 2d 67 75 74 74 65 72 3a 76 63 73 | eturn.(setq-local.git-gutter:vcs |
| 28e0 | 2d 74 79 70 65 20 76 63 73 29 29 29 0a 0a 28 64 65 66 73 75 62 73 74 20 67 69 74 2d 67 75 74 74 | -type.vcs)))..(defsubst.git-gutt |
| 2900 | 65 72 3a 63 68 61 6e 67 65 73 2d 74 6f 2d 6e 75 6d 62 65 72 20 28 73 74 72 29 0a 20 20 28 69 66 | er:changes-to-number.(str)...(if |
| 2920 | 20 28 73 74 72 69 6e 67 3d 20 73 74 72 20 22 22 29 0a 20 20 20 20 20 20 31 0a 20 20 20 20 28 73 | .(string=.str."").......1.....(s |
| 2940 | 74 72 69 6e 67 2d 74 6f 2d 6e 75 6d 62 65 72 20 73 74 72 29 29 29 0a 0a 28 64 65 66 73 75 62 73 | tring-to-number.str)))..(defsubs |
| 2960 | 74 20 67 69 74 2d 67 75 74 74 65 72 3a 62 61 73 65 2d 66 69 6c 65 20 28 29 0a 20 20 28 62 75 66 | t.git-gutter:base-file.()...(buf |
| 2980 | 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 20 28 62 75 66 66 65 72 2d 62 61 73 65 2d 62 75 66 66 65 | fer-file-name.(buffer-base-buffe |
| 29a0 | 72 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 64 69 66 66 2d 63 6f 6e | r)))..(defun.git-gutter:diff-con |
| 29c0 | 74 65 6e 74 20 28 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 67 | tent.()...(save-excursion.....(g |
| 29e0 | 6f 74 6f 2d 63 68 61 72 20 28 6c 69 6e 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 70 6f 73 69 74 69 6f | oto-char.(line-beginning-positio |
| 2a00 | 6e 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 63 75 72 70 6f 69 6e 74 20 28 70 6f 69 6e 74 29 29 | n)).....(let.((curpoint.(point)) |
| 2a20 | 29 0a 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 31 29 0a 20 20 20 20 20 20 28 | ).......(forward-line.1).......( |
| 2a40 | 69 66 20 28 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 5e 40 40 22 20 6e 69 6c 20 | if.(re-search-forward."^@@".nil. |
| 2a60 | 74 29 0a 20 20 20 20 20 20 20 20 20 20 28 62 61 63 6b 77 61 72 64 2d 63 68 61 72 20 33 29 20 3b | t)...........(backward-char.3).; |
| 2a80 | 3b 20 66 6f 72 20 27 40 40 27 0a 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 | ;.for.'@@'.........(goto-char.(p |
| 2aa0 | 6f 69 6e 74 2d 6d 61 78 29 29 29 0a 20 20 20 20 20 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 | oint-max))).......(buffer-substr |
| 2ac0 | 69 6e 67 20 63 75 72 70 6f 69 6e 74 20 28 70 6f 69 6e 74 29 29 29 29 29 0a 0a 28 64 65 66 76 61 | ing.curpoint.(point)))))..(defva |
| 2ae0 | 72 20 67 69 74 2d 67 75 74 74 65 72 3a 64 69 66 66 2d 6f 75 74 70 75 74 2d 72 65 67 65 78 70 0a | r.git-gutter:diff-output-regexp. |
| 2b00 | 20 20 22 5e 40 40 20 2d 5c 5c 28 3f 3a 5b 30 2d 39 5d 2b 5c 5c 29 2c 3f 5c 5c 28 5b 30 2d 39 5d | .."^@@.-\\(?:[0-9]+\\),?\\([0-9] |
| 2b20 | 2a 5c 5c 29 20 5c 5c 2b 5c 5c 28 5b 30 2d 39 5d 2b 5c 5c 29 2c 3f 5c 5c 28 5b 30 2d 39 5d 2a 5c | *\\).\\+\\([0-9]+\\),?\\([0-9]*\ |
| 2b40 | 5c 29 20 40 40 22 0a 20 20 22 50 61 72 73 65 20 64 69 66 66 20 6f 75 74 70 75 74 2e 22 29 0a 0a | \).@@"..."Parse.diff.output.").. |
| 2b60 | 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 70 72 6f 63 65 73 73 2d 64 69 66 66 2d 6f | (defun.git-gutter:process-diff-o |
| 2b80 | 75 74 70 75 74 20 28 62 75 66 29 0a 20 20 28 77 68 65 6e 20 28 62 75 66 66 65 72 2d 6c 69 76 65 | utput.(buf)...(when.(buffer-live |
| 2ba0 | 2d 70 20 62 75 66 29 0a 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 | -p.buf).....(with-current-buffer |
| 2bc0 | 20 62 75 66 0a 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 | .buf.......(goto-char.(point-min |
| 2be0 | 29 29 0a 20 20 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 77 68 69 6c 65 20 28 72 65 2d 73 65 61 72 | )).......(cl-loop.while.(re-sear |
| 2c00 | 63 68 2d 66 6f 72 77 61 72 64 20 67 69 74 2d 67 75 74 74 65 72 3a 64 69 66 66 2d 6f 75 74 70 75 | ch-forward.git-gutter:diff-outpu |
| 2c20 | 74 2d 72 65 67 65 78 70 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 | t-regexp.nil.t)................f |
| 2c40 | 6f 72 20 6e 65 77 2d 6c 69 6e 65 20 20 3d 20 28 73 74 72 69 6e 67 2d 74 6f 2d 6e 75 6d 62 65 72 | or.new-line..=.(string-to-number |
| 2c60 | 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 32 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(match-string.2)).............. |
| 2c80 | 20 20 66 6f 72 20 6f 72 69 67 2d 63 68 61 6e 67 65 73 20 3d 20 28 67 69 74 2d 67 75 74 74 65 72 | ..for.orig-changes.=.(git-gutter |
| 2ca0 | 3a 63 68 61 6e 67 65 73 2d 74 6f 2d 6e 75 6d 62 65 72 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 | :changes-to-number.(match-string |
| 2cc0 | 20 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 6e 65 77 2d 63 68 61 6e | .1))................for.new-chan |
| 2ce0 | 67 65 73 20 3d 20 28 67 69 74 2d 67 75 74 74 65 72 3a 63 68 61 6e 67 65 73 2d 74 6f 2d 6e 75 6d | ges.=.(git-gutter:changes-to-num |
| 2d00 | 62 65 72 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 33 29 29 0a 20 20 20 20 20 20 20 20 20 20 | ber.(match-string.3))........... |
| 2d20 | 20 20 20 20 20 66 6f 72 20 74 79 70 65 20 3d 20 28 63 6f 6e 64 20 28 28 7a 65 72 6f 70 20 6f 72 | .....for.type.=.(cond.((zerop.or |
| 2d40 | 69 67 2d 63 68 61 6e 67 65 73 29 20 27 61 64 64 65 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ig-changes).'added)............. |
| 2d60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 7a 65 72 6f 70 20 6e 65 77 2d | ....................((zerop.new- |
| 2d80 | 63 68 61 6e 67 65 73 29 20 27 64 65 6c 65 74 65 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | changes).'deleted).............. |
| 2da0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 27 6d 6f 64 69 66 69 65 64 29 | ...................(t.'modified) |
| 2dc0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 65 6e 64 2d 6c 69 6e 65 20 3d 20 | )................for.end-line.=. |
| 2de0 | 28 69 66 20 28 65 71 20 74 79 70 65 20 27 64 65 6c 65 74 65 64 29 0a 20 20 20 20 20 20 20 20 20 | (if.(eq.type.'deleted).......... |
| 2e00 | 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 6e 65 77 2d 6c 69 6e | .........................new-lin |
| 2e20 | 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 20 20 20 20 20 | e............................... |
| 2e40 | 20 20 28 31 2d 20 28 2b 20 6e 65 77 2d 6c 69 6e 65 20 6e 65 77 2d 63 68 61 6e 67 65 73 29 29 29 | ..(1-.(+.new-line.new-changes))) |
| 2e60 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 63 6f 6e 74 65 6e 74 20 3d 20 28 67 | ................for.content.=.(g |
| 2e80 | 69 74 2d 67 75 74 74 65 72 3a 64 69 66 66 2d 63 6f 6e 74 65 6e 74 29 0a 20 20 20 20 20 20 20 20 | it-gutter:diff-content)......... |
| 2ea0 | 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c | .......collect................(l |
| 2ec0 | 65 74 20 28 28 73 74 61 72 74 20 28 69 66 20 28 7a 65 72 6f 70 20 6e 65 77 2d 6c 69 6e 65 29 20 | et.((start.(if.(zerop.new-line). |
| 2ee0 | 31 20 6e 65 77 2d 6c 69 6e 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | 1.new-line)).................... |
| 2f00 | 20 20 28 65 6e 64 20 28 69 66 20 28 7a 65 72 6f 70 20 65 6e 64 2d 6c 69 6e 65 29 20 31 20 65 6e | ..(end.(if.(zerop.end-line).1.en |
| 2f20 | 64 2d 6c 69 6e 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 | d-line)))..................(make |
| 2f40 | 2d 67 69 74 2d 67 75 74 74 65 72 2d 68 75 6e 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -git-gutter-hunk................ |
| 2f60 | 20 20 20 3a 74 79 70 65 20 74 79 70 65 20 3a 63 6f 6e 74 65 6e 74 20 63 6f 6e 74 65 6e 74 20 3a | ...:type.type.:content.content.: |
| 2f80 | 73 74 61 72 74 2d 6c 69 6e 65 20 73 74 61 72 74 20 3a 65 6e 64 2d 6c 69 6e 65 20 65 6e 64 29 29 | start-line.start.:end-line.end)) |
| 2fa0 | 29 29 29 29 0a 0a 28 64 65 66 73 75 62 73 74 20 67 69 74 2d 67 75 74 74 65 72 3a 77 69 6e 64 6f | ))))..(defsubst.git-gutter:windo |
| 2fc0 | 77 2d 6d 61 72 67 69 6e 20 28 29 0a 20 20 28 6f 72 20 67 69 74 2d 67 75 74 74 65 72 3a 77 69 6e | w-margin.()...(or.git-gutter:win |
| 2fe0 | 64 6f 77 2d 77 69 64 74 68 20 28 67 69 74 2d 67 75 74 74 65 72 3a 6c 6f 6e 67 65 73 74 2d 73 69 | dow-width.(git-gutter:longest-si |
| 3000 | 67 6e 2d 77 69 64 74 68 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 73 | gn-width)))..(defun.git-gutter:s |
| 3020 | 65 74 2d 77 69 6e 64 6f 77 2d 6d 61 72 67 69 6e 20 28 77 69 64 74 68 29 0a 20 20 28 77 68 65 6e | et-window-margin.(width)...(when |
| 3040 | 20 28 61 6e 64 20 28 6e 6f 74 20 67 69 74 2d 67 75 74 74 65 72 3a 6c 69 6e 75 6d 2d 65 6e 61 62 | .(and.(not.git-gutter:linum-enab |
| 3060 | 6c 65 64 29 20 28 3e 3d 20 77 69 64 74 68 20 30 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 63 75 | led).(>=.width.0)).....(let.((cu |
| 3080 | 72 77 69 6e 20 28 67 65 74 2d 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 29 29 29 0a 20 20 20 20 20 | rwin.(get-buffer-window)))...... |
| 30a0 | 20 28 73 65 74 2d 77 69 6e 64 6f 77 2d 6d 61 72 67 69 6e 73 20 63 75 72 77 69 6e 20 77 69 64 74 | .(set-window-margins.curwin.widt |
| 30c0 | 68 20 28 63 64 72 20 28 77 69 6e 64 6f 77 2d 6d 61 72 67 69 6e 73 20 63 75 72 77 69 6e 29 29 29 | h.(cdr.(window-margins.curwin))) |
| 30e0 | 29 29 29 0a 0a 28 64 65 66 73 75 62 73 74 20 67 69 74 2d 67 75 74 74 65 72 3a 72 65 76 69 73 69 | )))..(defsubst.git-gutter:revisi |
| 3100 | 6f 6e 2d 73 65 74 2d 70 20 28 29 0a 20 20 28 61 6e 64 20 67 69 74 2d 67 75 74 74 65 72 3a 73 74 | on-set-p.()...(and.git-gutter:st |
| 3120 | 61 72 74 2d 72 65 76 69 73 69 6f 6e 20 28 6e 6f 74 20 28 73 74 72 69 6e 67 3d 20 67 69 74 2d 67 | art-revision.(not.(string=.git-g |
| 3140 | 75 74 74 65 72 3a 73 74 61 72 74 2d 72 65 76 69 73 69 6f 6e 20 22 22 29 29 29 29 0a 0a 28 64 65 | utter:start-revision.""))))..(de |
| 3160 | 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 67 69 74 2d 64 69 66 66 2d 61 72 67 75 6d 65 6e 74 | fun.git-gutter:git-diff-argument |
| 3180 | 73 20 28 66 69 6c 65 29 0a 20 20 28 6c 65 74 20 28 61 72 67 73 29 0a 20 20 20 20 28 75 6e 6c 65 | s.(file)...(let.(args).....(unle |
| 31a0 | 73 73 20 28 73 74 72 69 6e 67 3d 20 67 69 74 2d 67 75 74 74 65 72 3a 64 69 66 66 2d 6f 70 74 69 | ss.(string=.git-gutter:diff-opti |
| 31c0 | 6f 6e 20 22 22 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 61 72 67 73 20 28 6e 72 65 76 65 72 73 | on."").......(setq.args.(nrevers |
| 31e0 | 65 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 67 69 74 2d 67 75 74 74 65 72 3a 64 69 66 66 2d | e.(split-string.git-gutter:diff- |
| 3200 | 6f 70 74 69 6f 6e 29 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 67 69 74 2d 67 75 74 74 65 72 | option)))).....(when.(git-gutter |
| 3220 | 3a 72 65 76 69 73 69 6f 6e 2d 73 65 74 2d 70 29 0a 20 20 20 20 20 20 28 70 75 73 68 20 67 69 74 | :revision-set-p).......(push.git |
| 3240 | 2d 67 75 74 74 65 72 3a 73 74 61 72 74 2d 72 65 76 69 73 69 6f 6e 20 61 72 67 73 29 29 0a 20 20 | -gutter:start-revision.args))... |
| 3260 | 20 20 28 70 75 73 68 20 22 2d 2d 22 20 61 72 67 73 29 0a 20 20 20 20 28 6e 72 65 76 65 72 73 65 | ..(push."--".args).....(nreverse |
| 3280 | 20 28 63 6f 6e 73 20 66 69 6c 65 20 61 72 67 73 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 | .(cons.file.args))))..(defun.git |
| 32a0 | 2d 67 75 74 74 65 72 3a 73 74 61 72 74 2d 67 69 74 2d 64 69 66 66 2d 70 72 6f 63 65 73 73 20 28 | -gutter:start-git-diff-process.( |
| 32c0 | 66 69 6c 65 20 70 72 6f 63 2d 62 75 66 29 0a 20 20 28 6c 65 74 20 28 28 61 72 67 20 28 67 69 74 | file.proc-buf)...(let.((arg.(git |
| 32e0 | 2d 67 75 74 74 65 72 3a 67 69 74 2d 64 69 66 66 2d 61 72 67 75 6d 65 6e 74 73 20 66 69 6c 65 29 | -gutter:git-diff-arguments.file) |
| 3300 | 29 29 0a 20 20 20 20 28 61 70 70 6c 79 20 23 27 73 74 61 72 74 2d 66 69 6c 65 2d 70 72 6f 63 65 | )).....(apply.#'start-file-proce |
| 3320 | 73 73 20 22 67 69 74 2d 67 75 74 74 65 72 22 20 70 72 6f 63 2d 62 75 66 0a 20 20 20 20 20 20 20 | ss."git-gutter".proc-buf........ |
| 3340 | 20 20 20 20 22 67 69 74 22 20 22 2d 2d 6e 6f 2d 70 61 67 65 72 22 20 22 2d 63 22 20 22 64 69 66 | ...."git"."--no-pager"."-c"."dif |
| 3360 | 66 2e 61 75 74 6f 72 65 66 72 65 73 68 69 6e 64 65 78 3d 30 22 0a 20 20 20 20 20 20 20 20 20 20 | f.autorefreshindex=0"........... |
| 3380 | 20 22 64 69 66 66 22 20 22 2d 2d 6e 6f 2d 63 6f 6c 6f 72 22 20 22 2d 2d 6e 6f 2d 65 78 74 2d 64 | ."diff"."--no-color"."--no-ext-d |
| 33a0 | 69 66 66 22 20 22 2d 2d 72 65 6c 61 74 69 76 65 22 20 22 2d 55 30 22 0a 20 20 20 20 20 20 20 20 | iff"."--relative"."-U0"......... |
| 33c0 | 20 20 20 61 72 67 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 73 76 6e | ...arg)))..(defun.git-gutter:svn |
| 33e0 | 2d 64 69 66 66 2d 61 72 67 75 6d 65 6e 74 73 20 28 66 69 6c 65 29 0a 20 20 28 6c 65 74 20 28 61 | -diff-arguments.(file)...(let.(a |
| 3400 | 72 67 73 29 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 28 73 74 72 69 6e 67 3d 20 67 69 74 2d 67 75 | rgs).....(unless.(string=.git-gu |
| 3420 | 74 74 65 72 3a 73 75 62 76 65 72 73 69 6f 6e 2d 64 69 66 66 2d 6f 70 74 69 6f 6e 20 22 22 29 0a | tter:subversion-diff-option.""). |
| 3440 | 20 20 20 20 20 20 28 73 65 74 71 20 61 72 67 73 20 28 6e 72 65 76 65 72 73 65 20 28 73 70 6c 69 | ......(setq.args.(nreverse.(spli |
| 3460 | 74 2d 73 74 72 69 6e 67 20 67 69 74 2d 67 75 74 74 65 72 3a 73 75 62 76 65 72 73 69 6f 6e 2d 64 | t-string.git-gutter:subversion-d |
| 3480 | 69 66 66 2d 6f 70 74 69 6f 6e 29 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 67 69 74 2d 67 75 | iff-option)))).....(when.(git-gu |
| 34a0 | 74 74 65 72 3a 72 65 76 69 73 69 6f 6e 2d 73 65 74 2d 70 29 0a 20 20 20 20 20 20 28 70 75 73 68 | tter:revision-set-p).......(push |
| 34c0 | 20 22 2d 72 22 20 61 72 67 73 29 0a 20 20 20 20 20 20 28 70 75 73 68 20 67 69 74 2d 67 75 74 74 | ."-r".args).......(push.git-gutt |
| 34e0 | 65 72 3a 73 74 61 72 74 2d 72 65 76 69 73 69 6f 6e 20 61 72 67 73 29 29 0a 20 20 20 20 28 6e 72 | er:start-revision.args)).....(nr |
| 3500 | 65 76 65 72 73 65 20 28 63 6f 6e 73 20 66 69 6c 65 20 61 72 67 73 29 29 29 29 0a 0a 28 64 65 66 | everse.(cons.file.args))))..(def |
| 3520 | 73 75 62 73 74 20 67 69 74 2d 67 75 74 74 65 72 3a 73 74 61 72 74 2d 73 76 6e 2d 64 69 66 66 2d | subst.git-gutter:start-svn-diff- |
| 3540 | 70 72 6f 63 65 73 73 20 28 66 69 6c 65 20 70 72 6f 63 2d 62 75 66 29 0a 20 20 28 6c 65 74 20 28 | process.(file.proc-buf)...(let.( |
| 3560 | 28 61 72 67 73 20 28 67 69 74 2d 67 75 74 74 65 72 3a 73 76 6e 2d 64 69 66 66 2d 61 72 67 75 6d | (args.(git-gutter:svn-diff-argum |
| 3580 | 65 6e 74 73 20 66 69 6c 65 29 29 29 0a 20 20 20 20 28 61 70 70 6c 79 20 23 27 73 74 61 72 74 2d | ents.file))).....(apply.#'start- |
| 35a0 | 66 69 6c 65 2d 70 72 6f 63 65 73 73 20 22 67 69 74 2d 67 75 74 74 65 72 22 20 70 72 6f 63 2d 62 | file-process."git-gutter".proc-b |
| 35c0 | 75 66 20 22 73 76 6e 22 20 22 64 69 66 66 22 20 22 2d 2d 64 69 66 66 2d 63 6d 64 22 0a 20 20 20 | uf."svn"."diff"."--diff-cmd".... |
| 35e0 | 20 20 20 20 20 20 20 20 22 64 69 66 66 22 20 22 2d 78 22 20 22 2d 55 30 22 20 61 72 67 73 29 29 | ........"diff"."-x"."-U0".args)) |
| 3600 | 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 68 67 2d 64 69 66 66 2d 61 72 67 | )..(defun.git-gutter:hg-diff-arg |
| 3620 | 75 6d 65 6e 74 73 20 28 66 69 6c 65 29 0a 20 20 28 6c 65 74 20 28 61 72 67 73 29 0a 20 20 20 20 | uments.(file)...(let.(args)..... |
| 3640 | 28 75 6e 6c 65 73 73 20 28 73 74 72 69 6e 67 3d 20 67 69 74 2d 67 75 74 74 65 72 3a 6d 65 72 63 | (unless.(string=.git-gutter:merc |
| 3660 | 75 72 69 61 6c 2d 64 69 66 66 2d 6f 70 74 69 6f 6e 20 22 22 29 0a 20 20 20 20 20 20 28 73 65 74 | urial-diff-option."").......(set |
| 3680 | 71 20 61 72 67 73 20 28 6e 72 65 76 65 72 73 65 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 67 | q.args.(nreverse.(split-string.g |
| 36a0 | 69 74 2d 67 75 74 74 65 72 3a 6d 65 72 63 75 72 69 61 6c 2d 64 69 66 66 2d 6f 70 74 69 6f 6e 29 | it-gutter:mercurial-diff-option) |
| 36c0 | 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 67 69 74 2d 67 75 74 74 65 72 3a 72 65 76 69 73 69 | ))).....(when.(git-gutter:revisi |
| 36e0 | 6f 6e 2d 73 65 74 2d 70 29 0a 20 20 20 20 20 20 28 70 75 73 68 20 22 2d 72 22 20 61 72 67 73 29 | on-set-p).......(push."-r".args) |
| 3700 | 0a 20 20 20 20 20 20 28 70 75 73 68 20 67 69 74 2d 67 75 74 74 65 72 3a 73 74 61 72 74 2d 72 65 | .......(push.git-gutter:start-re |
| 3720 | 76 69 73 69 6f 6e 20 61 72 67 73 29 29 0a 20 20 20 20 28 6e 72 65 76 65 72 73 65 20 28 63 6f 6e | vision.args)).....(nreverse.(con |
| 3740 | 73 20 66 69 6c 65 20 61 72 67 73 29 29 29 29 0a 0a 28 64 65 66 73 75 62 73 74 20 67 69 74 2d 67 | s.file.args))))..(defsubst.git-g |
| 3760 | 75 74 74 65 72 3a 73 74 61 72 74 2d 68 67 2d 64 69 66 66 2d 70 72 6f 63 65 73 73 20 28 66 69 6c | utter:start-hg-diff-process.(fil |
| 3780 | 65 20 70 72 6f 63 2d 62 75 66 29 0a 20 20 28 6c 65 74 20 28 28 61 72 67 73 20 28 67 69 74 2d 67 | e.proc-buf)...(let.((args.(git-g |
| 37a0 | 75 74 74 65 72 3a 68 67 2d 64 69 66 66 2d 61 72 67 75 6d 65 6e 74 73 20 66 69 6c 65 29 29 0a 20 | utter:hg-diff-arguments.file)).. |
| 37c0 | 20 20 20 20 20 20 20 28 70 72 6f 63 65 73 73 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 28 63 6f 6e | .......(process-environment.(con |
| 37e0 | 73 20 22 48 47 50 4c 41 49 4e 3d 31 22 20 70 72 6f 63 65 73 73 2d 65 6e 76 69 72 6f 6e 6d 65 6e | s."HGPLAIN=1".process-environmen |
| 3800 | 74 29 29 29 0a 20 20 20 20 28 61 70 70 6c 79 20 23 27 73 74 61 72 74 2d 66 69 6c 65 2d 70 72 6f | t))).....(apply.#'start-file-pro |
| 3820 | 63 65 73 73 20 22 67 69 74 2d 67 75 74 74 65 72 22 20 70 72 6f 63 2d 62 75 66 20 22 68 67 22 20 | cess."git-gutter".proc-buf."hg". |
| 3840 | 22 64 69 66 66 22 20 22 2d 55 30 22 20 61 72 67 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 | "diff"."-U0".args)))..(defun.git |
| 3860 | 2d 67 75 74 74 65 72 3a 62 7a 72 2d 64 69 66 66 2d 61 72 67 75 6d 65 6e 74 73 20 28 66 69 6c 65 | -gutter:bzr-diff-arguments.(file |
| 3880 | 29 0a 20 20 28 6c 65 74 20 28 61 72 67 73 29 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 28 73 74 72 | )...(let.(args).....(unless.(str |
| 38a0 | 69 6e 67 3d 20 67 69 74 2d 67 75 74 74 65 72 3a 62 61 7a 61 61 72 2d 64 69 66 66 2d 6f 70 74 69 | ing=.git-gutter:bazaar-diff-opti |
| 38c0 | 6f 6e 20 22 22 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 61 72 67 73 20 28 6e 72 65 76 65 72 73 | on."").......(setq.args.(nrevers |
| 38e0 | 65 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 67 69 74 2d 67 75 74 74 65 72 3a 62 61 7a 61 61 | e.(split-string.git-gutter:bazaa |
| 3900 | 72 2d 64 69 66 66 2d 6f 70 74 69 6f 6e 29 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 67 69 74 | r-diff-option)))).....(when.(git |
| 3920 | 2d 67 75 74 74 65 72 3a 72 65 76 69 73 69 6f 6e 2d 73 65 74 2d 70 29 0a 20 20 20 20 20 20 28 70 | -gutter:revision-set-p).......(p |
| 3940 | 75 73 68 20 22 2d 72 22 20 61 72 67 73 29 0a 20 20 20 20 20 20 28 70 75 73 68 20 67 69 74 2d 67 | ush."-r".args).......(push.git-g |
| 3960 | 75 74 74 65 72 3a 73 74 61 72 74 2d 72 65 76 69 73 69 6f 6e 20 61 72 67 73 29 29 0a 20 20 20 20 | utter:start-revision.args))..... |
| 3980 | 28 6e 72 65 76 65 72 73 65 20 28 63 6f 6e 73 20 66 69 6c 65 20 61 72 67 73 29 29 29 29 0a 0a 28 | (nreverse.(cons.file.args))))..( |
| 39a0 | 64 65 66 73 75 62 73 74 20 67 69 74 2d 67 75 74 74 65 72 3a 73 74 61 72 74 2d 62 7a 72 2d 64 69 | defsubst.git-gutter:start-bzr-di |
| 39c0 | 66 66 2d 70 72 6f 63 65 73 73 20 28 66 69 6c 65 20 70 72 6f 63 2d 62 75 66 29 0a 20 20 28 6c 65 | ff-process.(file.proc-buf)...(le |
| 39e0 | 74 20 28 28 61 72 67 73 20 28 67 69 74 2d 67 75 74 74 65 72 3a 62 7a 72 2d 64 69 66 66 2d 61 72 | t.((args.(git-gutter:bzr-diff-ar |
| 3a00 | 67 75 6d 65 6e 74 73 20 66 69 6c 65 29 29 29 0a 20 20 20 20 28 61 70 70 6c 79 20 23 27 73 74 61 | guments.file))).....(apply.#'sta |
| 3a20 | 72 74 2d 66 69 6c 65 2d 70 72 6f 63 65 73 73 20 22 67 69 74 2d 67 75 74 74 65 72 22 20 70 72 6f | rt-file-process."git-gutter".pro |
| 3a40 | 63 2d 62 75 66 0a 20 20 20 20 20 20 20 20 20 20 20 22 62 7a 72 22 20 22 64 69 66 66 22 20 22 2d | c-buf............"bzr"."diff"."- |
| 3a60 | 2d 63 6f 6e 74 65 78 74 3d 30 22 20 61 72 67 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 2d | -context=0".args)))..(defun.git- |
| 3a80 | 67 75 74 74 65 72 3a 73 74 61 72 74 2d 64 69 66 66 2d 70 72 6f 63 65 73 73 31 20 28 66 69 6c 65 | gutter:start-diff-process1.(file |
| 3aa0 | 20 70 72 6f 63 2d 62 75 66 29 0a 20 20 28 63 6c 2d 63 61 73 65 20 67 69 74 2d 67 75 74 74 65 72 | .proc-buf)...(cl-case.git-gutter |
| 3ac0 | 3a 76 63 73 2d 74 79 70 65 0a 20 20 20 20 28 67 69 74 20 28 67 69 74 2d 67 75 74 74 65 72 3a 73 | :vcs-type.....(git.(git-gutter:s |
| 3ae0 | 74 61 72 74 2d 67 69 74 2d 64 69 66 66 2d 70 72 6f 63 65 73 73 20 66 69 6c 65 20 70 72 6f 63 2d | tart-git-diff-process.file.proc- |
| 3b00 | 62 75 66 29 29 0a 20 20 20 20 28 73 76 6e 20 28 67 69 74 2d 67 75 74 74 65 72 3a 73 74 61 72 74 | buf)).....(svn.(git-gutter:start |
| 3b20 | 2d 73 76 6e 2d 64 69 66 66 2d 70 72 6f 63 65 73 73 20 66 69 6c 65 20 70 72 6f 63 2d 62 75 66 29 | -svn-diff-process.file.proc-buf) |
| 3b40 | 29 0a 20 20 20 20 28 68 67 20 28 67 69 74 2d 67 75 74 74 65 72 3a 73 74 61 72 74 2d 68 67 2d 64 | ).....(hg.(git-gutter:start-hg-d |
| 3b60 | 69 66 66 2d 70 72 6f 63 65 73 73 20 66 69 6c 65 20 70 72 6f 63 2d 62 75 66 29 29 0a 20 20 20 20 | iff-process.file.proc-buf))..... |
| 3b80 | 28 62 7a 72 20 28 67 69 74 2d 67 75 74 74 65 72 3a 73 74 61 72 74 2d 62 7a 72 2d 64 69 66 66 2d | (bzr.(git-gutter:start-bzr-diff- |
| 3ba0 | 70 72 6f 63 65 73 73 20 66 69 6c 65 20 70 72 6f 63 2d 62 75 66 29 29 29 29 0a 0a 28 64 65 66 75 | process.file.proc-buf))))..(defu |
| 3bc0 | 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 73 74 61 72 74 2d 64 69 66 66 2d 70 72 6f 63 65 73 73 20 | n.git-gutter:start-diff-process. |
| 3be0 | 28 63 75 72 66 69 6c 65 20 70 72 6f 63 2d 62 75 66 29 0a 20 20 28 6c 65 74 20 28 28 66 69 6c 65 | (curfile.proc-buf)...(let.((file |
| 3c00 | 20 28 67 69 74 2d 67 75 74 74 65 72 3a 62 61 73 65 2d 66 69 6c 65 29 29 20 3b 3b 20 66 6f 72 20 | .(git-gutter:base-file)).;;.for. |
| 3c20 | 74 72 61 6d 70 0a 20 20 20 20 20 20 20 20 28 63 75 72 62 75 66 20 28 63 75 72 72 65 6e 74 2d 62 | tramp.........(curbuf.(current-b |
| 3c40 | 75 66 66 65 72 29 29 0a 20 20 20 20 20 20 20 20 28 70 72 6f 63 65 73 73 20 28 67 69 74 2d 67 75 | uffer)).........(process.(git-gu |
| 3c60 | 74 74 65 72 3a 73 74 61 72 74 2d 64 69 66 66 2d 70 72 6f 63 65 73 73 31 20 63 75 72 66 69 6c 65 | tter:start-diff-process1.curfile |
| 3c80 | 20 70 72 6f 63 2d 62 75 66 29 29 29 0a 20 20 20 20 28 73 65 74 2d 70 72 6f 63 65 73 73 2d 71 75 | .proc-buf))).....(set-process-qu |
| 3ca0 | 65 72 79 2d 6f 6e 2d 65 78 69 74 2d 66 6c 61 67 20 70 72 6f 63 65 73 73 20 6e 69 6c 29 0a 20 20 | ery-on-exit-flag.process.nil)... |
| 3cc0 | 20 20 28 73 65 74 2d 70 72 6f 63 65 73 73 2d 73 65 6e 74 69 6e 65 6c 0a 20 20 20 20 20 70 72 6f | ..(set-process-sentinel......pro |
| 3ce0 | 63 65 73 73 0a 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 70 72 6f 63 20 5f 65 76 65 6e 74 29 0a | cess......(lambda.(proc._event). |
| 3d00 | 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 65 71 20 28 70 72 6f 63 65 73 73 2d 73 74 61 74 75 73 | .......(when.(eq.(process-status |
| 3d20 | 20 70 72 6f 63 29 20 27 65 78 69 74 29 0a 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 67 69 74 | .proc).'exit)..........(setq.git |
| 3d40 | 2d 67 75 74 74 65 72 3a 65 6e 61 62 6c 65 64 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 28 6c | -gutter:enabled.nil)..........(l |
| 3d60 | 65 74 20 28 28 64 69 66 66 69 6e 66 6f 73 20 28 67 69 74 2d 67 75 74 74 65 72 3a 70 72 6f 63 65 | et.((diffinfos.(git-gutter:proce |
| 3d80 | 73 73 2d 64 69 66 66 2d 6f 75 74 70 75 74 20 28 70 72 6f 63 65 73 73 2d 62 75 66 66 65 72 20 70 | ss-diff-output.(process-buffer.p |
| 3da0 | 72 6f 63 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 62 75 66 66 65 72 | roc))))............(when.(buffer |
| 3dc0 | 2d 6c 69 76 65 2d 70 20 63 75 72 62 75 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 | -live-p.curbuf)..............(wi |
| 3de0 | 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 63 75 72 62 75 66 0a 20 20 20 20 20 20 20 | th-current-buffer.curbuf........ |
| 3e00 | 20 20 20 20 20 20 20 20 28 67 69 74 2d 67 75 74 74 65 72 3a 75 70 64 61 74 65 2d 64 69 66 66 69 | ........(git-gutter:update-diffi |
| 3e20 | 6e 66 6f 20 64 69 66 66 69 6e 66 6f 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 | nfo.diffinfos)................(w |
| 3e40 | 68 65 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 68 61 73 2d 69 6e 64 69 72 65 63 74 2d 62 75 66 66 | hen.git-gutter:has-indirect-buff |
| 3e60 | 65 72 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 69 74 2d 67 75 74 74 65 72 | ers..................(git-gutter |
| 3e80 | 3a 75 70 64 61 74 65 2d 69 6e 64 69 72 65 63 74 2d 62 75 66 66 65 72 73 20 66 69 6c 65 29 29 0a | :update-indirect-buffers.file)). |
| 3ea0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 67 69 74 2d 67 75 74 74 65 72 3a | ...............(setq.git-gutter: |
| 3ec0 | 65 6e 61 62 6c 65 64 20 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6b 69 6c 6c 2d 62 75 | enabled.t)))............(kill-bu |
| 3ee0 | 66 66 65 72 20 70 72 6f 63 2d 62 75 66 29 29 29 29 29 29 29 0a 0a 28 64 65 66 73 75 62 73 74 20 | ffer.proc-buf)))))))..(defsubst. |
| 3f00 | 67 69 74 2d 67 75 74 74 65 72 3a 67 75 74 74 65 72 2d 73 65 70 65 72 61 74 6f 72 20 28 29 0a 20 | git-gutter:gutter-seperator.().. |
| 3f20 | 20 28 77 68 65 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 73 65 70 61 72 61 74 6f 72 2d 73 69 67 6e | .(when.git-gutter:separator-sign |
| 3f40 | 0a 20 20 20 20 28 70 72 6f 70 65 72 74 69 7a 65 20 67 69 74 2d 67 75 74 74 65 72 3a 73 65 70 61 | .....(propertize.git-gutter:sepa |
| 3f60 | 72 61 74 6f 72 2d 73 69 67 6e 20 27 66 61 63 65 20 27 67 69 74 2d 67 75 74 74 65 72 3a 73 65 70 | rator-sign.'face.'git-gutter:sep |
| 3f80 | 61 72 61 74 6f 72 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 62 65 66 | arator)))..(defun.git-gutter:bef |
| 3fa0 | 6f 72 65 2d 73 74 72 69 6e 67 20 28 73 69 67 6e 29 0a 20 20 28 6c 65 74 20 28 28 67 75 74 74 65 | ore-string.(sign)...(let.((gutte |
| 3fc0 | 72 2d 73 65 70 20 28 63 6f 6e 63 61 74 20 73 69 67 6e 20 28 67 69 74 2d 67 75 74 74 65 72 3a 67 | r-sep.(concat.sign.(git-gutter:g |
| 3fe0 | 75 74 74 65 72 2d 73 65 70 65 72 61 74 6f 72 29 29 29 29 0a 20 20 20 20 28 70 72 6f 70 65 72 74 | utter-seperator)))).....(propert |
| 4000 | 69 7a 65 20 22 20 22 20 27 64 69 73 70 6c 61 79 20 60 28 28 6d 61 72 67 69 6e 20 6c 65 66 74 2d | ize.".".'display.`((margin.left- |
| 4020 | 6d 61 72 67 69 6e 29 20 2c 67 75 74 74 65 72 2d 73 65 70 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 | margin).,gutter-sep))))..(defun. |
| 4040 | 67 69 74 2d 67 75 74 74 65 72 3a 70 72 6f 70 65 72 74 69 7a 65 64 2d 73 69 67 6e 20 28 74 79 70 | git-gutter:propertized-sign.(typ |
| 4060 | 65 29 0a 20 20 28 6c 65 74 20 28 73 69 67 6e 20 66 61 63 65 29 0a 20 20 20 20 28 63 6c 2d 63 61 | e)...(let.(sign.face).....(cl-ca |
| 4080 | 73 65 20 74 79 70 65 0a 20 20 20 20 20 20 28 61 64 64 65 64 20 28 73 65 74 71 20 73 69 67 6e 20 | se.type.......(added.(setq.sign. |
| 40a0 | 67 69 74 2d 67 75 74 74 65 72 3a 61 64 64 65 64 2d 73 69 67 6e 0a 20 20 20 20 20 20 20 20 20 20 | git-gutter:added-sign........... |
| 40c0 | 20 20 20 20 20 20 20 20 20 66 61 63 65 20 27 67 69 74 2d 67 75 74 74 65 72 3a 61 64 64 65 64 29 | .........face.'git-gutter:added) |
| 40e0 | 29 0a 20 20 20 20 20 20 28 6d 6f 64 69 66 69 65 64 20 28 73 65 74 71 20 73 69 67 6e 20 67 69 74 | ).......(modified.(setq.sign.git |
| 4100 | 2d 67 75 74 74 65 72 3a 6d 6f 64 69 66 69 65 64 2d 73 69 67 6e 0a 20 20 20 20 20 20 20 20 20 20 | -gutter:modified-sign........... |
| 4120 | 20 20 20 20 20 20 20 20 20 20 20 20 66 61 63 65 20 27 67 69 74 2d 67 75 74 74 65 72 3a 6d 6f 64 | ............face.'git-gutter:mod |
| 4140 | 69 66 69 65 64 29 29 0a 20 20 20 20 20 20 28 64 65 6c 65 74 65 64 20 28 73 65 74 71 20 73 69 67 | ified)).......(deleted.(setq.sig |
| 4160 | 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 64 65 6c 65 74 65 64 2d 73 69 67 6e 0a 20 20 20 20 20 20 | n.git-gutter:deleted-sign....... |
| 4180 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 61 63 65 20 27 67 69 74 2d 67 75 74 74 65 72 3a | ...............face.'git-gutter: |
| 41a0 | 64 65 6c 65 74 65 64 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 67 65 74 2d 74 65 78 74 2d 70 | deleted))).....(when.(get-text-p |
| 41c0 | 72 6f 70 65 72 74 79 20 30 20 27 66 61 63 65 20 73 69 67 6e 29 0a 20 20 20 20 20 20 28 73 65 74 | roperty.0.'face.sign).......(set |
| 41e0 | 71 20 66 61 63 65 20 28 61 70 70 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | q.face.(append.................. |
| 4200 | 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 63 65 20 73 69 67 6e | .(get-text-property.0.'face.sign |
| 4220 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 69 6e 68 65 72 69 74 20 2c | )...................`(:inherit., |
| 4240 | 66 61 63 65 29 29 29 29 0a 20 20 20 20 28 70 72 6f 70 65 72 74 69 7a 65 20 73 69 67 6e 20 27 66 | face)))).....(propertize.sign.'f |
| 4260 | 61 63 65 20 66 61 63 65 29 29 29 0a 0a 28 64 65 66 73 75 62 73 74 20 67 69 74 2d 67 75 74 74 65 | ace.face)))..(defsubst.git-gutte |
| 4280 | 72 3a 6c 69 6e 75 6d 2d 67 65 74 2d 6f 76 65 72 6c 61 79 20 28 70 6f 73 29 0a 20 20 28 63 6c 2d | r:linum-get-overlay.(pos)...(cl- |
| 42a0 | 6c 6f 6f 70 20 66 6f 72 20 6f 76 20 69 6e 20 28 6f 76 65 72 6c 61 79 73 2d 69 6e 20 70 6f 73 20 | loop.for.ov.in.(overlays-in.pos. |
| 42c0 | 70 6f 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 77 68 65 6e 20 28 6f 76 65 72 6c 61 79 2d 67 65 | pos)............when.(overlay-ge |
| 42e0 | 74 20 6f 76 20 27 6c 69 6e 75 6d 2d 73 74 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 72 65 74 75 | t.ov.'linum-str)............retu |
| 4300 | 72 6e 20 6f 76 29 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 70 75 74 2d 73 | rn.ov))..(defun.git-gutter:put-s |
| 4320 | 69 67 6e 73 2d 6c 69 6e 75 6d 20 28 73 69 67 6e 20 70 6f 69 6e 74 73 29 0a 20 20 28 64 6f 6c 69 | igns-linum.(sign.points)...(doli |
| 4340 | 73 74 20 28 70 6f 73 20 70 6f 69 6e 74 73 29 0a 20 20 20 20 28 67 69 74 2d 67 75 74 74 65 72 3a | st.(pos.points).....(git-gutter: |
| 4360 | 61 77 68 65 6e 20 28 67 69 74 2d 67 75 74 74 65 72 3a 6c 69 6e 75 6d 2d 67 65 74 2d 6f 76 65 72 | awhen.(git-gutter:linum-get-over |
| 4380 | 6c 61 79 20 70 6f 73 29 0a 20 20 20 20 20 20 28 6f 76 65 72 6c 61 79 2d 70 75 74 20 69 74 20 27 | lay.pos).......(overlay-put.it.' |
| 43a0 | 62 65 66 6f 72 65 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 | before-string................... |
| 43c0 | 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 20 20 20 20 20 20 20 | .(propertize."."................ |
| 43e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 64 69 73 70 6c 61 79 0a 20 20 20 20 20 20 20 | ................'display........ |
| 4400 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 28 6d 61 72 67 69 | ........................`((margi |
| 4420 | 6e 20 6c 65 66 74 2d 6d 61 72 67 69 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | n.left-margin).................. |
| 4440 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 63 6f 6e 63 61 74 20 73 69 67 6e 20 28 6f | ................,(concat.sign.(o |
| 4460 | 76 65 72 6c 61 79 2d 67 65 74 20 69 74 20 27 6c 69 6e 75 6d 2d 73 74 72 29 29 29 29 29 29 29 29 | verlay-get.it.'linum-str)))))))) |
| 4480 | 0a 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 70 75 74 2d 73 69 67 6e 73 20 28 73 | ..(defun.git-gutter:put-signs.(s |
| 44a0 | 69 67 6e 20 70 6f 69 6e 74 73 29 0a 20 20 28 69 66 20 67 69 74 2d 67 75 74 74 65 72 3a 6c 69 6e | ign.points)...(if.git-gutter:lin |
| 44c0 | 75 6d 2d 65 6e 61 62 6c 65 64 0a 20 20 20 20 20 20 28 67 69 74 2d 67 75 74 74 65 72 3a 70 75 74 | um-enabled.......(git-gutter:put |
| 44e0 | 2d 73 69 67 6e 73 2d 6c 69 6e 75 6d 20 73 69 67 6e 20 70 6f 69 6e 74 73 29 0a 20 20 20 20 28 64 | -signs-linum.sign.points).....(d |
| 4500 | 6f 6c 69 73 74 20 28 70 6f 73 20 70 6f 69 6e 74 73 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 | olist.(pos.points).......(let.(( |
| 4520 | 6f 76 20 28 6d 61 6b 65 2d 6f 76 65 72 6c 61 79 20 70 6f 73 20 70 6f 73 29 29 0a 20 20 20 20 20 | ov.(make-overlay.pos.pos))...... |
| 4540 | 20 20 20 20 20 20 20 28 67 75 74 74 65 72 2d 73 69 67 6e 20 28 67 69 74 2d 67 75 74 74 65 72 3a | .......(gutter-sign.(git-gutter: |
| 4560 | 62 65 66 6f 72 65 2d 73 74 72 69 6e 67 20 73 69 67 6e 29 29 29 0a 20 20 20 20 20 20 20 20 28 6f | before-string.sign))).........(o |
| 4580 | 76 65 72 6c 61 79 2d 70 75 74 20 6f 76 20 27 62 65 66 6f 72 65 2d 73 74 72 69 6e 67 20 67 75 74 | verlay-put.ov.'before-string.gut |
| 45a0 | 74 65 72 2d 73 69 67 6e 29 0a 20 20 20 20 20 20 20 20 28 6f 76 65 72 6c 61 79 2d 70 75 74 20 6f | ter-sign).........(overlay-put.o |
| 45c0 | 76 20 27 67 69 74 2d 67 75 74 74 65 72 20 74 29 29 29 29 29 0a 0a 28 64 65 66 73 75 62 73 74 20 | v.'git-gutter.t)))))..(defsubst. |
| 45e0 | 67 69 74 2d 67 75 74 74 65 72 3a 73 69 67 6e 2d 77 69 64 74 68 20 28 73 69 67 6e 29 0a 20 20 28 | git-gutter:sign-width.(sign)...( |
| 4600 | 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 73 20 61 63 72 6f 73 73 20 73 69 67 6e 0a 20 20 20 20 20 20 | cl-loop.for.s.across.sign....... |
| 4620 | 20 20 20 20 20 73 75 6d 20 28 63 68 61 72 2d 77 69 64 74 68 20 73 29 29 29 0a 0a 28 64 65 66 75 | .....sum.(char-width.s)))..(defu |
| 4640 | 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 6c 6f 6e 67 65 73 74 2d 73 69 67 6e 2d 77 69 64 74 68 20 | n.git-gutter:longest-sign-width. |
| 4660 | 28 29 0a 20 20 28 6c 65 74 20 28 28 73 69 67 6e 73 20 28 6c 69 73 74 20 67 69 74 2d 67 75 74 74 | ()...(let.((signs.(list.git-gutt |
| 4680 | 65 72 3a 6d 6f 64 69 66 69 65 64 2d 73 69 67 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | er:modified-sign................ |
| 46a0 | 20 20 20 20 20 20 67 69 74 2d 67 75 74 74 65 72 3a 61 64 64 65 64 2d 73 69 67 6e 0a 20 20 20 20 | ......git-gutter:added-sign..... |
| 46c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 69 74 2d 67 75 74 74 65 72 3a 64 65 6c 65 | .................git-gutter:dele |
| 46e0 | 74 65 64 2d 73 69 67 6e 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 67 69 74 2d 67 75 74 74 65 72 | ted-sign))).....(when.git-gutter |
| 4700 | 3a 75 6e 63 68 61 6e 67 65 64 2d 73 69 67 6e 0a 20 20 20 20 20 20 28 70 75 73 68 20 67 69 74 2d | :unchanged-sign.......(push.git- |
| 4720 | 67 75 74 74 65 72 3a 75 6e 63 68 61 6e 67 65 64 2d 73 69 67 6e 20 73 69 67 6e 73 29 29 0a 20 20 | gutter:unchanged-sign.signs))... |
| 4740 | 20 20 28 2b 20 28 61 70 70 6c 79 20 23 27 6d 61 78 20 28 6d 61 70 63 61 72 20 27 67 69 74 2d 67 | ..(+.(apply.#'max.(mapcar.'git-g |
| 4760 | 75 74 74 65 72 3a 73 69 67 6e 2d 77 69 64 74 68 20 73 69 67 6e 73 29 29 0a 20 20 20 20 20 20 20 | utter:sign-width.signs))........ |
| 4780 | 28 67 69 74 2d 67 75 74 74 65 72 3a 73 69 67 6e 2d 77 69 64 74 68 20 67 69 74 2d 67 75 74 74 65 | (git-gutter:sign-width.git-gutte |
| 47a0 | 72 3a 73 65 70 61 72 61 74 6f 72 2d 73 69 67 6e 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 | r:separator-sign))))..(defun.git |
| 47c0 | 2d 67 75 74 74 65 72 3a 6e 65 78 74 2d 76 69 73 75 61 6c 2d 6c 69 6e 65 20 28 61 72 67 29 0a 20 | -gutter:next-visual-line.(arg).. |
| 47e0 | 20 28 6c 65 74 20 28 28 6c 69 6e 65 2d 6d 6f 76 65 2d 76 69 73 75 61 6c 20 74 29 29 0a 20 20 20 | .(let.((line-move-visual.t)).... |
| 4800 | 20 28 6f 72 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 0a 20 20 20 20 20 20 20 20 20 20 3b 3b | .(or.(ignore-errors...........;; |
| 4820 | 20 6e 65 78 74 2d 6c 69 6e 65 20 72 61 69 73 65 73 20 65 78 63 65 70 74 69 6f 6e 20 61 74 20 65 | .next-line.raises.exception.at.e |
| 4840 | 6e 64 20 6f 66 20 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 6e 6f 2d | nd.of.buffer...........(with-no- |
| 4860 | 77 61 72 6e 69 6e 67 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 65 78 74 2d 6c 69 6e 65 20 | warnings.............(next-line. |
| 4880 | 61 72 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 74 29 0a 20 20 20 20 20 20 20 20 28 67 6f 74 6f | arg))...........t).........(goto |
| 48a0 | 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 69 | -char.(point-max)))))..(defun.gi |
| 48c0 | 74 2d 67 75 74 74 65 72 3a 75 6e 63 68 61 6e 67 65 64 2d 6c 69 6e 65 2d 70 20 28 6c 69 6e 65 20 | t-gutter:unchanged-line-p.(line. |
| 48e0 | 64 69 66 66 69 6e 66 6f 73 29 0a 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 69 6e 66 6f 20 69 | diffinfos)...(cl-loop.for.info.i |
| 4900 | 6e 20 64 69 66 66 69 6e 66 6f 73 0a 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 73 74 61 72 74 | n.diffinfos............for.start |
| 4920 | 20 3d 20 28 67 69 74 2d 67 75 74 74 65 72 2d 68 75 6e 6b 2d 73 74 61 72 74 2d 6c 69 6e 65 20 69 | .=.(git-gutter-hunk-start-line.i |
| 4940 | 6e 66 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 65 6e 64 20 3d 20 28 67 69 74 2d 67 | nfo)............for.end.=.(git-g |
| 4960 | 75 74 74 65 72 2d 68 75 6e 6b 2d 65 6e 64 2d 6c 69 6e 65 20 69 6e 66 6f 29 0a 20 20 20 20 20 20 | utter-hunk-end-line.info)....... |
| 4980 | 20 20 20 20 20 6e 65 76 65 72 20 28 61 6e 64 20 28 3e 3d 20 6c 69 6e 65 20 73 74 61 72 74 29 20 | .....never.(and.(>=.line.start). |
| 49a0 | 28 3c 3d 20 6c 69 6e 65 20 65 6e 64 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 | (<=.line.end))))..(defun.git-gut |
| 49c0 | 74 65 72 3a 76 69 65 77 2d 66 6f 72 2d 75 6e 63 68 61 6e 67 65 64 20 28 64 69 66 66 69 6e 66 6f | ter:view-for-unchanged.(diffinfo |
| 49e0 | 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 6c 65 74 20 28 28 | s)...(save-excursion.....(let.(( |
| 4a00 | 73 69 67 6e 20 28 69 66 20 67 69 74 2d 67 75 74 74 65 72 3a 75 6e 63 68 61 6e 67 65 64 2d 73 69 | sign.(if.git-gutter:unchanged-si |
| 4a20 | 67 6e 0a 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 69 | gn.....................(properti |
| 4a40 | 7a 65 20 67 69 74 2d 67 75 74 74 65 72 3a 75 6e 63 68 61 6e 67 65 64 2d 73 69 67 6e 0a 20 20 20 | ze.git-gutter:unchanged-sign.... |
| 4a60 | 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 27 66 61 | .............................'fa |
| 4a80 | 63 65 20 27 67 69 74 2d 67 75 74 74 65 72 3a 75 6e 63 68 61 6e 67 65 64 29 0a 20 20 20 20 20 20 | ce.'git-gutter:unchanged)....... |
| 4aa0 | 20 20 20 20 20 20 20 20 20 20 20 20 22 20 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 6d 6f 76 | ............"."))...........(mov |
| 4ac0 | 65 2d 66 6e 20 28 69 66 20 67 69 74 2d 67 75 74 74 65 72 3a 76 69 73 75 61 6c 2d 6c 69 6e 65 0a | e-fn.(if.git-gutter:visual-line. |
| 4ae0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 67 69 74 2d 67 75 74 | .......................#'git-gut |
| 4b00 | 74 65 72 3a 6e 65 78 74 2d 76 69 73 75 61 6c 2d 6c 69 6e 65 0a 20 20 20 20 20 20 20 20 20 20 20 | ter:next-visual-line............ |
| 4b20 | 20 20 20 20 20 20 20 20 20 20 23 27 66 6f 72 77 61 72 64 2d 6c 69 6e 65 29 29 0a 20 20 20 20 20 | ..........#'forward-line))...... |
| 4b40 | 20 20 20 20 20 70 6f 69 6e 74 73 29 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 | .....points).......(goto-char.(p |
| 4b60 | 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 6e 6f 74 20 28 65 6f | oint-min)).......(while.(not.(eo |
| 4b80 | 62 70 29 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 67 69 74 2d 67 75 74 74 65 72 3a 75 | bp)).........(when.(git-gutter:u |
| 4ba0 | 6e 63 68 61 6e 67 65 64 2d 6c 69 6e 65 2d 70 20 28 6c 69 6e 65 2d 6e 75 6d 62 65 72 2d 61 74 2d | nchanged-line-p.(line-number-at- |
| 4bc0 | 70 6f 73 29 20 64 69 66 66 69 6e 66 6f 73 29 0a 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 | pos).diffinfos)...........(push. |
| 4be0 | 28 70 6f 69 6e 74 29 20 70 6f 69 6e 74 73 29 29 0a 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c | (point).points)).........(funcal |
| 4c00 | 6c 20 6d 6f 76 65 2d 66 6e 20 31 29 29 0a 20 20 20 20 20 20 28 67 69 74 2d 67 75 74 74 65 72 3a | l.move-fn.1)).......(git-gutter: |
| 4c20 | 70 75 74 2d 73 69 67 6e 73 20 73 69 67 6e 20 70 6f 69 6e 74 73 29 29 29 29 0a 0a 28 64 65 66 73 | put-signs.sign.points))))..(defs |
| 4c40 | 75 62 73 74 20 67 69 74 2d 67 75 74 74 65 72 3a 63 68 65 63 6b 2d 66 69 6c 65 2d 61 6e 64 2d 64 | ubst.git-gutter:check-file-and-d |
| 4c60 | 69 72 65 63 74 6f 72 79 20 28 29 0a 20 20 28 61 6e 64 20 28 67 69 74 2d 67 75 74 74 65 72 3a 62 | irectory.()...(and.(git-gutter:b |
| 4c80 | 61 73 65 2d 66 69 6c 65 29 0a 20 20 20 20 20 20 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f | ase-file)........default-directo |
| 4ca0 | 72 79 20 28 66 69 6c 65 2d 64 69 72 65 63 74 6f 72 79 2d 70 20 64 65 66 61 75 6c 74 2d 64 69 72 | ry.(file-directory-p.default-dir |
| 4cc0 | 65 63 74 6f 72 79 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 70 72 65 | ectory)))..(defun.git-gutter:pre |
| 4ce0 | 2d 63 6f 6d 6d 61 6e 64 2d 68 6f 6f 6b 20 28 29 0a 20 20 28 75 6e 6c 65 73 73 20 28 6d 65 6d 71 | -command-hook.()...(unless.(memq |
| 4d00 | 20 74 68 69 73 2d 63 6f 6d 6d 61 6e 64 20 67 69 74 2d 67 75 74 74 65 72 3a 69 67 6e 6f 72 65 2d | .this-command.git-gutter:ignore- |
| 4d20 | 63 6f 6d 6d 61 6e 64 73 29 0a 20 20 20 20 28 73 65 74 71 20 67 69 74 2d 67 75 74 74 65 72 3a 72 | commands).....(setq.git-gutter:r |
| 4d40 | 65 61 6c 2d 74 68 69 73 2d 63 6f 6d 6d 61 6e 64 20 74 68 69 73 2d 63 6f 6d 6d 61 6e 64 29 29 29 | eal-this-command.this-command))) |
| 4d60 | 0a 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 75 70 64 61 74 65 2d 6f 74 68 65 72 | ..(defun.git-gutter:update-other |
| 4d80 | 2d 77 69 6e 64 6f 77 2d 62 75 66 66 65 72 73 20 28 63 75 72 77 69 6e 20 63 75 72 62 75 66 29 0a | -window-buffers.(curwin.curbuf). |
| 4da0 | 20 20 28 73 61 76 65 2d 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 0a 20 20 20 20 28 63 6c 2d | ..(save-selected-window.....(cl- |
| 4dc0 | 6c 6f 6f 70 20 66 6f 72 20 77 69 6e 20 69 6e 20 28 77 69 6e 64 6f 77 2d 6c 69 73 74 29 0a 20 20 | loop.for.win.in.(window-list)... |
| 4de0 | 20 20 20 20 20 20 20 20 20 20 20 75 6e 6c 65 73 73 20 28 65 71 20 77 69 6e 20 63 75 72 77 69 6e | ...........unless.(eq.win.curwin |
| 4e00 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | )..............do..............( |
| 4e20 | 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 6c 65 63 74 2d 77 69 6e | progn................(select-win |
| 4e40 | 64 6f 77 20 77 69 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 77 | dow.win)................(let.((w |
| 4e60 | 69 6e 2d 77 69 64 74 68 20 28 77 69 6e 64 6f 77 2d 6d 61 72 67 69 6e 73 20 77 69 6e 29 29 29 0a | in-width.(window-margins.win))). |
| 4e80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 63 61 72 20 77 69 | .................(unless.(car.wi |
| 4ea0 | 6e 2d 77 69 64 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 | n-width)....................(if. |
| 4ec0 | 28 65 71 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 20 63 75 72 62 75 66 29 0a 20 20 20 | (eq.(current-buffer).curbuf).... |
| 4ee0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 69 74 2d 67 75 74 74 65 72 3a | ....................(git-gutter: |
| 4f00 | 73 65 74 2d 77 69 6e 64 6f 77 2d 6d 61 72 67 69 6e 20 28 67 69 74 2d 67 75 74 74 65 72 3a 77 69 | set-window-margin.(git-gutter:wi |
| 4f20 | 6e 64 6f 77 2d 6d 61 72 67 69 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ndow-margin))................... |
| 4f40 | 20 20 20 28 67 69 74 2d 67 75 74 74 65 72 3a 75 70 64 61 74 65 2d 64 69 66 66 69 6e 66 6f 20 67 | ...(git-gutter:update-diffinfo.g |
| 4f60 | 69 74 2d 67 75 74 74 65 72 3a 64 69 66 66 69 6e 66 6f 73 29 29 29 29 29 29 29 29 0a 0a 28 64 65 | it-gutter:diffinfos))))))))..(de |
| 4f80 | 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 70 6f 73 74 2d 63 6f 6d 6d 61 6e 64 2d 68 6f 6f 6b | fun.git-gutter:post-command-hook |
| 4fa0 | 20 28 29 0a 20 20 28 63 6f 6e 64 20 28 28 6d 65 6d 71 20 67 69 74 2d 67 75 74 74 65 72 3a 72 65 | .()...(cond.((memq.git-gutter:re |
| 4fc0 | 61 6c 2d 74 68 69 73 2d 63 6f 6d 6d 61 6e 64 20 67 69 74 2d 67 75 74 74 65 72 3a 75 70 64 61 74 | al-this-command.git-gutter:updat |
| 4fe0 | 65 2d 63 6f 6d 6d 61 6e 64 73 29 0a 20 20 20 20 20 20 20 20 20 28 67 69 74 2d 67 75 74 74 65 72 | e-commands)..........(git-gutter |
| 5000 | 29 29 0a 20 20 20 20 20 20 20 20 28 28 6d 65 6d 71 20 67 69 74 2d 67 75 74 74 65 72 3a 72 65 61 | )).........((memq.git-gutter:rea |
| 5020 | 6c 2d 74 68 69 73 2d 63 6f 6d 6d 61 6e 64 20 67 69 74 2d 67 75 74 74 65 72 3a 75 70 64 61 74 65 | l-this-command.git-gutter:update |
| 5040 | 2d 77 69 6e 64 6f 77 73 2d 63 6f 6d 6d 61 6e 64 73 29 0a 20 20 20 20 20 20 20 20 20 28 67 69 74 | -windows-commands)..........(git |
| 5060 | 2d 67 75 74 74 65 72 29 0a 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 62 6f 75 6e 64 | -gutter)..........(unless.(bound |
| 5080 | 2d 61 6e 64 2d 74 72 75 65 2d 70 20 67 6c 6f 62 61 6c 2d 6c 69 6e 75 6d 2d 6d 6f 64 65 29 0a 20 | -and-true-p.global-linum-mode).. |
| 50a0 | 20 20 20 20 20 20 20 20 20 20 28 67 69 74 2d 67 75 74 74 65 72 3a 75 70 64 61 74 65 2d 6f 74 68 | ..........(git-gutter:update-oth |
| 50c0 | 65 72 2d 77 69 6e 64 6f 77 2d 62 75 66 66 65 72 73 20 28 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 | er-window-buffers.(selected-wind |
| 50e0 | 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)............................. |
| 5100 | 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 75 72 72 65 6e 74 2d | .......................(current- |
| 5120 | 62 75 66 66 65 72 29 29 29 29 29 29 0a 0a 28 64 65 66 73 75 62 73 74 20 67 69 74 2d 67 75 74 74 | buffer))))))..(defsubst.git-gutt |
| 5140 | 65 72 3a 64 69 66 66 2d 70 72 6f 63 65 73 73 2d 62 75 66 66 65 72 20 28 63 75 72 66 69 6c 65 29 | er:diff-process-buffer.(curfile) |
| 5160 | 0a 20 20 28 63 6f 6e 63 61 74 20 22 20 2a 67 69 74 2d 67 75 74 74 65 72 2d 22 20 63 75 72 66 69 | ...(concat.".*git-gutter-".curfi |
| 5180 | 6c 65 20 22 2d 2a 22 29 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 6b 69 6c | le."-*"))..(defun.git-gutter:kil |
| 51a0 | 6c 2d 62 75 66 66 65 72 2d 68 6f 6f 6b 20 28 29 0a 20 20 28 6c 65 74 20 28 28 62 75 66 20 28 67 | l-buffer-hook.()...(let.((buf.(g |
| 51c0 | 69 74 2d 67 75 74 74 65 72 3a 64 69 66 66 2d 70 72 6f 63 65 73 73 2d 62 75 66 66 65 72 20 28 67 | it-gutter:diff-process-buffer.(g |
| 51e0 | 69 74 2d 67 75 74 74 65 72 3a 62 61 73 65 2d 66 69 6c 65 29 29 29 29 0a 20 20 20 20 28 67 69 74 | it-gutter:base-file)))).....(git |
| 5200 | 2d 67 75 74 74 65 72 3a 61 77 68 65 6e 20 28 67 65 74 2d 62 75 66 66 65 72 20 62 75 66 29 0a 20 | -gutter:awhen.(get-buffer.buf).. |
| 5220 | 20 20 20 20 20 28 6b 69 6c 6c 2d 62 75 66 66 65 72 20 69 74 29 29 29 29 0a 0a 28 64 65 66 73 75 | .....(kill-buffer.it))))..(defsu |
| 5240 | 62 73 74 20 67 69 74 2d 67 75 74 74 65 72 3a 6c 69 6e 75 6d 2d 70 61 64 64 69 6e 67 20 28 29 0a | bst.git-gutter:linum-padding.(). |
| 5260 | 20 20 28 63 6c 2d 6c 6f 6f 70 20 72 65 70 65 61 74 20 28 67 69 74 2d 67 75 74 74 65 72 3a 77 69 | ..(cl-loop.repeat.(git-gutter:wi |
| 5280 | 6e 64 6f 77 2d 6d 61 72 67 69 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 | ndow-margin)............collect. |
| 52a0 | 22 20 22 20 69 6e 74 6f 20 70 61 64 64 69 6e 67 73 0a 20 20 20 20 20 20 20 20 20 20 20 66 69 6e | ".".into.paddings............fin |
| 52c0 | 61 6c 6c 79 20 72 65 74 75 72 6e 20 28 61 70 70 6c 79 20 23 27 63 6f 6e 63 61 74 20 70 61 64 64 | ally.return.(apply.#'concat.padd |
| 52e0 | 69 6e 67 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 6c 69 6e 75 6d | ings)))..(defun.git-gutter:linum |
| 5300 | 2d 70 72 65 70 65 6e 64 2d 73 70 61 63 65 73 20 28 29 0a 20 20 28 73 61 76 65 2d 65 78 63 75 72 | -prepend-spaces.()...(save-excur |
| 5320 | 73 69 6f 6e 0a 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 | sion.....(goto-char.(point-min)) |
| 5340 | 0a 20 20 20 20 28 6c 65 74 20 28 28 70 61 64 64 69 6e 67 20 28 67 69 74 2d 67 75 74 74 65 72 3a | .....(let.((padding.(git-gutter: |
| 5360 | 6c 69 6e 75 6d 2d 70 61 64 64 69 6e 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 70 6f 69 6e 74 73 | linum-padding))...........points |
| 5380 | 29 0a 20 20 20 20 20 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 | ).......(while.(not.(eobp))..... |
| 53a0 | 20 20 20 20 28 70 75 73 68 20 28 70 6f 69 6e 74 29 20 70 6f 69 6e 74 73 29 0a 20 20 20 20 20 20 | ....(push.(point).points)....... |
| 53c0 | 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 31 29 29 0a 20 20 20 20 20 20 28 67 69 74 2d 67 | ..(forward-line.1)).......(git-g |
| 53e0 | 75 74 74 65 72 3a 70 75 74 2d 73 69 67 6e 73 2d 6c 69 6e 75 6d 20 70 61 64 64 69 6e 67 20 70 6f | utter:put-signs-linum.padding.po |
| 5400 | 69 6e 74 73 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 6c 69 6e 75 | ints))))..(defun.git-gutter:linu |
| 5420 | 6d 2d 75 70 64 61 74 65 20 28 64 69 66 66 69 6e 66 6f 73 29 0a 20 20 28 6c 65 74 20 28 28 6c 69 | m-update.(diffinfos)...(let.((li |
| 5440 | 6e 75 6d 2d 77 69 64 74 68 20 28 63 61 72 20 28 77 69 6e 64 6f 77 2d 6d 61 72 67 69 6e 73 29 29 | num-width.(car.(window-margins)) |
| 5460 | 29 29 0a 20 20 20 20 28 77 68 65 6e 20 6c 69 6e 75 6d 2d 77 69 64 74 68 0a 20 20 20 20 20 20 28 | )).....(when.linum-width.......( |
| 5480 | 67 69 74 2d 67 75 74 74 65 72 3a 6c 69 6e 75 6d 2d 70 72 65 70 65 6e 64 2d 73 70 61 63 65 73 29 | git-gutter:linum-prepend-spaces) |
| 54a0 | 0a 20 20 20 20 20 20 28 67 69 74 2d 67 75 74 74 65 72 3a 76 69 65 77 2d 73 65 74 2d 6f 76 65 72 | .......(git-gutter:view-set-over |
| 54c0 | 6c 61 79 73 20 64 69 66 66 69 6e 66 6f 73 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 75 72 | lays.diffinfos).......(let.((cur |
| 54e0 | 77 69 6e 20 28 67 65 74 2d 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 29 29 0a 20 20 20 20 20 20 20 | win.(get-buffer-window))........ |
| 5500 | 20 20 20 20 20 28 6d 61 72 67 69 6e 20 28 2b 20 6c 69 6e 75 6d 2d 77 69 64 74 68 20 28 67 69 74 | .....(margin.(+.linum-width.(git |
| 5520 | 2d 67 75 74 74 65 72 3a 77 69 6e 64 6f 77 2d 6d 61 72 67 69 6e 29 29 29 29 0a 20 20 20 20 20 20 | -gutter:window-margin))))....... |
| 5540 | 20 20 28 73 65 74 71 20 67 69 74 2d 67 75 74 74 65 72 3a 6c 69 6e 75 6d 2d 70 72 65 76 2d 77 69 | ..(setq.git-gutter:linum-prev-wi |
| 5560 | 6e 64 6f 77 2d 6d 61 72 67 69 6e 20 6d 61 72 67 69 6e 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 | ndow-margin.margin).........(set |
| 5580 | 2d 77 69 6e 64 6f 77 2d 6d 61 72 67 69 6e 73 20 63 75 72 77 69 6e 20 6d 61 72 67 69 6e 20 28 63 | -window-margins.curwin.margin.(c |
| 55a0 | 64 72 20 28 77 69 6e 64 6f 77 2d 6d 61 72 67 69 6e 73 20 63 75 72 77 69 6e 29 29 29 29 29 29 29 | dr.(window-margins.curwin))))))) |
| 55c0 | 0a 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 6c 69 6e 75 6d 2d 69 6e 69 74 20 28 | ..(defun.git-gutter:linum-init.( |
| 55e0 | 29 0a 20 20 28 73 65 74 71 2d 6c 6f 63 61 6c 20 67 69 74 2d 67 75 74 74 65 72 3a 6c 69 6e 75 6d | )...(setq-local.git-gutter:linum |
| 5600 | 2d 65 6e 61 62 6c 65 64 20 74 29 0a 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 | -enabled.t)...(make-local-variab |
| 5620 | 6c 65 20 27 67 69 74 2d 67 75 74 74 65 72 3a 6c 69 6e 75 6d 2d 70 72 65 76 2d 77 69 6e 64 6f 77 | le.'git-gutter:linum-prev-window |
| 5640 | 2d 6d 61 72 67 69 6e 29 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 6c 69 6e | -margin))..(defun.git-gutter:lin |
| 5660 | 75 6d 2d 75 70 64 61 74 65 2d 77 69 6e 64 6f 77 20 28 26 72 65 73 74 20 5f 61 72 67 73 29 0a 20 | um-update-window.(&rest._args).. |
| 5680 | 20 28 77 68 65 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 64 69 73 70 6c 61 79 2d 70 0a 20 20 20 20 | .(when.git-gutter:display-p..... |
| 56a0 | 28 69 66 20 28 61 6e 64 20 67 69 74 2d 67 75 74 74 65 72 2d 6d 6f 64 65 20 67 69 74 2d 67 75 74 | (if.(and.git-gutter-mode.git-gut |
| 56c0 | 74 65 72 3a 64 69 66 66 69 6e 66 6f 73 29 0a 20 20 20 20 20 20 20 20 28 67 69 74 2d 67 75 74 74 | ter:diffinfos).........(git-gutt |
| 56e0 | 65 72 3a 6c 69 6e 75 6d 2d 75 70 64 61 74 65 20 67 69 74 2d 67 75 74 74 65 72 3a 64 69 66 66 69 | er:linum-update.git-gutter:diffi |
| 5700 | 6e 66 6f 73 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 75 72 77 69 6e 20 28 67 65 74 2d 62 | nfos).......(let.((curwin.(get-b |
| 5720 | 75 66 66 65 72 2d 77 69 6e 64 6f 77 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 72 67 | uffer-window)).............(marg |
| 5740 | 69 6e 20 28 6f 72 20 67 69 74 2d 67 75 74 74 65 72 3a 6c 69 6e 75 6d 2d 70 72 65 76 2d 77 69 6e | in.(or.git-gutter:linum-prev-win |
| 5760 | 64 6f 77 2d 6d 61 72 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | dow-margin...................... |
| 5780 | 20 20 20 28 63 61 72 20 28 77 69 6e 64 6f 77 2d 6d 61 72 67 69 6e 73 29 29 29 29 29 0a 20 20 20 | ...(car.(window-margins))))).... |
| 57a0 | 20 20 20 20 20 28 73 65 74 2d 77 69 6e 64 6f 77 2d 6d 61 72 67 69 6e 73 20 63 75 72 77 69 6e 20 | .....(set-window-margins.curwin. |
| 57c0 | 6d 61 72 67 69 6e 20 28 63 64 72 20 28 77 69 6e 64 6f 77 2d 6d 61 72 67 69 6e 73 20 63 75 72 77 | margin.(cdr.(window-margins.curw |
| 57e0 | 69 6e 29 29 29 29 29 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e | in)))))))..;;;###autoload.(defun |
| 5800 | 20 67 69 74 2d 67 75 74 74 65 72 3a 6c 69 6e 75 6d 2d 73 65 74 75 70 20 28 29 0a 20 20 22 53 65 | .git-gutter:linum-setup.()..."Se |
| 5820 | 74 75 70 20 66 6f 72 20 6c 69 6e 75 6d 2d 6d 6f 64 65 2e 22 0a 20 20 28 73 65 74 71 20 67 69 74 | tup.for.linum-mode."...(setq.git |
| 5840 | 2d 67 75 74 74 65 72 3a 69 6e 69 74 2d 66 75 6e 63 74 69 6f 6e 20 27 67 69 74 2d 67 75 74 74 65 | -gutter:init-function.'git-gutte |
| 5860 | 72 3a 6c 69 6e 75 6d 2d 69 6e 69 74 0a 20 20 20 20 20 20 20 20 67 69 74 2d 67 75 74 74 65 72 3a | r:linum-init.........git-gutter: |
| 5880 | 76 69 65 77 2d 64 69 66 66 2d 66 75 6e 63 74 69 6f 6e 20 6e 69 6c 29 0a 20 20 28 61 64 76 69 63 | view-diff-function.nil)...(advic |
| 58a0 | 65 2d 61 64 64 20 27 6c 69 6e 75 6d 2d 75 70 64 61 74 65 2d 77 69 6e 64 6f 77 20 3a 61 66 74 65 | e-add.'linum-update-window.:afte |
| 58c0 | 72 20 23 27 67 69 74 2d 67 75 74 74 65 72 3a 6c 69 6e 75 6d 2d 75 70 64 61 74 65 2d 77 69 6e 64 | r.#'git-gutter:linum-update-wind |
| 58e0 | 6f 77 29 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 73 68 6f 77 2d 62 61 63 | ow))..(defun.git-gutter:show-bac |
| 5900 | 6b 65 6e 64 73 20 28 29 0a 20 20 28 6d 61 70 63 6f 6e 63 61 74 20 28 6c 61 6d 62 64 61 20 28 62 | kends.()...(mapconcat.(lambda.(b |
| 5920 | 61 63 6b 65 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 70 69 74 61 6c 69 | ackend)................(capitali |
| 5940 | 7a 65 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 62 61 63 6b 65 6e 64 29 29 29 0a 20 20 20 20 20 | ze.(symbol-name.backend)))...... |
| 5960 | 20 20 20 20 20 20 20 20 67 69 74 2d 67 75 74 74 65 72 3a 68 61 6e 64 6c 65 64 2d 62 61 63 6b 65 | ........git-gutter:handled-backe |
| 5980 | 6e 64 73 20 22 2f 22 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 | nds."/"))..;;;###autoload.(defin |
| 59a0 | 65 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 20 67 69 74 2d 67 75 74 74 65 72 2d 6d 6f 64 65 0a 20 20 22 | e-minor-mode.git-gutter-mode..." |
| 59c0 | 47 69 74 2d 47 75 74 74 65 72 20 6d 6f 64 65 22 0a 20 20 3a 69 6e 69 74 2d 76 61 6c 75 65 20 6e | Git-Gutter.mode"...:init-value.n |
| 59e0 | 69 6c 0a 20 20 3a 67 6c 6f 62 61 6c 20 20 20 20 20 6e 69 6c 0a 20 20 3a 6c 69 67 68 74 65 72 20 | il...:global.....nil...:lighter. |
| 5a00 | 20 20 20 67 69 74 2d 67 75 74 74 65 72 3a 6c 69 67 68 74 65 72 0a 20 20 28 69 66 20 67 69 74 2d | ...git-gutter:lighter...(if.git- |
| 5a20 | 67 75 74 74 65 72 2d 6d 6f 64 65 0a 20 20 20 20 20 20 28 69 66 20 28 61 6e 64 20 28 67 69 74 2d | gutter-mode.......(if.(and.(git- |
| 5a40 | 67 75 74 74 65 72 3a 63 68 65 63 6b 2d 66 69 6c 65 2d 61 6e 64 2d 64 69 72 65 63 74 6f 72 79 29 | gutter:check-file-and-directory) |
| 5a60 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 69 74 2d 67 75 74 74 65 72 3a 69 6e 2d 72 | ................(git-gutter:in-r |
| 5a80 | 65 70 6f 73 69 74 6f 72 79 2d 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 0a 20 | epository-p))...........(progn.. |
| 5aa0 | 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 69 6e 69 74 | ...........(when.git-gutter:init |
| 5ac0 | 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c | -function...............(funcall |
| 5ae0 | 20 67 69 74 2d 67 75 74 74 65 72 3a 69 6e 69 74 2d 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 20 20 | .git-gutter:init-function))..... |
| 5b00 | 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 27 67 69 | ........(make-local-variable.'gi |
| 5b20 | 74 2d 67 75 74 74 65 72 3a 64 69 66 66 69 6e 66 6f 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | t-gutter:diffinfos)............. |
| 5b40 | 3b 3b 28 73 65 74 71 2d 6c 6f 63 61 6c 20 67 69 74 2d 67 75 74 74 65 72 3a 73 74 61 72 74 2d 72 | ;;(setq-local.git-gutter:start-r |
| 5b60 | 65 76 69 73 69 6f 6e 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 61 64 64 2d 68 6f | evision.nil).............(add-ho |
| 5b80 | 6f 6b 20 27 6b 69 6c 6c 2d 62 75 66 66 65 72 2d 68 6f 6f 6b 20 27 67 69 74 2d 67 75 74 74 65 72 | ok.'kill-buffer-hook.'git-gutter |
| 5ba0 | 3a 6b 69 6c 6c 2d 62 75 66 66 65 72 2d 68 6f 6f 6b 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 20 | :kill-buffer-hook.nil.t)........ |
| 5bc0 | 20 20 20 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 70 72 65 2d 63 6f 6d 6d 61 6e 64 2d 68 6f 6f 6b | .....(add-hook.'pre-command-hook |
| 5be0 | 20 27 67 69 74 2d 67 75 74 74 65 72 3a 70 72 65 2d 63 6f 6d 6d 61 6e 64 2d 68 6f 6f 6b 20 74 29 | .'git-gutter:pre-command-hook.t) |
| 5c00 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 70 6f 73 74 2d 63 6f 6d | .............(add-hook.'post-com |
| 5c20 | 6d 61 6e 64 2d 68 6f 6f 6b 20 27 67 69 74 2d 67 75 74 74 65 72 3a 70 6f 73 74 2d 63 6f 6d 6d 61 | mand-hook.'git-gutter:post-comma |
| 5c40 | 6e 64 2d 68 6f 6f 6b 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 6c 69 | nd-hook.nil.t).............(doli |
| 5c60 | 73 74 20 28 68 6f 6f 6b 20 67 69 74 2d 67 75 74 74 65 72 3a 75 70 64 61 74 65 2d 68 6f 6f 6b 73 | st.(hook.git-gutter:update-hooks |
| 5c80 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 64 64 2d 68 6f 6f 6b 20 68 6f 6f 6b 20 27 | )...............(add-hook.hook.' |
| 5ca0 | 67 69 74 2d 67 75 74 74 65 72 20 6e 69 6c 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 | git-gutter.nil.t)).............( |
| 5cc0 | 67 69 74 2d 67 75 74 74 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 | git-gutter).............(when.(a |
| 5ce0 | 6e 64 20 28 6e 6f 74 20 67 69 74 2d 67 75 74 74 65 72 3a 75 70 64 61 74 65 2d 74 69 6d 65 72 29 | nd.(not.git-gutter:update-timer) |
| 5d00 | 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 3e 20 67 69 74 2d 67 | ........................(>.git-g |
| 5d20 | 75 74 74 65 72 3a 75 70 64 61 74 65 2d 69 6e 74 65 72 76 61 6c 20 30 29 29 0a 20 20 20 20 20 20 | utter:update-interval.0))....... |
| 5d40 | 20 20 20 20 20 20 20 20 28 73 65 74 71 20 67 69 74 2d 67 75 74 74 65 72 3a 75 70 64 61 74 65 2d | ........(setq.git-gutter:update- |
| 5d60 | 74 69 6d 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 75 6e 2d 77 | timer.....................(run-w |
| 5d80 | 69 74 68 2d 69 64 6c 65 2d 74 69 6d 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ith-idle-timer.................. |
| 5da0 | 20 20 20 20 67 69 74 2d 67 75 74 74 65 72 3a 75 70 64 61 74 65 2d 69 6e 74 65 72 76 61 6c 20 74 | ....git-gutter:update-interval.t |
| 5dc0 | 20 27 67 69 74 2d 67 75 74 74 65 72 3a 6c 69 76 65 2d 75 70 64 61 74 65 29 29 29 29 0a 20 20 20 | .'git-gutter:live-update)))).... |
| 5de0 | 20 20 20 20 20 28 77 68 65 6e 20 28 3e 20 67 69 74 2d 67 75 74 74 65 72 3a 76 65 72 62 6f 73 69 | .....(when.(>.git-gutter:verbosi |
| 5e00 | 74 79 20 32 29 0a 20 20 20 20 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 48 65 72 65 20 69 | ty.2)...........(message."Here.i |
| 5e20 | 73 20 6e 6f 74 20 25 73 20 77 6f 72 6b 20 74 72 65 65 22 20 28 67 69 74 2d 67 75 74 74 65 72 3a | s.not.%s.work.tree".(git-gutter: |
| 5e40 | 73 68 6f 77 2d 62 61 63 6b 65 6e 64 73 29 29 29 0a 20 20 20 20 20 20 20 20 28 67 69 74 2d 67 75 | show-backends))).........(git-gu |
| 5e60 | 74 74 65 72 2d 6d 6f 64 65 20 2d 31 29 29 0a 20 20 20 20 28 72 65 6d 6f 76 65 2d 68 6f 6f 6b 20 | tter-mode.-1)).....(remove-hook. |
| 5e80 | 27 6b 69 6c 6c 2d 62 75 66 66 65 72 2d 68 6f 6f 6b 20 27 67 69 74 2d 67 75 74 74 65 72 3a 6b 69 | 'kill-buffer-hook.'git-gutter:ki |
| 5ea0 | 6c 6c 2d 62 75 66 66 65 72 2d 68 6f 6f 6b 20 74 29 0a 20 20 20 20 28 72 65 6d 6f 76 65 2d 68 6f | ll-buffer-hook.t).....(remove-ho |
| 5ec0 | 6f 6b 20 27 70 72 65 2d 63 6f 6d 6d 61 6e 64 2d 68 6f 6f 6b 20 27 67 69 74 2d 67 75 74 74 65 72 | ok.'pre-command-hook.'git-gutter |
| 5ee0 | 3a 70 72 65 2d 63 6f 6d 6d 61 6e 64 2d 68 6f 6f 6b 20 74 29 0a 20 20 20 20 28 72 65 6d 6f 76 65 | :pre-command-hook.t).....(remove |
| 5f00 | 2d 68 6f 6f 6b 20 27 70 6f 73 74 2d 63 6f 6d 6d 61 6e 64 2d 68 6f 6f 6b 20 27 67 69 74 2d 67 75 | -hook.'post-command-hook.'git-gu |
| 5f20 | 74 74 65 72 3a 70 6f 73 74 2d 63 6f 6d 6d 61 6e 64 2d 68 6f 6f 6b 20 74 29 0a 20 20 20 20 28 64 | tter:post-command-hook.t).....(d |
| 5f40 | 6f 6c 69 73 74 20 28 68 6f 6f 6b 20 67 69 74 2d 67 75 74 74 65 72 3a 75 70 64 61 74 65 2d 68 6f | olist.(hook.git-gutter:update-ho |
| 5f60 | 6f 6b 73 29 0a 20 20 20 20 20 20 28 72 65 6d 6f 76 65 2d 68 6f 6f 6b 20 68 6f 6f 6b 20 27 67 69 | oks).......(remove-hook.hook.'gi |
| 5f80 | 74 2d 67 75 74 74 65 72 20 74 29 29 0a 20 20 20 20 28 67 69 74 2d 67 75 74 74 65 72 3a 63 6c 65 | t-gutter.t)).....(git-gutter:cle |
| 5fa0 | 61 72 2d 67 75 74 74 65 72 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 2d | ar-gutter)))..(defun.git-gutter- |
| 5fc0 | 2d 74 75 72 6e 2d 6f 6e 20 28 29 0a 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 62 75 66 66 65 72 | -turn-on.()...(when.(and.(buffer |
| 5fe0 | 2d 66 69 6c 65 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 6d | -file-name)..............(not.(m |
| 6000 | 65 6d 71 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 67 69 74 2d 67 75 74 74 65 72 3a 64 69 73 61 62 6c | emq.major-mode.git-gutter:disabl |
| 6020 | 65 64 2d 6d 6f 64 65 73 29 29 29 0a 20 20 20 20 28 67 69 74 2d 67 75 74 74 65 72 2d 6d 6f 64 65 | ed-modes))).....(git-gutter-mode |
| 6040 | 20 2b 31 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 67 | .+1)))..;;;###autoload.(define-g |
| 6060 | 6c 6f 62 61 6c 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 20 67 6c 6f 62 61 6c 2d 67 69 74 2d 67 75 74 74 | lobal-minor-mode.global-git-gutt |
| 6080 | 65 72 2d 6d 6f 64 65 20 67 69 74 2d 67 75 74 74 65 72 2d 6d 6f 64 65 20 67 69 74 2d 67 75 74 74 | er-mode.git-gutter-mode.git-gutt |
| 60a0 | 65 72 2d 2d 74 75 72 6e 2d 6f 6e 29 0a 0a 28 64 65 66 73 75 62 73 74 20 67 69 74 2d 67 75 74 74 | er--turn-on)..(defsubst.git-gutt |
| 60c0 | 65 72 3a 73 68 6f 77 2d 67 75 74 74 65 72 2d 70 20 28 64 69 66 66 69 6e 66 6f 73 29 0a 20 20 28 | er:show-gutter-p.(diffinfos)...( |
| 60e0 | 69 66 20 67 69 74 2d 67 75 74 74 65 72 3a 68 69 64 65 2d 67 75 74 74 65 72 0a 20 20 20 20 20 20 | if.git-gutter:hide-gutter....... |
| 6100 | 28 6f 72 20 64 69 66 66 69 6e 66 6f 73 20 67 69 74 2d 67 75 74 74 65 72 3a 75 6e 63 68 61 6e 67 | (or.diffinfos.git-gutter:unchang |
| 6120 | 65 64 2d 73 69 67 6e 29 0a 20 20 20 20 28 6f 72 20 67 6c 6f 62 61 6c 2d 67 69 74 2d 67 75 74 74 | ed-sign).....(or.global-git-gutt |
| 6140 | 65 72 2d 6d 6f 64 65 20 67 69 74 2d 67 75 74 74 65 72 3a 75 6e 63 68 61 6e 67 65 64 2d 73 69 67 | er-mode.git-gutter:unchanged-sig |
| 6160 | 6e 20 64 69 66 66 69 6e 66 6f 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 | n.diffinfos)))..(defun.git-gutte |
| 6180 | 72 3a 73 68 6f 77 2d 67 75 74 74 65 72 20 28 64 69 66 66 69 6e 66 6f 73 29 0a 20 20 28 77 68 65 | r:show-gutter.(diffinfos)...(whe |
| 61a0 | 6e 20 28 67 69 74 2d 67 75 74 74 65 72 3a 73 68 6f 77 2d 67 75 74 74 65 72 2d 70 20 64 69 66 66 | n.(git-gutter:show-gutter-p.diff |
| 61c0 | 69 6e 66 6f 73 29 0a 20 20 20 20 28 67 69 74 2d 67 75 74 74 65 72 3a 73 65 74 2d 77 69 6e 64 6f | infos).....(git-gutter:set-windo |
| 61e0 | 77 2d 6d 61 72 67 69 6e 20 28 67 69 74 2d 67 75 74 74 65 72 3a 77 69 6e 64 6f 77 2d 6d 61 72 67 | w-margin.(git-gutter:window-marg |
| 6200 | 69 6e 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 76 69 65 77 2d 73 | in))))..(defun.git-gutter:view-s |
| 6220 | 65 74 2d 6f 76 65 72 6c 61 79 73 20 28 64 69 66 66 69 6e 66 6f 73 29 0a 20 20 28 77 68 65 6e 20 | et-overlays.(diffinfos)...(when. |
| 6240 | 28 6f 72 20 67 69 74 2d 67 75 74 74 65 72 3a 75 6e 63 68 61 6e 67 65 64 2d 73 69 67 6e 20 67 69 | (or.git-gutter:unchanged-sign.gi |
| 6260 | 74 2d 67 75 74 74 65 72 3a 73 65 70 61 72 61 74 6f 72 2d 73 69 67 6e 29 0a 20 20 20 20 28 67 69 | t-gutter:separator-sign).....(gi |
| 6280 | 74 2d 67 75 74 74 65 72 3a 76 69 65 77 2d 66 6f 72 2d 75 6e 63 68 61 6e 67 65 64 20 64 69 66 66 | t-gutter:view-for-unchanged.diff |
| 62a0 | 69 6e 66 6f 73 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 67 | infos))...(save-excursion.....(g |
| 62c0 | 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 28 63 6c 2d 6c 6f | oto-char.(point-min)).....(cl-lo |
| 62e0 | 6f 70 20 77 69 74 68 20 63 75 72 6c 69 6e 65 20 3d 20 31 0a 20 20 20 20 20 20 20 20 20 20 20 20 | op.with.curline.=.1............. |
| 6300 | 20 77 69 74 68 20 6d 6f 76 65 2d 66 6e 20 3d 20 28 69 66 20 67 69 74 2d 67 75 74 74 65 72 3a 76 | .with.move-fn.=.(if.git-gutter:v |
| 6320 | 69 73 75 61 6c 2d 6c 69 6e 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | isual-line...................... |
| 6340 | 20 20 20 20 20 20 20 20 20 20 20 23 27 67 69 74 2d 67 75 74 74 65 72 3a 6e 65 78 74 2d 76 69 73 | ...........#'git-gutter:next-vis |
| 6360 | 75 61 6c 2d 6c 69 6e 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 | ual-line........................ |
| 6380 | 20 20 20 20 20 20 20 23 27 66 6f 72 77 61 72 64 2d 6c 69 6e 65 29 0a 0a 20 20 20 20 20 20 20 20 | .......#'forward-line).......... |
| 63a0 | 20 20 20 20 20 66 6f 72 20 69 6e 66 6f 20 69 6e 20 64 69 66 66 69 6e 66 6f 73 0a 20 20 20 20 20 | .....for.info.in.diffinfos...... |
| 63c0 | 20 20 20 20 20 20 20 20 66 6f 72 20 73 74 61 72 74 2d 6c 69 6e 65 20 3d 20 28 67 69 74 2d 67 75 | ........for.start-line.=.(git-gu |
| 63e0 | 74 74 65 72 2d 68 75 6e 6b 2d 73 74 61 72 74 2d 6c 69 6e 65 20 69 6e 66 6f 29 0a 20 20 20 20 20 | tter-hunk-start-line.info)...... |
| 6400 | 20 20 20 20 20 20 20 20 66 6f 72 20 65 6e 64 2d 6c 69 6e 65 20 3d 20 28 67 69 74 2d 67 75 74 74 | ........for.end-line.=.(git-gutt |
| 6420 | 65 72 2d 68 75 6e 6b 2d 65 6e 64 2d 6c 69 6e 65 20 69 6e 66 6f 29 0a 20 20 20 20 20 20 20 20 20 | er-hunk-end-line.info).......... |
| 6440 | 20 20 20 20 66 6f 72 20 74 79 70 65 20 3d 20 28 67 69 74 2d 67 75 74 74 65 72 2d 68 75 6e 6b 2d | ....for.type.=.(git-gutter-hunk- |
| 6460 | 74 79 70 65 20 69 6e 66 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 73 69 67 6e | type.info)..............for.sign |
| 6480 | 20 3d 20 28 67 69 74 2d 67 75 74 74 65 72 3a 70 72 6f 70 65 72 74 69 7a 65 64 2d 73 69 67 6e 20 | .=.(git-gutter:propertized-sign. |
| 64a0 | 74 79 70 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 70 6f 69 6e 74 73 20 3d 20 | type)..............for.points.=. |
| 64c0 | 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 | nil..............do............. |
| 64e0 | 20 28 6c 65 74 20 28 28 62 6f 75 6e 64 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 20 | .(let.((bound.(progn............ |
| 6500 | 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 20 28 | .................(forward-line.( |
| 6520 | 2d 20 65 6e 64 2d 6c 69 6e 65 20 63 75 72 6c 69 6e 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | -.end-line.curline))............ |
| 6540 | 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 0a 20 20 20 20 | .................(point))))..... |
| 6560 | 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 28 2d 20 73 74 61 72 | ...........(forward-line.(-.star |
| 6580 | 74 2d 6c 69 6e 65 20 65 6e 64 2d 6c 69 6e 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t-line.end-line))............... |
| 65a0 | 20 28 63 6c 2d 63 61 73 65 20 74 79 70 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(cl-case.type.................. |
| 65c0 | 28 28 6d 6f 64 69 66 69 65 64 20 61 64 64 65 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ((modified.added)............... |
| 65e0 | 20 20 20 20 28 77 68 69 6c 65 20 28 61 6e 64 20 28 3c 3d 20 28 70 6f 69 6e 74 29 20 62 6f 75 6e | ....(while.(and.(<=.(point).boun |
| 6600 | 64 29 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 | d).(not.(eobp)))................ |
| 6620 | 20 20 20 20 20 28 70 75 73 68 20 28 70 6f 69 6e 74 29 20 70 6f 69 6e 74 73 29 0a 20 20 20 20 20 | .....(push.(point).points)...... |
| 6640 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 6d 6f 76 65 2d 66 6e 20 | ...............(funcall.move-fn. |
| 6660 | 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 69 74 2d 67 75 74 74 65 | 1))...................(git-gutte |
| 6680 | 72 3a 70 75 74 2d 73 69 67 6e 73 20 73 69 67 6e 20 70 6f 69 6e 74 73 29 29 0a 20 20 20 20 20 20 | r:put-signs.sign.points))....... |
| 66a0 | 20 20 20 20 20 20 20 20 20 20 20 28 64 65 6c 65 74 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ...........(deleted............. |
| 66c0 | 20 20 20 20 20 20 28 67 69 74 2d 67 75 74 74 65 72 3a 70 75 74 2d 73 69 67 6e 73 20 73 69 67 6e | ......(git-gutter:put-signs.sign |
| 66e0 | 20 28 6c 69 73 74 20 28 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(list.(point)))................ |
| 6700 | 20 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 31 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | ...(forward-line.1)))........... |
| 6720 | 20 20 20 20 20 28 73 65 74 71 20 63 75 72 6c 69 6e 65 20 28 31 2b 20 65 6e 64 2d 6c 69 6e 65 29 | .....(setq.curline.(1+.end-line) |
| 6740 | 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 76 69 65 77 2d 64 69 | )))))..(defun.git-gutter:view-di |
| 6760 | 66 66 2d 69 6e 66 6f 73 20 28 64 69 66 66 69 6e 66 6f 73 29 0a 20 20 28 77 68 65 6e 20 28 6f 72 | ff-infos.(diffinfos)...(when.(or |
| 6780 | 20 64 69 66 66 69 6e 66 6f 73 20 67 69 74 2d 67 75 74 74 65 72 3a 61 6c 77 61 79 73 2d 73 68 6f | .diffinfos.git-gutter:always-sho |
| 67a0 | 77 2d 73 65 70 61 72 61 74 6f 72 29 0a 20 20 20 20 28 67 69 74 2d 67 75 74 74 65 72 3a 76 69 65 | w-separator).....(git-gutter:vie |
| 67c0 | 77 2d 73 65 74 2d 6f 76 65 72 6c 61 79 73 20 64 69 66 66 69 6e 66 6f 73 29 29 0a 20 20 28 67 69 | w-set-overlays.diffinfos))...(gi |
| 67e0 | 74 2d 67 75 74 74 65 72 3a 73 68 6f 77 2d 67 75 74 74 65 72 20 64 69 66 66 69 6e 66 6f 73 29 29 | t-gutter:show-gutter.diffinfos)) |
| 6800 | 0a 0a 28 64 65 66 73 75 62 73 74 20 67 69 74 2d 67 75 74 74 65 72 3a 72 65 73 65 74 2d 77 69 6e | ..(defsubst.git-gutter:reset-win |
| 6820 | 64 6f 77 2d 6d 61 72 67 69 6e 2d 70 20 28 29 0a 20 20 28 6f 72 20 67 69 74 2d 67 75 74 74 65 72 | dow-margin-p.()...(or.git-gutter |
| 6840 | 3a 68 69 64 65 2d 67 75 74 74 65 72 20 28 6e 6f 74 20 67 6c 6f 62 61 6c 2d 67 69 74 2d 67 75 74 | :hide-gutter.(not.global-git-gut |
| 6860 | 74 65 72 2d 6d 6f 64 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 63 | ter-mode)))..(defun.git-gutter:c |
| 6880 | 6c 65 61 72 2d 64 69 66 66 2d 69 6e 66 6f 73 20 28 29 0a 20 20 28 77 68 65 6e 20 28 67 69 74 2d | lear-diff-infos.()...(when.(git- |
| 68a0 | 67 75 74 74 65 72 3a 72 65 73 65 74 2d 77 69 6e 64 6f 77 2d 6d 61 72 67 69 6e 2d 70 29 0a 20 20 | gutter:reset-window-margin-p)... |
| 68c0 | 20 20 28 67 69 74 2d 67 75 74 74 65 72 3a 73 65 74 2d 77 69 6e 64 6f 77 2d 6d 61 72 67 69 6e 20 | ..(git-gutter:set-window-margin. |
| 68e0 | 30 29 29 0a 20 20 28 72 65 6d 6f 76 65 2d 6f 76 65 72 6c 61 79 73 20 28 70 6f 69 6e 74 2d 6d 69 | 0))...(remove-overlays.(point-mi |
| 6900 | 6e 29 20 28 70 6f 69 6e 74 2d 6d 61 78 29 20 27 67 69 74 2d 67 75 74 74 65 72 20 74 29 29 0a 0a | n).(point-max).'git-gutter.t)).. |
| 6920 | 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 63 6c 65 61 72 2d 67 75 74 74 65 72 20 28 | (defun.git-gutter:clear-gutter.( |
| 6940 | 29 0a 20 20 28 73 61 76 65 2d 72 65 73 74 72 69 63 74 69 6f 6e 0a 20 20 20 20 28 77 69 64 65 6e | )...(save-restriction.....(widen |
| 6960 | 29 0a 20 20 20 20 28 77 68 65 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 63 6c 65 61 72 2d 66 75 6e | ).....(when.git-gutter:clear-fun |
| 6980 | 63 74 69 6f 6e 0a 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 67 69 74 2d 67 75 74 74 65 72 3a | ction.......(funcall.git-gutter: |
| 69a0 | 63 6c 65 61 72 2d 66 75 6e 63 74 69 6f 6e 29 29 29 0a 20 20 28 73 65 74 71 20 67 69 74 2d 67 75 | clear-function)))...(setq.git-gu |
| 69c0 | 74 74 65 72 3a 65 6e 61 62 6c 65 64 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 67 69 74 2d 67 75 74 | tter:enabled.nil.........git-gut |
| 69e0 | 74 65 72 3a 6c 61 73 74 2d 63 68 61 72 73 2d 6d 6f 64 69 66 69 65 64 2d 74 69 63 6b 20 6e 69 6c | ter:last-chars-modified-tick.nil |
| 6a00 | 0a 20 20 20 20 20 20 20 20 67 69 74 2d 67 75 74 74 65 72 3a 64 69 66 66 69 6e 66 6f 73 20 6e 69 | .........git-gutter:diffinfos.ni |
| 6a20 | 6c 29 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 75 70 64 61 74 65 2d 64 69 | l))..(defun.git-gutter:update-di |
| 6a40 | 66 66 69 6e 66 6f 20 28 64 69 66 66 69 6e 66 6f 73 29 0a 20 20 28 73 61 76 65 2d 72 65 73 74 72 | ffinfo.(diffinfos)...(save-restr |
| 6a60 | 69 63 74 69 6f 6e 0a 20 20 20 20 28 77 69 64 65 6e 29 0a 20 20 20 20 28 67 69 74 2d 67 75 74 74 | iction.....(widen).....(git-gutt |
| 6a80 | 65 72 3a 63 6c 65 61 72 2d 67 75 74 74 65 72 29 0a 20 20 20 20 28 73 65 74 71 20 67 69 74 2d 67 | er:clear-gutter).....(setq.git-g |
| 6aa0 | 75 74 74 65 72 3a 64 69 66 66 69 6e 66 6f 73 20 64 69 66 66 69 6e 66 6f 73 29 0a 20 20 20 20 28 | utter:diffinfos.diffinfos).....( |
| 6ac0 | 77 68 65 6e 20 28 61 6e 64 20 67 69 74 2d 67 75 74 74 65 72 3a 64 69 73 70 6c 61 79 2d 70 20 67 | when.(and.git-gutter:display-p.g |
| 6ae0 | 69 74 2d 67 75 74 74 65 72 3a 76 69 65 77 2d 64 69 66 66 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 20 | it-gutter:view-diff-function)... |
| 6b00 | 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 67 69 74 2d 67 75 74 74 65 72 3a 76 69 65 77 2d 64 69 66 | ....(funcall.git-gutter:view-dif |
| 6b20 | 66 2d 66 75 6e 63 74 69 6f 6e 20 64 69 66 66 69 6e 66 6f 73 29 29 29 29 0a 0a 28 64 65 66 75 6e | f-function.diffinfos))))..(defun |
| 6b40 | 20 67 69 74 2d 67 75 74 74 65 72 3a 73 65 61 72 63 68 2d 6e 65 61 72 2d 64 69 66 66 2d 69 6e 64 | .git-gutter:search-near-diff-ind |
| 6b60 | 65 78 20 28 64 69 66 66 69 6e 66 6f 73 20 69 73 2d 72 65 76 65 72 73 65 29 0a 20 20 28 63 6c 2d | ex.(diffinfos.is-reverse)...(cl- |
| 6b80 | 6c 6f 6f 70 20 77 69 74 68 20 63 75 72 72 65 6e 74 2d 6c 69 6e 65 20 3d 20 28 6c 69 6e 65 2d 6e | loop.with.current-line.=.(line-n |
| 6ba0 | 75 6d 62 65 72 2d 61 74 2d 70 6f 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 77 69 74 68 20 63 6d | umber-at-pos)............with.cm |
| 6bc0 | 70 2d 66 6e 20 3d 20 28 69 66 20 69 73 2d 72 65 76 65 72 73 65 20 23 27 3e 20 23 27 3c 29 0a 20 | p-fn.=.(if.is-reverse.#'>.#'<).. |
| 6be0 | 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 64 69 66 66 69 6e 66 6f 20 69 6e 20 28 69 66 20 69 73 | ..........for.diffinfo.in.(if.is |
| 6c00 | 2d 72 65 76 65 72 73 65 20 28 72 65 76 65 72 73 65 20 64 69 66 66 69 6e 66 6f 73 29 20 64 69 66 | -reverse.(reverse.diffinfos).dif |
| 6c20 | 66 69 6e 66 6f 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 69 6e 64 65 78 20 3d 20 30 | finfos)............for.index.=.0 |
| 6c40 | 20 74 68 65 6e 20 28 31 2b 20 69 6e 64 65 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 | .then.(1+.index)............for. |
| 6c60 | 73 74 61 72 74 2d 6c 69 6e 65 20 3d 20 28 67 69 74 2d 67 75 74 74 65 72 2d 68 75 6e 6b 2d 73 74 | start-line.=.(git-gutter-hunk-st |
| 6c80 | 61 72 74 2d 6c 69 6e 65 20 64 69 66 66 69 6e 66 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 77 68 | art-line.diffinfo)............wh |
| 6ca0 | 65 6e 20 28 66 75 6e 63 61 6c 6c 20 63 6d 70 2d 66 6e 20 63 75 72 72 65 6e 74 2d 6c 69 6e 65 20 | en.(funcall.cmp-fn.current-line. |
| 6cc0 | 73 74 61 72 74 2d 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 28 69 | start-line)............return.(i |
| 6ce0 | 66 20 69 73 2d 72 65 76 65 72 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | f.is-reverse.................... |
| 6d00 | 20 20 20 28 31 2d 20 28 2d 20 28 6c 65 6e 67 74 68 20 64 69 66 66 69 6e 66 6f 73 29 20 69 6e 64 | ...(1-.(-.(length.diffinfos).ind |
| 6d20 | 65 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 64 65 78 29 29 | ex)).....................index)) |
| 6d40 | 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 73 65 61 72 63 68 2d 68 65 72 65 | )..(defun.git-gutter:search-here |
| 6d60 | 2d 64 69 66 66 69 6e 66 6f 20 28 64 69 66 66 69 6e 66 6f 73 29 0a 20 20 28 73 61 76 65 2d 72 65 | -diffinfo.(diffinfos)...(save-re |
| 6d80 | 73 74 72 69 63 74 69 6f 6e 0a 20 20 20 20 28 77 69 64 65 6e 29 0a 20 20 20 20 28 63 6c 2d 6c 6f | striction.....(widen).....(cl-lo |
| 6da0 | 6f 70 20 77 69 74 68 20 63 75 72 72 65 6e 74 2d 6c 69 6e 65 20 3d 20 28 6c 69 6e 65 2d 6e 75 6d | op.with.current-line.=.(line-num |
| 6dc0 | 62 65 72 2d 61 74 2d 70 6f 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 64 69 66 | ber-at-pos)..............for.dif |
| 6de0 | 66 69 6e 66 6f 20 69 6e 20 64 69 66 66 69 6e 66 6f 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | finfo.in.diffinfos.............. |
| 6e00 | 66 6f 72 20 73 74 61 72 74 20 3d 20 28 67 69 74 2d 67 75 74 74 65 72 2d 68 75 6e 6b 2d 73 74 61 | for.start.=.(git-gutter-hunk-sta |
| 6e20 | 72 74 2d 6c 69 6e 65 20 64 69 66 66 69 6e 66 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 66 | rt-line.diffinfo)..............f |
| 6e40 | 6f 72 20 65 6e 64 20 20 20 3d 20 28 6f 72 20 28 67 69 74 2d 67 75 74 74 65 72 2d 68 75 6e 6b 2d | or.end...=.(or.(git-gutter-hunk- |
| 6e60 | 65 6e 64 2d 6c 69 6e 65 20 64 69 66 66 69 6e 66 6f 29 20 28 31 2b 20 73 74 61 72 74 29 29 0a 20 | end-line.diffinfo).(1+.start)).. |
| 6e80 | 20 20 20 20 20 20 20 20 20 20 20 20 77 68 65 6e 20 28 61 6e 64 20 28 3e 3d 20 63 75 72 72 65 6e | ............when.(and.(>=.curren |
| 6ea0 | 74 2d 6c 69 6e 65 20 73 74 61 72 74 29 20 28 3c 3d 20 63 75 72 72 65 6e 74 2d 6c 69 6e 65 20 65 | t-line.start).(<=.current-line.e |
| 6ec0 | 6e 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 64 69 66 66 69 6e 66 | nd))..............return.diffinf |
| 6ee0 | 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6e 61 6c 6c 79 20 64 6f 20 28 65 72 72 6f 72 | o..............finally.do.(error |
| 6f00 | 20 22 48 65 72 65 20 69 73 20 6e 6f 74 20 63 68 61 6e 67 65 64 21 21 22 29 29 29 29 0a 0a 28 64 | ."Here.is.not.changed!!"))))..(d |
| 6f20 | 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 63 6f 6c 6c 65 63 74 2d 64 65 6c 65 74 65 64 2d | efun.git-gutter:collect-deleted- |
| 6f40 | 6c 69 6e 65 20 28 73 74 72 29 0a 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 0a 20 | line.(str)...(with-temp-buffer.. |
| 6f60 | 20 20 20 28 69 6e 73 65 72 74 20 73 74 72 29 0a 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 | ...(insert.str).....(goto-char.( |
| 6f80 | 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 77 68 69 6c 65 20 28 | point-min)).....(cl-loop.while.( |
| 6fa0 | 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 5e 2d 5c 5c 28 2e 2a 3f 5c 5c 29 24 22 | re-search-forward."^-\\(.*?\\)$" |
| 6fc0 | 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 6d 61 | .nil.t)..............collect.(ma |
| 6fe0 | 74 63 68 2d 73 74 72 69 6e 67 20 31 29 20 69 6e 74 6f 20 64 65 6c 65 74 65 64 2d 6c 69 6e 65 73 | tch-string.1).into.deleted-lines |
| 7000 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6e 61 6c 6c 79 20 72 65 74 75 72 6e 20 64 65 6c | ..............finally.return.del |
| 7020 | 65 74 65 64 2d 6c 69 6e 65 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 | eted-lines)))..(defun.git-gutter |
| 7040 | 3a 64 65 6c 65 74 65 2d 61 64 64 65 64 2d 6c 69 6e 65 73 20 28 73 74 61 72 74 2d 6c 69 6e 65 20 | :delete-added-lines.(start-line. |
| 7060 | 65 6e 64 2d 6c 69 6e 65 29 0a 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 28 31 2d 20 73 74 | end-line)...(forward-line.(1-.st |
| 7080 | 61 72 74 2d 6c 69 6e 65 29 29 0a 20 20 28 6c 65 74 20 28 28 73 74 61 72 74 2d 70 6f 69 6e 74 20 | art-line))...(let.((start-point. |
| 70a0 | 28 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 28 31 2b 20 | (point))).....(forward-line.(1+. |
| 70c0 | 28 2d 20 65 6e 64 2d 6c 69 6e 65 20 73 74 61 72 74 2d 6c 69 6e 65 29 29 29 0a 20 20 20 20 28 64 | (-.end-line.start-line))).....(d |
| 70e0 | 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 73 74 61 72 74 2d 70 6f 69 6e 74 20 28 70 6f 69 6e 74 29 | elete-region.start-point.(point) |
| 7100 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 69 6e 73 65 72 74 2d 64 65 | )))..(defun.git-gutter:insert-de |
| 7120 | 6c 65 74 65 64 2d 6c 69 6e 65 73 20 28 63 6f 6e 74 65 6e 74 29 0a 20 20 28 64 6f 6c 69 73 74 20 | leted-lines.(content)...(dolist. |
| 7140 | 28 6c 69 6e 65 20 28 67 69 74 2d 67 75 74 74 65 72 3a 63 6f 6c 6c 65 63 74 2d 64 65 6c 65 74 65 | (line.(git-gutter:collect-delete |
| 7160 | 64 2d 6c 69 6e 65 20 63 6f 6e 74 65 6e 74 29 29 0a 20 20 20 20 28 69 6e 73 65 72 74 20 28 63 6f | d-line.content)).....(insert.(co |
| 7180 | 6e 63 61 74 20 6c 69 6e 65 20 22 5c 6e 22 29 29 29 29 0a 0a 28 64 65 66 73 75 62 73 74 20 67 69 | ncat.line."\n"))))..(defsubst.gi |
| 71a0 | 74 2d 67 75 74 74 65 72 3a 64 65 6c 65 74 65 2d 66 72 6f 6d 2d 66 69 72 73 74 2d 6c 69 6e 65 2d | t-gutter:delete-from-first-line- |
| 71c0 | 70 20 28 73 74 61 72 74 2d 6c 69 6e 65 20 65 6e 64 2d 6c 69 6e 65 29 0a 20 20 28 61 6e 64 20 28 | p.(start-line.end-line)...(and.( |
| 71e0 | 6e 6f 74 20 28 3d 20 73 74 61 72 74 2d 6c 69 6e 65 20 31 29 29 20 28 6e 6f 74 20 28 3d 20 65 6e | not.(=.start-line.1)).(not.(=.en |
| 7200 | 64 2d 6c 69 6e 65 20 31 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a | d-line.1))))..(defun.git-gutter: |
| 7220 | 64 6f 2d 72 65 76 65 72 74 2d 68 75 6e 6b 20 28 64 69 66 66 69 6e 66 6f 29 0a 20 20 28 73 61 76 | do-revert-hunk.(diffinfo)...(sav |
| 7240 | 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e | e-excursion.....(goto-char.(poin |
| 7260 | 74 2d 6d 69 6e 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 73 74 61 72 74 2d 6c 69 6e 65 20 28 67 | t-min)).....(let.((start-line.(g |
| 7280 | 69 74 2d 67 75 74 74 65 72 2d 68 75 6e 6b 2d 73 74 61 72 74 2d 6c 69 6e 65 20 64 69 66 66 69 6e | it-gutter-hunk-start-line.diffin |
| 72a0 | 66 6f 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 65 6e 64 2d 6c 69 6e 65 20 28 67 69 74 2d 67 75 | fo))...........(end-line.(git-gu |
| 72c0 | 74 74 65 72 2d 68 75 6e 6b 2d 65 6e 64 2d 6c 69 6e 65 20 64 69 66 66 69 6e 66 6f 29 29 0a 20 20 | tter-hunk-end-line.diffinfo))... |
| 72e0 | 20 20 20 20 20 20 20 20 28 63 6f 6e 74 65 6e 74 20 28 67 69 74 2d 67 75 74 74 65 72 2d 68 75 6e | ........(content.(git-gutter-hun |
| 7300 | 6b 2d 63 6f 6e 74 65 6e 74 20 64 69 66 66 69 6e 66 6f 29 29 29 0a 20 20 20 20 20 20 28 63 6c 2d | k-content.diffinfo))).......(cl- |
| 7320 | 63 61 73 65 20 28 67 69 74 2d 67 75 74 74 65 72 2d 68 75 6e 6b 2d 74 79 70 65 20 64 69 66 66 69 | case.(git-gutter-hunk-type.diffi |
| 7340 | 6e 66 6f 29 0a 20 20 20 20 20 20 20 20 28 61 64 64 65 64 20 28 67 69 74 2d 67 75 74 74 65 72 3a | nfo).........(added.(git-gutter: |
| 7360 | 64 65 6c 65 74 65 2d 61 64 64 65 64 2d 6c 69 6e 65 73 20 73 74 61 72 74 2d 6c 69 6e 65 20 65 6e | delete-added-lines.start-line.en |
| 7380 | 64 2d 6c 69 6e 65 29 29 0a 20 20 20 20 20 20 20 20 28 64 65 6c 65 74 65 64 20 28 77 68 65 6e 20 | d-line)).........(deleted.(when. |
| 73a0 | 28 67 69 74 2d 67 75 74 74 65 72 3a 64 65 6c 65 74 65 2d 66 72 6f 6d 2d 66 69 72 73 74 2d 6c 69 | (git-gutter:delete-from-first-li |
| 73c0 | 6e 65 2d 70 20 73 74 61 72 74 2d 6c 69 6e 65 20 65 6e 64 2d 6c 69 6e 65 29 0a 20 20 20 20 20 20 | ne-p.start-line.end-line)....... |
| 73e0 | 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 73 74 61 72 74 | .............(forward-line.start |
| 7400 | 2d 6c 69 6e 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 69 74 2d 67 75 | -line))..................(git-gu |
| 7420 | 74 74 65 72 3a 69 6e 73 65 72 74 2d 64 65 6c 65 74 65 64 2d 6c 69 6e 65 73 20 63 6f 6e 74 65 6e | tter:insert-deleted-lines.conten |
| 7440 | 74 29 29 0a 20 20 20 20 20 20 20 20 28 6d 6f 64 69 66 69 65 64 20 28 67 69 74 2d 67 75 74 74 65 | t)).........(modified.(git-gutte |
| 7460 | 72 3a 64 65 6c 65 74 65 2d 61 64 64 65 64 2d 6c 69 6e 65 73 20 73 74 61 72 74 2d 6c 69 6e 65 20 | r:delete-added-lines.start-line. |
| 7480 | 65 6e 64 2d 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 69 74 | end-line)...................(git |
| 74a0 | 2d 67 75 74 74 65 72 3a 69 6e 73 65 72 74 2d 64 65 6c 65 74 65 64 2d 6c 69 6e 65 73 20 63 6f 6e | -gutter:insert-deleted-lines.con |
| 74c0 | 74 65 6e 74 29 29 29 29 29 29 0a 0a 28 64 65 66 73 75 62 73 74 20 67 69 74 2d 67 75 74 74 65 72 | tent))))))..(defsubst.git-gutter |
| 74e0 | 3a 70 6f 70 75 70 2d 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 20 28 29 0a 20 20 28 67 65 74 2d 62 | :popup-buffer-window.()...(get-b |
| 7500 | 75 66 66 65 72 2d 77 69 6e 64 6f 77 20 28 67 65 74 2d 62 75 66 66 65 72 20 67 69 74 2d 67 75 74 | uffer-window.(get-buffer.git-gut |
| 7520 | 74 65 72 3a 70 6f 70 75 70 2d 62 75 66 66 65 72 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 2d | ter:popup-buffer)))..(defun.git- |
| 7540 | 67 75 74 74 65 72 3a 71 75 65 72 79 2d 61 63 74 69 6f 6e 20 28 61 63 74 69 6f 6e 20 61 63 74 69 | gutter:query-action.(action.acti |
| 7560 | 6f 6e 2d 66 6e 20 75 70 64 61 74 65 2d 66 6e 29 0a 20 20 28 67 69 74 2d 67 75 74 74 65 72 3a 61 | on-fn.update-fn)...(git-gutter:a |
| 7580 | 77 68 65 6e 20 28 67 69 74 2d 67 75 74 74 65 72 3a 73 65 61 72 63 68 2d 68 65 72 65 2d 64 69 66 | when.(git-gutter:search-here-dif |
| 75a0 | 66 69 6e 66 6f 20 67 69 74 2d 67 75 74 74 65 72 3a 64 69 66 66 69 6e 66 6f 73 29 0a 20 20 20 20 | finfo.git-gutter:diffinfos)..... |
| 75c0 | 28 73 61 76 65 2d 77 69 6e 64 6f 77 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 28 77 68 | (save-window-excursion.......(wh |
| 75e0 | 65 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 61 73 6b 2d 70 0a 20 20 20 20 20 20 20 20 28 67 69 74 | en.git-gutter:ask-p.........(git |
| 7600 | 2d 67 75 74 74 65 72 3a 70 6f 70 75 70 2d 68 75 6e 6b 20 69 74 29 29 0a 20 20 20 20 20 20 28 77 | -gutter:popup-hunk.it)).......(w |
| 7620 | 68 65 6e 20 28 6f 72 20 28 6e 6f 74 20 67 69 74 2d 67 75 74 74 65 72 3a 61 73 6b 2d 70 29 0a 20 | hen.(or.(not.git-gutter:ask-p).. |
| 7640 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 79 65 73 2d 6f 72 2d 6e 6f 2d 70 20 28 66 6f 72 | ...............(yes-or-no-p.(for |
| 7660 | 6d 61 74 20 22 25 73 20 63 75 72 72 65 6e 74 20 68 75 6e 6b 20 3f 20 22 20 61 63 74 69 6f 6e 29 | mat."%s.current.hunk.?.".action) |
| 7680 | 29 29 0a 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 61 63 74 69 6f 6e 2d 66 6e 20 69 74 | )).........(funcall.action-fn.it |
| 76a0 | 29 0a 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 75 70 64 61 74 65 2d 66 6e 29 29 0a 20 | ).........(funcall.update-fn)).. |
| 76c0 | 20 20 20 20 20 28 69 66 20 67 69 74 2d 67 75 74 74 65 72 3a 61 73 6b 2d 70 0a 20 20 20 20 20 20 | .....(if.git-gutter:ask-p....... |
| 76e0 | 20 20 20 20 28 64 65 6c 65 74 65 2d 77 69 6e 64 6f 77 20 28 67 69 74 2d 67 75 74 74 65 72 3a 70 | ....(delete-window.(git-gutter:p |
| 7700 | 6f 70 75 70 2d 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 29 29 0a 20 20 20 20 20 20 20 20 28 6d 65 | opup-buffer-window)).........(me |
| 7720 | 73 73 61 67 65 20 22 25 73 20 63 75 72 72 65 6e 74 20 68 75 6e 6b 2e 22 20 61 63 74 69 6f 6e 29 | ssage."%s.current.hunk.".action) |
| 7740 | 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 72 65 76 65 72 74 2d 68 | ))))..(defun.git-gutter:revert-h |
| 7760 | 75 6e 6b 20 28 29 0a 20 20 22 52 65 76 65 72 74 20 63 75 72 72 65 6e 74 20 68 75 6e 6b 2e 22 0a | unk.()..."Revert.current.hunk.". |
| 7780 | 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 67 69 74 2d 67 75 74 74 65 72 3a 71 75 | ..(interactive)...(git-gutter:qu |
| 77a0 | 65 72 79 2d 61 63 74 69 6f 6e 20 22 52 65 76 65 72 74 22 20 23 27 67 69 74 2d 67 75 74 74 65 72 | ery-action."Revert".#'git-gutter |
| 77c0 | 3a 64 6f 2d 72 65 76 65 72 74 2d 68 75 6e 6b 20 23 27 73 61 76 65 2d 62 75 66 66 65 72 29 29 0a | :do-revert-hunk.#'save-buffer)). |
| 77e0 | 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 65 78 74 72 61 63 74 2d 68 75 6e 6b 2d | .(defun.git-gutter:extract-hunk- |
| 7800 | 68 65 61 64 65 72 20 28 29 0a 20 20 28 67 69 74 2d 67 75 74 74 65 72 3a 61 77 68 65 6e 20 28 67 | header.()...(git-gutter:awhen.(g |
| 7820 | 69 74 2d 67 75 74 74 65 72 3a 62 61 73 65 2d 66 69 6c 65 29 0a 20 20 20 20 28 77 69 74 68 2d 74 | it-gutter:base-file).....(with-t |
| 7840 | 65 6d 70 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 7a 65 72 6f 70 20 28 67 | emp-buffer.......(when.(zerop.(g |
| 7860 | 69 74 2d 67 75 74 74 65 72 3a 65 78 65 63 75 74 65 2d 63 6f 6d 6d 61 6e 64 0a 20 20 20 20 20 20 | it-gutter:execute-command....... |
| 7880 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 67 69 74 22 20 74 20 22 2d 2d 6e 6f 2d 70 61 67 65 | .............."git".t."--no-page |
| 78a0 | 72 22 20 22 2d 63 22 20 22 64 69 66 66 2e 61 75 74 6f 72 65 66 72 65 73 68 69 6e 64 65 78 3d 30 | r"."-c"."diff.autorefreshindex=0 |
| 78c0 | 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 64 69 66 66 22 20 22 2d 2d | "....................."diff"."-- |
| 78e0 | 6e 6f 2d 63 6f 6c 6f 72 22 20 22 2d 2d 6e 6f 2d 65 78 74 2d 64 69 66 66 22 0a 20 20 20 20 20 20 | no-color"."--no-ext-diff"....... |
| 7900 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 72 65 6c 61 74 69 76 65 22 20 28 66 69 6c 65 | .............."--relative".(file |
| 7920 | 2d 6e 61 6d 65 2d 6e 6f 6e 64 69 72 65 63 74 6f 72 79 20 69 74 29 29 29 0a 20 20 20 20 20 20 20 | -name-nondirectory.it)))........ |
| 7940 | 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))........ |
| 7960 | 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 34 29 0a 20 20 20 20 20 20 20 20 28 62 75 66 66 65 | .(forward-line.4).........(buffe |
| 7980 | 72 2d 73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 28 70 6f 69 6e 74 | r-substring-no-properties.(point |
| 79a0 | 2d 6d 69 6e 29 20 28 70 6f 69 6e 74 29 29 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 67 69 74 2d | -min).(point))))))..(defvar.git- |
| 79c0 | 67 75 74 74 65 72 3a 67 69 74 2d 68 75 6e 6b 2d 68 65 61 64 65 72 2d 72 65 67 65 78 70 0a 20 20 | gutter:git-hunk-header-regexp... |
| 79e0 | 22 5e 40 40 20 2d 5c 5c 28 5b 30 2d 39 5d 2b 5c 5c 29 2c 3f 5c 5c 28 5b 30 2d 39 5d 2a 5c 5c 29 | "^@@.-\\([0-9]+\\),?\\([0-9]*\\) |
| 7a00 | 20 5c 5c 2b 5c 5c 28 5b 30 2d 39 5d 2b 5c 5c 29 2c 3f 5c 5c 28 5b 30 2d 39 5d 2a 5c 5c 29 20 40 | .\\+\\([0-9]+\\),?\\([0-9]*\\).@ |
| 7a20 | 40 22 0a 20 20 22 50 61 72 73 65 20 67 69 74 20 68 75 6e 6b 20 68 65 61 64 65 72 2e 22 29 0a 0a | @"..."Parse.git.hunk.header.").. |
| 7a40 | 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 72 65 61 64 2d 68 75 6e 6b 2d 68 65 61 64 | (defun.git-gutter:read-hunk-head |
| 7a60 | 65 72 20 28 68 65 61 64 65 72 29 0a 20 20 28 77 68 65 6e 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 | er.(header)...(when.(string-matc |
| 7a80 | 68 20 67 69 74 2d 67 75 74 74 65 72 3a 67 69 74 2d 68 75 6e 6b 2d 68 65 61 64 65 72 2d 72 65 67 | h.git-gutter:git-hunk-header-reg |
| 7aa0 | 65 78 70 20 68 65 61 64 65 72 29 0a 20 20 20 20 28 6c 69 73 74 20 28 73 74 72 69 6e 67 2d 74 6f | exp.header).....(list.(string-to |
| 7ac0 | 2d 6e 75 6d 62 65 72 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 31 20 68 65 61 64 65 72 29 29 | -number.(match-string.1.header)) |
| 7ae0 | 0a 20 20 20 20 20 20 20 20 20 20 28 67 69 74 2d 67 75 74 74 65 72 3a 63 68 61 6e 67 65 73 2d 74 | ...........(git-gutter:changes-t |
| 7b00 | 6f 2d 6e 75 6d 62 65 72 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 32 20 68 65 61 64 65 72 29 | o-number.(match-string.2.header) |
| 7b20 | 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 2d 74 6f 2d 6e 75 6d 62 65 72 20 28 6d | )...........(string-to-number.(m |
| 7b40 | 61 74 63 68 2d 73 74 72 69 6e 67 20 33 20 68 65 61 64 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 | atch-string.3.header)).......... |
| 7b60 | 20 28 67 69 74 2d 67 75 74 74 65 72 3a 63 68 61 6e 67 65 73 2d 74 6f 2d 6e 75 6d 62 65 72 20 28 | .(git-gutter:changes-to-number.( |
| 7b80 | 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 34 20 68 65 61 64 65 72 29 29 29 29 29 0a 0a 28 64 65 66 | match-string.4.header)))))..(def |
| 7ba0 | 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 63 6f 6e 76 65 72 74 2d 68 75 6e 6b 2d 68 65 61 64 65 | un.git-gutter:convert-hunk-heade |
| 7bc0 | 72 20 28 74 79 70 65 29 0a 20 20 28 6c 65 74 20 28 28 68 65 61 64 65 72 20 28 62 75 66 66 65 72 | r.(type)...(let.((header.(buffer |
| 7be0 | 2d 73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 28 70 6f 69 6e 74 29 | -substring-no-properties.(point) |
| 7c00 | 20 28 6c 69 6e 65 2d 65 6e 64 2d 70 6f 73 69 74 69 6f 6e 29 29 29 29 0a 20 20 20 20 28 64 65 6c | .(line-end-position)))).....(del |
| 7c20 | 65 74 65 2d 72 65 67 69 6f 6e 20 28 70 6f 69 6e 74 29 20 28 6c 69 6e 65 2d 65 6e 64 2d 70 6f 73 | ete-region.(point).(line-end-pos |
| 7c40 | 69 74 69 6f 6e 29 29 0a 20 20 20 20 28 63 6c 2d 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 | ition)).....(cl-destructuring-bi |
| 7c60 | 6e 64 0a 20 20 20 20 20 20 20 20 28 6f 72 69 67 2d 6c 69 6e 65 20 6f 72 69 67 2d 63 68 61 6e 67 | nd.........(orig-line.orig-chang |
| 7c80 | 65 73 20 6e 65 77 2d 6c 69 6e 65 20 6e 65 77 2d 63 68 61 6e 67 65 73 29 0a 20 20 20 20 20 20 20 | es.new-line.new-changes)........ |
| 7ca0 | 20 28 67 69 74 2d 67 75 74 74 65 72 3a 72 65 61 64 2d 68 75 6e 6b 2d 68 65 61 64 65 72 20 68 65 | .(git-gutter:read-hunk-header.he |
| 7cc0 | 61 64 65 72 29 0a 20 20 20 20 20 20 28 63 6c 2d 63 61 73 65 20 74 79 70 65 0a 20 20 20 20 20 20 | ader).......(cl-case.type....... |
| 7ce0 | 20 20 28 61 64 64 65 64 20 28 73 65 74 71 20 6e 65 77 2d 6c 69 6e 65 20 28 31 2b 20 6f 72 69 67 | ..(added.(setq.new-line.(1+.orig |
| 7d00 | 2d 6c 69 6e 65 29 29 29 0a 20 20 20 20 20 20 20 20 28 74 20 28 73 65 74 71 20 6e 65 77 2d 6c 69 | -line))).........(t.(setq.new-li |
| 7d20 | 6e 65 20 6f 72 69 67 2d 6c 69 6e 65 29 29 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 6e 65 77 | ne.orig-line))).......(let.((new |
| 7d40 | 2d 68 65 61 64 65 72 20 28 66 6f 72 6d 61 74 20 22 40 40 20 2d 25 64 2c 25 64 20 2b 25 64 2c 25 | -header.(format."@@.-%d,%d.+%d,% |
| 7d60 | 64 20 40 40 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 | d.@@"........................... |
| 7d80 | 20 20 20 20 20 20 6f 72 69 67 2d 6c 69 6e 65 20 6f 72 69 67 2d 63 68 61 6e 67 65 73 20 6e 65 77 | ......orig-line.orig-changes.new |
| 7da0 | 2d 6c 69 6e 65 20 6e 65 77 2d 63 68 61 6e 67 65 73 29 29 29 0a 20 20 20 20 20 20 20 20 28 69 6e | -line.new-changes))).........(in |
| 7dc0 | 73 65 72 74 20 6e 65 77 2d 68 65 61 64 65 72 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 | sert.new-header)))))..(defun.git |
| 7de0 | 2d 67 75 74 74 65 72 3a 69 6e 73 65 72 74 2d 73 74 61 67 69 6e 67 2d 68 75 6e 6b 20 28 68 75 6e | -gutter:insert-staging-hunk.(hun |
| 7e00 | 6b 20 74 79 70 65 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 69 | k.type)...(save-excursion.....(i |
| 7e20 | 6e 73 65 72 74 20 68 75 6e 6b 20 22 5c 6e 22 29 29 0a 20 20 28 67 69 74 2d 67 75 74 74 65 72 3a | nsert.hunk."\n"))...(git-gutter: |
| 7e40 | 63 6f 6e 76 65 72 74 2d 68 75 6e 6b 2d 68 65 61 64 65 72 20 74 79 70 65 29 29 0a 0a 28 64 65 66 | convert-hunk-header.type))..(def |
| 7e60 | 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 61 70 70 6c 79 2d 64 69 72 65 63 74 6f 72 79 2d 6f 70 | un.git-gutter:apply-directory-op |
| 7e80 | 74 69 6f 6e 20 28 29 0a 20 20 28 6c 65 74 20 28 28 72 6f 6f 74 20 28 6c 6f 63 61 74 65 2d 64 6f | tion.()...(let.((root.(locate-do |
| 7ea0 | 6d 69 6e 61 74 69 6e 67 2d 66 69 6c 65 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 | minating-file.default-directory. |
| 7ec0 | 22 2e 67 69 74 22 29 29 29 0a 20 20 20 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 64 69 72 65 63 74 6f | ".git"))).....(file-name-directo |
| 7ee0 | 72 79 20 28 66 69 6c 65 2d 72 65 6c 61 74 69 76 65 2d 6e 61 6d 65 20 28 67 69 74 2d 67 75 74 74 | ry.(file-relative-name.(git-gutt |
| 7f00 | 65 72 3a 62 61 73 65 2d 66 69 6c 65 29 20 72 6f 6f 74 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 | er:base-file).root))))..(defun.g |
| 7f20 | 69 74 2d 67 75 74 74 65 72 3a 64 6f 2d 73 74 61 67 65 2d 68 75 6e 6b 20 28 64 69 66 66 2d 69 6e | it-gutter:do-stage-hunk.(diff-in |
| 7f40 | 66 6f 29 0a 20 20 28 6c 65 74 20 28 28 63 6f 6e 74 65 6e 74 20 28 67 69 74 2d 67 75 74 74 65 72 | fo)...(let.((content.(git-gutter |
| 7f60 | 2d 68 75 6e 6b 2d 63 6f 6e 74 65 6e 74 20 64 69 66 66 2d 69 6e 66 6f 29 29 0a 20 20 20 20 20 20 | -hunk-content.diff-info))....... |
| 7f80 | 20 20 28 74 79 70 65 20 28 67 69 74 2d 67 75 74 74 65 72 2d 68 75 6e 6b 2d 74 79 70 65 20 64 69 | ..(type.(git-gutter-hunk-type.di |
| 7fa0 | 66 66 2d 69 6e 66 6f 29 29 0a 20 20 20 20 20 20 20 20 28 68 65 61 64 65 72 20 28 67 69 74 2d 67 | ff-info)).........(header.(git-g |
| 7fc0 | 75 74 74 65 72 3a 65 78 74 72 61 63 74 2d 68 75 6e 6b 2d 68 65 61 64 65 72 29 29 0a 20 20 20 20 | utter:extract-hunk-header))..... |
| 7fe0 | 20 20 20 20 28 70 61 74 63 68 20 28 6d 61 6b 65 2d 74 65 6d 70 2d 6e 61 6d 65 20 22 67 69 74 2d | ....(patch.(make-temp-name."git- |
| 8000 | 67 75 74 74 65 72 22 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 68 65 61 64 65 72 0a 20 20 20 20 | gutter"))).....(when.header..... |
| 8020 | 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 66 69 6c 65 20 70 61 74 63 68 0a 20 20 20 20 20 20 20 20 | ..(with-temp-file.patch......... |
| 8040 | 28 69 6e 73 65 72 74 20 68 65 61 64 65 72 29 0a 20 20 20 20 20 20 20 20 28 67 69 74 2d 67 75 74 | (insert.header).........(git-gut |
| 8060 | 74 65 72 3a 69 6e 73 65 72 74 2d 73 74 61 67 69 6e 67 2d 68 75 6e 6b 20 63 6f 6e 74 65 6e 74 20 | ter:insert-staging-hunk.content. |
| 8080 | 74 79 70 65 29 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 64 69 72 2d 6f 70 74 69 6f 6e 20 28 | type)).......(let.((dir-option.( |
| 80a0 | 67 69 74 2d 67 75 74 74 65 72 3a 61 70 70 6c 79 2d 64 69 72 65 63 74 6f 72 79 2d 6f 70 74 69 6f | git-gutter:apply-directory-optio |
| 80c0 | 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 70 74 69 6f 6e 73 20 28 6c 69 73 74 20 22 | n)).............(options.(list." |
| 80e0 | 2d 2d 63 61 63 68 65 64 22 20 70 61 74 63 68 29 29 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e | --cached".patch))).........(when |
| 8100 | 20 64 69 72 2d 6f 70 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6f 70 74 69 | .dir-option...........(setq.opti |
| 8120 | 6f 6e 73 20 28 63 6f 6e 73 20 22 2d 2d 64 69 72 65 63 74 6f 72 79 22 20 28 63 6f 6e 73 20 64 69 | ons.(cons."--directory".(cons.di |
| 8140 | 72 2d 6f 70 74 69 6f 6e 20 6f 70 74 69 6f 6e 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 75 6e | r-option.options)))).........(un |
| 8160 | 6c 65 73 73 20 28 7a 65 72 6f 70 20 28 61 70 70 6c 79 20 23 27 67 69 74 2d 67 75 74 74 65 72 3a | less.(zerop.(apply.#'git-gutter: |
| 8180 | 65 78 65 63 75 74 65 2d 63 6f 6d 6d 61 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | execute-command................. |
| 81a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 67 69 74 22 20 6e 69 6c 20 22 61 70 70 6c 79 22 20 | .............."git".nil."apply". |
| 81c0 | 22 2d 2d 75 6e 69 64 69 66 66 2d 7a 65 72 6f 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | "--unidiff-zero"................ |
| 81e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 70 74 69 6f 6e 73 29 29 0a 20 20 20 20 20 20 20 | ...............options))........ |
| 8200 | 20 20 20 28 6d 65 73 73 61 67 65 20 22 46 61 69 6c 65 64 3a 20 73 74 61 74 69 6e 67 20 74 68 69 | ...(message."Failed:.stating.thi |
| 8220 | 73 20 68 75 6e 6b 22 29 29 0a 20 20 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 66 69 6c 65 20 70 | s.hunk")).........(delete-file.p |
| 8240 | 61 74 63 68 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 73 74 61 | atch)))))..(defun.git-gutter:sta |
| 8260 | 67 65 2d 68 75 6e 6b 20 28 29 0a 20 20 22 53 74 61 67 65 20 74 68 69 73 20 68 75 6e 6b 20 6c 69 | ge-hunk.()..."Stage.this.hunk.li |
| 8280 | 6b 65 20 27 67 69 74 20 61 64 64 20 2d 70 27 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 | ke.'git.add.-p'."...(interactive |
| 82a0 | 29 0a 20 20 28 67 69 74 2d 67 75 74 74 65 72 3a 71 75 65 72 79 2d 61 63 74 69 6f 6e 20 22 53 74 | )...(git-gutter:query-action."St |
| 82c0 | 61 67 65 22 20 23 27 67 69 74 2d 67 75 74 74 65 72 3a 64 6f 2d 73 74 61 67 65 2d 68 75 6e 6b 20 | age".#'git-gutter:do-stage-hunk. |
| 82e0 | 23 27 67 69 74 2d 67 75 74 74 65 72 29 29 0a 0a 28 64 65 66 73 75 62 73 74 20 67 69 74 2d 67 75 | #'git-gutter))..(defsubst.git-gu |
| 8300 | 74 74 65 72 3a 6c 69 6e 65 2d 70 6f 69 6e 74 20 28 6c 69 6e 65 29 0a 20 20 28 73 61 76 65 2d 65 | tter:line-point.(line)...(save-e |
| 8320 | 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d | xcursion.....(goto-char.(point-m |
| 8340 | 69 6e 29 29 0a 20 20 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 28 31 2d 20 6c 69 6e 65 29 | in)).....(forward-line.(1-.line) |
| 8360 | 29 0a 20 20 20 20 28 70 6f 69 6e 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 | ).....(point)))..(defun.git-gutt |
| 8380 | 65 72 3a 6d 61 72 6b 2d 68 75 6e 6b 20 28 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a | er:mark-hunk.()...(interactive). |
| 83a0 | 20 20 28 67 69 74 2d 67 75 74 74 65 72 3a 61 77 68 65 6e 20 28 67 69 74 2d 67 75 74 74 65 72 3a | ..(git-gutter:awhen.(git-gutter: |
| 83c0 | 73 65 61 72 63 68 2d 68 65 72 65 2d 64 69 66 66 69 6e 66 6f 20 67 69 74 2d 67 75 74 74 65 72 3a | search-here-diffinfo.git-gutter: |
| 83e0 | 64 69 66 66 69 6e 66 6f 73 29 0a 20 20 20 20 28 6c 65 74 20 28 28 73 74 61 72 74 20 28 67 69 74 | diffinfos).....(let.((start.(git |
| 8400 | 2d 67 75 74 74 65 72 3a 6c 69 6e 65 2d 70 6f 69 6e 74 20 28 67 69 74 2d 67 75 74 74 65 72 2d 68 | -gutter:line-point.(git-gutter-h |
| 8420 | 75 6e 6b 2d 73 74 61 72 74 2d 6c 69 6e 65 20 69 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 | unk-start-line.it)))...........( |
| 8440 | 65 6e 64 20 28 67 69 74 2d 67 75 74 74 65 72 3a 6c 69 6e 65 2d 70 6f 69 6e 74 20 28 31 2b 20 28 | end.(git-gutter:line-point.(1+.( |
| 8460 | 67 69 74 2d 67 75 74 74 65 72 2d 68 75 6e 6b 2d 65 6e 64 2d 6c 69 6e 65 20 69 74 29 29 29 29 29 | git-gutter-hunk-end-line.it))))) |
| 8480 | 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 73 74 61 72 74 29 0a 20 20 20 20 20 20 28 | .......(goto-char.start).......( |
| 84a0 | 70 75 73 68 2d 6d 61 72 6b 20 65 6e 64 20 6e 69 6c 20 74 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 | push-mark.end.nil.t))))..(defun. |
| 84c0 | 67 69 74 2d 67 75 74 74 65 72 3a 75 70 64 61 74 65 2d 70 6f 70 75 70 65 64 2d 62 75 66 66 65 72 | git-gutter:update-popuped-buffer |
| 84e0 | 20 28 64 69 66 66 69 6e 66 6f 29 0a 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 | .(diffinfo)...(with-current-buff |
| 8500 | 65 72 20 28 67 65 74 2d 62 75 66 66 65 72 2d 63 72 65 61 74 65 20 67 69 74 2d 67 75 74 74 65 72 | er.(get-buffer-create.git-gutter |
| 8520 | 3a 70 6f 70 75 70 2d 62 75 66 66 65 72 29 0a 20 20 20 20 28 76 69 65 77 2d 6d 6f 64 65 20 2d 31 | :popup-buffer).....(view-mode.-1 |
| 8540 | 29 0a 20 20 20 20 28 73 65 74 71 20 62 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 20 6e 69 6c | ).....(setq.buffer-read-only.nil |
| 8560 | 29 0a 20 20 20 20 28 65 72 61 73 65 2d 62 75 66 66 65 72 29 0a 20 20 20 20 28 69 6e 73 65 72 74 | ).....(erase-buffer).....(insert |
| 8580 | 20 28 67 69 74 2d 67 75 74 74 65 72 2d 68 75 6e 6b 2d 63 6f 6e 74 65 6e 74 20 64 69 66 66 69 6e | .(git-gutter-hunk-content.diffin |
| 85a0 | 66 6f 29 29 0a 20 20 20 20 28 69 6e 73 65 72 74 20 22 5c 6e 22 29 0a 20 20 20 20 28 67 6f 74 6f | fo)).....(insert."\n").....(goto |
| 85c0 | 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 28 64 69 66 66 2d 6d 6f 64 | -char.(point-min)).....(diff-mod |
| 85e0 | 65 29 0a 20 20 20 20 28 76 69 65 77 2d 6d 6f 64 65 20 2b 31 29 0a 20 20 20 20 28 63 75 72 72 65 | e).....(view-mode.+1).....(curre |
| 8600 | 6e 74 2d 62 75 66 66 65 72 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a | nt-buffer)))..(defun.git-gutter: |
| 8620 | 70 6f 70 75 70 2d 68 75 6e 6b 20 28 26 6f 70 74 69 6f 6e 61 6c 20 64 69 66 66 69 6e 66 6f 29 0a | popup-hunk.(&optional.diffinfo). |
| 8640 | 20 20 22 50 6f 70 75 70 20 63 75 72 72 65 6e 74 20 64 69 66 66 20 68 75 6e 6b 2e 22 0a 20 20 28 | .."Popup.current.diff.hunk."...( |
| 8660 | 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 67 69 74 2d 67 75 74 74 65 72 3a 61 77 68 65 6e | interactive)...(git-gutter:awhen |
| 8680 | 20 28 6f 72 20 64 69 66 66 69 6e 66 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(or.diffinfo................... |
| 86a0 | 20 20 20 20 20 20 28 67 69 74 2d 67 75 74 74 65 72 3a 73 65 61 72 63 68 2d 68 65 72 65 2d 64 69 | ......(git-gutter:search-here-di |
| 86c0 | 66 66 69 6e 66 6f 20 67 69 74 2d 67 75 74 74 65 72 3a 64 69 66 66 69 6e 66 6f 73 29 29 0a 20 20 | ffinfo.git-gutter:diffinfos))... |
| 86e0 | 20 20 28 73 61 76 65 2d 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 0a 20 20 20 20 20 20 28 64 | ..(save-selected-window.......(d |
| 8700 | 69 73 70 6c 61 79 2d 62 75 66 66 65 72 20 28 67 69 74 2d 67 75 74 74 65 72 3a 75 70 64 61 74 65 | isplay-buffer.(git-gutter:update |
| 8720 | 2d 70 6f 70 75 70 65 64 2d 62 75 66 66 65 72 20 69 74 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 | -popuped-buffer.it)))))..(defun. |
| 8740 | 67 69 74 2d 67 75 74 74 65 72 3a 6e 65 78 74 2d 68 75 6e 6b 20 28 61 72 67 29 0a 20 20 22 4d 6f | git-gutter:next-hunk.(arg)..."Mo |
| 8760 | 76 65 20 74 6f 20 6e 65 78 74 20 64 69 66 66 20 68 75 6e 6b 22 0a 20 20 28 69 6e 74 65 72 61 63 | ve.to.next.diff.hunk"...(interac |
| 8780 | 74 69 76 65 20 22 70 22 29 0a 20 20 28 69 66 20 28 6e 6f 74 20 67 69 74 2d 67 75 74 74 65 72 3a | tive."p")...(if.(not.git-gutter: |
| 87a0 | 64 69 66 66 69 6e 66 6f 73 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 3e 20 67 69 74 2d 67 75 | diffinfos).......(when.(>.git-gu |
| 87c0 | 74 74 65 72 3a 76 65 72 62 6f 73 69 74 79 20 33 29 0a 20 20 20 20 20 20 20 20 28 6d 65 73 73 61 | tter:verbosity.3).........(messa |
| 87e0 | 67 65 20 22 54 68 65 72 65 20 61 72 65 20 6e 6f 20 63 68 61 6e 67 65 73 21 21 22 29 29 0a 20 20 | ge."There.are.no.changes!!"))... |
| 8800 | 20 20 28 73 61 76 65 2d 72 65 73 74 72 69 63 74 69 6f 6e 0a 20 20 20 20 20 20 28 77 69 64 65 6e | ..(save-restriction.......(widen |
| 8820 | 29 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 69 73 2d 72 65 76 65 72 73 65 20 28 3c 20 61 72 | ).......(let*.((is-reverse.(<.ar |
| 8840 | 67 20 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 66 66 69 6e 66 6f 73 20 67 69 | g.0))..............(diffinfos.gi |
| 8860 | 74 2d 67 75 74 74 65 72 3a 64 69 66 66 69 6e 66 6f 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | t-gutter:diffinfos)............. |
| 8880 | 20 28 6c 65 6e 20 28 6c 65 6e 67 74 68 20 64 69 66 66 69 6e 66 6f 73 29 29 0a 20 20 20 20 20 20 | .(len.(length.diffinfos))....... |
| 88a0 | 20 20 20 20 20 20 20 28 69 6e 64 65 78 20 28 67 69 74 2d 67 75 74 74 65 72 3a 73 65 61 72 63 68 | .......(index.(git-gutter:search |
| 88c0 | 2d 6e 65 61 72 2d 64 69 66 66 2d 69 6e 64 65 78 20 64 69 66 66 69 6e 66 6f 73 20 69 73 2d 72 65 | -near-diff-index.diffinfos.is-re |
| 88e0 | 76 65 72 73 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 61 6c 2d 69 6e 64 65 78 | verse))..............(real-index |
| 8900 | 20 28 69 66 20 69 6e 64 65 78 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(if.index...................... |
| 8920 | 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6e 65 78 74 20 28 69 66 20 69 73 2d 72 65 76 65 72 | ........(let.((next.(if.is-rever |
| 8940 | 73 65 20 28 31 2b 20 69 6e 64 65 78 29 20 28 31 2d 20 69 6e 64 65 78 29 29 29 29 0a 20 20 20 20 | se.(1+.index).(1-.index))))..... |
| 8960 | 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 6f 64 20 | ...........................(mod. |
| 8980 | 28 2b 20 61 72 67 20 6e 65 78 74 29 20 6c 65 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | (+.arg.next).len)).............. |
| 89a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 69 73 2d 72 65 76 65 72 73 65 20 28 31 2d | ..............(if.is-reverse.(1- |
| 89c0 | 20 6c 65 6e 29 20 30 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 66 66 69 6e 66 | .len).0)))..............(diffinf |
| 89e0 | 6f 20 28 6e 74 68 20 72 65 61 6c 2d 69 6e 64 65 78 20 64 69 66 66 69 6e 66 6f 73 29 29 29 0a 20 | o.(nth.real-index.diffinfos))).. |
| 8a00 | 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)).. |
| 8a20 | 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 28 31 2d 20 28 67 69 74 2d 67 75 | .......(forward-line.(1-.(git-gu |
| 8a40 | 74 74 65 72 2d 68 75 6e 6b 2d 73 74 61 72 74 2d 6c 69 6e 65 20 64 69 66 66 69 6e 66 6f 29 29 29 | tter-hunk-start-line.diffinfo))) |
| 8a60 | 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 3e 20 67 69 74 2d 67 75 74 74 65 72 3a 76 65 72 | .........(when.(>.git-gutter:ver |
| 8a80 | 62 6f 73 69 74 79 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 4d 6f | bosity.0)...........(message."Mo |
| 8aa0 | 76 65 20 74 6f 20 25 64 2f 25 64 20 68 75 6e 6b 22 20 28 31 2b 20 72 65 61 6c 2d 69 6e 64 65 78 | ve.to.%d/%d.hunk".(1+.real-index |
| 8ac0 | 29 20 6c 65 6e 29 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 62 75 66 66 65 72 2d 6c 69 | ).len)).........(when.(buffer-li |
| 8ae0 | 76 65 2d 70 20 28 67 65 74 2d 62 75 66 66 65 72 20 67 69 74 2d 67 75 74 74 65 72 3a 70 6f 70 75 | ve-p.(get-buffer.git-gutter:popu |
| 8b00 | 70 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 67 69 74 2d 67 75 74 74 65 72 | p-buffer))...........(git-gutter |
| 8b20 | 3a 75 70 64 61 74 65 2d 70 6f 70 75 70 65 64 2d 62 75 66 66 65 72 20 64 69 66 66 69 6e 66 6f 29 | :update-popuped-buffer.diffinfo) |
| 8b40 | 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 70 72 65 76 69 6f 75 | )))))..(defun.git-gutter:previou |
| 8b60 | 73 2d 68 75 6e 6b 20 28 61 72 67 29 0a 20 20 22 4d 6f 76 65 20 74 6f 20 70 72 65 76 69 6f 75 73 | s-hunk.(arg)..."Move.to.previous |
| 8b80 | 20 64 69 66 66 20 68 75 6e 6b 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 29 0a | .diff.hunk"...(interactive."p"). |
| 8ba0 | 20 20 28 67 69 74 2d 67 75 74 74 65 72 3a 6e 65 78 74 2d 68 75 6e 6b 20 28 2d 20 61 72 67 29 29 | ..(git-gutter:next-hunk.(-.arg)) |
| 8bc0 | 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 65 6e 64 2d 6f 66 2d 68 75 6e 6b | )..(defun.git-gutter:end-of-hunk |
| 8be0 | 20 28 29 0a 20 20 22 4d 6f 76 65 20 74 6f 20 65 6e 64 20 6f 66 20 63 75 72 72 65 6e 74 20 64 69 | .()..."Move.to.end.of.current.di |
| 8c00 | 66 66 20 68 75 6e 6b 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 67 69 74 2d | ff.hunk"...(interactive)...(git- |
| 8c20 | 67 75 74 74 65 72 3a 61 77 68 65 6e 20 28 67 69 74 2d 67 75 74 74 65 72 3a 73 65 61 72 63 68 2d | gutter:awhen.(git-gutter:search- |
| 8c40 | 68 65 72 65 2d 64 69 66 66 69 6e 66 6f 20 67 69 74 2d 67 75 74 74 65 72 3a 64 69 66 66 69 6e 66 | here-diffinfo.git-gutter:diffinf |
| 8c60 | 6f 73 29 0a 20 20 20 20 28 6c 65 74 20 28 28 6c 69 6e 65 73 20 28 2d 20 28 67 69 74 2d 67 75 74 | os).....(let.((lines.(-.(git-gut |
| 8c80 | 74 65 72 2d 68 75 6e 6b 2d 65 6e 64 2d 6c 69 6e 65 20 69 74 29 20 28 6c 69 6e 65 2d 6e 75 6d 62 | ter-hunk-end-line.it).(line-numb |
| 8ca0 | 65 72 2d 61 74 2d 70 6f 73 29 29 29 29 0a 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e | er-at-pos)))).......(forward-lin |
| 8cc0 | 65 20 6c 69 6e 65 73 29 29 29 29 0a 0a 28 64 65 66 61 6c 69 61 73 20 27 67 69 74 2d 67 75 74 74 | e.lines))))..(defalias.'git-gutt |
| 8ce0 | 65 72 3a 6e 65 78 74 2d 64 69 66 66 20 27 67 69 74 2d 67 75 74 74 65 72 3a 6e 65 78 74 2d 68 75 | er:next-diff.'git-gutter:next-hu |
| 8d00 | 6e 6b 29 0a 28 6d 61 6b 65 2d 6f 62 73 6f 6c 65 74 65 20 27 67 69 74 2d 67 75 74 74 65 72 3a 6e | nk).(make-obsolete.'git-gutter:n |
| 8d20 | 65 78 74 2d 64 69 66 66 20 27 67 69 74 2d 67 75 74 74 65 72 3a 6e 65 78 74 2d 68 75 6e 6b 20 22 | ext-diff.'git-gutter:next-hunk." |
| 8d40 | 30 2e 36 30 22 29 0a 28 64 65 66 61 6c 69 61 73 20 27 67 69 74 2d 67 75 74 74 65 72 3a 70 72 65 | 0.60").(defalias.'git-gutter:pre |
| 8d60 | 76 69 6f 75 73 2d 64 69 66 66 20 27 67 69 74 2d 67 75 74 74 65 72 3a 70 72 65 76 69 6f 75 73 2d | vious-diff.'git-gutter:previous- |
| 8d80 | 68 75 6e 6b 29 0a 28 6d 61 6b 65 2d 6f 62 73 6f 6c 65 74 65 20 27 67 69 74 2d 67 75 74 74 65 72 | hunk).(make-obsolete.'git-gutter |
| 8da0 | 3a 70 72 65 76 69 6f 75 73 2d 64 69 66 66 20 27 67 69 74 2d 67 75 74 74 65 72 3a 70 72 65 76 69 | :previous-diff.'git-gutter:previ |
| 8dc0 | 6f 75 73 2d 68 75 6e 6b 20 22 30 2e 36 30 22 29 0a 28 64 65 66 61 6c 69 61 73 20 27 67 69 74 2d | ous-hunk."0.60").(defalias.'git- |
| 8de0 | 67 75 74 74 65 72 3a 70 6f 70 75 70 2d 64 69 66 66 20 27 67 69 74 2d 67 75 74 74 65 72 3a 70 6f | gutter:popup-diff.'git-gutter:po |
| 8e00 | 70 75 70 2d 68 75 6e 6b 29 0a 28 6d 61 6b 65 2d 6f 62 73 6f 6c 65 74 65 20 27 67 69 74 2d 67 75 | pup-hunk).(make-obsolete.'git-gu |
| 8e20 | 74 74 65 72 3a 70 6f 70 75 70 2d 64 69 66 66 20 27 67 69 74 2d 67 75 74 74 65 72 3a 70 6f 70 75 | tter:popup-diff.'git-gutter:popu |
| 8e40 | 70 2d 68 75 6e 6b 20 22 30 2e 36 30 22 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 | p-hunk."0.60")..(defun.git-gutte |
| 8e60 | 72 3a 75 70 64 61 74 65 2d 69 6e 64 69 72 65 63 74 2d 62 75 66 66 65 72 73 20 28 6f 72 69 67 2d | r:update-indirect-buffers.(orig- |
| 8e80 | 66 69 6c 65 29 0a 20 20 28 63 6c 2d 6c 6f 6f 70 20 77 69 74 68 20 64 69 66 66 69 6e 66 6f 73 20 | file)...(cl-loop.with.diffinfos. |
| 8ea0 | 3d 20 67 69 74 2d 67 75 74 74 65 72 3a 64 69 66 66 69 6e 66 6f 73 0a 20 20 20 20 20 20 20 20 20 | =.git-gutter:diffinfos.......... |
| 8ec0 | 20 20 66 6f 72 20 77 69 6e 20 69 6e 20 28 77 69 6e 64 6f 77 2d 6c 69 73 74 29 0a 20 20 20 20 20 | ..for.win.in.(window-list)...... |
| 8ee0 | 20 20 20 20 20 20 66 6f 72 20 62 75 66 20 20 3d 20 28 77 69 6e 64 6f 77 2d 62 75 66 66 65 72 20 | ......for.buf..=.(window-buffer. |
| 8f00 | 77 69 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 62 61 73 65 20 3d 20 28 62 75 66 66 | win)............for.base.=.(buff |
| 8f20 | 65 72 2d 62 61 73 65 2d 62 75 66 66 65 72 20 62 75 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 77 | er-base-buffer.buf)............w |
| 8f40 | 68 65 6e 20 28 61 6e 64 20 62 61 73 65 20 28 73 74 72 69 6e 67 3d 20 28 62 75 66 66 65 72 2d 66 | hen.(and.base.(string=.(buffer-f |
| 8f60 | 69 6c 65 2d 6e 61 6d 65 20 62 61 73 65 29 20 6f 72 69 67 2d 66 69 6c 65 29 29 0a 20 20 20 20 20 | ile-name.base).orig-file))...... |
| 8f80 | 20 20 20 20 20 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e | ......do............(with-curren |
| 8fa0 | 74 2d 62 75 66 66 65 72 20 62 75 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 69 74 2d 67 | t-buffer.buf..............(git-g |
| 8fc0 | 75 74 74 65 72 3a 75 70 64 61 74 65 2d 64 69 66 66 69 6e 66 6f 20 64 69 66 66 69 6e 66 6f 73 29 | utter:update-diffinfo.diffinfos) |
| 8fe0 | 29 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 | )))..;;;###autoload.(defun.git-g |
| 9000 | 75 74 74 65 72 20 28 29 0a 20 20 22 53 68 6f 77 20 64 69 66 66 20 69 6e 66 6f 72 6d 61 74 69 6f | utter.()..."Show.diff.informatio |
| 9020 | 6e 20 69 6e 20 67 75 74 74 65 72 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 | n.in.gutter"...(interactive)...( |
| 9040 | 77 68 65 6e 20 28 6f 72 20 67 69 74 2d 67 75 74 74 65 72 3a 76 63 73 2d 74 79 70 65 20 28 67 69 | when.(or.git-gutter:vcs-type.(gi |
| 9060 | 74 2d 67 75 74 74 65 72 3a 69 6e 2d 72 65 70 6f 73 69 74 6f 72 79 2d 70 29 29 0a 20 20 20 20 28 | t-gutter:in-repository-p)).....( |
| 9080 | 6c 65 74 2a 20 28 28 66 69 6c 65 20 28 67 69 74 2d 67 75 74 74 65 72 3a 62 61 73 65 2d 66 69 6c | let*.((file.(git-gutter:base-fil |
| 90a0 | 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 63 2d 62 75 66 20 28 67 69 74 2d 67 75 | e))............(proc-buf.(git-gu |
| 90c0 | 74 74 65 72 3a 64 69 66 66 2d 70 72 6f 63 65 73 73 2d 62 75 66 66 65 72 20 66 69 6c 65 29 29 29 | tter:diff-process-buffer.file))) |
| 90e0 | 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 63 61 6c 6c 65 64 2d 69 6e 74 65 72 61 | .......(when.(and.(called-intera |
| 9100 | 63 74 69 76 65 6c 79 2d 70 20 27 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 67 65 74 2d 62 75 66 | ctively-p.'interactive).(get-buf |
| 9120 | 66 65 72 20 70 72 6f 63 2d 62 75 66 29 29 0a 20 20 20 20 20 20 20 20 28 6b 69 6c 6c 2d 62 75 66 | fer.proc-buf)).........(kill-buf |
| 9140 | 66 65 72 20 70 72 6f 63 2d 62 75 66 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 | fer.proc-buf)).......(when.(and. |
| 9160 | 66 69 6c 65 20 28 66 69 6c 65 2d 65 78 69 73 74 73 2d 70 20 66 69 6c 65 29 20 28 6e 6f 74 20 28 | file.(file-exists-p.file).(not.( |
| 9180 | 67 65 74 2d 62 75 66 66 65 72 20 70 72 6f 63 2d 62 75 66 29 29 29 0a 20 20 20 20 20 20 20 20 28 | get-buffer.proc-buf))).........( |
| 91a0 | 67 69 74 2d 67 75 74 74 65 72 3a 73 74 61 72 74 2d 64 69 66 66 2d 70 72 6f 63 65 73 73 20 28 66 | git-gutter:start-diff-process.(f |
| 91c0 | 69 6c 65 2d 6e 61 6d 65 2d 6e 6f 6e 64 69 72 65 63 74 6f 72 79 20 66 69 6c 65 29 0a 20 20 20 20 | ile-name-nondirectory.file)..... |
| 91e0 | 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 | ................................ |
| 9200 | 20 20 20 28 67 65 74 2d 62 75 66 66 65 72 2d 63 72 65 61 74 65 20 70 72 6f 63 2d 62 75 66 29 29 | ...(get-buffer-create.proc-buf)) |
| 9220 | 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 6b 69 6c 6c 2d 69 6e 64 | ))))..(defun.git-gutter:kill-ind |
| 9240 | 69 72 65 63 74 2d 62 75 66 66 65 72 20 28 29 0a 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d | irect-buffer.()...(with-current- |
| 9260 | 62 75 66 66 65 72 20 28 62 75 66 66 65 72 2d 62 61 73 65 2d 62 75 66 66 65 72 29 0a 20 20 20 20 | buffer.(buffer-base-buffer)..... |
| 9280 | 28 77 68 65 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 68 61 73 2d 69 6e 64 69 72 65 63 74 2d 62 75 | (when.git-gutter:has-indirect-bu |
| 92a0 | 66 66 65 72 73 0a 20 20 20 20 20 20 28 69 66 20 28 3c 20 31 20 67 69 74 2d 67 75 74 74 65 72 3a | ffers.......(if.(<.1.git-gutter: |
| 92c0 | 68 61 73 2d 69 6e 64 69 72 65 63 74 2d 62 75 66 66 65 72 73 29 0a 20 20 20 20 20 20 20 20 20 20 | has-indirect-buffers)........... |
| 92e0 | 28 73 65 74 71 20 67 69 74 2d 67 75 74 74 65 72 3a 68 61 73 2d 69 6e 64 69 72 65 63 74 2d 62 75 | (setq.git-gutter:has-indirect-bu |
| 9300 | 66 66 65 72 73 20 28 31 2d 20 67 69 74 2d 67 75 74 74 65 72 3a 68 61 73 2d 69 6e 64 69 72 65 63 | ffers.(1-.git-gutter:has-indirec |
| 9320 | 74 2d 62 75 66 66 65 72 73 29 29 0a 20 20 20 20 20 20 20 20 28 6b 69 6c 6c 2d 6c 6f 63 61 6c 2d | t-buffers)).........(kill-local- |
| 9340 | 76 61 72 69 61 62 6c 65 20 27 67 69 74 2d 67 75 74 74 65 72 3a 68 61 73 2d 69 6e 64 69 72 65 63 | variable.'git-gutter:has-indirec |
| 9360 | 74 2d 62 75 66 66 65 72 73 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 | t-buffers)))))..(defun.git-gutte |
| 9380 | 72 3a 6d 61 6b 65 2d 69 6e 64 69 72 65 63 74 2d 62 75 66 66 65 72 20 28 6f 6c 64 66 75 6e 20 62 | r:make-indirect-buffer.(oldfun.b |
| 93a0 | 61 73 65 2d 62 75 66 66 65 72 20 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 28 77 69 74 68 2d 63 | ase-buffer.&rest.args)...(with-c |
| 93c0 | 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 6f 72 20 28 62 75 66 66 65 72 2d 62 61 73 65 2d 62 | urrent-buffer.(or.(buffer-base-b |
| 93e0 | 75 66 66 65 72 20 28 77 69 6e 64 6f 77 2d 6e 6f 72 6d 61 6c 69 7a 65 2d 62 75 66 66 65 72 20 62 | uffer.(window-normalize-buffer.b |
| 9400 | 61 73 65 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ase-buffer)).................... |
| 9420 | 20 20 20 20 20 20 20 20 62 61 73 65 2d 62 75 66 66 65 72 29 0a 20 20 20 20 28 69 66 20 67 69 74 | ........base-buffer).....(if.git |
| 9440 | 2d 67 75 74 74 65 72 3a 68 61 73 2d 69 6e 64 69 72 65 63 74 2d 62 75 66 66 65 72 73 0a 20 20 20 | -gutter:has-indirect-buffers.... |
| 9460 | 20 20 20 20 20 28 73 65 74 71 20 67 69 74 2d 67 75 74 74 65 72 3a 68 61 73 2d 69 6e 64 69 72 65 | .....(setq.git-gutter:has-indire |
| 9480 | 63 74 2d 62 75 66 66 65 72 73 20 28 31 2b 20 67 69 74 2d 67 75 74 74 65 72 3a 68 61 73 2d 69 6e | ct-buffers.(1+.git-gutter:has-in |
| 94a0 | 64 69 72 65 63 74 2d 62 75 66 66 65 72 73 29 29 0a 20 20 20 20 20 20 28 73 65 74 71 2d 6c 6f 63 | direct-buffers)).......(setq-loc |
| 94c0 | 61 6c 20 67 69 74 2d 67 75 74 74 65 72 3a 68 61 73 2d 69 6e 64 69 72 65 63 74 2d 62 75 66 66 65 | al.git-gutter:has-indirect-buffe |
| 94e0 | 72 73 20 31 29 29 0a 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 | rs.1)).....(with-current-buffer. |
| 9500 | 28 61 70 70 6c 79 20 6f 6c 64 66 75 6e 20 62 61 73 65 2d 62 75 66 66 65 72 20 61 72 67 73 29 0a | (apply.oldfun.base-buffer.args). |
| 9520 | 20 20 20 20 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 6b 69 6c 6c 2d 62 75 66 66 65 72 2d 68 6f 6f | ......(add-hook.'kill-buffer-hoo |
| 9540 | 6b 20 23 27 67 69 74 2d 67 75 74 74 65 72 3a 6b 69 6c 6c 2d 69 6e 64 69 72 65 63 74 2d 62 75 66 | k.#'git-gutter:kill-indirect-buf |
| 9560 | 66 65 72 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 | fer.nil.t).......(current-buffer |
| 9580 | 29 29 29 29 0a 28 61 64 76 69 63 65 2d 61 64 64 20 27 6d 61 6b 65 2d 69 6e 64 69 72 65 63 74 2d | )))).(advice-add.'make-indirect- |
| 95a0 | 62 75 66 66 65 72 20 3a 61 72 6f 75 6e 64 20 23 27 67 69 74 2d 67 75 74 74 65 72 3a 6d 61 6b 65 | buffer.:around.#'git-gutter:make |
| 95c0 | 2d 69 6e 64 69 72 65 63 74 2d 62 75 66 66 65 72 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 75 | -indirect-buffer)..(defun.git-gu |
| 95e0 | 74 74 65 72 3a 76 63 2d 72 65 76 65 72 74 20 28 26 72 65 73 74 20 5f 61 72 67 73 29 0a 20 20 28 | tter:vc-revert.(&rest._args)...( |
| 9600 | 77 68 65 6e 20 67 69 74 2d 67 75 74 74 65 72 2d 6d 6f 64 65 0a 20 20 20 20 28 72 75 6e 2d 77 69 | when.git-gutter-mode.....(run-wi |
| 9620 | 74 68 2d 69 64 6c 65 2d 74 69 6d 65 72 20 30 2e 31 20 6e 69 6c 20 27 67 69 74 2d 67 75 74 74 65 | th-idle-timer.0.1.nil.'git-gutte |
| 9640 | 72 29 29 29 0a 28 61 64 76 69 63 65 2d 61 64 64 20 27 76 63 2d 72 65 76 65 72 74 20 3a 61 66 74 | r))).(advice-add.'vc-revert.:aft |
| 9660 | 65 72 20 23 27 67 69 74 2d 67 75 74 74 65 72 3a 76 63 2d 72 65 76 65 72 74 29 0a 0a 28 64 65 66 | er.#'git-gutter:vc-revert)..(def |
| 9680 | 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 74 6f 67 67 6c 65 2d 74 72 75 6e 63 61 74 65 2d 6c 69 | un.git-gutter:toggle-truncate-li |
| 96a0 | 6e 65 73 20 28 26 72 65 73 74 20 5f 61 72 67 73 29 0a 20 20 28 77 68 65 6e 20 28 61 6e 64 20 67 | nes.(&rest._args)...(when.(and.g |
| 96c0 | 69 74 2d 67 75 74 74 65 72 2d 6d 6f 64 65 20 67 69 74 2d 67 75 74 74 65 72 3a 76 69 73 75 61 6c | it-gutter-mode.git-gutter:visual |
| 96e0 | 2d 6c 69 6e 65 29 0a 20 20 20 20 28 72 75 6e 2d 77 69 74 68 2d 69 64 6c 65 2d 74 69 6d 65 72 20 | -line).....(run-with-idle-timer. |
| 9700 | 30 2e 31 20 6e 69 6c 20 27 67 69 74 2d 67 75 74 74 65 72 29 29 29 0a 28 61 64 76 69 63 65 2d 61 | 0.1.nil.'git-gutter))).(advice-a |
| 9720 | 64 64 20 27 74 6f 67 67 6c 65 2d 74 72 75 6e 63 61 74 65 2d 6c 69 6e 65 73 20 3a 61 66 74 65 72 | dd.'toggle-truncate-lines.:after |
| 9740 | 20 23 27 67 69 74 2d 67 75 74 74 65 72 3a 74 6f 67 67 6c 65 2d 74 72 75 6e 63 61 74 65 2d 6c 69 | .#'git-gutter:toggle-truncate-li |
| 9760 | 6e 65 73 29 0a 0a 3b 3b 20 60 71 75 69 74 2d 77 69 6e 64 6f 77 27 20 61 6e 64 20 60 73 77 69 74 | nes)..;;.`quit-window'.and.`swit |
| 9780 | 63 68 2d 74 6f 2d 62 75 66 66 65 72 27 20 61 72 65 20 63 61 6c 6c 65 64 20 66 72 6f 6d 20 6f 74 | ch-to-buffer'.are.called.from.ot |
| 97a0 | 68 65 72 0a 3b 3b 20 63 6f 6d 6d 61 6e 64 73 2e 20 53 6f 20 63 61 6c 6c 69 6e 67 20 67 69 74 2d | her.;;.commands..So.calling.git- |
| 97c0 | 67 75 74 74 65 72 20 66 72 6f 6d 20 60 70 6f 73 74 2d 63 6f 6d 6d 61 6e 64 2d 68 6f 6f 6b 27 20 | gutter.from.`post-command-hook'. |
| 97e0 | 69 73 20 6e 6f 74 20 65 6e 6f 75 67 68 2c 20 75 73 65 0a 3b 3b 20 61 64 76 69 63 65 73 20 69 6e | is.not.enough,.use.;;.advices.in |
| 9800 | 73 74 65 61 64 2e 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 71 75 69 74 2d 77 69 | stead..(defun.git-gutter:quit-wi |
| 9820 | 6e 64 6f 77 20 28 26 72 65 73 74 20 5f 61 72 67 73 29 0a 20 20 28 77 68 65 6e 20 67 69 74 2d 67 | ndow.(&rest._args)...(when.git-g |
| 9840 | 75 74 74 65 72 2d 6d 6f 64 65 0a 20 20 20 20 28 67 69 74 2d 67 75 74 74 65 72 29 29 29 0a 28 61 | utter-mode.....(git-gutter))).(a |
| 9860 | 64 76 69 63 65 2d 61 64 64 20 27 71 75 69 74 2d 77 69 6e 64 6f 77 20 3a 61 66 74 65 72 20 23 27 | dvice-add.'quit-window.:after.#' |
| 9880 | 67 69 74 2d 67 75 74 74 65 72 3a 71 75 69 74 2d 77 69 6e 64 6f 77 29 0a 0a 28 64 65 66 75 6e 20 | git-gutter:quit-window)..(defun. |
| 98a0 | 67 69 74 2d 67 75 74 74 65 72 3a 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 20 28 26 72 65 | git-gutter:switch-to-buffer.(&re |
| 98c0 | 73 74 20 5f 61 72 67 73 29 0a 20 20 28 77 68 65 6e 20 67 69 74 2d 67 75 74 74 65 72 2d 6d 6f 64 | st._args)...(when.git-gutter-mod |
| 98e0 | 65 0a 20 20 20 20 28 67 69 74 2d 67 75 74 74 65 72 29 29 29 0a 28 61 64 76 69 63 65 2d 61 64 64 | e.....(git-gutter))).(advice-add |
| 9900 | 20 27 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 20 3a 61 66 74 65 72 20 23 27 67 69 74 2d | .'switch-to-buffer.:after.#'git- |
| 9920 | 67 75 74 74 65 72 3a 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 29 0a 0a 28 64 65 66 75 6e | gutter:switch-to-buffer)..(defun |
| 9940 | 20 67 69 74 2d 67 75 74 74 65 72 3a 63 6c 65 61 72 20 28 29 0a 20 20 22 43 6c 65 61 72 20 64 69 | .git-gutter:clear.()..."Clear.di |
| 9960 | 66 66 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 69 6e 20 67 75 74 74 65 72 2e 22 0a 20 20 28 69 6e | ff.information.in.gutter."...(in |
| 9980 | 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 67 69 74 2d 67 75 74 74 65 72 2d 6d 6f 64 65 20 2d 31 | teractive)...(git-gutter-mode.-1 |
| 99a0 | 29 29 0a 28 6d 61 6b 65 2d 6f 62 73 6f 6c 65 74 65 20 27 67 69 74 2d 67 75 74 74 65 72 3a 63 6c | )).(make-obsolete.'git-gutter:cl |
| 99c0 | 65 61 72 20 23 27 67 69 74 2d 67 75 74 74 65 72 2d 6d 6f 64 65 20 22 30 2e 38 36 22 29 0a 0a 3b | ear.#'git-gutter-mode."0.86")..; |
| 99e0 | 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a | ;;###autoload.(defun.git-gutter: |
| 9a00 | 74 6f 67 67 6c 65 20 28 29 0a 20 20 22 54 6f 67 67 6c 65 20 74 6f 20 73 68 6f 77 20 64 69 66 66 | toggle.()..."Toggle.to.show.diff |
| 9a20 | 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 | .information."...(interactive).. |
| 9a40 | 20 28 69 66 20 67 69 74 2d 67 75 74 74 65 72 2d 6d 6f 64 65 0a 20 20 20 20 20 20 28 67 69 74 2d | .(if.git-gutter-mode.......(git- |
| 9a60 | 67 75 74 74 65 72 2d 6d 6f 64 65 20 2d 31 29 0a 20 20 20 20 28 67 69 74 2d 67 75 74 74 65 72 2d | gutter-mode.-1).....(git-gutter- |
| 9a80 | 6d 6f 64 65 20 2b 31 29 29 29 0a 28 6d 61 6b 65 2d 6f 62 73 6f 6c 65 74 65 20 27 67 69 74 2d 67 | mode.+1))).(make-obsolete.'git-g |
| 9aa0 | 75 74 74 65 72 3a 74 6f 67 67 6c 65 20 23 27 67 69 74 2d 67 75 74 74 65 72 2d 6d 6f 64 65 20 22 | utter:toggle.#'git-gutter-mode." |
| 9ac0 | 30 2e 38 36 22 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 72 65 76 69 73 69 | 0.86")..(defun.git-gutter:revisi |
| 9ae0 | 6f 6e 2d 76 61 6c 69 64 2d 70 20 28 72 65 76 69 73 69 6f 6e 29 0a 20 20 28 7a 65 72 6f 70 20 28 | on-valid-p.(revision)...(zerop.( |
| 9b00 | 63 6c 2d 63 61 73 65 20 67 69 74 2d 67 75 74 74 65 72 3a 76 63 73 2d 74 79 70 65 0a 20 20 20 20 | cl-case.git-gutter:vcs-type..... |
| 9b20 | 20 20 20 20 20 20 20 28 67 69 74 20 28 67 69 74 2d 67 75 74 74 65 72 3a 65 78 65 63 75 74 65 2d | .......(git.(git-gutter:execute- |
| 9b40 | 63 6f 6d 6d 61 6e 64 20 22 67 69 74 22 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | command."git".nil............... |
| 9b60 | 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 22 72 | .............................."r |
| 9b80 | 65 76 2d 70 61 72 73 65 22 20 22 2d 2d 71 75 69 65 74 22 20 22 2d 2d 76 65 72 69 66 79 22 0a 20 | ev-parse"."--quiet"."--verify".. |
| 9ba0 | 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 | ................................ |
| 9bc0 | 20 20 20 20 20 20 20 20 20 20 20 72 65 76 69 73 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 | ...........revision))........... |
| 9be0 | 20 28 73 76 6e 20 28 67 69 74 2d 67 75 74 74 65 72 3a 65 78 65 63 75 74 65 2d 63 6f 6d 6d 61 6e | .(svn.(git-gutter:execute-comman |
| 9c00 | 64 20 22 73 76 6e 22 20 6e 69 6c 20 22 69 6e 66 6f 22 20 22 2d 72 22 20 72 65 76 69 73 69 6f 6e | d."svn".nil."info"."-r".revision |
| 9c20 | 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 | ................................ |
| 9c40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 72 65 6c 61 74 69 76 65 2d 6e 61 6d 65 | .............(file-relative-name |
| 9c60 | 20 28 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 | .(buffer-file-name)))).......... |
| 9c80 | 20 20 28 68 67 20 28 67 69 74 2d 67 75 74 74 65 72 3a 65 78 65 63 75 74 65 2d 63 6f 6d 6d 61 6e | ..(hg.(git-gutter:execute-comman |
| 9ca0 | 64 20 22 68 67 22 20 6e 69 6c 20 22 69 64 22 20 22 2d 72 22 20 72 65 76 69 73 69 6f 6e 29 29 0a | d."hg".nil."id"."-r".revision)). |
| 9cc0 | 20 20 20 20 20 20 20 20 20 20 20 28 62 7a 72 20 28 67 69 74 2d 67 75 74 74 65 72 3a 65 78 65 63 | ...........(bzr.(git-gutter:exec |
| 9ce0 | 75 74 65 2d 63 6f 6d 6d 61 6e 64 20 22 62 7a 72 22 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 | ute-command."bzr".nil........... |
| 9d00 | 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 | ................................ |
| 9d20 | 20 20 22 72 65 76 6e 6f 22 20 22 2d 72 22 20 72 65 76 69 73 69 6f 6e 29 29 29 29 29 0a 0a 28 64 | .."revno"."-r".revision)))))..(d |
| 9d40 | 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 73 65 74 2d 73 74 61 72 74 2d 72 65 76 69 73 69 | efun.git-gutter:set-start-revisi |
| 9d60 | 6f 6e 20 28 73 74 61 72 74 2d 72 65 76 29 0a 20 20 22 53 65 74 20 73 74 61 72 74 20 72 65 76 69 | on.(start-rev)..."Set.start.revi |
| 9d80 | 73 69 6f 6e 2e 20 49 66 20 60 73 74 61 72 74 2d 72 65 76 27 20 69 73 20 6e 69 6c 20 6f 72 20 65 | sion..If.`start-rev'.is.nil.or.e |
| 9da0 | 6d 70 74 79 20 73 74 72 69 6e 67 20 74 68 65 6e 20 72 65 73 65 74 0a 73 74 61 72 74 20 72 65 76 | mpty.string.then.reset.start.rev |
| 9dc0 | 69 73 69 6f 6e 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 | ision."...(interactive....(list. |
| 9de0 | 28 72 65 61 64 2d 73 74 72 69 6e 67 20 22 53 74 61 72 74 20 52 65 76 69 73 69 6f 6e 3a 20 22 0a | (read-string."Start.Revision:.". |
| 9e00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 20 27 67 69 74 2d 67 | ......................nil.'git-g |
| 9e20 | 75 74 74 65 72 3a 72 65 76 69 73 69 6f 6e 2d 68 69 73 74 6f 72 79 29 29 29 0a 20 20 28 77 68 65 | utter:revision-history)))...(whe |
| 9e40 | 6e 20 28 61 6e 64 20 73 74 61 72 74 2d 72 65 76 20 28 6e 6f 74 20 28 73 74 72 69 6e 67 3d 20 73 | n.(and.start-rev.(not.(string=.s |
| 9e60 | 74 61 72 74 2d 72 65 76 20 22 22 29 29 29 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 28 67 69 74 2d | tart-rev.""))).....(unless.(git- |
| 9e80 | 67 75 74 74 65 72 3a 72 65 76 69 73 69 6f 6e 2d 76 61 6c 69 64 2d 70 20 73 74 61 72 74 2d 72 65 | gutter:revision-valid-p.start-re |
| 9ea0 | 76 29 0a 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 52 65 76 69 73 69 6f 6e 20 27 25 73 27 20 69 | v).......(error."Revision.'%s'.i |
| 9ec0 | 73 20 6e 6f 74 20 76 61 6c 69 64 2e 22 20 73 74 61 72 74 2d 72 65 76 29 29 29 0a 20 20 28 73 65 | s.not.valid.".start-rev)))...(se |
| 9ee0 | 74 71 20 67 69 74 2d 67 75 74 74 65 72 3a 73 74 61 72 74 2d 72 65 76 69 73 69 6f 6e 20 73 74 61 | tq.git-gutter:start-revision.sta |
| 9f00 | 72 74 2d 72 65 76 29 0a 20 20 28 67 69 74 2d 67 75 74 74 65 72 29 29 0a 0a 28 64 65 66 75 6e 20 | rt-rev)...(git-gutter))..(defun. |
| 9f20 | 67 69 74 2d 67 75 74 74 65 72 3a 75 70 64 61 74 65 2d 61 6c 6c 2d 77 69 6e 64 6f 77 73 20 28 29 | git-gutter:update-all-windows.() |
| 9f40 | 0a 20 20 22 55 70 64 61 74 65 20 67 69 74 2d 67 75 74 74 65 72 20 69 6e 66 6f 72 6d 61 74 69 6f | ..."Update.git-gutter.informatio |
| 9f60 | 6e 20 66 6f 72 20 61 6c 6c 20 76 69 73 69 62 6c 65 20 62 75 66 66 65 72 73 2e 22 0a 20 20 28 69 | n.for.all.visible.buffers."...(i |
| 9f80 | 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 64 6f 6c 69 73 74 20 28 62 75 66 20 28 62 75 66 66 | nteractive)...(dolist.(buf.(buff |
| 9fa0 | 65 72 2d 6c 69 73 74 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 67 65 74 2d 62 75 66 66 65 72 2d | er-list)).....(when.(get-buffer- |
| 9fc0 | 77 69 6e 64 6f 77 20 62 75 66 20 27 76 69 73 69 62 6c 65 29 0a 20 20 20 20 20 20 28 77 69 74 68 | window.buf.'visible).......(with |
| 9fe0 | 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 62 75 66 0a 20 20 20 20 20 20 20 20 28 77 68 65 | -current-buffer.buf.........(whe |
| a000 | 6e 20 67 69 74 2d 67 75 74 74 65 72 2d 6d 6f 64 65 0a 20 20 20 20 20 20 20 20 20 20 28 67 69 74 | n.git-gutter-mode...........(git |
| a020 | 2d 67 75 74 74 65 72 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 | -gutter))))))..(defun.git-gutter |
| a040 | 3a 73 74 61 72 74 2d 75 70 64 61 74 65 2d 74 69 6d 65 72 20 28 29 0a 20 20 28 69 6e 74 65 72 61 | :start-update-timer.()...(intera |
| a060 | 63 74 69 76 65 29 0a 20 20 28 77 68 65 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 75 70 64 61 74 65 | ctive)...(when.git-gutter:update |
| a080 | 2d 74 69 6d 65 72 0a 20 20 20 20 28 65 72 72 6f 72 20 22 55 70 64 61 74 65 20 74 69 6d 65 72 20 | -timer.....(error."Update.timer. |
| a0a0 | 69 73 20 61 6c 72 65 61 64 79 20 72 75 6e 6e 69 6e 67 2e 22 29 29 0a 20 20 28 73 65 74 71 20 67 | is.already.running."))...(setq.g |
| a0c0 | 69 74 2d 67 75 74 74 65 72 3a 75 70 64 61 74 65 2d 74 69 6d 65 72 0a 20 20 20 20 20 20 20 20 28 | it-gutter:update-timer.........( |
| a0e0 | 72 75 6e 2d 77 69 74 68 2d 69 64 6c 65 2d 74 69 6d 65 72 20 67 69 74 2d 67 75 74 74 65 72 3a 75 | run-with-idle-timer.git-gutter:u |
| a100 | 70 64 61 74 65 2d 69 6e 74 65 72 76 61 6c 20 74 20 27 67 69 74 2d 67 75 74 74 65 72 3a 6c 69 76 | pdate-interval.t.'git-gutter:liv |
| a120 | 65 2d 75 70 64 61 74 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 63 | e-update)))..(defun.git-gutter:c |
| a140 | 61 6e 63 65 6c 2d 75 70 64 61 74 65 2d 74 69 6d 65 72 20 28 29 0a 20 20 28 69 6e 74 65 72 61 63 | ancel-update-timer.()...(interac |
| a160 | 74 69 76 65 29 0a 20 20 28 75 6e 6c 65 73 73 20 67 69 74 2d 67 75 74 74 65 72 3a 75 70 64 61 74 | tive)...(unless.git-gutter:updat |
| a180 | 65 2d 74 69 6d 65 72 0a 20 20 20 20 28 65 72 72 6f 72 20 22 54 69 6d 65 72 20 69 73 20 6e 6f 20 | e-timer.....(error."Timer.is.no. |
| a1a0 | 72 75 6e 6e 69 6e 67 2e 22 29 29 0a 20 20 28 63 61 6e 63 65 6c 2d 74 69 6d 65 72 20 67 69 74 2d | running."))...(cancel-timer.git- |
| a1c0 | 67 75 74 74 65 72 3a 75 70 64 61 74 65 2d 74 69 6d 65 72 29 0a 20 20 28 73 65 74 71 20 67 69 74 | gutter:update-timer)...(setq.git |
| a1e0 | 2d 67 75 74 74 65 72 3a 75 70 64 61 74 65 2d 74 69 6d 65 72 20 6e 69 6c 29 29 0a 0a 28 64 65 66 | -gutter:update-timer.nil))..(def |
| a200 | 73 75 62 73 74 20 67 69 74 2d 67 75 74 74 65 72 3a 77 72 69 74 65 2d 63 75 72 72 65 6e 74 2d 63 | subst.git-gutter:write-current-c |
| a220 | 6f 6e 74 65 6e 74 20 28 74 6d 70 66 69 6c 65 29 0a 20 20 28 6c 65 74 20 28 28 63 6f 6e 74 65 6e | ontent.(tmpfile)...(let.((conten |
| a240 | 74 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 | t.(buffer-substring-no-propertie |
| a260 | 73 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 29 29 0a 20 20 20 | s.(point-min).(point-max)))).... |
| a280 | 20 28 77 69 74 68 2d 74 65 6d 70 2d 66 69 6c 65 20 74 6d 70 66 69 6c 65 0a 20 20 20 20 20 20 28 | .(with-temp-file.tmpfile.......( |
| a2a0 | 69 6e 73 65 72 74 20 63 6f 6e 74 65 6e 74 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 | insert.content))))..(defun.git-g |
| a2c0 | 75 74 74 65 72 3a 6f 72 69 67 69 6e 61 6c 2d 66 69 6c 65 2d 63 6f 6e 74 65 6e 74 20 28 66 69 6c | utter:original-file-content.(fil |
| a2e0 | 65 20 76 63 73 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 | e.vcs)...(with-temp-buffer.....( |
| a300 | 63 6c 2d 63 61 73 65 20 76 63 73 0a 20 20 20 20 20 20 28 67 69 74 0a 20 20 20 20 20 20 20 28 77 | cl-case.vcs.......(git........(w |
| a320 | 68 65 6e 20 28 7a 65 72 6f 70 20 28 70 72 6f 63 65 73 73 2d 66 69 6c 65 20 22 67 69 74 22 20 6e | hen.(zerop.(process-file."git".n |
| a340 | 69 6c 20 74 20 6e 69 6c 20 22 73 68 6f 77 22 20 28 63 6f 6e 63 61 74 20 22 3a 22 20 66 69 6c 65 | il.t.nil."show".(concat.":".file |
| a360 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 2d 6e | )))..........(buffer-substring-n |
| a380 | 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 20 28 70 6f 69 6e 74 2d | o-properties.(point-min).(point- |
| a3a0 | 6d 61 78 29 29 29 29 0a 20 20 20 20 20 20 28 28 73 76 6e 20 68 67 20 62 7a 72 29 0a 20 20 20 20 | max)))).......((svn.hg.bzr)..... |
| a3c0 | 20 20 20 28 6c 65 74 20 28 28 63 6f 6d 6d 61 6e 64 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 76 | ...(let.((command.(symbol-name.v |
| a3e0 | 63 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 7a 65 72 6f 70 20 28 70 72 6f | cs)))..........(when.(zerop.(pro |
| a400 | 63 65 73 73 2d 66 69 6c 65 20 63 6f 6d 6d 61 6e 64 20 6e 69 6c 20 74 20 6e 69 6c 20 22 63 61 74 | cess-file.command.nil.t.nil."cat |
| a420 | 22 20 66 69 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 2d 73 75 62 73 | ".file))............(buffer-subs |
| a440 | 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 20 | tring-no-properties.(point-min). |
| a460 | 28 70 6f 69 6e 74 2d 6d 61 78 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 | (point-max))))))))..(defun.git-g |
| a480 | 75 74 74 65 72 3a 77 72 69 74 65 2d 6f 72 69 67 69 6e 61 6c 2d 63 6f 6e 74 65 6e 74 20 28 74 6d | utter:write-original-content.(tm |
| a4a0 | 70 66 69 6c 65 20 66 69 6c 65 6e 61 6d 65 29 0a 20 20 28 67 69 74 2d 67 75 74 74 65 72 3a 61 77 | pfile.filename)...(git-gutter:aw |
| a4c0 | 68 65 6e 20 28 67 69 74 2d 67 75 74 74 65 72 3a 6f 72 69 67 69 6e 61 6c 2d 66 69 6c 65 2d 63 6f | hen.(git-gutter:original-file-co |
| a4e0 | 6e 74 65 6e 74 20 66 69 6c 65 6e 61 6d 65 20 67 69 74 2d 67 75 74 74 65 72 3a 76 63 73 2d 74 79 | ntent.filename.git-gutter:vcs-ty |
| a500 | 70 65 29 0a 20 20 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 66 69 6c 65 20 74 6d 70 66 69 6c 65 0a | pe).....(with-temp-file.tmpfile. |
| a520 | 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 69 74 29 0a 20 20 20 20 20 20 74 29 29 29 0a 0a 28 64 | ......(insert.it).......t)))..(d |
| a540 | 65 66 73 75 62 73 74 20 67 69 74 2d 67 75 74 74 65 72 3a 73 74 61 72 74 2d 72 61 77 2d 64 69 66 | efsubst.git-gutter:start-raw-dif |
| a560 | 66 2d 70 72 6f 63 65 73 73 20 28 70 72 6f 63 2d 62 75 66 20 6f 72 69 67 69 6e 61 6c 20 6e 6f 77 | f-process.(proc-buf.original.now |
| a580 | 29 0a 20 20 28 73 74 61 72 74 2d 66 69 6c 65 2d 70 72 6f 63 65 73 73 20 22 67 69 74 2d 67 75 74 | )...(start-file-process."git-gut |
| a5a0 | 74 65 72 3a 75 70 64 61 74 65 2d 74 69 6d 65 72 22 20 70 72 6f 63 2d 62 75 66 0a 20 20 20 20 20 | ter:update-timer".proc-buf...... |
| a5c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 64 69 66 66 22 20 22 2d 55 30 22 20 6f 72 | ................."diff"."-U0".or |
| a5e0 | 69 67 69 6e 61 6c 20 6e 6f 77 29 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a | iginal.now))..(defun.git-gutter: |
| a600 | 73 74 61 72 74 2d 6c 69 76 65 2d 75 70 64 61 74 65 20 28 66 69 6c 65 20 6f 72 69 67 69 6e 61 6c | start-live-update.(file.original |
| a620 | 20 6e 6f 77 29 0a 20 20 28 6c 65 74 20 28 28 70 72 6f 63 2d 62 75 66 6e 61 6d 65 20 28 67 69 74 | .now)...(let.((proc-bufname.(git |
| a640 | 2d 67 75 74 74 65 72 3a 64 69 66 66 2d 70 72 6f 63 65 73 73 2d 62 75 66 66 65 72 20 66 69 6c 65 | -gutter:diff-process-buffer.file |
| a660 | 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 67 65 74 2d 62 75 66 66 65 72 20 70 72 6f 63 2d 62 | ))).....(when.(get-buffer.proc-b |
| a680 | 75 66 6e 61 6d 65 29 0a 20 20 20 20 20 20 28 6b 69 6c 6c 2d 62 75 66 66 65 72 20 70 72 6f 63 2d | ufname).......(kill-buffer.proc- |
| a6a0 | 62 75 66 6e 61 6d 65 29 29 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 63 75 72 62 75 66 20 28 63 75 | bufname)).....(let*.((curbuf.(cu |
| a6c0 | 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 28 70 72 6f 63 2d | rrent-buffer))............(proc- |
| a6e0 | 62 75 66 20 28 67 65 74 2d 62 75 66 66 65 72 2d 63 72 65 61 74 65 20 70 72 6f 63 2d 62 75 66 6e | buf.(get-buffer-create.proc-bufn |
| a700 | 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 63 65 73 73 20 28 67 69 74 2d 67 | ame))............(process.(git-g |
| a720 | 75 74 74 65 72 3a 73 74 61 72 74 2d 72 61 77 2d 64 69 66 66 2d 70 72 6f 63 65 73 73 20 70 72 6f | utter:start-raw-diff-process.pro |
| a740 | 63 2d 62 75 66 20 6f 72 69 67 69 6e 61 6c 20 6e 6f 77 29 29 29 0a 20 20 20 20 20 20 28 73 65 74 | c-buf.original.now))).......(set |
| a760 | 2d 70 72 6f 63 65 73 73 2d 71 75 65 72 79 2d 6f 6e 2d 65 78 69 74 2d 66 6c 61 67 20 70 72 6f 63 | -process-query-on-exit-flag.proc |
| a780 | 65 73 73 20 6e 69 6c 29 0a 20 20 20 20 20 20 28 73 65 74 2d 70 72 6f 63 65 73 73 2d 73 65 6e 74 | ess.nil).......(set-process-sent |
| a7a0 | 69 6e 65 6c 0a 20 20 20 20 20 20 20 70 72 6f 63 65 73 73 0a 20 20 20 20 20 20 20 28 6c 61 6d 62 | inel........process........(lamb |
| a7c0 | 64 61 20 28 70 72 6f 63 20 5f 65 76 65 6e 74 29 0a 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 | da.(proc._event)..........(when. |
| a7e0 | 28 65 71 20 28 70 72 6f 63 65 73 73 2d 73 74 61 74 75 73 20 70 72 6f 63 29 20 27 65 78 69 74 29 | (eq.(process-status.proc).'exit) |
| a800 | 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 67 69 74 2d 67 75 74 74 65 72 3a 65 6e 61 | ............(setq.git-gutter:ena |
| a820 | 62 6c 65 64 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 64 69 66 66 | bled.nil)............(let.((diff |
| a840 | 69 6e 66 6f 73 20 28 67 69 74 2d 67 75 74 74 65 72 3a 70 72 6f 63 65 73 73 2d 64 69 66 66 2d 6f | infos.(git-gutter:process-diff-o |
| a860 | 75 74 70 75 74 20 28 70 72 6f 63 65 73 73 2d 62 75 66 66 65 72 20 70 72 6f 63 29 29 29 29 0a 20 | utput.(process-buffer.proc)))).. |
| a880 | 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 62 75 66 66 65 72 2d 6c 69 76 65 2d 70 | ............(when.(buffer-live-p |
| a8a0 | 20 63 75 72 62 75 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 | .curbuf)................(with-cu |
| a8c0 | 72 72 65 6e 74 2d 62 75 66 66 65 72 20 63 75 72 62 75 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 | rrent-buffer.curbuf............. |
| a8e0 | 20 20 20 20 20 28 67 69 74 2d 67 75 74 74 65 72 3a 75 70 64 61 74 65 2d 64 69 66 66 69 6e 66 6f | .....(git-gutter:update-diffinfo |
| a900 | 20 64 69 66 66 69 6e 66 6f 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 | .diffinfos)..................(se |
| a920 | 74 71 20 67 69 74 2d 67 75 74 74 65 72 3a 65 6e 61 62 6c 65 64 20 74 29 29 29 0a 20 20 20 20 20 | tq.git-gutter:enabled.t)))...... |
| a940 | 20 20 20 20 20 20 20 20 28 6b 69 6c 6c 2d 62 75 66 66 65 72 20 70 72 6f 63 2d 62 75 66 29 0a 20 | ........(kill-buffer.proc-buf).. |
| a960 | 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 66 69 6c 65 20 6f 72 69 67 69 6e 61 | ............(delete-file.origina |
| a980 | 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 66 69 6c 65 20 6e 6f 77 | l)..............(delete-file.now |
| a9a0 | 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 73 68 6f 75 | ))))))))..(defun.git-gutter:shou |
| a9c0 | 6c 64 2d 75 70 64 61 74 65 2d 70 20 28 29 0a 20 20 28 6c 65 74 20 28 28 63 68 61 72 73 2d 6d 6f | ld-update-p.()...(let.((chars-mo |
| a9e0 | 64 69 66 69 65 64 2d 74 69 63 6b 20 28 62 75 66 66 65 72 2d 63 68 61 72 73 2d 6d 6f 64 69 66 69 | dified-tick.(buffer-chars-modifi |
| aa00 | 65 64 2d 74 69 63 6b 29 29 29 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 28 65 71 75 61 6c 20 63 68 | ed-tick))).....(unless.(equal.ch |
| aa20 | 61 72 73 2d 6d 6f 64 69 66 69 65 64 2d 74 69 63 6b 20 67 69 74 2d 67 75 74 74 65 72 3a 6c 61 73 | ars-modified-tick.git-gutter:las |
| aa40 | 74 2d 63 68 61 72 73 2d 6d 6f 64 69 66 69 65 64 2d 74 69 63 6b 29 0a 20 20 20 20 20 20 28 73 65 | t-chars-modified-tick).......(se |
| aa60 | 74 71 20 67 69 74 2d 67 75 74 74 65 72 3a 6c 61 73 74 2d 63 68 61 72 73 2d 6d 6f 64 69 66 69 65 | tq.git-gutter:last-chars-modifie |
| aa80 | 64 2d 74 69 63 6b 20 63 68 61 72 73 2d 6d 6f 64 69 66 69 65 64 2d 74 69 63 6b 29 29 29 29 0a 0a | d-tick.chars-modified-tick)))).. |
| aaa0 | 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 76 63 73 2d 72 6f 6f 74 20 28 76 63 73 29 | (defun.git-gutter:vcs-root.(vcs) |
| aac0 | 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 63 6c 2d 63 61 73 | ...(with-temp-buffer.....(cl-cas |
| aae0 | 65 20 76 63 73 0a 20 20 20 20 20 20 28 67 69 74 0a 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 7a | e.vcs.......(git........(when.(z |
| ab00 | 65 72 6f 70 20 28 70 72 6f 63 65 73 73 2d 66 69 6c 65 20 22 67 69 74 22 20 6e 69 6c 20 74 20 6e | erop.(process-file."git".nil.t.n |
| ab20 | 69 6c 20 22 72 65 76 2d 70 61 72 73 65 22 20 22 2d 2d 73 68 6f 77 2d 74 6f 70 6c 65 76 65 6c 22 | il."rev-parse"."--show-toplevel" |
| ab40 | 29 29 0a 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 | ))..........(goto-char.(point-mi |
| ab60 | 6e 29 29 0a 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 61 73 2d 64 69 72 65 63 | n))..........(file-name-as-direc |
| ab80 | 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 | tory...........(buffer-substring |
| aba0 | 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 28 70 6f 69 6e 74 29 20 28 6c 69 6e 65 2d 65 6e 64 | -no-properties.(point).(line-end |
| abc0 | 2d 70 6f 73 69 74 69 6f 6e 29 29 29 29 29 0a 20 20 20 20 20 20 28 73 76 6e 0a 20 20 20 20 20 20 | -position))))).......(svn....... |
| abe0 | 20 28 77 68 65 6e 20 28 7a 65 72 6f 70 20 28 70 72 6f 63 65 73 73 2d 66 69 6c 65 20 22 73 76 6e | .(when.(zerop.(process-file."svn |
| ac00 | 22 20 6e 69 6c 20 74 20 6e 69 6c 20 22 69 6e 66 6f 22 29 29 0a 20 20 20 20 20 20 20 20 20 28 67 | ".nil.t.nil."info"))..........(g |
| ac20 | 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 20 20 28 | oto-char.(point-min))..........( |
| ac40 | 77 68 65 6e 20 28 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 5e 57 6f 72 6b 69 6e | when.(re-search-forward."^Workin |
| ac60 | 67 20 43 6f 70 79 20 52 6f 6f 74 20 50 61 74 68 3a 20 5c 28 2e 2b 5c 29 24 22 20 6e 69 6c 20 74 | g.Copy.Root.Path:.\(.+\)$".nil.t |
| ac80 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 61 73 2d 64 69 72 65 63 | )............(file-name-as-direc |
| aca0 | 74 6f 72 79 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 | tory.(match-string-no-properties |
| acc0 | 20 31 29 29 29 29 29 0a 20 20 20 20 20 20 28 28 68 67 20 62 7a 72 29 0a 20 20 20 20 20 20 20 28 | .1))))).......((hg.bzr)........( |
| ace0 | 6c 65 74 20 28 28 63 6f 6d 6d 61 6e 64 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 76 63 73 29 29 | let.((command.(symbol-name.vcs)) |
| ad00 | 29 0a 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 7a 65 72 6f 70 20 28 70 72 6f 63 65 73 73 | )..........(when.(zerop.(process |
| ad20 | 2d 66 69 6c 65 20 63 6f 6d 6d 61 6e 64 20 6e 69 6c 20 74 20 6e 69 6c 20 22 72 6f 6f 74 22 29 29 | -file.command.nil.t.nil."root")) |
| ad40 | 0a 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 69 | ............(goto-char.(point-mi |
| ad60 | 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 61 73 2d 64 69 72 | n))............(file-name-as-dir |
| ad80 | 65 63 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 | ectory.............(buffer-subst |
| ada0 | 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 28 70 6f 69 6e 74 29 20 28 6c 69 6e 65 | ring-no-properties.(point).(line |
| adc0 | 2d 65 6e 64 2d 70 6f 73 69 74 69 6f 6e 29 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 | -end-position)))))))))..(defun.g |
| ade0 | 69 74 2d 67 75 74 74 65 72 3a 6c 69 76 65 2d 75 70 64 61 74 65 20 28 29 0a 20 20 28 67 69 74 2d | it-gutter:live-update.()...(git- |
| ae00 | 67 75 74 74 65 72 3a 61 77 68 65 6e 20 28 67 69 74 2d 67 75 74 74 65 72 3a 62 61 73 65 2d 66 69 | gutter:awhen.(git-gutter:base-fi |
| ae20 | 6c 65 29 0a 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 67 69 74 2d 67 75 74 74 65 72 3a 65 6e | le).....(when.(and.git-gutter:en |
| ae40 | 61 62 6c 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 69 74 2d 67 75 74 74 65 72 | abled................(git-gutter |
| ae60 | 3a 73 68 6f 75 6c 64 2d 75 70 64 61 74 65 2d 70 29 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 | :should-update-p)).......(let.(( |
| ae80 | 66 69 6c 65 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 6e 6f 6e 64 69 72 65 63 74 6f 72 79 20 69 74 29 | file.(file-name-nondirectory.it) |
| aea0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 72 6f 6f 74 20 28 66 69 6c 65 2d 74 72 75 65 6e 61 | ).............(root.(file-truena |
| aec0 | 6d 65 20 28 67 69 74 2d 67 75 74 74 65 72 3a 76 63 73 2d 72 6f 6f 74 20 67 69 74 2d 67 75 74 74 | me.(git-gutter:vcs-root.git-gutt |
| aee0 | 65 72 3a 76 63 73 2d 74 79 70 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 77 20 | er:vcs-type))).............(now. |
| af00 | 28 6d 61 6b 65 2d 74 65 6d 70 2d 66 69 6c 65 20 22 67 69 74 2d 67 75 74 74 65 72 2d 63 75 72 22 | (make-temp-file."git-gutter-cur" |
| af20 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 69 67 69 6e 61 6c 20 28 6d 61 6b 65 2d 74 | )).............(original.(make-t |
| af40 | 65 6d 70 2d 66 69 6c 65 20 22 67 69 74 2d 67 75 74 74 65 72 2d 6f 72 69 67 22 29 29 29 0a 20 20 | emp-file."git-gutter-orig")))... |
| af60 | 20 20 20 20 20 20 28 69 66 20 28 67 69 74 2d 67 75 74 74 65 72 3a 77 72 69 74 65 2d 6f 72 69 67 | ......(if.(git-gutter:write-orig |
| af80 | 69 6e 61 6c 2d 63 6f 6e 74 65 6e 74 20 6f 72 69 67 69 6e 61 6c 20 28 66 69 6c 65 2d 72 65 6c 61 | inal-content.original.(file-rela |
| afa0 | 74 69 76 65 2d 6e 61 6d 65 20 69 74 20 72 6f 6f 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | tive-name.it.root))............. |
| afc0 | 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 69 74 2d 67 75 74 74 65 72 | (progn...............(git-gutter |
| afe0 | 3a 77 72 69 74 65 2d 63 75 72 72 65 6e 74 2d 63 6f 6e 74 65 6e 74 20 6e 6f 77 29 0a 20 20 20 20 | :write-current-content.now)..... |
| b000 | 20 20 20 20 20 20 20 20 20 20 28 67 69 74 2d 67 75 74 74 65 72 3a 73 74 61 72 74 2d 6c 69 76 65 | ..........(git-gutter:start-live |
| b020 | 2d 75 70 64 61 74 65 20 66 69 6c 65 20 6f 72 69 67 69 6e 61 6c 20 6e 6f 77 29 29 0a 20 20 20 20 | -update.file.original.now))..... |
| b040 | 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 66 69 6c 65 20 6e 6f 77 29 0a 20 20 20 20 20 20 20 20 | ......(delete-file.now)......... |
| b060 | 20 20 28 64 65 6c 65 74 65 2d 66 69 6c 65 20 6f 72 69 67 69 6e 61 6c 29 29 29 29 29 29 0a 0a 3b | ..(delete-file.original))))))..; |
| b080 | 3b 20 66 6f 72 20 6c 69 6e 75 6d 2d 75 73 65 72 0a 28 77 68 65 6e 20 28 61 6e 64 20 28 62 6f 75 | ;.for.linum-user.(when.(and.(bou |
| b0a0 | 6e 64 2d 61 6e 64 2d 74 72 75 65 2d 70 20 67 6c 6f 62 61 6c 2d 6c 69 6e 75 6d 2d 6d 6f 64 65 29 | nd-and-true-p.global-linum-mode) |
| b0c0 | 20 28 6e 6f 74 20 28 62 6f 75 6e 64 70 20 27 67 69 74 2d 67 75 74 74 65 72 2d 66 72 69 6e 67 65 | .(not.(boundp.'git-gutter-fringe |
| b0e0 | 29 29 29 0a 20 20 28 67 69 74 2d 67 75 74 74 65 72 3a 6c 69 6e 75 6d 2d 73 65 74 75 70 29 29 0a | )))...(git-gutter:linum-setup)). |
| b100 | 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 61 6c 6c 2d 68 75 6e 6b 73 20 28 29 0a | .(defun.git-gutter:all-hunks.(). |
| b120 | 20 20 22 43 6f 75 6e 64 20 75 6e 73 74 61 67 65 64 20 68 75 6e 6b 73 20 69 6e 20 61 6c 6c 20 62 | .."Cound.unstaged.hunks.in.all.b |
| b140 | 75 66 66 65 72 73 22 0a 20 20 28 6c 65 74 20 28 28 73 75 6d 20 30 29 29 0a 20 20 20 20 28 64 6f | uffers"...(let.((sum.0)).....(do |
| b160 | 6c 69 73 74 20 28 62 75 66 20 28 62 75 66 66 65 72 2d 6c 69 73 74 29 29 0a 20 20 20 20 20 20 28 | list.(buf.(buffer-list)).......( |
| b180 | 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 62 75 66 0a 20 20 20 20 20 20 20 20 | with-current-buffer.buf......... |
| b1a0 | 28 77 68 65 6e 20 67 69 74 2d 67 75 74 74 65 72 2d 6d 6f 64 65 0a 20 20 20 20 20 20 20 20 20 20 | (when.git-gutter-mode........... |
| b1c0 | 28 63 6c 2d 69 6e 63 66 20 73 75 6d 20 28 67 69 74 2d 67 75 74 74 65 72 3a 62 75 66 66 65 72 2d | (cl-incf.sum.(git-gutter:buffer- |
| b1e0 | 68 75 6e 6b 73 29 29 29 29 29 0a 20 20 20 20 73 75 6d 29 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 | hunks))))).....sum))..(defun.git |
| b200 | 2d 67 75 74 74 65 72 3a 62 75 66 66 65 72 2d 68 75 6e 6b 73 20 28 29 0a 20 20 22 43 6f 75 6e 74 | -gutter:buffer-hunks.()..."Count |
| b220 | 20 75 6e 73 74 61 67 65 64 20 68 75 6e 6b 73 20 69 6e 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 | .unstaged.hunks.in.current.buffe |
| b240 | 72 2e 22 0a 20 20 28 6c 65 6e 67 74 68 20 67 69 74 2d 67 75 74 74 65 72 3a 64 69 66 66 69 6e 66 | r."...(length.git-gutter:diffinf |
| b260 | 6f 73 29 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 73 74 61 74 2d 68 75 6e | os))..(defun.git-gutter:stat-hun |
| b280 | 6b 20 28 68 75 6e 6b 29 0a 20 20 28 63 6c 2d 63 61 73 65 20 28 67 69 74 2d 67 75 74 74 65 72 2d | k.(hunk)...(cl-case.(git-gutter- |
| b2a0 | 68 75 6e 6b 2d 74 79 70 65 20 68 75 6e 6b 29 0a 20 20 20 20 28 6d 6f 64 69 66 69 65 64 20 28 77 | hunk-type.hunk).....(modified.(w |
| b2c0 | 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ith-temp-buffer................. |
| b2e0 | 28 69 6e 73 65 72 74 20 28 67 69 74 2d 67 75 74 74 65 72 2d 68 75 6e 6b 2d 63 6f 6e 74 65 6e 74 | (insert.(git-gutter-hunk-content |
| b300 | 20 68 75 6e 6b 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 | .hunk)).................(goto-ch |
| b320 | 61 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 20 20 20 20 20 20 | ar.(point-min))................. |
| b340 | 28 6c 65 74 20 28 28 61 64 64 65 64 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (let.((added.0)................. |
| b360 | 20 20 20 20 20 20 28 64 65 6c 65 74 65 64 20 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ......(deleted.0)).............. |
| b380 | 20 20 20 20 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 | .....(while.(not.(eobp))........ |
| b3a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 6c 6f 6f 6b 69 6e 67 2d 61 74 2d | .............(cond.((looking-at- |
| b3c0 | 70 20 22 5c 5c 2b 22 29 20 28 63 6c 2d 69 6e 63 66 20 61 64 64 65 64 29 29 0a 20 20 20 20 20 20 | p."\\+").(cl-incf.added))....... |
| b3e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6c 6f 6f 6b 69 6e 67 2d 61 74 | ....................((looking-at |
| b400 | 2d 70 20 22 5c 5c 2d 22 29 20 28 63 6c 2d 69 6e 63 66 20 64 65 6c 65 74 65 64 29 29 29 0a 20 20 | -p."\\-").(cl-incf.deleted)))... |
| b420 | 20 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 20 | ..................(forward-line. |
| b440 | 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 61 64 64 65 | 1))...................(cons.adde |
| b460 | 64 20 64 65 6c 65 74 65 64 29 29 29 29 0a 20 20 20 20 28 61 64 64 65 64 20 28 63 6f 6e 73 20 28 | d.deleted)))).....(added.(cons.( |
| b480 | 2d 20 28 67 69 74 2d 67 75 74 74 65 72 2d 68 75 6e 6b 2d 65 6e 64 2d 6c 69 6e 65 20 68 75 6e 6b | -.(git-gutter-hunk-end-line.hunk |
| b4a0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 69 74 2d 67 75 74 74 65 | ).....................(git-gutte |
| b4c0 | 72 2d 68 75 6e 6b 2d 73 74 61 72 74 2d 6c 69 6e 65 20 68 75 6e 6b 29 29 0a 20 20 20 20 20 20 20 | r-hunk-start-line.hunk))........ |
| b4e0 | 20 20 20 20 20 20 20 20 20 20 30 29 29 0a 20 20 20 20 28 64 65 6c 65 74 65 64 20 28 63 6f 6e 73 | ..........0)).....(deleted.(cons |
| b500 | 20 30 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2d 20 28 67 69 74 2d 67 75 | .0....................(-.(git-gu |
| b520 | 74 74 65 72 2d 68 75 6e 6b 2d 65 6e 64 2d 6c 69 6e 65 20 68 75 6e 6b 29 0a 20 20 20 20 20 20 20 | tter-hunk-end-line.hunk)........ |
| b540 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 69 74 2d 67 75 74 74 65 72 2d 68 75 6e 6b 2d | ...............(git-gutter-hunk- |
| b560 | 73 74 61 72 74 2d 6c 69 6e 65 20 68 75 6e 6b 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 69 | start-line.hunk))))))..(defun.gi |
| b580 | 74 2d 67 75 74 74 65 72 3a 73 74 61 74 69 73 74 69 63 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 | t-gutter:statistic.()..."Return. |
| b5a0 | 73 74 61 74 69 73 74 69 63 20 75 6e 73 74 61 67 65 64 20 68 75 6e 6b 73 20 69 6e 20 63 75 72 72 | statistic.unstaged.hunks.in.curr |
| b5c0 | 65 6e 74 20 62 75 66 66 65 72 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 | ent.buffer."...(interactive)...( |
| b5e0 | 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 68 75 6e 6b 20 69 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 64 | cl-loop.for.hunk.in.git-gutter:d |
| b600 | 69 66 66 69 6e 66 6f 73 0a 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 28 61 64 64 20 2e 20 64 | iffinfos............for.(add...d |
| b620 | 65 6c 29 20 3d 20 28 67 69 74 2d 67 75 74 74 65 72 3a 73 74 61 74 2d 68 75 6e 6b 20 68 75 6e 6b | el).=.(git-gutter:stat-hunk.hunk |
| b640 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 73 75 6d 20 61 64 64 20 69 6e 74 6f 20 61 64 64 65 64 0a | )............sum.add.into.added. |
| b660 | 20 20 20 20 20 20 20 20 20 20 20 73 75 6d 20 64 65 6c 20 69 6e 74 6f 20 64 65 6c 65 74 65 64 0a | ...........sum.del.into.deleted. |
| b680 | 20 20 20 20 20 20 20 20 20 20 20 66 69 6e 61 6c 6c 79 0a 20 20 20 20 20 20 20 20 20 20 20 72 65 | ...........finally............re |
| b6a0 | 74 75 72 6e 20 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 | turn.(progn..................... |
| b6c0 | 28 77 68 65 6e 20 28 63 61 6c 6c 65 64 2d 69 6e 74 65 72 61 63 74 69 76 65 6c 79 2d 70 20 27 69 | (when.(called-interactively-p.'i |
| b6e0 | 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nteractive)..................... |
| b700 | 20 20 28 6d 65 73 73 61 67 65 20 22 41 64 64 65 64 20 25 64 20 6c 69 6e 65 73 2c 20 44 65 6c 65 | ..(message."Added.%d.lines,.Dele |
| b720 | 74 65 64 20 25 64 20 6c 69 6e 65 73 22 20 61 64 64 65 64 20 64 65 6c 65 74 65 64 29 29 0a 20 20 | ted.%d.lines".added.deleted))... |
| b740 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 61 64 64 65 64 20 64 65 | ..................(cons.added.de |
| b760 | 6c 65 74 65 64 29 29 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 67 69 74 2d 67 75 74 74 65 72 29 | leted))))..(provide.'git-gutter) |
| b780 | 0a 0a 3b 3b 3b 20 67 69 74 2d 67 75 74 74 65 72 2e 65 6c 20 65 6e 64 73 20 68 65 72 65 0a 0a 3b | ..;;;.git-gutter.el.ends.here..; |
| b7a0 | 3b 20 4c 6f 63 61 6c 20 56 61 72 69 61 62 6c 65 73 3a 0a 3b 3b 20 66 69 6c 6c 2d 63 6f 6c 75 6d | ;.Local.Variables:.;;.fill-colum |
| b7c0 | 6e 3a 20 38 35 0a 3b 3b 20 69 6e 64 65 6e 74 2d 74 61 62 73 2d 6d 6f 64 65 3a 20 6e 69 6c 0a 3b | n:.85.;;.indent-tabs-mode:.nil.; |
| b7e0 | 3b 20 65 6c 69 73 70 2d 6c 69 6e 74 2d 69 6e 64 65 6e 74 2d 73 70 65 63 73 3a 20 28 28 67 69 74 | ;.elisp-lint-indent-specs:.((git |
| b800 | 2d 67 75 74 74 65 72 3a 61 77 68 65 6e 20 2e 20 31 29 29 0a 3b 3b 20 45 6e 64 3a 0a 00 00 00 00 | -gutter:awhen...1)).;;.End:..... |
| b820 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b840 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b860 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b880 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b8a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b8c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b8e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b900 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b920 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b940 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b960 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b980 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b9a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b9c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b9e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ba00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ba20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ba40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ba60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ba80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| baa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bae0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bb00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bb20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bb40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bb60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bb80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bbc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bbe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bc00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bc20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bc40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bc60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bc80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bca0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bcc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bce0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bd00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bd20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bd40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bd60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bd80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bda0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bdc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bde0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| be00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| be20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| be40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| be60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| be80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bea0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bec0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bee0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bf00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bf20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bf40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bf60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bf80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bfa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bfc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bfe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c000 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c020 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c040 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c060 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c080 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c0a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c0c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c0e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c100 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c120 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c140 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c160 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c180 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c1a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c1c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c1e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c200 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c220 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c240 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c260 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c280 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c2a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c2c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c2e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c300 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c320 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c3a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c3c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c3e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c400 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c420 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c440 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c460 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c480 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c4a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c4c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c4e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c500 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c520 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c540 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c560 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c580 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c5a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c5c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c5e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c600 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c620 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c640 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c660 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c680 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c6a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c6c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c6e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c700 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c720 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c740 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c760 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c780 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c7a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c7c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c7e0 | 00 00 00 00 00 00 00 00 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: 735971d7f2709bdc8263863fc91debe96617fa56 (plain)