| ofs | hex dump | ascii |
|---|---|---|
| 0000 | 67 69 74 2d 67 75 74 74 65 72 2d 32 30 32 34 31 32 31 32 2e 31 34 31 35 2f 00 00 00 00 00 00 00 | git-gutter-20241212.1415/....... |
| 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 37 34 00 20 35 00 00 00 | 0000000.00000000000.013074..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 34 31 32 31 32 2e 31 34 31 35 2f 67 69 74 2d 67 75 74 | git-gutter-20241212.1415/git-gut |
| 0220 | 74 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 | ter-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 32 37 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 32 37 36 00 20 30 00 00 00 | 0000727.00000000000.016276..0... |
| 02a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 02c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 02e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0300 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 0320 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 0340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 03a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 03c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 03e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0400 | 3b 3b 20 2d 2a 2d 20 6e 6f 2d 62 79 74 65 2d 63 6f 6d 70 69 6c 65 3a 20 74 3b 20 6c 65 78 69 63 | ;;.-*-.no-byte-compile:.t;.lexic |
| 0420 | 61 6c 2d 62 69 6e 64 69 6e 67 3a 20 6e 69 6c 20 2d 2a 2d 0a 28 64 65 66 69 6e 65 2d 70 61 63 6b | al-binding:.nil.-*-.(define-pack |
| 0440 | 61 67 65 20 22 67 69 74 2d 67 75 74 74 65 72 22 20 22 32 30 32 34 31 32 31 32 2e 31 34 31 35 22 | age."git-gutter"."20241212.1415" |
| 0460 | 0a 20 20 22 50 6f 72 74 20 6f 66 20 53 75 62 6c 69 6d 65 20 54 65 78 74 20 70 6c 75 67 69 6e 20 | ..."Port.of.Sublime.Text.plugin. |
| 0480 | 47 69 74 47 75 74 74 65 72 2e 22 0a 20 20 27 28 28 65 6d 61 63 73 20 22 32 35 2e 31 22 29 29 0a | GitGutter."...'((emacs."25.1")). |
| 04a0 | 20 20 3a 75 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 | ..:url."https://github.com/emacs |
| 04c0 | 6f 72 70 68 61 6e 61 67 65 2f 67 69 74 2d 67 75 74 74 65 72 22 0a 20 20 3a 63 6f 6d 6d 69 74 20 | orphanage/git-gutter"...:commit. |
| 04e0 | 22 33 62 64 65 61 64 31 37 64 62 37 62 38 34 32 37 30 63 30 30 65 35 61 36 62 35 61 64 30 32 66 | "3bdead17db7b84270c00e5a6b5ad02f |
| 0500 | 61 38 37 64 64 64 35 32 65 22 0a 20 20 3a 72 65 76 64 65 73 63 20 22 33 62 64 65 61 64 31 37 64 | a87ddd52e"...:revdesc."3bdead17d |
| 0520 | 62 37 62 22 0a 20 20 3a 61 75 74 68 6f 72 73 20 27 28 28 22 53 79 6f 68 65 69 20 59 4f 53 48 49 | b7b"...:authors.'(("Syohei.YOSHI |
| 0540 | 44 41 22 20 2e 20 22 73 79 6f 68 65 78 40 67 6d 61 69 6c 2e 63 6f 6d 22 29 29 0a 20 20 3a 6d 61 | DA"..."syohex@gmail.com"))...:ma |
| 0560 | 69 6e 74 61 69 6e 65 72 73 20 27 28 28 22 4e 65 69 6c 20 4f 6b 61 6d 6f 74 6f 22 20 2e 20 22 6e | intainers.'(("Neil.Okamoto"..."n |
| 0580 | 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 22 29 0a 20 20 | eil.okamoto+melpa@gmail.com")... |
| 05a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 22 4a 65 6e 2d 43 68 69 65 68 22 20 2e 20 22 6a | ...............("Jen-Chieh"..."j |
| 05c0 | 63 73 30 39 30 32 31 38 40 67 6d 61 69 6c 2e 63 6f 6d 22 29 29 29 0a 00 00 00 00 00 00 00 00 00 | cs090218@gmail.com"))).......... |
| 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 34 31 32 31 32 2e 31 34 31 35 2f 67 69 74 2d 67 75 74 | git-gutter-20241212.1415/git-gut |
| 0620 | 74 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 | ter.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 31 34 34 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 35 31 34 00 20 30 00 00 00 | 0130144.00000000000.015514..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 34 20 53 68 65 6e 2c 20 4a 65 | Copyright.(C).2020-2024.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 50 61 63 6b 61 67 65 2d 56 65 72 73 | anage/git-gutter.;;.Package-Vers |
| 0a00 | 69 6f 6e 3a 20 32 30 32 34 31 32 31 32 2e 31 34 31 35 0a 3b 3b 20 50 61 63 6b 61 67 65 2d 52 65 | ion:.20241212.1415.;;.Package-Re |
| 0a20 | 76 69 73 69 6f 6e 3a 20 33 62 64 65 61 64 31 37 64 62 37 62 0a 3b 3b 20 50 61 63 6b 61 67 65 2d | vision:.3bdead17db7b.;;.Package- |
| 0a40 | 52 65 71 75 69 72 65 73 3a 20 28 28 65 6d 61 63 73 20 22 32 35 2e 31 22 29 29 0a 0a 3b 3b 20 54 | Requires:.((emacs."25.1"))..;;.T |
| 0a60 | 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 66 72 65 65 20 73 6f 66 74 77 61 72 65 3b 20 79 6f | his.program.is.free.software;.yo |
| 0a80 | 75 20 63 61 6e 20 72 65 64 69 73 74 72 69 62 75 74 65 20 69 74 20 61 6e 64 2f 6f 72 20 6d 6f 64 | u.can.redistribute.it.and/or.mod |
| 0aa0 | 69 66 79 0a 3b 3b 20 69 74 20 75 6e 64 65 72 20 74 68 65 20 74 65 72 6d 73 20 6f 66 20 74 68 65 | ify.;;.it.under.the.terms.of.the |
| 0ac0 | 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 65 20 61 73 20 70 | .GNU.General.Public.License.as.p |
| 0ae0 | 75 62 6c 69 73 68 65 64 20 62 79 0a 3b 3b 20 74 68 65 20 46 72 65 65 20 53 6f 66 74 77 61 72 65 | ublished.by.;;.the.Free.Software |
| 0b00 | 20 46 6f 75 6e 64 61 74 69 6f 6e 2c 20 65 69 74 68 65 72 20 76 65 72 73 69 6f 6e 20 33 20 6f 66 | .Foundation,.either.version.3.of |
| 0b20 | 20 74 68 65 20 4c 69 63 65 6e 73 65 2c 20 6f 72 0a 3b 3b 20 28 61 74 20 79 6f 75 72 20 6f 70 74 | .the.License,.or.;;.(at.your.opt |
| 0b40 | 69 6f 6e 29 20 61 6e 79 20 6c 61 74 65 72 20 76 65 72 73 69 6f 6e 2e 0a 0a 3b 3b 20 54 68 69 73 | ion).any.later.version...;;.This |
| 0b60 | 20 70 72 6f 67 72 61 6d 20 69 73 20 64 69 73 74 72 69 62 75 74 65 64 20 69 6e 20 74 68 65 20 68 | .program.is.distributed.in.the.h |
| 0b80 | 6f 70 65 20 74 68 61 74 20 69 74 20 77 69 6c 6c 20 62 65 20 75 73 65 66 75 6c 2c 0a 3b 3b 20 62 | ope.that.it.will.be.useful,.;;.b |
| 0ba0 | 75 74 20 57 49 54 48 4f 55 54 20 41 4e 59 20 57 41 52 52 41 4e 54 59 3b 20 77 69 74 68 6f 75 74 | ut.WITHOUT.ANY.WARRANTY;.without |
| 0bc0 | 20 65 76 65 6e 20 74 68 65 20 69 6d 70 6c 69 65 64 20 77 61 72 72 61 6e 74 79 20 6f 66 0a 3b 3b | .even.the.implied.warranty.of.;; |
| 0be0 | 20 4d 45 52 43 48 41 4e 54 41 42 49 4c 49 54 59 20 6f 72 20 46 49 54 4e 45 53 53 20 46 4f 52 20 | .MERCHANTABILITY.or.FITNESS.FOR. |
| 0c00 | 41 20 50 41 52 54 49 43 55 4c 41 52 20 50 55 52 50 4f 53 45 2e 20 20 53 65 65 20 74 68 65 0a 3b | A.PARTICULAR.PURPOSE...See.the.; |
| 0c20 | 3b 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 65 20 66 6f 72 | ;.GNU.General.Public.License.for |
| 0c40 | 20 6d 6f 72 65 20 64 65 74 61 69 6c 73 2e 0a 0a 3b 3b 20 59 6f 75 20 73 68 6f 75 6c 64 20 68 61 | .more.details...;;.You.should.ha |
| 0c60 | 76 65 20 72 65 63 65 69 76 65 64 20 61 20 63 6f 70 79 20 6f 66 20 74 68 65 20 47 4e 55 20 47 65 | ve.received.a.copy.of.the.GNU.Ge |
| 0c80 | 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 0a 3b 3b 20 61 6c 6f 6e 67 20 77 69 | neral.Public.License.;;.along.wi |
| 0ca0 | 74 68 20 74 68 69 73 20 70 72 6f 67 72 61 6d 2e 20 20 49 66 20 6e 6f 74 2c 20 73 65 65 20 3c 68 | th.this.program...If.not,.see.<h |
| 0cc0 | 74 74 70 3a 2f 2f 77 77 77 2e 67 6e 75 2e 6f 72 67 2f 6c 69 63 65 6e 73 65 73 2f 3e 2e 0a 0a 3b | ttp://www.gnu.org/licenses/>...; |
| 0ce0 | 3b 3b 20 43 6f 6d 6d 65 6e 74 61 72 79 3a 0a 3b 3b 0a 3b 3b 20 50 6f 72 74 20 6f 66 20 47 69 74 | ;;.Commentary:.;;.;;.Port.of.Git |
| 0d00 | 47 75 74 74 65 72 20 77 68 69 63 68 20 69 73 20 61 20 70 6c 75 67 69 6e 20 6f 66 20 53 75 62 6c | Gutter.which.is.a.plugin.of.Subl |
| 0d20 | 69 6d 65 20 54 65 78 74 0a 0a 3b 3b 3b 20 43 6f 64 65 3a 0a 0a 28 72 65 71 75 69 72 65 20 27 63 | ime.Text..;;;.Code:..(require.'c |
| 0d40 | 6c 2d 6c 69 62 29 0a 0a 28 64 65 66 67 72 6f 75 70 20 67 69 74 2d 67 75 74 74 65 72 20 6e 69 6c | l-lib)..(defgroup.git-gutter.nil |
| 0d60 | 0a 20 20 22 50 6f 72 74 20 47 69 74 47 75 74 74 65 72 22 0a 20 20 3a 70 72 65 66 69 78 20 22 67 | ..."Port.GitGutter"...:prefix."g |
| 0d80 | 69 74 2d 67 75 74 74 65 72 3a 22 0a 20 20 3a 67 72 6f 75 70 20 27 76 63 29 0a 0a 28 64 65 66 76 | it-gutter:"...:group.'vc)..(defv |
| 0da0 | 61 72 20 67 69 74 2d 67 75 74 74 65 72 2d 6d 6f 64 65 20 6e 69 6c 29 0a 0a 28 64 65 66 63 75 73 | ar.git-gutter-mode.nil)..(defcus |
| 0dc0 | 74 6f 6d 20 67 69 74 2d 67 75 74 74 65 72 3a 77 69 6e 64 6f 77 2d 77 69 64 74 68 20 6e 69 6c 0a | tom.git-gutter:window-width.nil. |
| 0de0 | 20 20 22 43 68 61 72 61 63 74 65 72 20 77 69 64 74 68 20 6f 66 20 67 75 74 74 65 72 20 77 69 6e | .."Character.width.of.gutter.win |
| 0e00 | 64 6f 77 2e 20 20 45 6d 61 63 73 20 6d 69 73 74 61 6b 65 73 20 77 69 64 74 68 20 6f 66 20 73 6f | dow...Emacs.mistakes.width.of.so |
| 0e20 | 6d 65 20 63 68 61 72 61 63 74 65 72 73 2e 0a 49 74 20 69 73 20 62 65 74 74 65 72 20 74 6f 20 65 | me.characters..It.is.better.to.e |
| 0e40 | 78 70 6c 69 63 69 74 6c 79 20 61 73 73 69 67 6e 20 77 69 64 74 68 20 74 6f 20 74 68 69 73 20 76 | xplicitly.assign.width.to.this.v |
| 0e60 | 61 72 69 61 62 6c 65 2c 20 69 66 20 79 6f 75 20 75 73 65 20 66 75 6c 6c 2d 77 69 64 74 68 0a 63 | ariable,.if.you.use.full-width.c |
| 0e80 | 68 61 72 61 63 74 65 72 20 66 6f 72 20 73 69 67 6e 73 20 6f 66 20 63 68 61 6e 67 65 73 22 0a 20 | haracter.for.signs.of.changes".. |
| 0ea0 | 20 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 | .:type.'integer...:group.'git-gu |
| 0ec0 | 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 69 66 | tter)..(defcustom.git-gutter:dif |
| 0ee0 | 66 2d 6f 70 74 69 6f 6e 20 22 22 0a 20 20 22 4f 70 74 69 6f 6e 20 6f 66 20 27 67 69 74 20 64 69 | f-option.""..."Option.of.'git.di |
| 0f00 | 66 66 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 | ff'."...:type.'string...:group.' |
| 0f20 | 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 74 74 | git-gutter)..(defcustom.git-gutt |
| 0f40 | 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 0a 20 20 22 | er:subversion-diff-option.""..." |
| 0f60 | 4f 70 74 69 6f 6e 20 6f 66 20 27 73 76 6e 20 64 69 66 66 27 2e 22 0a 20 20 3a 74 79 70 65 20 27 | Option.of.'svn.diff'."...:type.' |
| 0f80 | 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 |
| 0fa0 | 65 66 63 75 73 74 6f 6d 20 67 69 74 2d 67 75 74 74 65 72 3a 6d 65 72 63 75 72 69 61 6c 2d 64 69 | efcustom.git-gutter:mercurial-di |
| 0fc0 | 66 66 2d 6f 70 74 69 6f 6e 20 22 22 0a 20 20 22 4f 70 74 69 6f 6e 20 6f 66 20 27 68 67 20 64 69 | ff-option.""..."Option.of.'hg.di |
| 0fe0 | 66 66 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 | ff'."...:type.'string...:group.' |
| 1000 | 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 74 74 | git-gutter)..(defcustom.git-gutt |
| 1020 | 65 72 3a 62 61 7a 61 61 72 2d 64 69 66 66 2d 6f 70 74 69 6f 6e 20 22 22 0a 20 20 22 4f 70 74 69 | er:bazaar-diff-option.""..."Opti |
| 1040 | 6f 6e 20 6f 66 20 27 62 7a 72 20 64 69 66 66 27 2e 22 0a 20 20 3a 74 79 70 65 20 27 73 74 72 69 | on.of.'bzr.diff'."...:type.'stri |
| 1060 | 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 |
| 1080 | 73 74 6f 6d 20 67 69 74 2d 67 75 74 74 65 72 3a 75 70 64 61 74 65 2d 63 6f 6d 6d 61 6e 64 73 0a | stom.git-gutter:update-commands. |
| 10a0 | 20 20 27 28 69 64 6f 2d 73 77 69 74 63 68 2d 62 75 66 66 65 72 20 68 65 6c 6d 2d 62 75 66 66 65 | ..'(ido-switch-buffer.helm-buffe |
| 10c0 | 72 73 2d 6c 69 73 74 29 0a 20 20 22 45 61 63 68 20 63 6f 6d 6d 61 6e 64 20 6f 66 20 74 68 69 73 | rs-list)..."Each.command.of.this |
| 10e0 | 20 6c 69 73 74 20 69 73 20 65 78 65 63 75 74 65 64 2c 20 67 75 74 74 65 72 20 69 6e 66 6f 72 6d | .list.is.executed,.gutter.inform |
| 1100 | 61 74 69 6f 6e 20 69 73 20 75 70 64 61 74 65 64 2e 22 0a 20 20 3a 74 79 70 65 20 27 28 6c 69 73 | ation.is.updated."...:type.'(lis |
| 1120 | 74 20 28 66 75 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 | t.(function.:tag."Update.command |
| 1140 | 22 29 0a 20 20 20 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 | ")................(repeat.:inlin |
| 1160 | 65 20 74 20 28 66 75 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 | e.t.(function.:tag."Update.comma |
| 1180 | 6e 64 22 29 29 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 28 64 | nd")))...:group.'git-gutter)..(d |
| 11a0 | 65 66 63 75 73 74 6f 6d 20 67 69 74 2d 67 75 74 74 65 72 3a 75 70 64 61 74 65 2d 77 69 6e 64 6f | efcustom.git-gutter:update-windo |
| 11c0 | 77 73 2d 63 6f 6d 6d 61 6e 64 73 0a 20 20 27 28 6b 69 6c 6c 2d 62 75 66 66 65 72 20 69 64 6f 2d | ws-commands...'(kill-buffer.ido- |
| 11e0 | 6b 69 6c 6c 2d 62 75 66 66 65 72 29 0a 20 20 22 45 61 63 68 20 63 6f 6d 6d 61 6e 64 20 6f 66 20 | kill-buffer)..."Each.command.of. |
| 1200 | 74 68 69 73 20 6c 69 73 74 20 69 73 20 65 78 65 63 75 74 65 64 2c 20 67 75 74 74 65 72 20 69 6e | this.list.is.executed,.gutter.in |
| 1220 | 66 6f 72 6d 61 74 69 6f 6e 20 69 73 0a 75 70 64 61 74 65 64 20 61 6e 64 20 67 75 74 74 65 72 20 | formation.is.updated.and.gutter. |
| 1240 | 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 6f 66 20 6f 74 68 65 72 20 77 69 6e 64 6f 77 73 2e 22 0a 20 | information.of.other.windows.".. |
| 1260 | 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 70 | .:type.'(list.(function.:tag."Up |
| 1280 | 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 72 | date.command")................(r |
| 12a0 | 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 22 | epeat.:inline.t.(function.:tag." |
| 12c0 | 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 74 | Update.command")))...:group.'git |
| 12e0 | 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 3a | -gutter)..(defcustom.git-gutter: |
| 1300 | 75 70 64 61 74 65 2d 68 6f 6f 6b 73 0a 20 20 27 28 61 66 74 65 72 2d 73 61 76 65 2d 68 6f 6f 6b | update-hooks...'(after-save-hook |
| 1320 | 0a 20 20 20 20 61 66 74 65 72 2d 72 65 76 65 72 74 2d 68 6f 6f 6b 0a 20 20 20 20 66 69 6e 64 2d | .....after-revert-hook.....find- |
| 1340 | 66 69 6c 65 2d 68 6f 6f 6b 0a 20 20 20 20 61 66 74 65 72 2d 63 68 61 6e 67 65 2d 6d 61 6a 6f 72 | file-hook.....after-change-major |
| 1360 | 2d 6d 6f 64 65 2d 68 6f 6f 6b 0a 20 20 20 20 74 65 78 74 2d 73 63 61 6c 65 2d 6d 6f 64 65 2d 68 | -mode-hook.....text-scale-mode-h |
| 1380 | 6f 6f 6b 29 0a 20 20 22 48 6f 6f 6b 20 70 6f 69 6e 74 73 20 6f 66 20 75 70 64 61 74 69 6e 67 20 | ook)..."Hook.points.of.updating. |
| 13a0 | 67 75 74 74 65 72 2e 22 0a 20 20 3a 74 79 70 65 20 27 28 6c 69 73 74 20 28 68 6f 6f 6b 20 3a 74 | gutter."...:type.'(list.(hook.:t |
| 13c0 | 61 67 20 22 48 6f 6f 6b 50 6f 69 6e 74 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ag."HookPoint")................( |
| 13e0 | 72 65 70 65 61 74 20 3a 69 6e 6c 69 6e 65 20 74 20 28 68 6f 6f 6b 20 3a 74 61 67 20 22 48 6f 6f | repeat.:inline.t.(hook.:tag."Hoo |
| 1400 | 6b 50 6f 69 6e 74 22 29 29 29 0a 20 20 3a 67 72 6f 75 70 20 27 67 69 74 2d 67 75 74 74 65 72 29 | kPoint")))...:group.'git-gutter) |
| 1420 | 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 67 69 74 2d 67 75 74 74 65 72 3a 61 6c 77 61 79 73 2d 73 | ..(defcustom.git-gutter:always-s |
| 1440 | 68 6f 77 2d 73 65 70 61 72 61 74 6f 72 20 6e 69 6c 0a 20 20 22 53 68 6f 77 20 73 65 70 61 72 61 | how-separator.nil..."Show.separa |
| 1460 | 74 6f 72 20 65 76 65 6e 20 69 66 20 74 68 65 72 65 20 61 72 65 20 6e 6f 20 63 68 61 6e 67 65 73 | tor.even.if.there.are.no.changes |
| 1480 | 2e 22 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 | ."...:type.'boolean...:group.'gi |
| 14a0 | 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 |
| 14c0 | 3a 73 65 70 61 72 61 74 6f 72 2d 73 69 67 6e 20 6e 69 6c 0a 20 20 22 53 65 70 61 72 61 74 6f 72 | :separator-sign.nil..."Separator |
| 14e0 | 20 73 69 67 6e 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 | .sign."...:type.'string...:group |
| 1500 | 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 |
| 1520 | 74 74 65 72 3a 6d 6f 64 69 66 69 65 64 2d 73 69 67 6e 20 22 3d 22 0a 20 20 22 4d 6f 64 69 66 69 | tter:modified-sign."="..."Modifi |
| 1540 | 65 64 20 73 69 67 6e 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 | ed.sign."...:type.'string...:gro |
| 1560 | 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- |
| 1580 | 67 75 74 74 65 72 3a 61 64 64 65 64 2d 73 69 67 6e 20 22 2b 22 0a 20 20 22 41 64 64 65 64 20 73 | gutter:added-sign."+"..."Added.s |
| 15a0 | 69 67 6e 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 | ign."...:type.'string...:group.' |
| 15c0 | 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 74 74 | git-gutter)..(defcustom.git-gutt |
| 15e0 | 65 72 3a 64 65 6c 65 74 65 64 2d 73 69 67 6e 20 22 2d 22 0a 20 20 22 44 65 6c 65 74 65 64 20 73 | er:deleted-sign."-"..."Deleted.s |
| 1600 | 69 67 6e 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 | ign."...:type.'string...:group.' |
| 1620 | 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 74 74 | git-gutter)..(defcustom.git-gutt |
| 1640 | 65 72 3a 75 6e 63 68 61 6e 67 65 64 2d 73 69 67 6e 20 6e 69 6c 0a 20 20 22 55 6e 63 68 61 6e 67 | er:unchanged-sign.nil..."Unchang |
| 1660 | 65 64 20 73 69 67 6e 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 | ed.sign."...:type.'string...:gro |
| 1680 | 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- |
| 16a0 | 67 75 74 74 65 72 3a 68 69 64 65 2d 67 75 74 74 65 72 20 6e 69 6c 0a 20 20 22 48 69 64 65 20 67 | gutter:hide-gutter.nil..."Hide.g |
| 16c0 | 75 74 74 65 72 20 69 66 20 74 68 65 72 65 20 61 72 65 20 6e 6f 20 63 68 61 6e 67 65 73 2e 22 0a | utter.if.there.are.no.changes.". |
| 16e0 | 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 67 | ..:type.'boolean...:group.'git-g |
| 1700 | 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 6c 69 | utter)..(defcustom.git-gutter:li |
| 1720 | 67 68 74 65 72 20 22 20 47 69 74 47 75 74 74 65 72 22 0a 20 20 22 4d 69 6e 6f 72 20 6d 6f 64 65 | ghter.".GitGutter"..."Minor.mode |
| 1740 | 20 6c 69 67 68 74 65 72 20 69 6e 20 6d 6f 64 65 2d 6c 69 6e 65 2e 22 0a 20 20 3a 74 79 70 65 20 | .lighter.in.mode-line."...:type. |
| 1760 | 27 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 | 'string...:group.'git-gutter)..( |
| 1780 | 64 65 66 63 75 73 74 6f 6d 20 67 69 74 2d 67 75 74 74 65 72 3a 76 65 72 62 6f 73 69 74 79 20 30 | defcustom.git-gutter:verbosity.0 |
| 17a0 | 0a 20 20 22 4c 6f 67 2f 6d 65 73 73 61 67 65 20 6c 65 76 65 6c 2e 20 20 34 20 6d 65 61 6e 73 20 | ..."Log/message.level...4.means. |
| 17c0 | 61 6c 6c 2c 20 30 20 6e 6f 74 68 69 6e 67 2e 22 0a 20 20 3a 74 79 70 65 20 27 69 6e 74 65 67 65 | all,.0.nothing."...:type.'intege |
| 17e0 | 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 66 63 75 73 | r...:group.'git-gutter)..(defcus |
| 1800 | 74 6f 6d 20 67 69 74 2d 67 75 74 74 65 72 3a 76 69 73 75 61 6c 2d 6c 69 6e 65 20 6e 69 6c 0a 20 | tom.git-gutter:visual-line.nil.. |
| 1820 | 20 22 53 68 6f 77 20 73 69 67 6e 20 61 74 20 67 75 74 74 65 72 20 62 79 20 76 69 73 75 61 6c 20 | ."Show.sign.at.gutter.by.visual. |
| 1840 | 6c 69 6e 65 2e 22 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 | line."...:type.'boolean...:group |
| 1860 | 20 27 67 69 74 2d 67 75 74 74 65 72 29 0a 0a 28 64 65 66 66 61 63 65 20 67 69 74 2d 67 75 74 74 | .'git-gutter)..(defface.git-gutt |
| 1880 | 65 72 3a 73 65 70 61 72 61 74 6f 72 0a 20 20 27 28 28 74 20 28 3a 66 6f 72 65 67 72 6f 75 6e 64 | er:separator...'((t.(:foreground |
| 18a0 | 20 22 63 79 61 6e 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 | ."cyan".:weight.bold.:inherit.de |
| 18c0 | 66 61 75 6c 74 29 29 29 0a 20 20 22 46 61 63 65 20 6f 66 20 73 65 70 61 72 61 74 6f 72 22 29 0a | fault)))..."Face.of.separator"). |
| 18e0 | 0a 28 64 65 66 66 61 63 65 20 67 69 74 2d 67 75 74 74 65 72 3a 6d 6f 64 69 66 69 65 64 0a 20 20 | .(defface.git-gutter:modified... |
| 1900 | 27 28 28 74 20 28 3a 66 6f 72 65 67 72 6f 75 6e 64 20 22 6d 61 67 65 6e 74 61 22 20 3a 77 65 69 | '((t.(:foreground."magenta".:wei |
| 1920 | 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 29 29 0a 20 20 22 | ght.bold.:inherit.default)))..." |
| 1940 | 46 61 63 65 20 6f 66 20 6d 6f 64 69 66 69 65 64 22 29 0a 0a 28 64 65 66 66 61 63 65 20 67 69 74 | Face.of.modified")..(defface.git |
| 1960 | 2d 67 75 74 74 65 72 3a 61 64 64 65 64 0a 20 20 27 28 28 74 20 28 3a 66 6f 72 65 67 72 6f 75 6e | -gutter:added...'((t.(:foregroun |
| 1980 | 64 20 22 67 72 65 65 6e 22 20 3a 77 65 69 67 68 74 20 62 6f 6c 64 20 3a 69 6e 68 65 72 69 74 20 | d."green".:weight.bold.:inherit. |
| 19a0 | 64 65 66 61 75 6c 74 29 29 29 0a 20 20 22 46 61 63 65 20 6f 66 20 61 64 64 65 64 22 29 0a 0a 28 | default)))..."Face.of.added")..( |
| 19c0 | 64 65 66 66 61 63 65 20 67 69 74 2d 67 75 74 74 65 72 3a 64 65 6c 65 74 65 64 0a 20 20 27 28 28 | defface.git-gutter:deleted...'(( |
| 19e0 | 74 20 28 3a 66 6f 72 65 67 72 6f 75 6e 64 20 22 72 65 64 22 20 3a 77 65 69 67 68 74 20 62 6f 6c | t.(:foreground."red".:weight.bol |
| 1a00 | 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 |
| 1a20 | 20 64 65 6c 65 74 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 | .deleted")..(defface.git-gutter: |
| 1a40 | 75 6e 63 68 61 6e 67 65 64 0a 20 20 27 28 28 74 20 28 3a 62 61 63 6b 67 72 6f 75 6e 64 20 22 79 | unchanged...'((t.(:background."y |
| 1a60 | 65 6c 6c 6f 77 22 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 | ellow".:inherit.default)))..."Fa |
| 1a80 | 63 65 20 6f 66 20 75 6e 63 68 61 6e 67 65 64 22 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 67 69 | ce.of.unchanged")..(defcustom.gi |
| 1aa0 | 74 2d 67 75 74 74 65 72 3a 64 69 73 61 62 6c 65 64 2d 6d 6f 64 65 73 20 6e 69 6c 0a 20 20 22 41 | t-gutter:disabled-modes.nil..."A |
| 1ac0 | 20 6c 69 73 74 20 6f 66 20 6d 6f 64 65 73 20 77 68 69 63 68 20 60 67 6c 6f 62 61 6c 2d 67 69 74 | .list.of.modes.which.`global-git |
| 1ae0 | 2d 67 75 74 74 65 72 2d 6d 6f 64 65 27 20 73 68 6f 75 6c 64 20 62 65 20 64 69 73 61 62 6c 65 64 | -gutter-mode'.should.be.disabled |
| 1b00 | 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 0a 20 20 3a 67 | ."...:type.'(repeat.symbol)...:g |
| 1b20 | 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 69 | roup.'git-gutter)..(defcustom.gi |
| 1b40 | 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 20 27 28 67 69 74 29 | t-gutter:handled-backends.'(git) |
| 1b60 | 0a 20 20 22 4c 69 73 74 20 6f 66 20 76 65 72 73 69 6f 6e 20 63 6f 6e 74 72 6f 6c 20 62 61 63 6b | ..."List.of.version.control.back |
| 1b80 | 65 6e 64 73 20 66 6f 72 20 77 68 69 63 68 20 60 67 69 74 2d 67 75 74 74 65 72 2e 65 6c 60 20 77 | ends.for.which.`git-gutter.el`.w |
| 1ba0 | 69 6c 6c 20 62 65 20 75 73 65 64 2e 0a 60 67 69 74 27 2c 20 60 73 76 6e 27 2c 20 60 68 67 27 2c | ill.be.used..`git',.`svn',.`hg', |
| 1bc0 | 20 61 6e 64 20 60 62 7a 72 27 20 61 72 65 20 73 75 70 70 6f 72 74 65 64 2e 22 0a 20 20 3a 74 79 | .and.`bzr'.are.supported."...:ty |
| 1be0 | 70 65 20 27 28 72 65 70 65 61 74 20 73 79 6d 62 6f 6c 29 0a 20 20 3a 67 72 6f 75 70 20 27 67 69 | pe.'(repeat.symbol)...:group.'gi |
| 1c00 | 74 2d 67 75 74 74 65 72 29 0a 0a 28 64 65 66 76 61 72 20 67 69 74 2d 67 75 74 74 65 72 3a 76 69 | t-gutter)..(defvar.git-gutter:vi |
| 1c20 | 65 77 2d 64 69 66 66 2d 66 75 6e 63 74 69 6f 6e 20 23 27 67 69 74 2d 67 75 74 74 65 72 3a 76 69 | ew-diff-function.#'git-gutter:vi |
| 1c40 | 65 77 2d 64 69 66 66 2d 69 6e 66 6f 73 0a 20 20 22 46 75 6e 63 74 69 6f 6e 20 6f 66 20 76 69 65 | ew-diff-infos..."Function.of.vie |
| 1c60 | 77 69 6e 67 20 63 68 61 6e 67 65 73 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 67 69 74 2d 67 75 74 | wing.changes.")..(defvar.git-gut |
| 1c80 | 74 65 72 3a 63 6c 65 61 72 2d 66 75 6e 63 74 69 6f 6e 20 23 27 67 69 74 2d 67 75 74 74 65 72 3a | ter:clear-function.#'git-gutter: |
| 1ca0 | 63 6c 65 61 72 2d 64 69 66 66 2d 69 6e 66 6f 73 0a 20 20 22 46 75 6e 63 74 69 6f 6e 20 6f 66 20 | clear-diff-infos..."Function.of. |
| 1cc0 | 63 6c 65 61 72 20 63 68 61 6e 67 65 73 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 67 69 74 2d 67 75 | clear.changes.")..(defvar.git-gu |
| 1ce0 | 74 74 65 72 3a 69 6e 69 74 2d 66 75 6e 63 74 69 6f 6e 20 27 6e 69 6c 0a 20 20 22 46 75 6e 63 74 | tter:init-function.'nil..."Funct |
| 1d00 | 69 6f 6e 20 6f 66 20 69 6e 69 74 69 61 6c 69 7a 65 2e 22 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d | ion.of.initialize.")..(defcustom |
| 1d20 | 20 67 69 74 2d 67 75 74 74 65 72 2d 6d 6f 64 65 2d 6f 6e 2d 68 6f 6f 6b 20 6e 69 6c 0a 20 20 22 | .git-gutter-mode-on-hook.nil..." |
| 1d40 | 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 65 20 65 6e | Hook.run.when.git-gutter.mode.en |
| 1d60 | 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 75 70 20 27 67 | able."...:type.'hook...:group.'g |
| 1d80 | 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 |
| 1da0 | 72 2d 6d 6f 64 65 2d 6f 66 66 2d 68 6f 6f 6b 20 6e 69 6c 0a 20 20 22 48 6f 6f 6b 20 72 75 6e 20 | r-mode-off-hook.nil..."Hook.run. |
| 1dc0 | 77 68 65 6e 20 67 69 74 2d 67 75 74 74 65 72 20 6d 6f 64 65 20 64 69 73 61 62 6c 65 2e 22 0a 20 | when.git-gutter.mode.disable.".. |
| 1de0 | 20 3a 74 79 70 65 20 27 68 6f 6f 6b 0a 20 20 3a 67 72 6f 75 70 20 27 67 69 74 2d 67 75 74 74 65 | .:type.'hook...:group.'git-gutte |
| 1e00 | 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 61 74 65 | r)..(defcustom.git-gutter:update |
| 1e20 | 2d 69 6e 74 65 72 76 61 6c 20 30 0a 20 20 22 54 69 6d 65 20 69 6e 74 65 72 76 61 6c 20 69 6e 20 | -interval.0..."Time.interval.in. |
| 1e40 | 73 65 63 6f 6e 64 73 20 66 6f 72 20 75 70 64 61 74 69 6e 67 20 64 69 66 66 20 69 6e 66 6f 72 6d | seconds.for.updating.diff.inform |
| 1e60 | 61 74 69 6f 6e 2e 22 0a 20 20 3a 74 79 70 65 20 27 69 6e 74 65 67 65 72 0a 20 20 3a 67 72 6f 75 | ation."...:type.'integer...:grou |
| 1e80 | 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 67 | p.'git-gutter)..(defcustom.git-g |
| 1ea0 | 75 74 74 65 72 3a 61 73 6b 2d 70 20 74 0a 20 20 22 41 73 6b 20 77 68 65 74 68 65 72 20 63 6f 6d | utter:ask-p.t..."Ask.whether.com |
| 1ec0 | 6d 69 74 2f 72 65 76 65 72 74 20 6f 72 20 6e 6f 74 2e 22 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f | mit/revert.or.not."...:type.'boo |
| 1ee0 | 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 |
| 1f00 | 63 75 73 74 6f 6d 20 67 69 74 2d 67 75 74 74 65 72 3a 64 69 73 70 6c 61 79 2d 70 20 74 0a 20 20 | custom.git-gutter:display-p.t... |
| 1f20 | 22 44 69 73 70 6c 61 79 20 64 69 66 66 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 6f 72 20 6e 6f 74 | "Display.diff.information.or.not |
| 1f40 | 2e 22 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 | ."...:type.'boolean...:group.'gi |
| 1f60 | 74 2d 67 75 74 74 65 72 29 0a 0a 28 64 65 66 76 61 72 20 67 69 74 2d 67 75 74 74 65 72 3a 73 74 | t-gutter)..(defvar.git-gutter:st |
| 1f80 | 61 72 74 2d 72 65 76 69 73 69 6f 6e 20 6e 69 6c 0a 20 20 22 53 74 61 72 74 69 6e 67 20 72 65 76 | art-revision.nil..."Starting.rev |
| 1fa0 | 69 73 69 6f 6e 20 66 6f 72 20 76 63 20 64 69 66 66 73 2e 0a 43 61 6e 20 62 65 20 61 20 64 69 72 | ision.for.vc.diffs..Can.be.a.dir |
| 1fc0 | 65 63 74 6f 72 79 2d 6c 6f 63 61 6c 20 76 61 72 69 61 62 6c 65 20 69 6e 20 79 6f 75 72 20 70 72 | ectory-local.variable.in.your.pr |
| 1fe0 | 6f 6a 65 63 74 2e 22 29 0a 0a 28 6d 61 6b 65 2d 76 61 72 69 61 62 6c 65 2d 62 75 66 66 65 72 2d | oject.")..(make-variable-buffer- |
| 2000 | 6c 6f 63 61 6c 20 27 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 | local.'git-gutter:start-revision |
| 2020 | 29 0a 28 70 75 74 20 27 67 69 74 2d 67 75 74 74 65 72 3a 73 74 61 72 74 2d 72 65 76 69 73 69 6f | ).(put.'git-gutter:start-revisio |
| 2040 | 6e 20 27 73 61 66 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 0a 20 20 20 20 20 28 6c 61 6d | n.'safe-local-variable......(lam |
| 2060 | 62 64 61 20 28 78 29 20 28 6f 72 20 28 62 6f 6f 6c 65 61 6e 70 20 78 29 20 28 73 74 72 69 6e 67 | bda.(x).(or.(booleanp.x).(string |
| 2080 | 70 20 78 29 29 29 29 0a 0a 28 63 6c 2d 64 65 66 73 74 72 75 63 74 20 67 69 74 2d 67 75 74 74 65 | p.x))))..(cl-defstruct.git-gutte |
| 20a0 | 72 2d 68 75 6e 6b 0a 20 20 74 79 70 65 20 63 6f 6e 74 65 6e 74 20 73 74 61 72 74 2d 6c 69 6e 65 | r-hunk...type.content.start-line |
| 20c0 | 20 65 6e 64 2d 6c 69 6e 65 29 0a 0a 28 64 65 66 76 61 72 2d 6c 6f 63 61 6c 20 67 69 74 2d 67 75 | .end-line)..(defvar-local.git-gu |
| 20e0 | 74 74 65 72 3a 65 6e 61 62 6c 65 64 20 6e 69 6c 29 0a 28 64 65 66 76 61 72 20 67 69 74 2d 67 75 | tter:enabled.nil).(defvar.git-gu |
| 2100 | 74 74 65 72 3a 64 69 66 66 69 6e 66 6f 73 20 6e 69 6c 29 0a 28 64 65 66 76 61 72 20 67 69 74 2d | tter:diffinfos.nil).(defvar.git- |
| 2120 | 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 20 6e 69 6c 29 | gutter:has-indirect-buffers.nil) |
| 2140 | 0a 28 64 65 66 76 61 72 20 67 69 74 2d 67 75 74 74 65 72 3a 72 65 61 6c 2d 74 68 69 73 2d 63 6f | .(defvar.git-gutter:real-this-co |
| 2160 | 6d 6d 61 6e 64 20 6e 69 6c 29 0a 28 64 65 66 76 61 72 20 67 69 74 2d 67 75 74 74 65 72 3a 6c 69 | mmand.nil).(defvar.git-gutter:li |
| 2180 | 6e 75 6d 2d 65 6e 61 62 6c 65 64 20 6e 69 6c 29 0a 28 64 65 66 76 61 72 20 67 69 74 2d 67 75 74 | num-enabled.nil).(defvar.git-gut |
| 21a0 | 74 65 72 3a 6c 69 6e 75 6d 2d 70 72 65 76 2d 77 69 6e 64 6f 77 2d 6d 61 72 67 69 6e 20 6e 69 6c | ter:linum-prev-window-margin.nil |
| 21c0 | 29 0a 28 64 65 66 76 61 72 20 67 69 74 2d 67 75 74 74 65 72 3a 76 63 73 2d 74 79 70 65 20 6e 69 | ).(defvar.git-gutter:vcs-type.ni |
| 21e0 | 6c 29 0a 28 64 65 66 76 61 72 20 67 69 74 2d 67 75 74 74 65 72 3a 72 65 76 69 73 69 6f 6e 2d 68 | l).(defvar.git-gutter:revision-h |
| 2200 | 69 73 74 6f 72 79 20 6e 69 6c 29 0a 28 64 65 66 76 61 72 20 67 69 74 2d 67 75 74 74 65 72 3a 75 | istory.nil).(defvar.git-gutter:u |
| 2220 | 70 64 61 74 65 2d 74 69 6d 65 72 20 6e 69 6c 29 0a 28 64 65 66 76 61 72 2d 6c 6f 63 61 6c 20 67 | pdate-timer.nil).(defvar-local.g |
| 2240 | 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 64 2d 74 69 | it-gutter:last-chars-modified-ti |
| 2260 | 63 6b 20 6e 69 6c 29 0a 0a 28 64 65 66 76 61 72 20 67 69 74 2d 67 75 74 74 65 72 3a 70 6f 70 75 | ck.nil)..(defvar.git-gutter:popu |
| 2280 | 70 2d 62 75 66 66 65 72 20 22 2a 67 69 74 2d 67 75 74 74 65 72 3a 64 69 66 66 2a 22 29 0a 28 64 | p-buffer."*git-gutter:diff*").(d |
| 22a0 | 65 66 76 61 72 20 67 69 74 2d 67 75 74 74 65 72 3a 69 67 6e 6f 72 65 2d 63 6f 6d 6d 61 6e 64 73 | efvar.git-gutter:ignore-commands |
| 22c0 | 0a 20 20 27 28 6d 69 6e 69 62 75 66 66 65 72 2d 63 6f 6d 70 6c 65 74 65 2d 61 6e 64 2d 65 78 69 | ...'(minibuffer-complete-and-exi |
| 22e0 | 74 0a 20 20 20 20 65 78 69 74 2d 6d 69 6e 69 62 75 66 66 65 72 0a 20 20 20 20 69 64 6f 2d 65 78 | t.....exit-minibuffer.....ido-ex |
| 2300 | 69 74 2d 6d 69 6e 69 62 75 66 66 65 72 0a 20 20 20 20 68 65 6c 6d 2d 6d 61 79 62 65 2d 65 78 69 | it-minibuffer.....helm-maybe-exi |
| 2320 | 74 2d 6d 69 6e 69 62 75 66 66 65 72 0a 20 20 20 20 68 65 6c 6d 2d 63 6f 6e 66 69 72 6d 2d 61 6e | t-minibuffer.....helm-confirm-an |
| 2340 | 64 2d 65 78 69 74 2d 6d 69 6e 69 62 75 66 66 65 72 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 67 | d-exit-minibuffer))..(defmacro.g |
| 2360 | 69 74 2d 67 75 74 74 65 72 3a 61 77 68 65 6e 20 28 74 65 73 74 20 26 72 65 73 74 20 62 6f 64 79 | it-gutter:awhen.(test.&rest.body |
| 2380 | 29 0a 20 20 22 41 6e 61 70 68 6f 72 69 63 20 77 68 65 6e 2e 0a 41 72 67 75 6d 65 6e 74 20 54 45 | )..."Anaphoric.when..Argument.TE |
| 23a0 | 53 54 20 69 73 20 74 68 65 20 63 61 73 65 20 62 65 66 6f 72 65 20 42 4f 44 59 20 65 78 65 63 75 | ST.is.the.case.before.BODY.execu |
| 23c0 | 74 69 6f 6e 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 6e 64 65 6e 74 20 31 29 29 0a 20 20 | tion."...(declare.(indent.1))... |
| 23e0 | 60 28 6c 65 74 20 28 28 69 74 20 2c 74 65 73 74 29 29 0a 20 20 20 20 20 28 77 68 65 6e 20 69 74 | `(let.((it.,test))......(when.it |
| 2400 | 20 2c 40 62 6f 64 79 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 | .,@body)))..(defsubst.git-gutter |
| 2420 | 3a 65 78 65 63 75 74 65 2d 63 6f 6d 6d 61 6e 64 20 28 63 6d 64 20 6f 75 74 70 75 74 20 26 72 65 | :execute-command.(cmd.output.&re |
| 2440 | 73 74 20 61 72 67 73 29 0a 20 20 28 61 70 70 6c 79 20 23 27 70 72 6f 63 65 73 73 2d 66 69 6c 65 | st.args)...(apply.#'process-file |
| 2460 | 20 63 6d 64 20 6e 69 6c 20 6f 75 74 70 75 74 20 6e 69 6c 20 61 72 67 73 29 29 0a 0a 28 64 65 66 | .cmd.nil.output.nil.args))..(def |
| 2480 | 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 69 6e 2d 67 69 74 2d 72 65 70 6f 73 69 74 6f 72 79 2d | un.git-gutter:in-git-repository- |
| 24a0 | 70 20 28 29 0a 20 20 28 77 68 65 6e 20 28 65 78 65 63 75 74 61 62 6c 65 2d 66 69 6e 64 20 22 67 | p.()...(when.(executable-find."g |
| 24c0 | 69 74 22 20 74 29 0a 20 20 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 0a 20 20 20 | it".t).....(with-temp-buffer.... |
| 24e0 | 20 20 20 28 77 68 65 6e 2d 6c 65 74 2a 20 28 28 65 78 65 63 2d 72 65 73 75 6c 74 20 28 67 69 74 | ...(when-let*.((exec-result.(git |
| 2500 | 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 20 20 | -gutter:execute-command......... |
| 2520 | 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 67 69 74 22 20 74 20 | ........................"git".t. |
| 2540 | 22 72 65 76 2d 70 61 72 73 65 22 20 22 2d 2d 69 73 2d 69 6e 73 69 64 65 2d 77 6f 72 6b 2d 74 72 | "rev-parse"."--is-inside-work-tr |
| 2560 | 65 65 22 29 29 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 7a 65 72 6f 70 20 65 78 65 63 | ee"))).........(when.(zerop.exec |
| 2580 | 2d 72 65 73 75 6c 74 29 0a 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 | -result)...........(goto-char.(p |
| 25a0 | 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 | oint-min))...........(looking-at |
| 25c0 | 2d 70 20 22 74 72 75 65 22 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 | -p."true"))))))..(defun.git-gutt |
| 25e0 | 65 72 3a 69 6e 2d 72 65 70 6f 73 69 74 6f 72 79 2d 63 6f 6d 6d 6f 6e 2d 70 20 28 63 6d 64 20 63 | er:in-repository-common-p.(cmd.c |
| 2600 | 68 65 63 6b 2d 73 75 62 63 6d 64 20 72 65 70 6f 64 69 72 29 0a 20 20 28 61 6e 64 20 28 65 78 65 | heck-subcmd.repodir)...(and.(exe |
| 2620 | 63 75 74 61 62 6c 65 2d 66 69 6e 64 20 63 6d 64 20 74 29 0a 20 20 20 20 20 20 20 28 6c 6f 63 61 | cutable-find.cmd.t)........(loca |
| 2640 | 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 74 2d 64 69 72 65 63 | te-dominating-file.default-direc |
| 2660 | 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 6f 70 20 28 61 70 70 | tory.repodir)........(zerop.(app |
| 2680 | 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 6f 6d 6d 61 6e 64 20 | ly.#'git-gutter:execute-command. |
| 26a0 | 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 20 20 20 20 20 28 6e | cmd.nil.check-subcmd))........(n |
| 26c0 | 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 70 2d 71 75 6f 74 65 | ot.(string-match-p.(regexp-quote |
| 26e0 | 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 29 0a 20 20 20 20 20 | .(concat."/".repodir."/"))...... |
| 2700 | 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 66 61 75 6c 74 2d 64 | .......................default-d |
| 2720 | 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 67 75 74 74 65 72 3a | irectory))))..(defun.git-gutter: |
| 2740 | 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 20 20 28 63 6c 2d 63 | vcs-check-function.(vcs)...(cl-c |
| 2760 | 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 74 65 72 3a 69 6e 2d | ase.vcs.....(git.(git-gutter:in- |
| 2780 | 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 76 6e 20 28 67 69 74 | git-repository-p)).....(svn.(git |
| 27a0 | 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 2d 70 20 22 | -gutter:in-repository-common-p." |
| 27c0 | 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 20 20 20 28 68 67 20 | svn".'("info").".svn")).....(hg. |
| 27e0 | 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 6d 6f 6e | (git-gutter:in-repository-common |
| 2800 | 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 0a 20 20 20 20 28 62 | -p."hg".'("root").".hg")).....(b |
| 2820 | 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 6f 72 79 2d 63 6f 6d | zr.(git-gutter:in-repository-com |
| 2840 | 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 7a 72 22 29 29 29 29 | mon-p."bzr".'("root").".bzr")))) |
| 2860 | 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 70 6f 73 69 74 6f 72 | ..(defun.git-gutter:in-repositor |
| 2880 | 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 20 69 6e 20 67 69 74 | y-p.()...(cl-loop.for.vcs.in.git |
| 28a0 | 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 20 20 20 20 20 20 20 | -gutter:handled-backends........ |
| 28c0 | 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 63 68 65 63 6b 2d 66 | ....when.(git-gutter:vcs-check-f |
| 28e0 | 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 65 74 75 72 6e 20 28 | unction.vcs)............return.( |
| 2900 | 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 2d 74 79 70 65 20 76 | setq-local.git-gutter:vcs-type.v |
| 2920 | 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 65 72 3a 63 68 61 6e | cs)))..(defsubst.git-gutter:chan |
| 2940 | 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 20 28 73 74 72 69 6e | ges-to-number.(str)...(if.(strin |
| 2960 | 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 74 72 69 6e 67 2d 74 | g=.str."").......1.....(string-t |
| 2980 | 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 74 20 67 69 74 2d 67 | o-number.str)))..(defsubst.git-g |
| 29a0 | 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 66 65 72 2d 66 69 6c | utter:base-file.()...(buffer-fil |
| 29c0 | 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 72 29 29 29 0a 0a 28 | e-name.(buffer-base-buffer)))..( |
| 29e0 | 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 74 65 6e 74 20 28 29 | defun.git-gutter:diff-content.() |
| 2a00 | 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 6f 74 6f 2d 63 68 61 | ...(save-excursion.....(goto-cha |
| 2a20 | 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 6e 29 29 0a 20 20 20 | r.(line-beginning-position)).... |
| 2a40 | 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 29 0a 20 20 20 20 20 | .(let.((curpoint.(point)))...... |
| 2a60 | 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 69 66 20 28 72 65 2d | .(forward-line.1).......(if.(re- |
| 2a80 | 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 74 29 0a 20 20 20 20 | search-forward."^@@".nil.t)..... |
| 2aa0 | 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 3b 20 66 6f 72 20 27 | ......(backward-char.3).;;.for.' |
| 2ac0 | 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 6f 69 6e 74 2d 6d 61 | @@'.........(goto-char.(point-ma |
| 2ae0 | 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 69 6e 67 20 63 75 72 | x))).......(buffer-substring.cur |
| 2b00 | 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 72 20 67 69 74 2d 67 | point.(point)))))..(defvar.git-g |
| 2b20 | 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 20 20 22 5e 40 40 20 | utter:diff-output-regexp..."^@@. |
| 2b40 | 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 2a 5c 5c 29 20 5c 5c | -\\(?:[0-9]+\\),?\\([0-9]*\\).\\ |
| 2b60 | 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 40 22 0a | +\\([0-9]+\\),?\\([0-9]*\\).@@". |
| 2b80 | 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 28 64 65 66 75 6e 20 | .."Parse.diff.output.")..(defun. |
| 2ba0 | 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 75 74 70 75 74 20 28 | git-gutter:process-diff-output.( |
| 2bc0 | 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 2d 70 20 62 75 66 29 | buf)...(when.(buffer-live-p.buf) |
| 2be0 | 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 62 75 66 0a 20 20 | .....(with-current-buffer.buf... |
| 2c00 | 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 20 20 20 | ....(goto-char.(point-min))..... |
| 2c20 | 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 63 68 2d 66 6f 72 77 | ..(cl-loop.while.(re-search-forw |
| 2c40 | 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 74 2d 72 65 67 65 78 | ard.git-gutter:diff-output-regex |
| 2c60 | 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 6f 72 20 6e 65 77 2d | p.nil.t)................for.new- |
| 2c80 | 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 20 28 6d 61 74 63 68 | line..=.(string-to-number.(match |
| 2ca0 | 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 20 20 66 6f 72 20 6f | -string.2))................for.o |
| 2cc0 | 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 3a 63 68 61 6e 67 65 | rig-changes.=.(git-gutter:change |
| 2ce0 | 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 20 31 29 29 0a 20 20 | s-to-number.(match-string.1))... |
| 2d00 | 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 67 65 73 20 3d 20 28 | .............for.new-changes.=.( |
| 2d20 | 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 6d 61 | git-gutter:changes-to-number.(ma |
| 2d40 | 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 20 20 20 20 20 66 6f | tch-string.3))................fo |
| 2d60 | 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 69 67 2d 63 68 61 6e | r.type.=.(cond.((zerop.orig-chan |
| 2d80 | 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 20 20 20 20 20 20 20 | ges).'added).................... |
| 2da0 | 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 63 68 61 6e 67 65 73 | .............((zerop.new-changes |
| 2dc0 | 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 20 20 20 20 20 20 20 | ).'deleted)..................... |
| 2de0 | 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 29 0a 20 20 20 20 20 | ............(t.'modified))...... |
| 2e00 | 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 28 69 66 20 28 65 71 | ..........for.end-line.=.(if.(eq |
| 2e20 | 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 20 20 20 20 20 20 20 | .type.'deleted)................. |
| 2e40 | 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 65 0a 20 20 20 20 20 | ..................new-line...... |
| 2e60 | 20 20 20 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 31 2d 20 28 | ...........................(1-.( |
| 2e80 | 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 0a 20 20 20 20 20 20 | +.new-line.new-changes)))....... |
| 2ea0 | 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 69 74 2d 67 75 74 74 | .........for.content.=.(git-gutt |
| 2ec0 | 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 20 20 20 20 20 20 20 | er:diff-content)................ |
| 2ee0 | 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 65 74 20 28 28 73 74 | collect................(let.((st |
| 2f00 | 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 31 20 6e 65 77 2d 6c | art.(if.(zerop.new-line).1.new-l |
| 2f20 | 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 20 20 28 65 6e 64 20 | ine))......................(end. |
| 2f40 | 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 64 2d 6c 69 6e 65 29 | (if.(zerop.end-line).1.end-line) |
| 2f60 | 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 2d 67 69 74 2d 67 75 | ))..................(make-git-gu |
| 2f80 | 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 20 20 20 3a 74 79 70 | tter-hunk...................:typ |
| 2fa0 | 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 73 74 61 72 74 2d 6c | e.type.:content.content.:start-l |
| 2fc0 | 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 29 29 29 29 0a 0a 28 | ine.start.:end-line.end))))))..( |
| 2fe0 | 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 77 2d 6d 61 72 67 69 | defsubst.git-gutter:window-margi |
| 3000 | 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 64 6f 77 2d 77 69 64 | n.()...(or.git-gutter:window-wid |
| 3020 | 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 67 6e 2d 77 69 64 74 | th.(git-gutter:longest-sign-widt |
| 3040 | 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 65 74 2d 77 69 6e 64 | h)))..(defun.git-gutter:set-wind |
| 3060 | 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 20 28 61 6e 64 20 28 | ow-margin.(width)...(when.(and.( |
| 3080 | 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 6c 65 64 29 20 28 3e | not.git-gutter:linum-enabled).(> |
| 30a0 | 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 72 77 69 6e 20 28 67 | =.width.0)).....(let.((curwin.(g |
| 30c0 | 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 20 28 73 65 74 2d 77 | et-buffer-window))).......(set-w |
| 30e0 | 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 68 20 28 63 64 72 20 | indow-margins.curwin.width.(cdr. |
| 3100 | 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 0a 0a 28 64 | (window-margins.curwin))))))..(d |
| 3120 | 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 6f 6e 2d 73 65 74 2d | efsubst.git-gutter:revision-set- |
| 3140 | 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 61 72 74 2d 72 65 76 | p.()...(and.git-gutter:start-rev |
| 3160 | 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 75 74 74 65 72 3a 73 | ision.(not.(string=.git-gutter:s |
| 3180 | 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 66 75 6e 20 67 69 74 | tart-revision.""))))..(defun.git |
| 31a0 | 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 28 66 69 6c 65 | -gutter:git-diff-arguments.(file |
| 31c0 | 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 |
| 31e0 | 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 6f 6e 20 22 22 29 0a | ing=.git-gutter:diff-option.""). |
| 3200 | 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 |
| 3220 | 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 6f 70 74 69 6f 6e 29 | t-string.git-gutter:diff-option) |
| 3240 | 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 |
| 3260 | 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 2d 67 75 74 74 65 72 | on-set-p).......(push.git-gutter |
| 3280 | 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 70 75 73 68 | :start-revision.args)).....(push |
| 32a0 | 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 20 28 63 6f 6e 73 20 | ."--".args).....(nreverse.(cons. |
| 32c0 | 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 2d 67 75 74 74 65 72 | file.args))))..(defun.git-gutter |
| 32e0 | 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 66 69 6c 65 20 70 72 | :start-git-diff-process.(file.pr |
| 3300 | 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 2d 67 75 74 74 65 72 | oc-buf)...(let.((arg.(git-gutter |
| 3320 | 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 29 29 0a 20 20 20 20 | :git-diff-arguments.file)))..... |
| 3340 | 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 73 73 20 22 67 69 74 | (apply.#'start-file-process."git |
| 3360 | 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 20 20 20 20 22 67 69 | -gutter".proc-buf............"gi |
| 3380 | 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 66 2e 61 75 74 6f 72 | t"."--no-pager"."-c"."diff.autor |
| 33a0 | 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 20 22 64 69 66 66 22 | efreshindex=0"............"diff" |
| 33c0 | 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 69 66 66 22 20 22 2d | ."--no-color"."--no-ext-diff"."- |
| 33e0 | 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 20 20 20 61 72 67 29 | -relative"."-U0"............arg) |
| 3400 | 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 2d 64 69 66 66 2d 61 | ))..(defun.git-gutter:svn-diff-a |
| 3420 | 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 72 67 73 29 0a 20 20 | rguments.(file)...(let.(args)... |
| 3440 | 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 74 74 65 72 3a 73 75 | ..(unless.(string=.git-gutter:su |
| 3460 | 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 20 20 20 20 20 20 28 | bversion-diff-option."").......( |
| 3480 | 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 74 2d 73 74 72 69 6e | setq.args.(nreverse.(split-strin |
| 34a0 | 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 69 66 66 2d 6f 70 74 | g.git-gutter:subversion-diff-opt |
| 34c0 | 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 3a 72 65 | ion)))).....(when.(git-gutter:re |
| 34e0 | 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 22 2d 72 22 20 61 | vision-set-p).......(push."-r".a |
| 3500 | 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 65 72 3a 73 74 61 72 | rgs).......(push.git-gutter:star |
| 3520 | 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 65 76 65 72 73 65 20 | t-revision.args)).....(nreverse. |
| 3540 | 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 73 75 62 73 74 20 67 | (cons.file.args))))..(defsubst.g |
| 3560 | 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 70 72 6f 63 65 73 73 | it-gutter:start-svn-diff-process |
| 3580 | 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 28 61 72 67 73 20 28 | .(file.proc-buf)...(let.((args.( |
| 35a0 | 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 65 6e 74 73 20 66 69 | git-gutter:svn-diff-arguments.fi |
| 35c0 | 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 66 69 6c 65 2d 70 72 | le))).....(apply.#'start-file-pr |
| 35e0 | 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 75 66 20 22 73 76 6e | ocess."git-gutter".proc-buf."svn |
| 3600 | 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 20 20 20 20 20 20 20 | "."diff"."--diff-cmd"........... |
| 3620 | 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 29 0a 0a 28 64 65 66 | ."diff"."-x"."-U0".args)))..(def |
| 3640 | 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 75 6d 65 6e 74 73 20 | un.git-gutter:hg-diff-arguments. |
| 3660 | 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 73 73 | (file)...(let.(args).....(unless |
| 3680 | 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 75 72 69 61 6c 2d 64 | .(string=.git-gutter:mercurial-d |
| 36a0 | 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 71 20 61 72 67 73 20 | iff-option."").......(setq.args. |
| 36c0 | 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 69 74 2d 67 75 74 74 | (nreverse.(split-string.git-gutt |
| 36e0 | 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 29 29 29 0a 20 20 20 | er:mercurial-diff-option)))).... |
| 3700 | 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 6f 6e 2d 73 65 74 2d | .(when.(git-gutter:revision-set- |
| 3720 | 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 0a 20 20 20 20 20 20 | p).......(push."-r".args)....... |
| 3740 | 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 76 69 73 69 6f 6e 20 | (push.git-gutter:start-revision. |
| 3760 | 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 73 20 66 69 6c 65 20 | args)).....(nreverse.(cons.file. |
| 3780 | 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 75 74 74 65 72 3a 73 | args))))..(defsubst.git-gutter:s |
| 37a0 | 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 65 20 70 72 6f 63 2d | tart-hg-diff-process.(file.proc- |
| 37c0 | 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 75 74 74 65 72 3a 68 | buf)...(let.((args.(git-gutter:h |
| 37e0 | 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 20 20 20 20 20 20 20 | g-diff-arguments.file))......... |
| 3800 | 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 73 20 22 48 47 50 4c | (process-environment.(cons."HGPL |
| 3820 | 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 74 29 29 29 0a 20 20 | AIN=1".process-environment)))... |
| 3840 | 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 73 73 20 22 67 | ..(apply.#'start-file-process."g |
| 3860 | 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 22 64 69 66 66 22 20 | it-gutter".proc-buf."hg"."diff". |
| 3880 | 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 2d 67 75 74 74 65 72 | "-U0".args)))..(defun.git-gutter |
| 38a0 | 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 29 0a 20 20 28 6c 65 | :bzr-diff-arguments.(file)...(le |
| 38c0 | 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 69 6e 67 3d 20 67 69 | t.(args).....(unless.(string=.gi |
| 38e0 | 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 6f 6e 20 22 22 29 0a | t-gutter:bazaar-diff-option.""). |
| 3900 | 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 |
| 3920 | 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 72 2d 64 69 66 66 2d | t-string.git-gutter:bazaar-diff- |
| 3940 | 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 |
| 3960 | 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 22 2d 72 | :revision-set-p).......(push."-r |
| 3980 | 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 65 72 3a 73 | ".args).......(push.git-gutter:s |
| 39a0 | 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 65 76 65 72 | tart-revision.args)).....(nrever |
| 39c0 | 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 73 75 62 73 | se.(cons.file.args))))..(defsubs |
| 39e0 | 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 66 66 2d 70 72 6f 63 | t.git-gutter:start-bzr-diff-proc |
| 3a00 | 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 28 61 72 67 | ess.(file.proc-buf)...(let.((arg |
| 3a20 | 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 67 75 6d 65 6e 74 73 | s.(git-gutter:bzr-diff-arguments |
| 3a40 | 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 66 69 6c 65 | .file))).....(apply.#'start-file |
| 3a60 | 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 75 66 0a 20 | -process."git-gutter".proc-buf.. |
| 3a80 | 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 2d 63 6f 6e 74 65 78 | .........."bzr"."diff"."--contex |
| 3aa0 | 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 67 75 74 74 65 72 3a | t=0".args)))..(defun.git-gutter: |
| 3ac0 | 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 20 70 72 6f 63 2d 62 | start-diff-process1.(file.proc-b |
| 3ae0 | 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 3a 76 63 73 2d 74 79 | uf)...(cl-case.git-gutter:vcs-ty |
| 3b00 | 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 74 61 72 74 2d 67 69 | pe.....(git.(git-gutter:start-gi |
| 3b20 | 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 62 75 66 29 29 0a 20 | t-diff-process.file.proc-buf)).. |
| 3b40 | 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 2d 73 76 6e 2d 64 69 | ...(svn.(git-gutter:start-svn-di |
| 3b60 | 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 28 | ff-process.file.proc-buf)).....( |
| 3b80 | 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 69 66 66 2d 70 72 6f | hg.(git-gutter:start-hg-diff-pro |
| 3ba0 | 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 28 62 7a 72 20 28 67 | cess.file.proc-buf)).....(bzr.(g |
| 3bc0 | 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 70 72 6f 63 65 73 73 | it-gutter:start-bzr-diff-process |
| 3be0 | 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 6e 20 67 69 74 2d 67 | .file.proc-buf))))..(defun.git-g |
| 3c00 | 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 63 75 72 66 69 6c | utter:start-diff-process.(curfil |
| 3c20 | 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 20 28 67 69 74 2d 67 | e.proc-buf)...(let.((file.(git-g |
| 3c40 | 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 74 72 61 6d 70 0a 20 | utter:base-file)).;;.for.tramp.. |
| 3c60 | 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 75 66 66 65 72 29 29 | .......(curbuf.(current-buffer)) |
| 3c80 | 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 74 74 65 72 3a 73 74 | .........(process.(git-gutter:st |
| 3ca0 | 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 20 70 72 6f 63 2d 62 | art-diff-process1.curfile.proc-b |
| 3cc0 | 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 65 72 79 2d 6f 6e 2d | uf))).....(set-process-query-on- |
| 3ce0 | 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 20 20 28 73 65 74 2d | exit-flag.process.nil).....(set- |
| 3d00 | 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 63 65 73 73 0a 20 20 | process-sentinel......process... |
| 3d20 | 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 20 20 20 20 20 20 20 | ...(lambda.(proc._event)........ |
| 3d40 | 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 20 70 72 6f 63 29 20 | (when.(eq.(process-status.proc). |
| 3d60 | 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 2d 67 75 74 74 65 72 | 'exit)..........(setq.git-gutter |
| 3d80 | 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 65 74 20 28 28 64 69 | :enabled.nil)..........(let.((di |
| 3da0 | 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 73 73 2d 64 69 66 66 | ffinfos.(git-gutter:process-diff |
| 3dc0 | 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 72 6f 63 29 29 29 29 | -output.(process-buffer.proc)))) |
| 3de0 | 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 2d 6c 69 76 65 2d 70 | ............(when.(buffer-live-p |
| 3e00 | 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 74 68 2d 63 75 72 72 | .curbuf)..............(with-curr |
| 3e20 | 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 20 20 | ent-buffer.curbuf............... |
| 3e40 | 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 64 69 66 | .(git-gutter:update-diffinfo.dif |
| 3e60 | 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 68 65 6e 20 67 69 74 | finfos)................(when.git |
| 3e80 | 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.... |
| 3ea0 | 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 75 70 64 61 74 65 | ..............(git-gutter:update |
| 3ec0 | 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 20 20 20 20 20 20 20 | -indirect-buffers.file))........ |
| 3ee0 | 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 62 6c 65 64 | ........(setq.git-gutter:enabled |
| 3f00 | 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 66 66 65 72 20 70 72 | .t)))............(kill-buffer.pr |
| 3f20 | 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 67 69 74 2d 67 75 74 | oc-buf)))))))..(defsubst.git-gut |
| 3f40 | 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 20 28 77 68 65 6e 20 | ter:gutter-seperator.()...(when. |
| 3f60 | 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 0a 20 20 20 20 28 70 | git-gutter:separator-sign.....(p |
| 3f80 | 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 72 61 74 6f 72 2d 73 | ropertize.git-gutter:separator-s |
| 3fa0 | 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 61 72 61 74 6f 72 29 | ign.'face.'git-gutter:separator) |
| 3fc0 | 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 6f 72 65 2d 73 74 72 | ))..(defun.git-gutter:before-str |
| 3fe0 | 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 72 2d 73 65 70 20 28 | ing.(sign)...(let.((gutter-sep.( |
| 4000 | 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 75 74 74 65 72 2d 73 | concat.sign.(git-gutter:gutter-s |
| 4020 | 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 69 7a 65 20 22 20 22 | eperator)))).....(propertize."." |
| 4040 | 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 6d 61 72 67 69 6e 29 | .'display.`((margin.left-margin) |
| 4060 | 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 67 69 74 2d 67 75 74 | .,gutter-sep))))..(defun.git-gut |
| 4080 | 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 65 29 0a 20 20 28 6c | ter:propertized-sign.(type)...(l |
| 40a0 | 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 73 65 20 74 79 70 65 | et.(sign.face).....(cl-case.type |
| 40c0 | 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 67 69 74 2d 67 75 74 | .......(added.(setq.sign.git-gut |
| 40e0 | 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 20 20 20 20 20 20 20 | ter:added-sign.................. |
| 4100 | 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 29 0a 20 20 20 20 20 | ..face.'git-gutter:added))...... |
| 4120 | 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 2d 67 75 74 74 65 72 | .(modified.(setq.sign.git-gutter |
| 4140 | 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 20 20 | :modified-sign.................. |
| 4160 | 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 69 66 69 65 64 29 29 | .....face.'git-gutter:modified)) |
| 4180 | 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 6e 20 67 69 74 2d 67 | .......(deleted.(setq.sign.git-g |
| 41a0 | 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 20 20 20 20 20 20 20 | utter:deleted-sign.............. |
| 41c0 | 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 64 65 6c 65 74 65 64 | ........face.'git-gutter:deleted |
| 41e0 | 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 72 6f 70 65 72 74 79 | ))).....(when.(get-text-property |
| 4200 | 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 71 20 66 61 63 65 20 | .0.'face.sign).......(setq.face. |
| 4220 | 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 20 28 67 65 74 2d 74 | (append...................(get-t |
| 4240 | 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 29 0a 20 20 20 20 20 | ext-property.0.'face.sign)...... |
| 4260 | 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 66 61 63 65 29 29 29 | .............`(:inherit.,face))) |
| 4280 | 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 61 63 65 20 66 61 63 | ).....(propertize.sign.'face.fac |
| 42a0 | 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 72 3a 6c 69 6e 75 6d | e)))..(defsubst.git-gutter:linum |
| 42c0 | 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 6c 6f 6f 70 20 66 6f | -get-overlay.(pos)...(cl-loop.fo |
| 42e0 | 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 70 6f 73 29 0a 20 20 | r.ov.in.(overlays-in.pos.pos)... |
| 4300 | 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 74 20 6f 76 20 27 6c | .........when.(overlay-get.ov.'l |
| 4320 | 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 72 6e 20 6f 76 29 29 | inum-str)............return.ov)) |
| 4340 | 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 2d 6c 69 | ..(defun.git-gutter:put-signs-li |
| 4360 | 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 73 74 20 28 70 6f 73 | num.(sign.points)...(dolist.(pos |
| 4380 | 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 61 77 68 65 6e 20 28 | .points).....(git-gutter:awhen.( |
| 43a0 | 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 6c 61 79 20 70 6f 73 | git-gutter:linum-get-overlay.pos |
| 43c0 | 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 62 65 66 6f 72 65 2d | ).......(overlay-put.it.'before- |
| 43e0 | 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 70 65 | string....................(prope |
| 4400 | 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 20 20 20 20 20 20 20 | rtize."."....................... |
| 4420 | 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 20 20 20 20 20 20 20 | .........'display............... |
| 4440 | 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 6e 20 6c 65 66 74 2d | .................`((margin.left- |
| 4460 | 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 20 20 20 20 20 20 20 | margin)......................... |
| 4480 | 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 76 65 72 6c 61 79 2d | .........,(concat.sign.(overlay- |
| 44a0 | 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 0a 0a 28 64 65 66 75 | get.it.'linum-str))))))))..(defu |
| 44c0 | 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 69 67 6e 20 70 6f 69 | n.git-gutter:put-signs.(sign.poi |
| 44e0 | 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 75 6d 2d 65 6e 61 62 | nts)...(if.git-gutter:linum-enab |
| 4500 | 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 2d 73 69 67 6e 73 2d | led.......(git-gutter:put-signs- |
| 4520 | 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 6f 6c 69 73 74 20 28 | linum.sign.points).....(dolist.( |
| 4540 | 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 6f 76 20 28 6d 61 6b | pos.points).......(let.((ov.(mak |
| 4560 | 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 20 20 20 20 20 20 20 | e-overlay.pos.pos))............. |
| 4580 | 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 62 65 66 6f 72 65 2d | (gutter-sign.(git-gutter:before- |
| 45a0 | 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 76 65 72 6c 61 79 2d | string.sign))).........(overlay- |
| 45c0 | 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 74 65 72 2d 73 69 67 | put.ov.'before-string.gutter-sig |
| 45e0 | 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 76 20 27 67 69 74 2d | n).........(overlay-put.ov.'git- |
| 4600 | 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 67 69 74 2d 67 75 74 | gutter.t)))))..(defsubst.git-gut |
| 4620 | 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 63 6c 2d 6c 6f 6f 70 | ter:sign-width.(sign)...(cl-loop |
| 4640 | 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 20 20 20 20 20 73 75 | .for.s.across.sign............su |
| 4660 | 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 6e 20 67 69 74 2d 67 | m.(char-width.s)))..(defun.git-g |
| 4680 | 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 28 29 0a 20 20 28 6c | utter:longest-sign-width.()...(l |
| 46a0 | 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 65 72 3a 6d 6f 64 69 | et.((signs.(list.git-gutter:modi |
| 46c0 | 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 20 20 20 20 20 20 67 | fied-sign......................g |
| 46e0 | 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 20 | it-gutter:added-sign............ |
| 4700 | 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 74 65 64 2d 73 69 67 | ..........git-gutter:deleted-sig |
| 4720 | 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 3a 75 6e 63 68 61 6e | n))).....(when.git-gutter:unchan |
| 4740 | 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 67 75 74 74 65 72 3a | ged-sign.......(push.git-gutter: |
| 4760 | 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 20 20 28 2b 20 28 61 | unchanged-sign.signs)).....(+.(a |
| 4780 | 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 75 74 74 65 72 3a 73 | pply.#'max.(mapcar.'git-gutter:s |
| 47a0 | 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 28 67 69 74 2d 67 75 | ign-width.signs))........(git-gu |
| 47c0 | 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 72 3a 73 65 70 61 72 | tter:sign-width.git-gutter:separ |
| 47e0 | 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 2d 67 75 74 74 65 72 | ator-sign))))..(defun.git-gutter |
| 4800 | 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 20 28 6c 65 74 20 28 | :next-visual-line.(arg)...(let.( |
| 4820 | 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 20 28 6f 72 20 28 69 | (line-move-visual.t)).....(or.(i |
| 4840 | 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 20 6e 65 78 74 2d 6c | gnore-errors...........;;.next-l |
| 4860 | 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 6e 64 20 6f 66 20 62 | ine.raises.exception.at.end.of.b |
| 4880 | 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 77 61 72 6e 69 6e 67 | uffer...........(with-no-warning |
| 48a0 | 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 61 72 67 29 29 0a 20 | s.............(next-line.arg)).. |
| 48c0 | 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 2d 63 68 61 72 20 28 | .........t).........(goto-char.( |
| 48e0 | 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 74 2d 67 75 74 74 65 | point-max)))))..(defun.git-gutte |
| 4900 | 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 64 69 66 66 69 6e 66 | r:unchanged-line-p.(line.diffinf |
| 4920 | 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 6e 20 64 69 66 66 69 | os)...(cl-loop.for.info.in.diffi |
| 4940 | 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 20 3d 20 28 67 69 74 | nfos............for.start.=.(git |
| 4960 | 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 6e 66 6f 29 0a 20 20 | -gutter-hunk-start-line.info)... |
| 4980 | 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 75 74 74 65 72 2d 68 | .........for.end.=.(git-gutter-h |
| 49a0 | 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 20 20 6e 65 | unk-end-line.info)............ne |
| 49c0 | 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 28 3c 3d 20 6c 69 6e | ver.(and.(>=.line.start).(<=.lin |
| 49e0 | 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 74 65 72 3a 76 69 65 | e.end))))..(defun.git-gutter:vie |
| 4a00 | 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 73 29 0a 20 20 28 73 | w-for-unchanged.(diffinfos)...(s |
| 4a20 | 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 73 69 67 6e 20 28 69 | ave-excursion.....(let.((sign.(i |
| 4a40 | 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 67 6e 0a 20 20 20 20 | f.git-gutter:unchanged-sign..... |
| 4a60 | 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 7a 65 20 67 69 74 2d | ................(propertize.git- |
| 4a80 | 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 20 20 20 20 20 20 20 | gutter:unchanged-sign........... |
| 4aa0 | 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 63 65 20 27 67 69 74 | ......................'face.'git |
| 4ac0 | 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 20 20 20 20 20 20 20 | -gutter:unchanged).............. |
| 4ae0 | 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 65 2d 66 6e 20 28 69 | ....."."))...........(move-fn.(i |
| 4b00 | 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 20 20 20 20 20 20 20 | f.git-gutter:visual-line........ |
| 4b20 | 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 74 65 72 3a 6e 65 78 | ................#'git-gutter:nex |
| 4b40 | 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 20 20 20 20 20 20 20 | t-visual-line................... |
| 4b60 | 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 20 20 20 20 20 70 6f | ...#'forward-line))...........po |
| 4b80 | 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 6f 69 6e 74 2d 6d 69 | ints).......(goto-char.(point-mi |
| 4ba0 | 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 62 70 29 29 0a 20 20 | n)).......(while.(not.(eobp))... |
| 4bc0 | 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 6e 63 68 61 6e 67 65 | ......(when.(git-gutter:unchange |
| 4be0 | 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 70 6f 73 29 20 64 69 | d-line-p.(line-number-at-pos).di |
| 4c00 | 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 28 70 6f 69 6e 74 29 | ffinfos)...........(push.(point) |
| 4c20 | 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 6c 20 6d 6f 76 65 2d | .points)).........(funcall.move- |
| 4c40 | 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 70 75 74 2d 73 69 67 | fn.1)).......(git-gutter:put-sig |
| 4c60 | 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 75 62 73 74 20 67 69 | ns.sign.points))))..(defsubst.gi |
| 4c80 | 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 69 72 65 63 74 6f 72 | t-gutter:check-file-and-director |
| 4ca0 | 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 61 73 65 2d 66 69 6c | y.()...(and.(git-gutter:base-fil |
| 4cc0 | 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 72 79 20 28 66 69 6c | e)........default-directory.(fil |
| 4ce0 | 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 65 63 74 6f 72 79 29 | e-directory-p.default-directory) |
| 4d00 | 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 2d 63 6f 6d 6d 61 6e | ))..(defun.git-gutter:pre-comman |
| 4d20 | 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 20 74 68 69 73 2d 63 | d-hook.()...(unless.(memq.this-c |
| 4d40 | 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 63 6f 6d 6d 61 6e 64 | ommand.git-gutter:ignore-command |
| 4d60 | 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 65 61 6c 2d 74 68 69 | s).....(setq.git-gutter:real-thi |
| 4d80 | 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 0a 0a 28 64 65 66 75 | s-command.this-command)))..(defu |
| 4da0 | 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 2d 77 69 6e 64 6f 77 | n.git-gutter:update-other-window |
| 4dc0 | 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 20 20 28 73 61 76 65 | -buffers.(curwin.curbuf)...(save |
| 4de0 | 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 6c 6f 6f 70 20 66 6f | -selected-window.....(cl-loop.fo |
| 4e00 | 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 20 20 20 20 | r.win.in.(window-list).......... |
| 4e20 | 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 29 0a 20 20 20 20 20 | ....unless.(eq.win.curwin)...... |
| 4e40 | 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 70 72 6f 67 6e 0a 20 | ........do..............(progn.. |
| 4e60 | 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 64 6f 77 20 77 69 6e | ..............(select-window.win |
| 4e80 | 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 69 6e 2d 77 69 64 74 | )................(let.((win-widt |
| 4ea0 | 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 20 20 20 20 20 20 20 | h.(window-margins.win)))........ |
| 4ec0 | 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 6e 2d 77 69 64 74 68 | ..........(unless.(car.win-width |
| 4ee0 | 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 28 65 71 20 28 63 75 | )....................(if.(eq.(cu |
| 4f00 | 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 20 20 20 20 20 20 20 | rrent-buffer).curbuf)........... |
| 4f20 | 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 73 65 74 2d 77 69 6e | .............(git-gutter:set-win |
| 4f40 | 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 6e 64 6f 77 2d 6d 61 | dow-margin.(git-gutter:window-ma |
| 4f60 | 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 20 20 20 28 67 69 74 | rgin))......................(git |
| 4f80 | 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 69 74 2d 67 75 74 74 | -gutter:update-diffinfo.git-gutt |
| 4fa0 | 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 66 75 6e 20 67 69 74 | er:diffinfos))))))))..(defun.git |
| 4fc0 | 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 20 28 29 0a 20 20 28 | -gutter:post-command-hook.()...( |
| 4fe0 | 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 61 6c 2d 74 68 69 73 | cond.((memq.git-gutter:real-this |
| 5000 | 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 2d 63 6f 6d 6d 61 | -command.git-gutter:update-comma |
| 5020 | 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 29 29 0a 20 20 20 20 | nds)..........(git-gutter))..... |
| 5040 | 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 6c 2d 74 68 69 73 2d | ....((memq.git-gutter:real-this- |
| 5060 | 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 2d 77 69 6e 64 6f 77 | command.git-gutter:update-window |
| 5080 | 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 2d 67 75 74 74 65 72 | s-commands)..........(git-gutter |
| 50a0 | 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 2d 61 6e 64 2d 74 72 | )..........(unless.(bound-and-tr |
| 50c0 | 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 20 20 20 20 20 20 20 | ue-p.global-linum-mode)......... |
| 50e0 | 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 65 72 2d 77 69 6e 64 | ...(git-gutter:update-other-wind |
| 5100 | 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 6f 77 29 0a 20 20 20 | ow-buffers.(selected-window).... |
| 5120 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 5140 | 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 62 75 66 66 65 72 29 | ................(current-buffer) |
| 5160 | 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 3a 64 69 66 66 | )))))..(defsubst.git-gutter:diff |
| 5180 | 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 0a 20 20 28 63 6f 6e | -process-buffer.(curfile)...(con |
| 51a0 | 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 6c 65 20 22 2d 2a 22 | cat.".*git-gutter-".curfile."-*" |
| 51c0 | 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 62 75 66 66 65 | ))..(defun.git-gutter:kill-buffe |
| 51e0 | 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 69 74 2d 67 75 74 74 | r-hook.()...(let.((buf.(git-gutt |
| 5200 | 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 69 74 2d 67 75 74 74 | er:diff-process-buffer.(git-gutt |
| 5220 | 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 2d 67 75 74 74 65 72 | er:base-file)))).....(git-gutter |
| 5240 | 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 20 20 20 20 20 28 6b | :awhen.(get-buffer.buf).......(k |
| 5260 | 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 62 73 74 20 67 69 74 | ill-buffer.it))))..(defsubst.git |
| 5280 | 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 20 20 28 63 6c 2d 6c | -gutter:linum-padding.()...(cl-l |
| 52a0 | 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 6e 64 6f 77 2d 6d 61 | oop.repeat.(git-gutter:window-ma |
| 52c0 | 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 22 20 22 20 69 6e 74 | rgin)............collect.".".int |
| 52e0 | 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 61 6c 6c 79 20 72 65 | o.paddings............finally.re |
| 5300 | 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 69 6e 67 73 29 29 29 | turn.(apply.#'concat.paddings))) |
| 5320 | 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 70 72 65 70 65 6e | ..(defun.git-gutter:linum-prepen |
| 5340 | 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 73 69 6f 6e 0a 20 20 | d-spaces.()...(save-excursion... |
| 5360 | 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 28 6c | ..(goto-char.(point-min)).....(l |
| 5380 | 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 6c 69 6e 75 6d 2d 70 | et.((padding.(git-gutter:linum-p |
| 53a0 | 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 29 0a 20 20 20 20 20 | adding))...........points)...... |
| 53c0 | 20 28 77 68 69 6c 65 20 28 6e 6f 74 20 28 65 6f 62 70 29 29 0a 20 20 20 20 20 20 20 20 28 70 75 | .(while.(not.(eobp)).........(pu |
| 53e0 | 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 20 20 28 66 6f 72 77 | sh.(point).points).........(forw |
| 5400 | 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 75 74 74 65 72 3a 70 | ard-line.1)).......(git-gutter:p |
| 5420 | 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 69 6e 74 73 29 29 29 | ut-signs-linum.padding.points))) |
| 5440 | 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 2d 75 70 64 61 74 | )..(defun.git-gutter:linum-updat |
| 5460 | 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 6e 75 6d 2d 77 69 64 | e.(diffinfos)...(let.((linum-wid |
| 5480 | 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 29 29 0a 20 20 20 20 | th.(car.(window-margins))))..... |
| 54a0 | 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 67 69 74 2d 67 75 74 | (when.linum-width.......(git-gut |
| 54c0 | 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 0a 20 20 20 20 20 20 | ter:linum-prepend-spaces)....... |
| 54e0 | 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 6c 61 79 73 20 64 69 | (git-gutter:view-set-overlays.di |
| 5500 | 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 77 69 6e 20 28 67 65 | ffinfos).......(let.((curwin.(ge |
| 5520 | 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 20 20 20 20 20 28 6d | t-buffer-window)).............(m |
| 5540 | 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 2d 67 75 74 74 65 72 | argin.(+.linum-width.(git-gutter |
| 5560 | 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 20 20 28 73 65 74 71 | :window-margin)))).........(setq |
| 5580 | 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 6f 77 2d 6d 61 | .git-gutter:linum-prev-window-ma |
| 55a0 | 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 2d 77 69 6e 64 6f 77 | rgin.margin).........(set-window |
| 55c0 | 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 64 72 20 28 77 69 6e | -margins.curwin.margin.(cdr.(win |
| 55e0 | 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 0a 0a 28 64 65 66 75 | dow-margins.curwin)))))))..(defu |
| 5600 | 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 29 0a 20 20 28 73 65 | n.git-gutter:linum-init.()...(se |
| 5620 | 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 2d 65 6e 61 62 6c 65 | tq-local.git-gutter:linum-enable |
| 5640 | 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 6c 65 20 27 67 69 74 | d.t)...(make-local-variable.'git |
| 5660 | 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 2d 6d 61 72 67 69 6e | -gutter:linum-prev-window-margin |
| 5680 | 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 2d 75 70 64 61 | ))..(defun.git-gutter:linum-upda |
| 56a0 | 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 20 28 77 68 65 6e 20 | te-window.(&rest._args)...(when. |
| 56c0 | 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 28 69 66 20 28 61 6e | git-gutter:display-p.....(if.(an |
| 56e0 | 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 74 65 72 3a 64 69 66 | d.git-gutter-mode.git-gutter:dif |
| 5700 | 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 65 72 3a 6c 69 6e 75 | finfos).........(git-gutter:linu |
| 5720 | 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 6e 66 6f 73 29 0a 20 | m-update.git-gutter:diffinfos).. |
| 5740 | 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 75 66 66 65 72 2d 77 | .....(let.((curwin.(get-buffer-w |
| 5760 | 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 69 6e 20 28 6f 72 20 | indow)).............(margin.(or. |
| 5780 | 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 2d 6d 61 72 | git-gutter:linum-prev-window-mar |
| 57a0 | 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 20 20 20 28 63 61 72 | gin.........................(car |
| 57c0 | 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 20 20 20 20 20 28 73 | .(window-margins))))).........(s |
| 57e0 | 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 6d 61 72 67 69 6e 20 | et-window-margins.curwin.margin. |
| 5800 | 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 29 29 | (cdr.(window-margins.curwin))))) |
| 5820 | 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 75 | ))..;;;###autoload.(defun.git-gu |
| 5840 | 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 74 75 70 20 66 6f 72 | tter:linum-setup.()..."Setup.for |
| 5860 | 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 2d 67 75 74 74 65 72 | .linum-mode."...(setq.git-gutter |
| 5880 | 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 72 3a 6c 69 6e 75 6d | :init-function.'git-gutter:linum |
| 58a0 | 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 76 69 65 77 2d 64 69 | -init.........git-gutter:view-di |
| 58c0 | 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 65 2d 61 64 64 20 27 | ff-function.nil)...(advice-add.' |
| 58e0 | 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 72 20 23 27 67 69 74 | linum-update-window.:after.#'git |
| 5900 | 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 6f 77 29 29 0a 0a 28 | -gutter:linum-update-window))..( |
| 5920 | 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 6b 65 6e 64 73 20 28 | defun.git-gutter:show-backends.( |
| 5940 | 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 61 63 6b 65 6e 64 29 | )...(mapconcat.(lambda.(backend) |
| 5960 | 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 7a 65 20 28 73 79 6d | ................(capitalize.(sym |
| 5980 | 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 20 20 20 20 20 20 20 | bol-name.backend)))............. |
| 59a0 | 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 20 22 2f 22 | .git-gutter:handled-backends."/" |
| 59c0 | 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 6d 69 6e 6f 72 | ))..;;;###autoload.(define-minor |
| 59e0 | 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 47 69 74 2d 47 75 74 | -mode.git-gutter-mode..."Git-Gut |
| 5a00 | 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 69 6c 0a 20 20 3a 67 | ter.mode"...:init-value.nil...:g |
| 5a20 | 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 20 20 20 67 69 74 2d | lobal.....nil...:lighter....git- |
| 5a40 | 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 67 75 74 74 65 72 2d | gutter:lighter...(if.git-gutter- |
| 5a60 | 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 67 75 74 74 65 72 3a | mode.......(if.(and.(git-gutter: |
| 5a80 | 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 0a 20 20 20 20 20 20 | check-file-and-directory)....... |
| 5aa0 | 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 65 70 6f 73 69 74 6f | .........(git-gutter:in-reposito |
| 5ac0 | 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 20 20 20 20 20 20 20 | ry-p))...........(progn......... |
| 5ae0 | 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 2d 66 75 6e 63 74 69 | ....(when.git-gutter:init-functi |
| 5b00 | 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 20 67 69 74 2d 67 75 | on...............(funcall.git-gu |
| 5b20 | 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 20 20 20 20 20 20 20 | tter:init-function))............ |
| 5b40 | 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 74 2d 67 75 74 74 65 | .(make-local-variable.'git-gutte |
| 5b60 | 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 3b 3b 28 73 65 74 71 | r:diffinfos).............;;(setq |
| 5b80 | 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 65 76 69 73 69 6f 6e | -local.git-gutter:start-revision |
| 5ba0 | 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 6f 6b 20 27 6b 69 6c | .nil).............(add-hook.'kil |
| 5bc0 | 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 6c 6c 2d 62 | l-buffer-hook.'git-gutter:kill-b |
| 5be0 | 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 20 20 20 20 20 28 61 | uffer-hook.nil.t).............(a |
| 5c00 | 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 20 27 67 69 74 2d 67 | dd-hook.'pre-command-hook.'git-g |
| 5c20 | 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 0a 20 20 20 20 20 20 | utter:pre-command-hook.t)....... |
| 5c40 | 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 6d 61 6e 64 2d 68 6f | ......(add-hook.'post-command-ho |
| 5c60 | 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 6e 64 2d 68 6f 6f 6b | ok.'git-gutter:post-command-hook |
| 5c80 | 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 73 74 20 28 68 6f 6f | .nil.t).............(dolist.(hoo |
| 5ca0 | 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 29 0a 20 20 20 20 20 | k.git-gutter:update-hooks)...... |
| 5cc0 | 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 67 69 74 2d 67 75 74 | .........(add-hook.hook.'git-gut |
| 5ce0 | 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 67 69 74 2d 67 75 74 | ter.nil.t)).............(git-gut |
| 5d00 | 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 6e 64 20 28 6e 6f 74 | ter).............(when.(and.(not |
| 5d20 | 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 0a 20 20 20 20 20 20 | .git-gutter:update-timer)....... |
| 5d40 | 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 75 74 74 65 72 3a 75 | .................(>.git-gutter:u |
| 5d60 | 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 20 20 20 20 20 20 20 | pdate-interval.0)).............. |
| 5d80 | 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 74 69 6d 65 72 0a 20 | .(setq.git-gutter:update-timer.. |
| 5da0 | 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 69 74 68 2d 69 64 6c | ...................(run-with-idl |
| 5dc0 | 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 20 20 20 20 67 69 74 | e-timer......................git |
| 5de0 | 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 20 27 67 69 74 2d 67 | -gutter:update-interval.t.'git-g |
| 5e00 | 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 20 20 20 20 20 28 77 | utter:live-update)))).........(w |
| 5e20 | 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 74 79 20 32 29 0a 20 | hen.(>.git-gutter:verbosity.2).. |
| 5e40 | 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 73 20 6e 6f 74 20 25 | .........(message."Here.is.not.% |
| 5e60 | 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 73 68 6f 77 2d 62 61 | s.work.tree".(git-gutter:show-ba |
| 5e80 | 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 74 74 65 72 2d 6d 6f | ckends))).........(git-gutter-mo |
| 5ea0 | 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 27 6b 69 6c 6c 2d 62 | de.-1)).....(remove-hook.'kill-b |
| 5ec0 | 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 6c 6c 2d 62 75 66 66 | uffer-hook.'git-gutter:kill-buff |
| 5ee0 | 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 6f 6b 20 27 70 72 65 | er-hook.t).....(remove-hook.'pre |
| 5f00 | 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 3a 70 72 65 2d 63 6f | -command-hook.'git-gutter:pre-co |
| 5f20 | 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 2d 68 6f 6f 6b 20 27 | mmand-hook.t).....(remove-hook.' |
| 5f40 | 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 74 74 65 72 3a 70 6f | post-command-hook.'git-gutter:po |
| 5f60 | 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 6f 6c 69 73 74 20 28 | st-command-hook.t).....(dolist.( |
| 5f80 | 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 29 0a 20 20 | hook.git-gutter:update-hooks)... |
| 5fa0 | 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 74 2d 67 75 74 74 65 | ....(remove-hook.hook.'git-gutte |
| 5fc0 | 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 61 72 2d 67 75 74 74 | r.t)).....(git-gutter:clear-gutt |
| 5fe0 | 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 2d 74 75 72 6e 2d 6f | er)))..(defun.git-gutter--turn-o |
| 6000 | 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 2d 66 69 6c 65 2d 6e | n.()...(when.(and.(buffer-file-n |
| 6020 | 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 65 6d 71 20 6d 61 6a | ame)..............(not.(memq.maj |
| 6040 | 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 65 64 2d 6d 6f 64 65 | or-mode.git-gutter:disabled-mode |
| 6060 | 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 20 2b 31 29 29 29 0a | s))).....(git-gutter-mode.+1))). |
| 6080 | 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 6c 6f 62 61 6c 2d 6d | .;;;###autoload.(define-global-m |
| 60a0 | 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 65 72 2d 6d 6f 64 65 | inor-mode.global-git-gutter-mode |
| 60c0 | 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 65 72 2d 2d 74 75 72 | .git-gutter-mode.git-gutter--tur |
| 60e0 | 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 65 72 3a 73 68 6f 77 | n-on)..(defsubst.git-gutter:show |
| 6100 | 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 69 66 20 67 69 74 2d | -gutter-p.(diffinfos)...(if.git- |
| 6120 | 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 28 6f 72 20 64 69 66 | gutter:hide-gutter.......(or.dif |
| 6140 | 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 65 64 2d 73 69 67 6e | finfos.git-gutter:unchanged-sign |
| 6160 | 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 65 72 2d 6d 6f 64 65 | ).....(or.global-git-gutter-mode |
| 6180 | 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 64 69 66 66 69 | .git-gutter:unchanged-sign.diffi |
| 61a0 | 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 72 3a 73 68 6f 77 2d | nfos)))..(defun.git-gutter:show- |
| 61c0 | 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 6e 20 28 67 69 74 2d | gutter.(diffinfos)...(when.(git- |
| 61e0 | 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 69 6e 66 6f 73 29 0a | gutter:show-gutter-p.diffinfos). |
| 6200 | 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 77 2d 6d 61 72 67 69 | ....(git-gutter:set-window-margi |
| 6220 | 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 69 6e 29 29 29 29 0a | n.(git-gutter:window-margin)))). |
| 6240 | 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 65 74 2d 6f 76 65 72 | .(defun.git-gutter:view-set-over |
| 6260 | 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 28 6f 72 20 67 69 74 | lays.(diffinfos)...(when.(or.git |
| 6280 | 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 74 2d 67 75 74 74 65 | -gutter:unchanged-sign.git-gutte |
| 62a0 | 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 74 2d 67 75 74 74 65 | r:separator-sign).....(git-gutte |
| 62c0 | 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 69 6e 66 6f 73 29 29 | r:view-for-unchanged.diffinfos)) |
| 62e0 | 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 6f 74 6f 2d 63 68 61 | ...(save-excursion.....(goto-cha |
| 6300 | 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 6f 70 20 77 69 74 68 | r.(point-min)).....(cl-loop.with |
| 6320 | 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 20 77 69 74 68 20 6d | .curline.=.1..............with.m |
| 6340 | 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 69 73 75 61 6c 2d 6c | ove-fn.=.(if.git-gutter:visual-l |
| 6360 | 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 20 20 20 20 20 | ine............................. |
| 6380 | 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 75 61 6c 2d 6c 69 6e | ....#'git-gutter:next-visual-lin |
| 63a0 | 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............................... |
| 63c0 | 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 20 20 20 20 20 66 6f | #'forward-line)...............fo |
| 63e0 | 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 20 20 20 20 20 20 20 | r.info.in.diffinfos............. |
| 6400 | 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 74 74 65 72 2d 68 75 | .for.start-line.=.(git-gutter-hu |
| 6420 | 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 20 20 20 20 20 20 20 | nk-start-line.info)............. |
| 6440 | 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 65 72 2d 68 75 6e 6b | .for.end-line.=.(git-gutter-hunk |
| 6460 | 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 20 20 20 20 66 6f 72 | -end-line.info)..............for |
| 6480 | 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 74 79 70 65 20 69 6e | .type.=.(git-gutter-hunk-type.in |
| 64a0 | 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 20 3d 20 28 67 69 74 | fo)..............for.sign.=.(git |
| 64c0 | 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 74 79 70 65 29 0a 20 | -gutter:propertized-sign.type).. |
| 64e0 | 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 6e 69 6c 0a 20 20 20 | ............for.points.=.nil.... |
| 6500 | 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 6c 65 74 20 28 | ..........do..............(let.( |
| 6520 | 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 20 20 20 20 20 20 20 | (bound.(progn................... |
| 6540 | 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 65 6e 64 2d 6c | ..........(forward-line.(-.end-l |
| 6560 | 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 20 20 20 20 20 20 20 | ine.curline))................... |
| 6580 | 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 20 20 20 20 20 20 20 | ..........(point))))............ |
| 65a0 | 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 74 2d 6c 69 6e 65 20 | ....(forward-line.(-.start-line. |
| 65c0 | 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 20 28 63 6c 2d 63 61 | end-line))................(cl-ca |
| 65e0 | 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 28 28 6d 6f 64 69 66 | se.type..................((modif |
| 6600 | 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 20 20 20 20 28 77 68 | ied.added)...................(wh |
| 6620 | 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 64 29 20 28 6e 6f 74 | ile.(and.(<=.(point).bound).(not |
| 6640 | 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 20 20 20 20 20 28 70 | .(eobp))).....................(p |
| 6660 | 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 20 20 20 20 20 20 | ush.(point).points)............. |
| 6680 | 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 31 29 29 0a 20 20 20 | ........(funcall.move-fn.1)).... |
| 66a0 | 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 70 75 74 2d 73 | ...............(git-gutter:put-s |
| 66c0 | 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 20 20 20 20 20 20 20 | igns.sign.points)).............. |
| 66e0 | 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 20 20 20 20 20 20 28 | ....(deleted...................( |
| 6700 | 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 20 28 6c 69 73 74 20 | git-gutter:put-signs.sign.(list. |
| 6720 | 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 20 20 20 28 66 6f 72 | (point)))...................(for |
| 6740 | 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 20 20 20 20 20 28 73 | ward-line.1)))................(s |
| 6760 | 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 29 29 29 29 29 0a 0a | etq.curline.(1+.end-line)))))).. |
| 6780 | 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 66 66 2d 69 6e 66 6f | (defun.git-gutter:view-diff-info |
| 67a0 | 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 20 64 69 66 66 69 6e | s.(diffinfos)...(when.(or.diffin |
| 67c0 | 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 77 2d 73 65 70 61 72 | fos.git-gutter:always-show-separ |
| 67e0 | 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 77 2d 73 65 74 2d 6f | ator).....(git-gutter:view-set-o |
| 6800 | 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 74 2d 67 75 74 74 65 | verlays.diffinfos))...(git-gutte |
| 6820 | 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 0a 0a 28 64 65 66 73 | r:show-gutter.diffinfos))..(defs |
| 6840 | 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 64 6f 77 2d 6d 61 72 | ubst.git-gutter:reset-window-mar |
| 6860 | 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 3a 68 69 64 65 2d 67 | gin-p.()...(or.git-gutter:hide-g |
| 6880 | 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 74 65 72 2d 6d 6f 64 | utter.(not.global-git-gutter-mod |
| 68a0 | 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 6c 65 61 72 2d 64 69 | e)))..(defun.git-gutter:clear-di |
| 68c0 | 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 67 75 74 74 65 72 3a | ff-infos.()...(when.(git-gutter: |
| 68e0 | 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 20 20 28 67 69 74 2d | reset-window-margin-p).....(git- |
| 6900 | 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 30 29 29 0a 20 20 28 | gutter:set-window-margin.0))...( |
| 6920 | 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 6e 29 20 28 70 6f 69 | remove-overlays.(point-min).(poi |
| 6940 | 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 28 64 65 66 75 6e 20 | nt-max).'git-gutter.t))..(defun. |
| 6960 | 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 29 0a 20 20 28 73 61 | git-gutter:clear-gutter.()...(sa |
| 6980 | 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 29 0a 20 20 20 20 28 | ve-restriction.....(widen).....( |
| 69a0 | 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 63 74 69 6f 6e 0a 20 | when.git-gutter:clear-function.. |
| 69c0 | 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 63 6c 65 61 72 2d 66 | .....(funcall.git-gutter:clear-f |
| 69e0 | 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 74 74 65 72 3a 65 6e | unction)))...(setq.git-gutter:en |
| 6a00 | 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 74 65 72 3a 6c 61 73 | abled.nil.........git-gutter:las |
| 6a20 | 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 0a 20 20 20 20 20 20 | t-chars-modified-tick.nil....... |
| 6a40 | 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 6c 29 29 0a 0a 28 64 | ..git-gutter:diffinfos.nil))..(d |
| 6a60 | 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 66 66 69 6e 66 6f 20 | efun.git-gutter:update-diffinfo. |
| 6a80 | 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 69 63 74 69 6f 6e 0a | (diffinfos)...(save-restriction. |
| 6aa0 | 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 65 72 3a 63 6c 65 61 | ....(widen).....(git-gutter:clea |
| 6ac0 | 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 75 74 74 65 72 3a 64 | r-gutter).....(setq.git-gutter:d |
| 6ae0 | 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 77 68 65 6e 20 28 61 | iffinfos.diffinfos).....(when.(a |
| 6b00 | 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 69 74 2d 67 75 74 74 | nd.git-gutter:display-p.git-gutt |
| 6b20 | 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 20 20 20 20 28 66 75 | er:view-diff-function).......(fu |
| 6b40 | 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 66 2d 66 75 6e 63 74 | ncall.git-gutter:view-diff-funct |
| 6b60 | 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 20 67 69 74 2d 67 75 | ion.diffinfos))))..(defun.git-gu |
| 6b80 | 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 65 78 20 28 64 69 66 | tter:search-near-diff-index.(dif |
| 6ba0 | 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 6c 6f 6f 70 20 77 69 | finfos.is-reverse)...(cl-loop.wi |
| 6bc0 | 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 62 65 72 2d 61 | th.current-line.=.(line-number-a |
| 6be0 | 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 70 2d 66 6e 20 3d 20 | t-pos)............with.cmp-fn.=. |
| 6c00 | 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 20 20 20 20 20 20 20 | (if.is-reverse.#'>.#'<)......... |
| 6c20 | 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 2d 72 65 76 65 72 73 | ...for.diffinfo.in.(if.is-revers |
| 6c40 | 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 66 69 6e 66 6f 73 29 | e.(reverse.diffinfos).diffinfos) |
| 6c60 | 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 20 74 68 65 6e 20 28 | ............for.index.=.0.then.( |
| 6c80 | 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 73 74 61 72 74 2d 6c | 1+.index)............for.start-l |
| 6ca0 | 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 61 72 74 2d 6c 69 6e | ine.=.(git-gutter-hunk-start-lin |
| 6cc0 | 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 65 6e 20 28 66 75 6e | e.diffinfo)............when.(fun |
| 6ce0 | 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 73 74 61 72 74 2d 6c | call.cmp-fn.current-line.start-l |
| 6d00 | 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 66 20 69 73 2d 72 65 | ine)............return.(if.is-re |
| 6d20 | 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 20 20 20 28 31 2d 20 | verse.......................(1-. |
| 6d40 | 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 65 78 29 29 0a 20 20 | (-.(length.diffinfos).index))... |
| 6d60 | 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 29 0a 0a 28 64 65 66 | ..................index)))..(def |
| 6d80 | 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 2d 64 69 66 66 69 6e | un.git-gutter:search-here-diffin |
| 6da0 | 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 69 63 74 69 | fo.(diffinfos)...(save-restricti |
| 6dc0 | 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 6f 70 20 77 69 74 68 | on.....(widen).....(cl-loop.with |
| 6de0 | 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 62 65 72 2d 61 74 2d | .current-line.=.(line-number-at- |
| 6e00 | 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 66 69 6e 66 6f 20 69 | pos)..............for.diffinfo.i |
| 6e20 | 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 66 6f 72 20 73 74 61 | n.diffinfos..............for.sta |
| 6e40 | 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 72 74 2d 6c 69 6e 65 | rt.=.(git-gutter-hunk-start-line |
| 6e60 | 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 6f 72 20 65 6e 64 20 | .diffinfo)..............for.end. |
| 6e80 | 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 65 6e 64 2d 6c 69 6e | ..=.(or.(git-gutter-hunk-end-lin |
| 6ea0 | 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 20 20 20 20 20 20 20 | e.diffinfo).(1+.start))......... |
| 6ec0 | 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 74 2d 6c 69 6e 65 20 | .....when.(and.(>=.current-line. |
| 6ee0 | 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 6e 64 29 29 0a 20 20 | start).(<=.current-line.end))... |
| 6f00 | 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 6f 0a 20 20 20 20 20 | ...........return.diffinfo...... |
| 6f20 | 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 20 22 48 65 72 65 20 | ........finally.do.(error."Here. |
| 6f40 | 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 65 66 75 6e 20 67 69 | is.not.changed!!"))))..(defun.gi |
| 6f60 | 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 6c 69 6e 65 20 28 73 | t-gutter:collect-deleted-line.(s |
| 6f80 | 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 20 20 20 28 69 6e 73 | tr)...(with-temp-buffer.....(ins |
| 6fa0 | 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 70 6f 69 6e 74 2d 6d | ert.str).....(goto-char.(point-m |
| 6fc0 | 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 72 65 2d 73 65 61 72 | in)).....(cl-loop.while.(re-sear |
| 6fe0 | 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 20 6e 69 6c 20 74 29 | ch-forward."^-\\(.*?\\)$".nil.t) |
| 7000 | 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 74 63 68 2d 73 74 72 | ..............collect.(match-str |
| 7020 | 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 0a 20 20 20 20 20 20 | ing.1).into.deleted-lines....... |
| 7040 | 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 65 74 65 64 2d 6c 69 | .......finally.return.deleted-li |
| 7060 | 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 3a 64 65 6c 65 74 65 | nes)))..(defun.git-gutter:delete |
| 7080 | 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 65 6e 64 2d 6c 69 6e | -added-lines.(start-line.end-lin |
| 70a0 | 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 61 72 74 2d 6c 69 6e | e)...(forward-line.(1-.start-lin |
| 70c0 | 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 28 70 6f 69 6e 74 29 | e))...(let.((start-point.(point) |
| 70e0 | 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 28 2d 20 65 6e 64 2d | )).....(forward-line.(1+.(-.end- |
| 7100 | 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 65 6c 65 74 65 2d 72 | line.start-line))).....(delete-r |
| 7120 | 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 29 29 29 0a 0a 28 64 | egion.start-point.(point))))..(d |
| 7140 | 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 6c 65 74 65 64 2d 6c | efun.git-gutter:insert-deleted-l |
| 7160 | 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 28 6c 69 6e 65 20 28 | ines.(content)...(dolist.(line.( |
| 7180 | 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 6c 69 6e 65 20 | git-gutter:collect-deleted-line. |
| 71a0 | 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 6e 63 61 74 20 6c 69 | content)).....(insert.(concat.li |
| 71c0 | 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 74 2d 67 75 74 74 65 | ne."\n"))))..(defsubst.git-gutte |
| 71e0 | 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 70 20 28 73 74 61 72 | r:delete-from-first-line-p.(star |
| 7200 | 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 6e 6f 74 20 28 3d 20 | t-line.end-line)...(and.(not.(=. |
| 7220 | 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 64 2d 6c 69 6e 65 20 | start-line.1)).(not.(=.end-line. |
| 7240 | 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 64 6f 2d 72 65 76 65 | 1))))..(defun.git-gutter:do-reve |
| 7260 | 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 65 2d 65 78 63 75 72 | rt-hunk.(diffinfo)...(save-excur |
| 7280 | 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)) |
| 72a0 | 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 69 74 2d 67 75 74 74 | .....(let.((start-line.(git-gutt |
| 72c0 | 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 0a 20 20 | er-hunk-start-line.diffinfo))... |
| 72e0 | 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 74 74 65 72 2d 68 75 | ........(end-line.(git-gutter-hu |
| 7300 | 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 20 20 20 20 20 20 20 | nk-end-line.diffinfo)).......... |
| 7320 | 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 6b 2d 63 6f 6e 74 65 | .(content.(git-gutter-hunk-conte |
| 7340 | 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 63 61 73 65 20 28 67 | nt.diffinfo))).......(cl-case.(g |
| 7360 | 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 6e 66 6f 29 0a 20 20 | it-gutter-hunk-type.diffinfo)... |
| 7380 | 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 64 65 6c 65 74 65 2d | ......(added.(git-gutter:delete- |
| 73a0 | 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 64 2d 6c 69 6e 65 29 | added-lines.start-line.end-line) |
| 73c0 | 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 28 67 69 74 2d 67 75 | ).........(deleted.(when.(git-gu |
| 73e0 | 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 70 20 73 74 | tter:delete-from-first-line-p.st |
| 7400 | 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 20 20 20 20 20 20 20 | art-line.end-line).............. |
| 7420 | 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 2d 6c 69 6e 65 29 29 | ......(forward-line.start-line)) |
| 7440 | 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 3a 69 6e | ..................(git-gutter:in |
| 7460 | 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 74 29 29 0a 20 20 20 | sert-deleted-lines.content)).... |
| 7480 | 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 72 3a 64 65 6c 65 74 | .....(modified.(git-gutter:delet |
| 74a0 | 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 64 2d 6c 69 6e | e-added-lines.start-line.end-lin |
| 74c0 | 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 2d 67 75 74 74 65 72 | e)...................(git-gutter |
| 74e0 | 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 74 29 29 29 | :insert-deleted-lines.content))) |
| 7500 | 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 70 6f 70 75 70 2d | )))..(defsubst.git-gutter:popup- |
| 7520 | 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 75 66 66 65 72 2d 77 | buffer-window.()...(get-buffer-w |
| 7540 | 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 74 65 72 3a 70 6f 70 | indow.(get-buffer.git-gutter:pop |
| 7560 | 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 67 75 74 74 65 72 3a | up-buffer)))..(defun.git-gutter: |
| 7580 | 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 6f 6e 2d 66 6e 20 75 | query-action.(action.action-fn.u |
| 75a0 | 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 77 68 65 6e 20 28 67 | pdate-fn)...(git-gutter:awhen.(g |
| 75c0 | 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 66 69 6e 66 6f 20 67 | it-gutter:search-here-diffinfo.g |
| 75e0 | 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 28 73 61 76 65 2d 77 | it-gutter:diffinfos).....(save-w |
| 7600 | 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 65 6e 20 67 69 74 2d | indow-excursion.......(when.git- |
| 7620 | 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 2d 67 75 74 74 65 72 | gutter:ask-p.........(git-gutter |
| 7640 | 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 68 65 6e 20 28 6f 72 | :popup-hunk.it)).......(when.(or |
| 7660 | 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 20 20 20 20 20 20 20 | .(not.git-gutter:ask-p)......... |
| 7680 | 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 6d 61 74 20 22 25 73 | ........(yes-or-no-p.(format."%s |
| 76a0 | 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 29 29 0a 20 20 20 20 | .current.hunk.?.".action)))..... |
| 76c0 | 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 29 0a 20 20 20 20 20 | ....(funcall.action-fn.it)...... |
| 76e0 | 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 20 20 20 20 20 28 69 | ...(funcall.update-fn)).......(i |
| 7700 | 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 20 20 20 20 28 64 65 | f.git-gutter:ask-p...........(de |
| 7720 | 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 6f 70 75 70 2d 62 75 | lete-window.(git-gutter:popup-bu |
| 7740 | 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 73 73 61 67 65 20 22 | ffer-window)).........(message." |
| 7760 | 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 29 29 29 29 0a 0a 28 | %s.current.hunk.".action)))))..( |
| 7780 | 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 75 6e 6b 20 28 29 0a | defun.git-gutter:revert-hunk.(). |
| 77a0 | 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 20 20 28 69 6e 74 65 | .."Revert.current.hunk."...(inte |
| 77c0 | 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 65 72 79 2d 61 63 74 | ractive)...(git-gutter:query-act |
| 77e0 | 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 3a 64 6f 2d 72 65 76 | ion."Revert".#'git-gutter:do-rev |
| 7800 | 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 0a 28 64 65 66 75 6e | ert-hunk.#'save-buffer))..(defun |
| 7820 | 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 68 65 61 64 65 72 20 | .git-gutter:extract-hunk-header. |
| 7840 | 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 69 74 2d 67 75 74 74 | ()...(git-gutter:awhen.(git-gutt |
| 7860 | 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 65 6d 70 2d 62 75 66 | er:base-file).....(with-temp-buf |
| 7880 | 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 69 74 2d 67 75 74 74 | fer.......(when.(zerop.(git-gutt |
| 78a0 | 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 20 20 20 20 20 20 20 | er:execute-command.............. |
| 78c0 | 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 72 22 20 22 2d 63 22 | ......."git".t."--no-pager"."-c" |
| 78e0 | 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 22 0a 20 20 20 20 20 | ."diff.autorefreshindex=0"...... |
| 7900 | 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 6e 6f 2d 63 6f 6c 6f | ..............."diff"."--no-colo |
| 7920 | 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 20 20 20 20 20 20 20 | r"."--no-ext-diff".............. |
| 7940 | 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 2d 6e 61 6d 65 2d 6e | ......."--relative".(file-name-n |
| 7960 | 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 20 28 67 6f 74 6f 2d | ondirectory.it))).........(goto- |
| 7980 | 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 28 66 6f 72 77 61 | char.(point-min)).........(forwa |
| 79a0 | 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 72 2d 73 75 62 73 74 | rd-line.4).........(buffer-subst |
| 79c0 | 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 28 | ring-no-properties.(point-min).( |
| 79e0 | 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 67 75 74 74 65 72 3a | point))))))..(defvar.git-gutter: |
| 7a00 | 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 22 5e 40 40 20 2d 5c | git-hunk-header-regexp..."^@@.-\ |
| 7a20 | 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 5c 5c 2b 5c 5c 28 | \([0-9]+\\),?\\([0-9]*\\).\\+\\( |
| 7a40 | 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 40 22 0a 20 20 22 50 | [0-9]+\\),?\\([0-9]*\\).@@"..."P |
| 7a60 | 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 28 64 65 66 75 6e 20 | arse.git.hunk.header.")..(defun. |
| 7a80 | 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 28 68 65 61 | git-gutter:read-hunk-header.(hea |
| 7aa0 | 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 68 20 67 69 74 2d 67 | der)...(when.(string-match.git-g |
| 7ac0 | 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 20 68 65 61 | utter:git-hunk-header-regexp.hea |
| 7ae0 | 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 2d 6e 75 6d 62 65 72 | der).....(list.(string-to-number |
| 7b00 | 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 0a 20 20 20 20 20 20 | .(match-string.1.header))....... |
| 7b20 | 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 6f 2d 6e 75 6d 62 65 | ....(git-gutter:changes-to-numbe |
| 7b40 | 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 29 0a 20 20 20 20 20 | r.(match-string.2.header))...... |
| 7b60 | 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 61 74 63 68 2d 73 74 | .....(string-to-number.(match-st |
| 7b80 | 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 20 28 67 69 74 2d 67 | ring.3.header))...........(git-g |
| 7ba0 | 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 6d 61 74 63 68 2d 73 | utter:changes-to-number.(match-s |
| 7bc0 | 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 75 6e 20 67 69 74 2d | tring.4.header)))))..(defun.git- |
| 7be0 | 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 72 20 28 74 79 70 65 | gutter:convert-hunk-header.(type |
| 7c00 | 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 2d 73 75 62 73 74 72 | )...(let.((header.(buffer-substr |
| 7c20 | 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 2d | ing-no-properties.(point).(line- |
| 7c40 | 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 65 74 65 2d 72 65 67 | end-position)))).....(delete-reg |
| 7c60 | 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 69 74 69 6f 6e 29 29 | ion.(point).(line-end-position)) |
| 7c80 | 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 6e 64 0a 20 20 20 20 | .....(cl-destructuring-bind..... |
| 7ca0 | 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 65 73 20 6e 65 77 2d | ....(orig-line.orig-changes.new- |
| 7cc0 | 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 20 28 67 69 74 2d 67 | line.new-changes).........(git-g |
| 7ce0 | 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 61 64 65 72 29 0a 20 | utter:read-hunk-header.header).. |
| 7d00 | 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 20 20 28 61 64 64 65 | .....(cl-case.type.........(adde |
| 7d20 | 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 2d 6c 69 6e 65 29 29 | d.(setq.new-line.(1+.orig-line)) |
| 7d40 | 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 6e 65 20 6f 72 69 67 | ).........(t.(setq.new-line.orig |
| 7d60 | 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 2d 68 65 61 64 65 72 | -line))).......(let.((new-header |
| 7d80 | 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 64 20 40 40 22 0a 20 | .(format."@@.-%d,%d.+%d,%d.@@".. |
| 7da0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f | ...............................o |
| 7dc0 | 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 2d 6c 69 6e 65 20 6e | rig-line.orig-changes.new-line.n |
| 7de0 | 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 73 65 72 74 20 6e 65 | ew-changes))).........(insert.ne |
| 7e00 | 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 2d 67 75 74 74 65 72 | w-header)))))..(defun.git-gutter |
| 7e20 | 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 6b 20 74 79 70 65 29 | :insert-staging-hunk.(hunk.type) |
| 7e40 | 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 6e 73 65 72 74 20 68 | ...(save-excursion.....(insert.h |
| 7e60 | 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 63 6f 6e 76 65 72 74 | unk."\n"))...(git-gutter:convert |
| 7e80 | 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 75 6e 20 67 69 74 2d | -hunk-header.type))..(defun.git- |
| 7ea0 | 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 6e 20 28 29 | gutter:apply-directory-option.() |
| 7ec0 | 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 6d 69 6e 61 74 69 6e | ...(let.((root.(locate-dominatin |
| 7ee0 | 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 22 2e 67 69 74 22 29 | g-file.default-directory.".git") |
| 7f00 | 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 72 79 20 28 66 69 6c | )).....(file-name-directory.(fil |
| 7f20 | 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 65 72 3a 62 61 73 65 | e-relative-name.(git-gutter:base |
| 7f40 | 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 69 74 2d 67 75 74 74 | -file).root))))..(defun.git-gutt |
| 7f60 | 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 66 6f 29 0a 20 20 28 | er:do-stage-hunk.(diff-info)...( |
| 7f80 | 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 2d 68 75 6e 6b 2d 63 | let.((content.(git-gutter-hunk-c |
| 7fa0 | 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 20 20 28 74 79 70 65 | ontent.diff-info)).........(type |
| 7fc0 | 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 2d 69 6e 66 6f | .(git-gutter-hunk-type.diff-info |
| 7fe0 | 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 75 74 74 65 72 3a 65 | )).........(header.(git-gutter:e |
| 8000 | 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 20 20 20 20 28 70 61 | xtract-hunk-header)).........(pa |
| 8020 | 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 67 75 74 74 65 72 22 | tch.(make-temp-name."git-gutter" |
| 8040 | 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 20 20 28 77 69 74 68 | ))).....(when.header.......(with |
| 8060 | 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 28 69 6e 73 65 72 74 | -temp-file.patch.........(insert |
| 8080 | 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 74 65 72 3a 69 6e 73 | .header).........(git-gutter:ins |
| 80a0 | 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 74 79 70 65 29 29 0a | ert-staging-hunk.content.type)). |
| 80c0 | 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 67 69 74 2d 67 75 74 | ......(let.((dir-option.(git-gut |
| 80e0 | 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 6e 29 29 0a 20 20 20 | ter:apply-directory-option)).... |
| 8100 | 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 2d 2d 63 61 63 68 65 | .........(options.(list."--cache |
| 8120 | 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 20 64 69 72 2d 6f 70 | d".patch))).........(when.dir-op |
| 8140 | 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 6f 6e 73 20 28 63 6f | tion...........(setq.options.(co |
| 8160 | 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 72 2d 6f 70 74 69 6f | ns."--directory".(cons.dir-optio |
| 8180 | 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 6c 65 73 73 20 28 7a | n.options)))).........(unless.(z |
| 81a0 | 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 65 78 65 63 75 74 65 | erop.(apply.#'git-gutter:execute |
| 81c0 | 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 20 20 20 20 20 20 20 | -command........................ |
| 81e0 | 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 22 2d 2d 75 6e 69 64 | ......."git".nil."apply"."--unid |
| 8200 | 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 20 20 20 20 20 20 20 | iff-zero"....................... |
| 8220 | 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 20 20 20 28 6d 65 73 | ........options))...........(mes |
| 8240 | 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 73 20 68 75 6e 6b 22 | sage."Failed:.stating.this.hunk" |
| 8260 | 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 61 74 63 68 29 29 29 | )).........(delete-file.patch))) |
| 8280 | 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 67 65 2d 68 75 6e 6b | ))..(defun.git-gutter:stage-hunk |
| 82a0 | 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 6b 65 20 27 67 69 74 | .()..."Stage.this.hunk.like.'git |
| 82c0 | 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 29 0a 20 20 28 67 69 | .add.-p'."...(interactive)...(gi |
| 82e0 | 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 61 67 65 22 20 23 27 | t-gutter:query-action."Stage".#' |
| 8300 | 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 23 27 67 69 74 2d 67 | git-gutter:do-stage-hunk.#'git-g |
| 8320 | 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 74 74 65 72 3a 6c 69 | utter))..(defsubst.git-gutter:li |
| 8340 | 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 78 63 75 72 73 69 6f | ne-point.(line)...(save-excursio |
| 8360 | 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 0a 20 20 | n.....(goto-char.(point-min))... |
| 8380 | 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 29 0a 20 20 20 20 28 | ..(forward-line.(1-.line)).....( |
| 83a0 | 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 65 72 3a 6d 61 72 6b | point)))..(defun.git-gutter:mark |
| 83c0 | 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 20 20 28 67 69 74 2d | -hunk.()...(interactive)...(git- |
| 83e0 | 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- |
| 8400 | 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 |
| 8420 | 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 2d 67 75 74 74 65 72 | os).....(let.((start.(git-gutter |
| 8440 | 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 75 6e 6b 2d 73 74 61 | :line-point.(git-gutter-hunk-sta |
| 8460 | 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 65 6e 64 20 28 67 69 | rt-line.it)))...........(end.(gi |
| 8480 | 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 67 69 74 2d 67 75 74 | t-gutter:line-point.(1+.(git-gut |
| 84a0 | 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 0a 20 20 20 20 20 20 | ter-hunk-end-line.it)))))....... |
| 84c0 | 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 70 75 73 68 2d 6d 61 | (goto-char.start).......(push-ma |
| 84e0 | 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 67 69 74 2d 67 75 74 | rk.end.nil.t))))..(defun.git-gut |
| 8500 | 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 20 28 64 69 66 66 69 | ter:update-popuped-buffer.(diffi |
| 8520 | 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 65 72 20 28 67 65 74 | nfo)...(with-current-buffer.(get |
| 8540 | 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 3a 70 6f 70 75 70 2d | -buffer-create.git-gutter:popup- |
| 8560 | 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 29 0a 20 20 20 20 28 | buffer).....(view-mode.-1).....( |
| 8580 | 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 29 0a 20 20 20 20 28 | setq.buffer-read-only.nil).....( |
| 85a0 | 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 20 28 67 69 74 2d 67 | erase-buffer).....(insert.(git-g |
| 85c0 | 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 66 6f 29 29 0a 20 20 | utter-hunk-content.diffinfo))... |
| 85e0 | 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 2d 63 68 61 72 20 28 | ..(insert."\n").....(goto-char.( |
| 8600 | 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 65 29 0a 20 20 20 20 | point-min)).....(diff-mode)..... |
| 8620 | 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 6e 74 2d 62 75 66 66 | (view-mode.+1).....(current-buff |
| 8640 | 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 70 6f 70 75 70 2d 68 | er)))..(defun.git-gutter:popup-h |
| 8660 | 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 20 20 22 50 6f 70 75 | unk.(&optional.diffinfo)..."Popu |
| 8680 | 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 69 6e 74 65 72 61 63 | p.current.diff.hunk."...(interac |
| 86a0 | 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 20 28 6f 72 20 64 69 | tive)...(git-gutter:awhen.(or.di |
| 86c0 | 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 20 20 20 20 20 20 28 | ffinfo.........................( |
| 86e0 | 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 66 69 6e 66 6f 20 | git-gutter:search-here-diffinfo. |
| 8700 | 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 20 20 28 73 61 76 65 | git-gutter:diffinfos)).....(save |
| 8720 | 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 69 73 70 6c 61 79 2d | -selected-window.......(display- |
| 8740 | 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 2d 70 6f 70 75 70 65 | buffer.(git-gutter:update-popupe |
| 8760 | 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 67 69 74 2d 67 75 74 | d-buffer.it)))))..(defun.git-gut |
| 8780 | 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 76 65 20 74 6f 20 6e | ter:next-hunk.(arg)..."Move.to.n |
| 87a0 | 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 74 69 76 65 20 22 70 | ext.diff.hunk"...(interactive."p |
| 87c0 | 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 64 69 66 66 69 6e 66 | ")...(if.(not.git-gutter:diffinf |
| 87e0 | 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 74 74 65 72 3a 76 65 | os).......(when.(>.git-gutter:ve |
| 8800 | 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 67 65 20 22 54 68 65 | rbosity.3).........(message."The |
| 8820 | 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 20 20 28 73 61 76 65 | re.are.no.changes!!")).....(save |
| 8840 | 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 29 0a 20 20 20 20 20 | -restriction.......(widen)...... |
| 8860 | 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 67 20 30 29 29 0a 20 | .(let*.((is-reverse.(<.arg.0)).. |
| 8880 | 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 74 2d 67 75 74 74 65 | ............(diffinfos.git-gutte |
| 88a0 | 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 20 28 6c 65 6e 20 28 | r:diffinfos)..............(len.( |
| 88c0 | 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 20 20 20 20 20 20 20 | length.diffinfos)).............. |
| 88e0 | 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 2d 6e 65 61 72 2d 64 | (index.(git-gutter:search-near-d |
| 8900 | 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 76 65 72 73 65 29 29 | iff-index.diffinfos.is-reverse)) |
| 8920 | 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 20 28 69 66 20 69 6e | ..............(real-index.(if.in |
| 8940 | 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 20 20 20 20 20 20 20 | dex............................. |
| 8960 | 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 73 65 20 28 31 2b 20 | .(let.((next.(if.is-reverse.(1+. |
| 8980 | 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 20 20 20 20 20 20 20 | index).(1-.index))))............ |
| 89a0 | 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 28 2b 20 61 72 67 20 | ....................(mod.(+.arg. |
| 89c0 | 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 20 20 20 20 20 20 20 | next).len))..................... |
| 89e0 | 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 20 6c 65 6e 29 20 30 | .......(if.is-reverse.(1-.len).0 |
| 8a00 | 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 6f 20 28 6e 74 68 20 | )))..............(diffinfo.(nth. |
| 8a20 | 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 20 20 20 20 20 20 20 | real-index.diffinfos)))......... |
| 8a40 | 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 20 | (goto-char.(point-min))......... |
| 8a60 | 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 74 74 65 72 2d 68 75 | (forward-line.(1-.(git-gutter-hu |
| 8a80 | 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 0a 20 20 20 20 20 20 | nk-start-line.diffinfo)))....... |
| 8aa0 | 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 74 79 20 | ..(when.(>.git-gutter:verbosity. |
| 8ac0 | 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 76 65 20 74 6f 20 25 | 0)...........(message."Move.to.% |
| 8ae0 | 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 29 20 6c 65 6e 29 29 | d/%d.hunk".(1+.real-index).len)) |
| 8b00 | 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 76 65 2d 70 20 28 67 | .........(when.(buffer-live-p.(g |
| 8b20 | 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 70 2d 62 75 66 66 65 | et-buffer.git-gutter:popup-buffe |
| 8b40 | 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 3a 75 70 64 61 74 65 | r))...........(git-gutter:update |
| 8b60 | 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 29 29 29 29 29 0a 0a | -popuped-buffer.diffinfo)))))).. |
| 8b80 | 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 73 2d 68 75 6e 6b 20 | (defun.git-gutter:previous-hunk. |
| 8ba0 | 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 20 64 69 66 66 20 68 | (arg)..."Move.to.previous.diff.h |
| 8bc0 | 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 20 20 28 67 69 74 2d | unk"...(interactive."p")...(git- |
| 8be0 | 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 29 0a 0a 28 64 65 66 | gutter:next-hunk.(-.arg)))..(def |
| 8c00 | 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 20 28 29 0a 20 20 22 | un.git-gutter:end-of-hunk.()..." |
| 8c20 | 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 66 66 20 68 75 6e 6b | Move.to.end.of.current.diff.hunk |
| 8c40 | 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 67 75 74 74 65 72 3a | "...(interactive)...(git-gutter: |
| 8c60 | 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 68 65 72 65 2d 64 69 | awhen.(git-gutter:search-here-di |
| 8c80 | 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 0a 20 20 20 | ffinfo.git-gutter:diffinfos).... |
| 8ca0 | 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 74 65 72 2d 68 75 6e | .(let.((lines.(-.(git-gutter-hun |
| 8cc0 | 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 65 72 2d 61 74 2d 70 | k-end-line.it).(line-number-at-p |
| 8ce0 | 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 65 20 6c 69 6e 65 73 | os)))).......(forward-line.lines |
| 8d00 | 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 65 72 3a 6e 65 78 74 | ))))..(defalias.'git-gutter:next |
| 8d20 | 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 29 0a 28 6d 61 | -diff.'git-gutter:next-hunk).(ma |
| 8d40 | 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 65 78 74 2d 64 69 66 | ke-obsolete.'git-gutter:next-dif |
| 8d60 | 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 30 2e 36 30 22 29 0a | f.'git-gutter:next-hunk."0.60"). |
| 8d80 | 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 76 69 6f 75 73 2d 64 | (defalias.'git-gutter:previous-d |
| 8da0 | 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 68 75 6e 6b 29 0a 28 | iff.'git-gutter:previous-hunk).( |
| 8dc0 | 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 70 72 65 76 69 6f | make-obsolete.'git-gutter:previo |
| 8de0 | 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 68 75 6e | us-diff.'git-gutter:previous-hun |
| 8e00 | 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 67 75 74 74 65 72 3a | k."0.60").(defalias.'git-gutter: |
| 8e20 | 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 70 2d 68 75 6e | popup-diff.'git-gutter:popup-hun |
| 8e40 | 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 70 6f | k).(make-obsolete.'git-gutter:po |
| 8e60 | 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 70 2d 68 75 6e 6b 20 | pup-diff.'git-gutter:popup-hunk. |
| 8e80 | 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 72 3a 75 70 64 61 74 | "0.60")..(defun.git-gutter:updat |
| 8ea0 | 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 66 69 6c 65 29 0a 20 | e-indirect-buffers.(orig-file).. |
| 8ec0 | 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 3d 20 67 69 74 2d 67 | .(cl-loop.with.diffinfos.=.git-g |
| 8ee0 | 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 20 20 66 6f 72 20 77 | utter:diffinfos............for.w |
| 8f00 | 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 20 20 20 20 20 20 66 | in.in.(window-list)............f |
| 8f20 | 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 77 69 6e 29 0a 20 20 | or.buf..=.(window-buffer.win)... |
| 8f40 | 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 65 72 2d 62 61 73 65 | .........for.base.=.(buffer-base |
| 8f60 | 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 68 65 6e 20 28 61 6e | -buffer.buf)............when.(an |
| 8f80 | 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 69 6c 65 2d 6e 61 6d | d.base.(string=.(buffer-file-nam |
| 8fa0 | 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 20 20 20 20 20 20 64 | e.base).orig-file))............d |
| 8fc0 | 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 74 2d 62 75 66 66 65 | o............(with-current-buffe |
| 8fe0 | 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 75 74 74 65 72 3a 75 | r.buf..............(git-gutter:u |
| 9000 | 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 29 29 29 0a 0a 3b 3b | pdate-diffinfo.diffinfos))))..;; |
| 9020 | 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 20 28 | ;###autoload.(defun.git-gutter.( |
| 9040 | 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 6e 20 69 6e 20 67 75 | )..."Show.diff.information.in.gu |
| 9060 | 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 77 68 65 6e 20 28 6f | tter"...(interactive)...(when.(o |
| 9080 | 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 74 2d 67 75 74 74 65 | r.git-gutter:vcs-type.(git-gutte |
| 90a0 | 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 6c 65 74 2a 20 28 28 | r:in-repository-p)).....(let*.(( |
| 90c0 | 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 65 29 29 0a 20 20 20 | file.(git-gutter:base-file)).... |
| 90e0 | 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 74 74 65 72 3a 64 69 | ........(proc-buf.(git-gutter:di |
| 9100 | 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 0a 20 20 20 20 20 20 | ff-process-buffer.file)))....... |
| 9120 | 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 63 74 69 76 65 6c 79 | (when.(and.(called-interactively |
| 9140 | 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 66 65 72 20 70 72 6f | -p.'interactive).(get-buffer.pro |
| 9160 | 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 66 65 72 20 70 72 6f | c-buf)).........(kill-buffer.pro |
| 9180 | 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 66 69 6c 65 20 28 66 | c-buf)).......(when.(and.file.(f |
| 91a0 | 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 67 65 74 2d 62 75 66 | ile-exists-p.file).(not.(get-buf |
| 91c0 | 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 67 69 74 2d 67 75 74 | fer.proc-buf))).........(git-gut |
| 91e0 | 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 69 6c 65 2d 6e 61 6d | ter:start-diff-process.(file-nam |
| 9200 | 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 20 20 20 20 20 20 20 | e-nondirectory.file)............ |
| 9220 | 20 20 20 20 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 67 65 74 | ............................(get |
| 9240 | 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 29 29 29 29 0a 0a 28 | -buffer-create.proc-buf))))))..( |
| 9260 | 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 69 72 65 63 74 2d 62 | defun.git-gutter:kill-indirect-b |
| 9280 | 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 62 75 66 66 65 72 20 | uffer.()...(with-current-buffer. |
| 92a0 | 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 28 77 68 65 6e 20 67 | (buffer-base-buffer).....(when.g |
| 92c0 | 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 72 73 0a 20 | it-gutter:has-indirect-buffers.. |
| 92e0 | 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 68 61 73 2d 69 6e 64 | .....(if.(<.1.git-gutter:has-ind |
| 9300 | 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 28 73 65 74 71 20 67 | irect-buffers)...........(setq.g |
| 9320 | 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 72 73 20 28 | it-gutter:has-indirect-buffers.( |
| 9340 | 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 74 2d 62 75 66 66 65 | 1-.git-gutter:has-indirect-buffe |
| 9360 | 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 76 61 72 69 61 62 6c | rs)).........(kill-local-variabl |
| 9380 | 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 74 2d 62 75 66 66 65 | e.'git-gutter:has-indirect-buffe |
| 93a0 | 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 72 3a 6d 61 6b 65 2d | rs)))))..(defun.git-gutter:make- |
| 93c0 | 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 61 73 65 2d 62 75 66 | indirect-buffer.(oldfun.base-buf |
| 93e0 | 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 75 72 72 65 6e 74 2d | fer.&rest.args)...(with-current- |
| 9400 | 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 75 66 66 65 72 20 28 | buffer.(or.(buffer-base-buffer.( |
| 9420 | 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 61 73 65 2d 62 75 66 | window-normalize-buffer.base-buf |
| 9440 | 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 20 20 20 20 20 20 20 | fer))........................... |
| 9460 | 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 2d 67 75 74 74 65 72 | .base-buffer).....(if.git-gutter |
| 9480 | 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 20 20 20 20 20 28 73 | :has-indirect-buffers.........(s |
| 94a0 | 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 66 66 | etq.git-gutter:has-indirect-buff |
| 94c0 | 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 64 69 72 65 63 74 2d | ers.(1+.git-gutter:has-indirect- |
| 94e0 | 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 61 6c 20 67 69 74 2d | buffers)).......(setq-local.git- |
| 9500 | 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 20 31 29 29 0a | gutter:has-indirect-buffers.1)). |
| 9520 | 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 28 61 70 70 6c 79 20 | ....(with-current-buffer.(apply. |
| 9540 | 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 20 20 20 20 20 20 28 | oldfun.base-buffer.args).......( |
| 9560 | 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 6b 20 23 27 67 69 74 | add-hook.'kill-buffer-hook.#'git |
| 9580 | 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 66 65 72 20 6e 69 6c | -gutter:kill-indirect-buffer.nil |
| 95a0 | 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 29 29 29 29 0a 28 61 | .t).......(current-buffer)))).(a |
| 95c0 | 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 62 75 66 66 65 72 20 | dvice-add.'make-indirect-buffer. |
| 95e0 | 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 2d 69 6e 64 69 72 65 | :around.#'git-gutter:make-indire |
| 9600 | 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 74 74 65 72 3a 76 63 | ct-buffer)..(defun.git-gutter:vc |
| 9620 | 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 77 68 65 6e 20 67 69 | -revert.(&rest._args)...(when.gi |
| 9640 | 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 74 68 2d 69 64 6c 65 | t-gutter-mode.....(run-with-idle |
| 9660 | 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 72 29 29 29 0a 28 61 | -timer.0.1.nil.'git-gutter))).(a |
| 9680 | 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 65 72 20 23 27 67 69 | dvice-add.'vc-revert.:after.#'gi |
| 96a0 | 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 75 6e 20 67 69 74 2d | t-gutter:vc-revert)..(defun.git- |
| 96c0 | 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 6e 65 73 20 28 26 72 | gutter:toggle-truncate-lines.(&r |
| 96e0 | 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 69 74 2d 67 75 74 74 | est._args)...(when.(and.git-gutt |
| 9700 | 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 2d 6c 69 6e 65 29 0a | er-mode.git-gutter:visual-line). |
| 9720 | 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 30 2e 31 20 6e 69 6c | ....(run-with-idle-timer.0.1.nil |
| 9740 | 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 64 64 20 27 74 6f 67 | .'git-gutter))).(advice-add.'tog |
| 9760 | 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 20 23 27 67 69 74 2d | gle-truncate-lines.:after.#'git- |
| 9780 | 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 6e 65 73 29 0a 0a 3b | gutter:toggle-truncate-lines)..; |
| 97a0 | 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 63 68 2d 74 6f 2d 62 | ;.`quit-window'.and.`switch-to-b |
| 97c0 | 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 68 65 72 0a 3b 3b 20 | uffer'.are.called.from.other.;;. |
| 97e0 | 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 67 75 74 74 65 72 20 | commands..So.calling.git-gutter. |
| 9800 | 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 69 73 20 6e 6f 74 20 | from.`post-command-hook'.is.not. |
| 9820 | 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 73 74 65 61 64 2e 0a | enough,.use.;;.advices.instead.. |
| 9840 | 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 6e 64 6f 77 20 28 26 | (defun.git-gutter:quit-window.(& |
| 9860 | 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 75 74 74 65 72 2d 6d | rest._args)...(when.git-gutter-m |
| 9880 | 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 64 76 69 63 65 2d 61 | ode.....(git-gutter))).(advice-a |
| 98a0 | 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 67 69 74 2d 67 75 74 | dd.'quit-window.:after.#'git-gut |
| 98c0 | 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 67 69 74 2d 67 75 74 | ter:quit-window)..(defun.git-gut |
| 98e0 | 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 73 74 20 5f 61 72 67 | ter:switch-to-buffer.(&rest._arg |
| 9900 | 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 65 0a 20 20 20 20 28 | s)...(when.git-gutter-mode.....( |
| 9920 | 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 20 27 73 77 69 74 63 | git-gutter))).(advice-add.'switc |
| 9940 | 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 67 75 74 74 65 72 3a | h-to-buffer.:after.#'git-gutter: |
| 9960 | 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 20 67 69 74 2d 67 75 | switch-to-buffer)..(defun.git-gu |
| 9980 | 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 66 66 20 69 6e 66 6f | tter:clear.()..."Clear.diff.info |
| 99a0 | 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 74 65 72 61 63 74 69 | rmation.in.gutter."...(interacti |
| 99c0 | 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 29 29 0a 28 6d 61 6b | ve)...(git-gutter-mode.-1)).(mak |
| 99e0 | 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 65 61 72 20 23 27 67 | e-obsolete.'git-gutter:clear.#'g |
| 9a00 | 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 3b 3b 23 23 23 61 75 | it-gutter-mode."0.86")..;;;###au |
| 9a20 | 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 74 6f 67 67 6c 65 20 | toload.(defun.git-gutter:toggle. |
| 9a40 | 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 20 69 6e 66 6f 72 6d | ()..."Toggle.to.show.diff.inform |
| 9a60 | 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 20 28 69 66 20 67 69 | ation."...(interactive)...(if.gi |
| 9a80 | 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 67 75 74 74 65 72 2d | t-gutter-mode.......(git-gutter- |
| 9aa0 | 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 6d 6f 64 65 20 2b 31 | mode.-1).....(git-gutter-mode.+1 |
| 9ac0 | 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 75 74 74 65 72 3a 74 | ))).(make-obsolete.'git-gutter:t |
| 9ae0 | 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 30 2e 38 36 22 29 0a | oggle.#'git-gutter-mode."0.86"). |
| 9b00 | 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 6f 6e 2d 76 61 6c 69 | .(defun.git-gutter:revision-vali |
| 9b20 | 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 63 6c 2d 63 61 73 65 | d-p.(revision)...(zerop.(cl-case |
| 9b40 | 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 20 20 20 20 20 20 20 | .git-gutter:vcs-type............ |
| 9b60 | 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 63 6f 6d 6d 61 6e 64 | (git.(git-gutter:execute-command |
| 9b80 | 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 20 20 20 20 20 20 20 | ."git".nil...................... |
| 9ba0 | 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 65 76 2d 70 61 72 73 | ......................."rev-pars |
| 9bc0 | 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 20 20 20 20 20 20 20 | e"."--quiet"."--verify"......... |
| 9be0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 9c00 | 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 20 28 73 76 6e 20 28 | ....revision))............(svn.( |
| 9c20 | 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 22 73 76 6e 22 | git-gutter:execute-command."svn" |
| 9c40 | 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 0a 20 20 20 20 20 20 | .nil."info"."-r".revision....... |
| 9c60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 9c80 | 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 20 28 62 75 66 66 65 | ......(file-relative-name.(buffe |
| 9ca0 | 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 20 20 28 68 67 20 28 | r-file-name))))............(hg.( |
| 9cc0 | 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 22 68 67 22 20 | git-gutter:execute-command."hg". |
| 9ce0 | 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 20 20 20 20 20 20 20 | nil."id"."-r".revision))........ |
| 9d00 | 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 75 74 65 2d 63 6f 6d | ....(bzr.(git-gutter:execute-com |
| 9d20 | 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 20 20 20 20 20 20 20 | mand."bzr".nil.................. |
| 9d40 | 20 20 20 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 65 76 6e | ..........................."revn |
| 9d60 | 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 65 66 75 6e 20 67 69 | o"."-r".revision)))))..(defun.gi |
| 9d80 | 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 6f 6e 20 28 73 74 61 | t-gutter:set-start-revision.(sta |
| 9da0 | 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 73 69 6f 6e 2e 20 49 | rt-rev)..."Set.start.revision..I |
| 9dc0 | 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 6d 70 74 79 20 73 74 | f.`start-rev'.is.nil.or.empty.st |
| 9de0 | 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 69 73 69 6f 6e 2e 22 | ring.then.reset.start.revision." |
| 9e00 | 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 0a 20 20 20 28 6c 69 73 74 20 28 72 65 61 64 2d 73 | ...(interactive....(list.(read-s |
| 9e20 | 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 20 20 20 20 20 20 20 | tring."Start.Revision:."........ |
| 9e40 | 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 75 74 74 65 72 3a 72 | ...............nil.'git-gutter:r |
| 9e60 | 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 6e 20 28 61 6e 64 20 | evision-history)))...(when.(and. |
| 9e80 | 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 74 61 72 74 2d 72 65 | start-rev.(not.(string=.start-re |
| 9ea0 | 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 67 75 74 74 65 72 3a | v.""))).....(unless.(git-gutter: |
| 9ec0 | 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 76 29 0a 20 20 20 20 | revision-valid-p.start-rev)..... |
| 9ee0 | 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 73 20 6e 6f 74 20 76 | ..(error."Revision.'%s'.is.not.v |
| 9f00 | 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 74 71 20 67 69 74 2d | alid.".start-rev)))...(setq.git- |
| 9f20 | 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 72 74 2d 72 65 76 29 | gutter:start-revision.start-rev) |
| 9f40 | 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 67 69 74 2d 67 75 74 | ...(git-gutter))..(defun.git-gut |
| 9f60 | 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 0a 20 20 22 55 70 64 | ter:update-all-windows.()..."Upd |
| 9f80 | 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 6e 20 66 6f 72 20 61 | ate.git-gutter.information.for.a |
| 9fa0 | 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 6e 74 65 72 61 63 74 | ll.visible.buffers."...(interact |
| 9fc0 | 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 65 72 2d 6c 69 73 74 | ive)...(dolist.(buf.(buffer-list |
| 9fe0 | 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 77 69 6e 64 6f 77 20 | )).....(when.(get-buffer-window. |
| a000 | 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 2d 63 75 72 72 65 6e | buf.'visible).......(with-curren |
| a020 | 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 6e 20 67 69 74 2d 67 | t-buffer.buf.........(when.git-g |
| a040 | 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 2d 67 75 74 74 65 72 | utter-mode...........(git-gutter |
| a060 | 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 74 61 72 74 2d | ))))))..(defun.git-gutter:start- |
| a080 | 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 74 69 76 65 29 0a | update-timer.()...(interactive). |
| a0a0 | 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 2d 74 69 6d 65 72 0a | ..(when.git-gutter:update-timer. |
| a0c0 | 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 69 73 20 61 6c 72 65 | ....(error."Update.timer.is.alre |
| a0e0 | 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 69 74 2d 67 75 74 74 | ady.running."))...(setq.git-gutt |
| a100 | 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 72 75 6e 2d 77 69 74 | er:update-timer.........(run-wit |
| a120 | 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 70 64 61 74 65 2d 69 | h-idle-timer.git-gutter:update-i |
| a140 | 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 65 2d 75 70 64 61 74 | nterval.t.'git-gutter:live-updat |
| a160 | 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 61 6e 63 65 6c 2d 75 | e)))..(defun.git-gutter:cancel-u |
| a180 | 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 74 69 76 65 29 0a 20 | pdate-timer.()...(interactive).. |
| a1a0 | 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 65 2d 74 69 6d 65 72 | .(unless.git-gutter:update-timer |
| a1c0 | 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 72 75 6e 6e 69 6e 67 | .....(error."Timer.is.no.running |
| a1e0 | 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 67 75 74 74 65 72 3a | ."))...(cancel-timer.git-gutter: |
| a200 | 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 2d 67 75 74 74 65 72 | update-timer)...(setq.git-gutter |
| a220 | 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 73 75 62 73 74 20 67 | :update-timer.nil))..(defsubst.g |
| a240 | 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 6f 6e 74 65 6e 74 20 | it-gutter:write-current-content. |
| a260 | 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 74 20 28 62 75 66 66 | (tmpfile)...(let.((content.(buff |
| a280 | 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 73 20 28 70 6f 69 6e | er-substring-no-properties.(poin |
| a2a0 | 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 20 28 77 69 74 68 2d | t-min).(point-max)))).....(with- |
| a2c0 | 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 69 6e 73 65 72 74 20 | temp-file.tmpfile.......(insert. |
| a2e0 | 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 75 74 74 65 72 3a 6f | content))))..(defun.git-gutter:o |
| a300 | 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 65 20 76 63 73 29 0a | riginal-file-content.(file.vcs). |
| a320 | 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 65 | ..(with-temp-buffer.....(cl-case |
| a340 | 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 65 | .vcs.......(git........(when.(ze |
| a360 | 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 69 | rop.(process-file."git".nil.t.ni |
| a380 | 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 29 29 29 0a 20 20 20 | l."show".(concat.":".file))).... |
| a3a0 | 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 6f 2d 70 72 6f 70 65 | ......(buffer-substring-no-prope |
| a3c0 | 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 6d 61 78 29 29 29 29 | rties.(point-min).(point-max)))) |
| a3e0 | 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 20 20 20 28 6c 65 74 | .......((svn.hg.bzr)........(let |
| a400 | 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 29 0a 20 | .((command.(symbol-name.vcs))).. |
| a420 | 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 2d 66 69 | ........(when.(zerop.(process-fi |
| a440 | 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 22 20 66 69 6c 65 29 | le.command.nil.t.nil."cat".file) |
| a460 | 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 74 72 69 6e 67 2d 6e | )............(buffer-substring-n |
| a480 | 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- |
| a4a0 | 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 75 74 74 65 72 3a 77 | max))))))))..(defun.git-gutter:w |
| a4c0 | 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 70 66 69 6c 65 20 66 | rite-original-content.(tmpfile.f |
| a4e0 | 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 68 65 6e 20 28 67 69 | ilename)...(git-gutter:awhen.(gi |
| a500 | 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 6e 74 65 6e 74 20 66 | t-gutter:original-file-content.f |
| a520 | 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 70 65 29 0a 20 20 20 | ilename.git-gutter:vcs-type).... |
| a540 | 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.......( |
| a560 | 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 65 66 73 75 62 73 74 | insert.it).......t)))..(defsubst |
| a580 | 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 66 2d 70 72 6f 63 65 | .git-gutter:start-raw-diff-proce |
| a5a0 | 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 29 0a 20 20 28 73 74 | ss.(proc-buf.original.now)...(st |
| a5c0 | 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 74 65 72 3a 75 70 64 | art-file-process."git-gutter:upd |
| a5e0 | 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 20 20 20 20 20 20 20 | ate-timer".proc-buf............. |
| a600 | 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 69 67 69 6e 61 6c 20 | .........."diff"."-U0".original. |
| a620 | 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 73 74 61 72 74 2d 6c | now))..(defun.git-gutter:start-l |
| a640 | 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 20 6e 6f 77 29 0a 20 | ive-update.(file.original.now).. |
| a660 | 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 2d 67 75 74 74 65 72 | .(let.((proc-bufname.(git-gutter |
| a680 | 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 0a 20 20 20 | :diff-process-buffer.file))).... |
| a6a0 | 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 75 66 6e 61 6d 65 29 | .(when.(get-buffer.proc-bufname) |
| a6c0 | 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 62 75 66 6e 61 6d 65 | .......(kill-buffer.proc-bufname |
| a6e0 | 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 72 72 65 6e 74 2d 62 | )).....(let*.((curbuf.(current-b |
| a700 | 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 62 75 66 20 28 67 65 | uffer))............(proc-buf.(ge |
| a720 | 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 61 6d 65 29 29 0a 20 | t-buffer-create.proc-bufname)).. |
| a740 | 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 75 74 74 65 72 3a 73 | ..........(process.(git-gutter:s |
| a760 | 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 63 2d 62 75 66 20 6f | tart-raw-diff-process.proc-buf.o |
| a780 | 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 2d 70 72 6f 63 65 73 | riginal.now))).......(set-proces |
| a7a0 | 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 65 73 73 20 6e 69 6c | s-query-on-exit-flag.process.nil |
| a7c0 | 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 69 6e 65 6c 0a 20 20 | ).......(set-process-sentinel... |
| a7e0 | 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 64 61 20 28 70 72 6f | .....process........(lambda.(pro |
| a800 | 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 28 65 71 20 28 70 72 | c._event)..........(when.(eq.(pr |
| a820 | 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 0a 20 20 20 20 20 20 | ocess-status.proc).'exit)....... |
| a840 | 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 62 6c 65 64 20 6e 69 | .....(setq.git-gutter:enabled.ni |
| a860 | 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 69 6e 66 6f 73 20 28 | l)............(let.((diffinfos.( |
| a880 | 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 75 74 70 75 74 20 28 | git-gutter:process-diff-output.( |
| a8a0 | 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 20 20 20 20 20 20 20 | process-buffer.proc))))......... |
| a8c0 | 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 20 63 75 72 62 75 66 | .....(when.(buffer-live-p.curbuf |
| a8e0 | 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 72 72 65 6e 74 2d 62 | )................(with-current-b |
| a900 | 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 20 20 20 20 20 28 67 | uffer.curbuf..................(g |
| a920 | 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 64 69 66 66 69 6e | it-gutter:update-diffinfo.diffin |
| a940 | 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 74 71 20 67 69 74 2d | fos)..................(setq.git- |
| a960 | 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 20 20 20 20 20 20 20 | gutter:enabled.t)))............. |
| a980 | 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 20 20 20 20 20 20 20 | .(kill-buffer.proc-buf)......... |
| a9a0 | 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 6c 29 0a 20 20 20 20 | .....(delete-file.original)..... |
| a9c0 | 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 29 29 29 29 29 29 29 | .........(delete-file.now))))))) |
| a9e0 | 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 6c 64 2d 75 70 64 61 | )..(defun.git-gutter:should-upda |
| aa00 | 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 64 69 66 69 65 64 2d | te-p.()...(let.((chars-modified- |
| aa20 | 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 65 64 2d 74 69 63 6b | tick.(buffer-chars-modified-tick |
| aa40 | 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 61 72 73 2d 6d 6f 64 | ))).....(unless.(equal.chars-mod |
| aa60 | 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 74 2d 63 68 61 72 73 | ified-tick.git-gutter:last-chars |
| aa80 | 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 74 71 20 67 69 74 2d | -modified-tick).......(setq.git- |
| aaa0 | 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 64 2d 74 69 63 6b 20 | gutter:last-chars-modified-tick. |
| aac0 | 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 28 64 65 66 75 6e 20 | chars-modified-tick))))..(defun. |
| aae0 | 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 0a 20 20 28 77 69 74 | git-gutter:vcs-root.(vcs)...(wit |
| ab00 | 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 65 20 76 63 73 0a 20 | h-temp-buffer.....(cl-case.vcs.. |
| ab20 | 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 65 72 6f 70 20 28 70 | .....(git........(when.(zerop.(p |
| ab40 | 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 69 6c 20 22 72 65 76 | rocess-file."git".nil.t.nil."rev |
| ab60 | 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 29 29 0a 20 20 20 20 | -parse"."--show-toplevel"))..... |
| ab80 | 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 20 20 | .....(goto-char.(point-min)).... |
| aba0 | 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 74 6f 72 79 0a 20 20 | ......(file-name-as-directory... |
| abc0 | 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 6f 2d 70 72 6f | ........(buffer-substring-no-pro |
| abe0 | 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 2d 70 6f 73 69 74 69 | perties.(point).(line-end-positi |
| ac00 | 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 20 28 77 68 65 6e 20 | on))))).......(svn........(when. |
| ac20 | 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 22 20 6e 69 6c 20 74 | (zerop.(process-file."svn".nil.t |
| ac40 | 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 6f 74 6f 2d 63 68 61 | .nil."info"))..........(goto-cha |
| ac60 | 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 77 68 65 6e 20 28 72 | r.(point-min))..........(when.(r |
| ac80 | 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 67 20 43 6f 70 79 20 | e-search-forward."^Working.Copy. |
| aca0 | 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 29 0a 20 20 20 20 20 | Root.Path:.\(.+\)$".nil.t)...... |
| acc0 | 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 74 6f 72 79 20 28 6d | ......(file-name-as-directory.(m |
| ace0 | 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 20 31 29 29 29 29 29 | atch-string-no-properties.1))))) |
| ad00 | 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 6c 65 74 20 28 28 63 | .......((hg.bzr)........(let.((c |
| ad20 | 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 29 0a 20 20 20 20 20 | ommand.(symbol-name.vcs)))...... |
| ad40 | 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 2d 66 69 6c 65 20 63 | ....(when.(zerop.(process-file.c |
| ad60 | 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 0a 20 20 20 20 20 20 | ommand.nil.t.nil."root"))....... |
| ad80 | 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 20 20 | .....(goto-char.(point-min)).... |
| ada0 | 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 74 6f 72 79 0a | ........(file-name-as-directory. |
| adc0 | 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 72 69 6e 67 2d 6e 6f | ............(buffer-substring-no |
| ade0 | 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 2d 70 6f | -properties.(point).(line-end-po |
| ae00 | 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 69 74 2d 67 75 74 74 | sition)))))))))..(defun.git-gutt |
| ae20 | 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 67 75 74 74 65 72 3a | er:live-update.()...(git-gutter: |
| ae40 | 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 6c 65 29 0a 20 20 20 | awhen.(git-gutter:base-file).... |
| ae60 | 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 61 62 6c 65 64 0a 20 | .(when.(and.git-gutter:enabled.. |
| ae80 | 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 73 68 6f 75 6c 64 | ..............(git-gutter:should |
| aea0 | 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 66 69 6c 65 20 28 66 | -update-p)).......(let.((file.(f |
| aec0 | 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 29 0a 20 20 20 20 20 | ile-name-nondirectory.it))...... |
| aee0 | 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 6d 65 20 28 67 69 74 | .......(root.(file-truename.(git |
| af00 | 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 65 72 3a 76 63 73 2d | -gutter:vcs-root.git-gutter:vcs- |
| af20 | 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 28 6d 61 6b 65 2d 74 | type))).............(now.(make-t |
| af40 | 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 29 29 0a 20 20 20 20 | emp-file."git-gutter-cur"))..... |
| af60 | 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 65 6d 70 2d 66 69 6c | ........(original.(make-temp-fil |
| af80 | 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 20 20 20 20 20 20 28 | e."git-gutter-orig"))).........( |
| afa0 | 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 69 6e 61 6c 2d 63 6f | if.(git-gutter:write-original-co |
| afc0 | 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 74 69 76 65 2d 6e 61 | ntent.original.(file-relative-na |
| afe0 | 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 28 70 72 6f 67 6e 0a | me.it.root)).............(progn. |
| b000 | 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 77 72 69 74 65 2d | ..............(git-gutter:write- |
| b020 | 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 20 20 20 20 20 20 20 | current-content.now)............ |
| b040 | 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 2d 75 70 64 61 74 65 | ...(git-gutter:start-live-update |
| b060 | 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 20 20 20 20 20 20 28 | .file.original.now))...........( |
| b080 | 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 20 20 28 64 65 6c 65 | delete-file.now)...........(dele |
| b0a0 | 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 3b 20 66 6f 72 20 6c | te-file.original))))))..;;.for.l |
| b0c0 | 69 6e 75 6d 2d 75 73 65 72 0a 28 77 68 65 6e 20 28 61 6e 64 20 28 61 6e 64 20 28 62 6f 75 6e 64 | inum-user.(when.(and.(and.(bound |
| b0e0 | 70 20 27 67 6c 6f 62 61 6c 2d 6c 69 6e 75 6d 2d 6d 6f 64 65 29 20 67 6c 6f 62 61 6c 2d 6c 69 6e | p.'global-linum-mode).global-lin |
| b100 | 75 6d 2d 6d 6f 64 65 29 20 28 6e 6f 74 20 28 62 6f 75 6e 64 70 20 27 67 69 74 2d 67 75 74 74 65 | um-mode).(not.(boundp.'git-gutte |
| b120 | 72 2d 66 72 69 6e 67 65 29 29 29 0a 20 20 28 67 69 74 2d 67 75 74 74 65 72 3a 6c 69 6e 75 6d 2d | r-fringe)))...(git-gutter:linum- |
| b140 | 73 65 74 75 70 29 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 61 6c 6c 2d 68 | setup))..(defun.git-gutter:all-h |
| b160 | 75 6e 6b 73 20 28 29 0a 20 20 22 43 6f 75 6e 64 20 75 6e 73 74 61 67 65 64 20 68 75 6e 6b 73 20 | unks.()..."Cound.unstaged.hunks. |
| b180 | 69 6e 20 61 6c 6c 20 62 75 66 66 65 72 73 22 0a 20 20 28 6c 65 74 20 28 28 73 75 6d 20 30 29 29 | in.all.buffers"...(let.((sum.0)) |
| b1a0 | 0a 20 20 20 20 28 64 6f 6c 69 73 74 20 28 62 75 66 20 28 62 75 66 66 65 72 2d 6c 69 73 74 29 29 | .....(dolist.(buf.(buffer-list)) |
| b1c0 | 0a 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 62 75 66 0a | .......(with-current-buffer.buf. |
| b1e0 | 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 67 69 74 2d 67 75 74 74 65 72 2d 6d 6f 64 65 0a 20 20 | ........(when.git-gutter-mode... |
| b200 | 20 20 20 20 20 20 20 20 28 63 6c 2d 69 6e 63 66 20 73 75 6d 20 28 67 69 74 2d 67 75 74 74 65 72 | ........(cl-incf.sum.(git-gutter |
| b220 | 3a 62 75 66 66 65 72 2d 68 75 6e 6b 73 29 29 29 29 29 0a 20 20 20 20 73 75 6d 29 29 0a 0a 28 64 | :buffer-hunks))))).....sum))..(d |
| b240 | 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 62 75 66 66 65 72 2d 68 75 6e 6b 73 20 28 29 0a | efun.git-gutter:buffer-hunks.(). |
| b260 | 20 20 22 43 6f 75 6e 74 20 75 6e 73 74 61 67 65 64 20 68 75 6e 6b 73 20 69 6e 20 63 75 72 72 65 | .."Count.unstaged.hunks.in.curre |
| b280 | 6e 74 20 62 75 66 66 65 72 2e 22 0a 20 20 28 6c 65 6e 67 74 68 20 67 69 74 2d 67 75 74 74 65 72 | nt.buffer."...(length.git-gutter |
| b2a0 | 3a 64 69 66 66 69 6e 66 6f 73 29 29 0a 0a 28 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a | :diffinfos))..(defun.git-gutter: |
| b2c0 | 73 74 61 74 2d 68 75 6e 6b 20 28 68 75 6e 6b 29 0a 20 20 28 63 6c 2d 63 61 73 65 20 28 67 69 74 | stat-hunk.(hunk)...(cl-case.(git |
| b2e0 | 2d 67 75 74 74 65 72 2d 68 75 6e 6b 2d 74 79 70 65 20 68 75 6e 6b 29 0a 20 20 20 20 28 6d 6f 64 | -gutter-hunk-type.hunk).....(mod |
| b300 | 69 66 69 65 64 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 | ified.(with-temp-buffer......... |
| b320 | 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 28 67 69 74 2d 67 75 74 74 65 72 2d 68 75 6e 6b | ........(insert.(git-gutter-hunk |
| b340 | 2d 63 6f 6e 74 65 6e 74 20 68 75 6e 6b 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -content.hunk))................. |
| b360 | 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 20 | (goto-char.(point-min))......... |
| b380 | 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 61 64 64 65 64 20 30 29 0a 20 20 20 20 20 20 20 20 | ........(let.((added.0)......... |
| b3a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 6c 65 74 65 64 20 30 29 29 0a 20 20 20 20 20 | ..............(deleted.0))...... |
| b3c0 | 20 20 20 20 20 20 20 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 | .............(while.(not.(eobp)) |
| b3e0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 6c 6f 6f | .....................(cond.((loo |
| b400 | 6b 69 6e 67 2d 61 74 2d 70 20 22 5c 5c 2b 22 29 20 28 63 6c 2d 69 6e 63 66 20 61 64 64 65 64 29 | king-at-p."\\+").(cl-incf.added) |
| b420 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6c 6f | )...........................((lo |
| b440 | 6f 6b 69 6e 67 2d 61 74 2d 70 20 22 5c 5c 2d 22 29 20 28 63 6c 2d 69 6e 63 66 20 64 65 6c 65 74 | oking-at-p."\\-").(cl-incf.delet |
| b460 | 65 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 | ed))).....................(forwa |
| b480 | 72 64 2d 6c 69 6e 65 20 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 | rd-line.1))...................(c |
| b4a0 | 6f 6e 73 20 61 64 64 65 64 20 64 65 6c 65 74 65 64 29 29 29 29 0a 20 20 20 20 28 61 64 64 65 64 | ons.added.deleted)))).....(added |
| b4c0 | 20 28 63 6f 6e 73 20 28 2d 20 28 67 69 74 2d 67 75 74 74 65 72 2d 68 75 6e 6b 2d 65 6e 64 2d 6c | .(cons.(-.(git-gutter-hunk-end-l |
| b4e0 | 69 6e 65 20 68 75 6e 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 | ine.hunk).....................(g |
| b500 | 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 68 75 6e 6b 29 29 | it-gutter-hunk-start-line.hunk)) |
| b520 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 29 29 0a 20 20 20 20 28 64 65 6c 65 74 | ..................0)).....(delet |
| b540 | 65 64 20 28 63 6f 6e 73 20 30 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2d | ed.(cons.0....................(- |
| b560 | 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 29 | .(git-gutter-hunk-end-line.hunk) |
| b580 | 0a 20 20 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 | .......................(git-gutt |
| b5a0 | 65 72 2d 68 75 6e 6b 2d 73 74 61 72 74 2d 6c 69 6e 65 20 68 75 6e 6b 29 29 29 29 29 29 0a 0a 28 | er-hunk-start-line.hunk))))))..( |
| b5c0 | 64 65 66 75 6e 20 67 69 74 2d 67 75 74 74 65 72 3a 73 74 61 74 69 73 74 69 63 20 28 29 0a 20 20 | defun.git-gutter:statistic.()... |
| b5e0 | 22 52 65 74 75 72 6e 20 73 74 61 74 69 73 74 69 63 20 75 6e 73 74 61 67 65 64 20 68 75 6e 6b 73 | "Return.statistic.unstaged.hunks |
| b600 | 20 69 6e 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 | .in.current.buffer."...(interact |
| b620 | 69 76 65 29 0a 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 68 75 6e 6b 20 69 6e 20 67 69 74 2d | ive)...(cl-loop.for.hunk.in.git- |
| b640 | 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 20 20 66 6f 72 20 | gutter:diffinfos............for. |
| b660 | 28 61 64 64 20 2e 20 64 65 6c 29 20 3d 20 28 67 69 74 2d 67 75 74 74 65 72 3a 73 74 61 74 2d 68 | (add...del).=.(git-gutter:stat-h |
| b680 | 75 6e 6b 20 68 75 6e 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 73 75 6d 20 61 64 64 20 69 6e 74 | unk.hunk)............sum.add.int |
| b6a0 | 6f 20 61 64 64 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 73 75 6d 20 64 65 6c 20 69 6e 74 6f 20 | o.added............sum.del.into. |
| b6c0 | 64 65 6c 65 74 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 66 69 6e 61 6c 6c 79 0a 20 20 20 20 20 | deleted............finally...... |
| b6e0 | 20 20 20 20 20 20 72 65 74 75 72 6e 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ......return.(progn............. |
| b700 | 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 63 61 6c 6c 65 64 2d 69 6e 74 65 72 61 63 74 69 76 | ........(when.(called-interactiv |
| b720 | 65 6c 79 2d 70 20 27 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ely-p.'interactive)............. |
| b740 | 20 20 20 20 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 41 64 64 65 64 20 25 64 20 6c 69 6e | ..........(message."Added.%d.lin |
| b760 | 65 73 2c 20 44 65 6c 65 74 65 64 20 25 64 20 6c 69 6e 65 73 22 20 61 64 64 65 64 20 64 65 6c 65 | es,.Deleted.%d.lines".added.dele |
| b780 | 74 65 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 | ted)).....................(cons. |
| b7a0 | 61 64 64 65 64 20 64 65 6c 65 74 65 64 29 29 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 67 69 74 | added.deleted))))..(provide.'git |
| b7c0 | 2d 67 75 74 74 65 72 29 0a 0a 3b 3b 3b 20 67 69 74 2d 67 75 74 74 65 72 2e 65 6c 20 65 6e 64 73 | -gutter)..;;;.git-gutter.el.ends |
| b7e0 | 20 68 65 72 65 0a 0a 3b 3b 20 4c 6f 63 61 6c 20 56 61 72 69 61 62 6c 65 73 3a 0a 3b 3b 20 66 69 | .here..;;.Local.Variables:.;;.fi |
| b800 | 6c 6c 2d 63 6f 6c 75 6d 6e 3a 20 38 35 0a 3b 3b 20 69 6e 64 65 6e 74 2d 74 61 62 73 2d 6d 6f 64 | ll-column:.85.;;.indent-tabs-mod |
| b820 | 65 3a 20 6e 69 6c 0a 3b 3b 20 65 6c 69 73 70 2d 6c 69 6e 74 2d 69 6e 64 65 6e 74 2d 73 70 65 63 | e:.nil.;;.elisp-lint-indent-spec |
| b840 | 73 3a 20 28 28 67 69 74 2d 67 75 74 74 65 72 3a 61 77 68 65 6e 20 2e 20 31 29 29 0a 3b 3b 20 45 | s:.((git-gutter:awhen...1)).;;.E |
| b860 | 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 00 | nd:............................. |
| 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: ef808ef3efbe1e70ee6b78d2c613e7b9559bd46f (plain)