| ofs | hex dump | ascii |
|---|---|---|
| 0000 | 67 69 74 2d 67 75 74 74 65 72 2d 32 30 32 34 30 39 30 33 2e 34 31 38 2f 00 00 00 00 00 00 00 00 | git-gutter-20240903.418/........ |
| 0020 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0040 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0060 | 00 00 00 00 30 30 30 30 37 35 35 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000755.0000000.0000000.0000 |
| 0080 | 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 33 30 32 34 00 20 35 00 00 00 | 0000000.00000000000.013024..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 30 39 30 33 2e 34 31 38 2f 67 69 74 2d 67 75 74 74 | git-gutter-20240903.418/git-gutt |
| 0220 | 65 72 2d 70 6b 67 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | er-pkg.el....................... |
| 0240 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0260 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 0280 | 30 30 30 30 37 32 36 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 32 32 35 00 20 30 00 00 00 | 0000726.00000000000.016225..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 30 39 30 33 2e 34 31 38 22 0a | age."git-gutter"."20240903.418". |
| 0460 | 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 47 | .."Port.of.Sublime.Text.plugin.G |
| 0480 | 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 20 | itGutter."...'((emacs."25.1")).. |
| 04a0 | 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 6f | .:url."https://github.com/emacso |
| 04c0 | 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 22 | rphanage/git-gutter"...:commit." |
| 04e0 | 39 62 65 61 65 64 39 65 34 35 66 39 32 61 62 30 35 32 37 66 35 34 64 62 66 35 66 62 32 34 31 62 | 9beaed9e45f92ab0527f54dbf5fb241b |
| 0500 | 38 34 65 37 38 32 31 64 22 0a 20 20 3a 72 65 76 64 65 73 63 20 22 39 62 65 61 65 64 39 65 34 35 | 84e7821d"...:revdesc."9beaed9e45 |
| 0520 | 66 39 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 44 | f9"...:authors.'(("Syohei.YOSHID |
| 0540 | 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 69 | A"..."syohex@gmail.com"))...:mai |
| 0560 | 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 65 | ntainers.'(("Neil.Okamoto"..."ne |
| 0580 | 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 20 | il.okamoto+melpa@gmail.com").... |
| 05a0 | 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 63 | ..............("Jen-Chieh"..."jc |
| 05c0 | 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 00 | s090218@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 30 39 30 33 2e 34 31 38 2f 67 69 74 2d 67 75 74 74 | git-gutter-20240903.418/git-gutt |
| 0620 | 65 72 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | er.el........................... |
| 0640 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0660 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 0680 | 30 31 33 30 31 34 31 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 34 34 31 00 20 30 00 00 00 | 0130141.00000000000.015441..0... |
| 06a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 06c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 06e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0700 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 0720 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 0740 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0760 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0780 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 07a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 07c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 07e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0800 | 3b 3b 3b 20 67 69 74 2d 67 75 74 74 65 72 2e 65 6c 20 2d 2d 2d 20 50 6f 72 74 20 6f 66 20 53 75 | ;;;.git-gutter.el.---.Port.of.Su |
| 0820 | 62 6c 69 6d 65 20 54 65 78 74 20 70 6c 75 67 69 6e 20 47 69 74 47 75 74 74 65 72 20 2d 2a 2d 20 | blime.Text.plugin.GitGutter.-*-. |
| 0840 | 6c 65 78 69 63 61 6c 2d 62 69 6e 64 69 6e 67 3a 20 74 3b 20 2d 2a 2d 0a 0a 3b 3b 20 43 6f 70 79 | lexical-binding:.t;.-*-..;;.Copy |
| 0860 | 72 69 67 68 74 20 28 43 29 20 32 30 31 36 2d 32 30 32 30 20 53 79 6f 68 65 69 20 59 4f 53 48 49 | right.(C).2016-2020.Syohei.YOSHI |
| 0880 | 44 41 20 3c 73 79 6f 68 65 78 40 67 6d 61 69 6c 2e 63 6f 6d 3e 0a 3b 3b 20 43 6f 70 79 72 69 67 | DA.<syohex@gmail.com>.;;.Copyrig |
| 08a0 | 68 74 20 28 43 29 20 32 30 32 30 2d 32 30 32 32 20 4e 65 69 6c 20 4f 6b 61 6d 6f 74 6f 20 3c 6e | ht.(C).2020-2022.Neil.Okamoto.<n |
| 08c0 | 65 69 6c 2e 6f 6b 61 6d 6f 74 6f 2b 6d 65 6c 70 61 40 67 6d 61 69 6c 2e 63 6f 6d 3e 0a 3b 3b 20 | eil.okamoto+melpa@gmail.com>.;;. |
| 08e0 | 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 32 30 2d 32 30 32 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 30 39 30 33 2e 34 31 38 0a 3b 3b 20 50 61 63 6b 61 67 65 2d 52 65 76 | ion:.20240903.418.;;.Package-Rev |
| 0a20 | 69 73 69 6f 6e 3a 20 39 62 65 61 65 64 39 65 34 35 66 39 0a 3b 3b 20 50 61 63 6b 61 67 65 2d 52 | ision:.9beaed9e45f9.;;.Package-R |
| 0a40 | 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 68 | equires:.((emacs."25.1"))..;;.Th |
| 0a60 | 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 75 | is.program.is.free.software;.you |
| 0a80 | 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 69 | .can.redistribute.it.and/or.modi |
| 0aa0 | 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 20 | fy.;;.it.under.the.terms.of.the. |
| 0ac0 | 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 75 | GNU.General.Public.License.as.pu |
| 0ae0 | 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 20 | blished.by.;;.the.Free.Software. |
| 0b00 | 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 20 | Foundation,.either.version.3.of. |
| 0b20 | 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 69 | the.License,.or.;;.(at.your.opti |
| 0b40 | 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 20 | on).any.later.version...;;.This. |
| 0b60 | 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 6f | program.is.distributed.in.the.ho |
| 0b80 | 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 75 | pe.that.it.will.be.useful,.;;.bu |
| 0ba0 | 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 20 | t.WITHOUT.ANY.WARRANTY;.without. |
| 0bc0 | 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 20 | even.the.implied.warranty.of.;;. |
| 0be0 | 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 41 | MERCHANTABILITY.or.FITNESS.FOR.A |
| 0c00 | 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 3b | .PARTICULAR.PURPOSE...See.the.;; |
| 0c20 | 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 20 | .GNU.General.Public.License.for. |
| 0c40 | 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 76 | more.details...;;.You.should.hav |
| 0c60 | 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 6e | e.received.a.copy.of.the.GNU.Gen |
| 0c80 | 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 74 | eral.Public.License.;;.along.wit |
| 0ca0 | 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 74 | h.this.program...If.not,.see.<ht |
| 0cc0 | 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 3b | tp://www.gnu.org/licenses/>...;; |
| 0ce0 | 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 47 | ;.Commentary:.;;.;;.Port.of.GitG |
| 0d00 | 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 69 | utter.which.is.a.plugin.of.Subli |
| 0d20 | 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 6c | me.Text..;;;.Code:..(require.'cl |
| 0d40 | 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 0a | -lib)..(defgroup.git-gutter.nil. |
| 0d60 | 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 69 | .."Port.GitGutter"...:prefix."gi |
| 0d80 | 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 61 | t-gutter:"...:group.'vc)..(defva |
| 0da0 | 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 74 | r.git-gutter-mode.nil)..(defcust |
| 0dc0 | 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 20 | om.git-gutter:window-width.nil.. |
| 0de0 | 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 64 | ."Character.width.of.gutter.wind |
| 0e00 | 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 6d | ow...Emacs.mistakes.width.of.som |
| 0e20 | 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 78 | e.characters..It.is.better.to.ex |
| 0e40 | 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 61 | plicitly.assign.width.to.this.va |
| 0e60 | 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 68 | riable,.if.you.use.full-width.ch |
| 0e80 | 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 20 | aracter.for.signs.of.changes"... |
| 0ea0 | 3a 74 79 70 65 20 27 69 6e 74 65 67 65 72 0a 20 20 3a 67 72 6f 75 70 20 27 67 69 74 2d 67 75 74 | :type.'integer...:group.'git-gut |
| 0ec0 | 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 66 | ter)..(defcustom.git-gutter:diff |
| 0ee0 | 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 66 | -option.""..."Option.of.'git.dif |
| 0f00 | 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 67 | f'."...:type.'string...:group.'g |
| 0f20 | 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 |
| 0f40 | 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 4f | r:subversion-diff-option.""..."O |
| 0f60 | 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 73 | ption.of.'svn.diff'."...:type.'s |
| 0f80 | 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 65 | tring...:group.'git-gutter)..(de |
| 0fa0 | 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 66 | fcustom.git-gutter:mercurial-dif |
| 0fc0 | 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 66 | f-option.""..."Option.of.'hg.dif |
| 0fe0 | 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 67 | f'."...:type.'string...:group.'g |
| 1000 | 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 |
| 1020 | 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 6f | r:bazaar-diff-option.""..."Optio |
| 1040 | 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 6e | n.of.'bzr.diff'."...:type.'strin |
| 1060 | 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 73 | g...:group.'git-gutter)..(defcus |
| 1080 | 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 20 | tom.git-gutter:update-commands.. |
| 10a0 | 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 72 | .'(ido-switch-buffer.helm-buffer |
| 10c0 | 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 20 | s-list)..."Each.command.of.this. |
| 10e0 | 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 61 | list.is.executed,.gutter.informa |
| 1100 | 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 74 | tion.is.updated."...:type.'(list |
| 1120 | 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 22 | .(function.:tag."Update.command" |
| 1140 | 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 65 | )................(repeat.:inline |
| 1160 | 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 6e | .t.(function.:tag."Update.comman |
| 1180 | 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 65 | d")))...:group.'git-gutter)..(de |
| 11a0 | 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 77 | fcustom.git-gutter:update-window |
| 11c0 | 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 6b | s-commands...'(kill-buffer.ido-k |
| 11e0 | 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 74 | ill-buffer)..."Each.command.of.t |
| 1200 | 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 66 | his.list.is.executed,.gutter.inf |
| 1220 | 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 69 | ormation.is.updated.and.gutter.i |
| 1240 | 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 20 | nformation.of.other.windows."... |
| 1260 | 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 64 | :type.'(list.(function.:tag."Upd |
| 1280 | 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 65 | ate.command")................(re |
| 12a0 | 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 55 | peat.:inline.t.(function.:tag."U |
| 12c0 | 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 2d | pdate.command")))...:group.'git- |
| 12e0 | 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 75 | gutter)..(defcustom.git-gutter:u |
| 1300 | 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 0a | pdate-hooks...'(after-save-hook. |
| 1320 | 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 66 | ....after-revert-hook.....find-f |
| 1340 | 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 2d | ile-hook.....after-change-major- |
| 1360 | 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 6f | mode-hook.....text-scale-mode-ho |
| 1380 | 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 67 | ok)..."Hook.points.of.updating.g |
| 13a0 | 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 61 | utter."...:type.'(list.(hook.:ta |
| 13c0 | 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 72 | g."HookPoint")................(r |
| 13e0 | 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 6b | epeat.:inline.t.(hook.:tag."Hook |
| 1400 | 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 0a | Point")))...:group.'git-gutter). |
| 1420 | 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 68 | .(defcustom.git-gutter:always-sh |
| 1440 | 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 74 | ow-separator.nil..."Show.separat |
| 1460 | 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 2e | or.even.if.there.are.no.changes. |
| 1480 | 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 74 | "...:type.'boolean...:group.'git |
| 14a0 | 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: |
| 14c0 | 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 20 | separator-sign.nil..."Separator. |
| 14e0 | 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 20 | sign."...:type.'string...:group. |
| 1500 | 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 74 | 'git-gutter)..(defcustom.git-gut |
| 1520 | 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 65 | ter:modified-sign."="..."Modifie |
| 1540 | 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 75 | d.sign."...:type.'string...:grou |
| 1560 | 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 |
| 1580 | 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 69 | utter:added-sign."+"..."Added.si |
| 15a0 | 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 67 | gn."...:type.'string...:group.'g |
| 15c0 | 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 |
| 15e0 | 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 69 | r:deleted-sign."-"..."Deleted.si |
| 1600 | 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 67 | gn."...:type.'string...:group.'g |
| 1620 | 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 |
| 1640 | 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 65 | r:unchanged-sign.nil..."Unchange |
| 1660 | 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 75 | d.sign."...:type.'string...:grou |
| 1680 | 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 |
| 16a0 | 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 75 | utter:hide-gutter.nil..."Hide.gu |
| 16c0 | 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 20 | tter.if.there.are.no.changes.".. |
| 16e0 | 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 75 | .:type.'boolean...:group.'git-gu |
| 1700 | 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 67 | tter)..(defcustom.git-gutter:lig |
| 1720 | 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 20 | hter.".GitGutter"..."Minor.mode. |
| 1740 | 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 27 | lighter.in.mode-line."...:type.' |
| 1760 | 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 |
| 1780 | 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 0a | efcustom.git-gutter:verbosity.0. |
| 17a0 | 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 61 | .."Log/message.level...4.means.a |
| 17c0 | 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 72 | ll,.0.nothing."...:type.'integer |
| 17e0 | 0a 20 20 3a 67 72 6f 75 70 20 27 67 69 74 2d 67 75 74 74 65 72 29 0a 0a 28 64 65 66 63 75 73 74 | ...:group.'git-gutter)..(defcust |
| 1800 | 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 20 | om.git-gutter:visual-line.nil... |
| 1820 | 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 6c | "Show.sign.at.gutter.by.visual.l |
| 1840 | 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 20 | ine."...:type.'boolean...:group. |
| 1860 | 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 65 | 'git-gutter)..(defface.git-gutte |
| 1880 | 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 20 | r:separator...'((t.(:foreground. |
| 18a0 | 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 66 | "cyan".:weight.bold.:inherit.def |
| 18c0 | 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 0a | ault)))..."Face.of.separator").. |
| 18e0 | 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 27 | (defface.git-gutter:modified...' |
| 1900 | 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 67 | ((t.(:foreground."magenta".:weig |
| 1920 | 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 46 | ht.bold.:inherit.default)))..."F |
| 1940 | 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 2d | ace.of.modified")..(defface.git- |
| 1960 | 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 64 | gutter:added...'((t.(:foreground |
| 1980 | 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 64 | ."green".:weight.bold.:inherit.d |
| 19a0 | 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 64 | efault)))..."Face.of.added")..(d |
| 19c0 | 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 74 | efface.git-gutter:deleted...'((t |
| 19e0 | 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 64 | .(:foreground."red".:weight.bold |
| 1a00 | 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 20 | .:inherit.default)))..."Face.of. |
| 1a20 | 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 75 | deleted")..(defface.git-gutter:u |
| 1a40 | 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 65 | nchanged...'((t.(:background."ye |
| 1a60 | 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 63 | llow".:inherit.default)))..."Fac |
| 1a80 | 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 74 | e.of.unchanged")..(defcustom.git |
| 1aa0 | 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 20 | -gutter:disabled-modes.nil..."A. |
| 1ac0 | 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 2d | list.of.modes.which.`global-git- |
| 1ae0 | 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 2e | gutter-mode'.should.be.disabled. |
| 1b00 | 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 72 | "...:type.'(repeat.symbol)...:gr |
| 1b20 | 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 74 | oup.'git-gutter)..(defcustom.git |
| 1b40 | 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 0a | -gutter:handled-backends.'(git). |
| 1b60 | 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 65 | .."List.of.version.control.backe |
| 1b80 | 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 69 | nds.for.which.`git-gutter.el`.wi |
| 1ba0 | 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 20 | ll.be.used..`git',.`svn',.`hg',. |
| 1bc0 | 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 70 | and.`bzr'.are.supported."...:typ |
| 1be0 | 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 74 | e.'(repeat.symbol)...:group.'git |
| 1c00 | 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 65 | -gutter)..(defvar.git-gutter:vie |
| 1c20 | 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 65 | w-diff-function.#'git-gutter:vie |
| 1c40 | 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 77 | w-diff-infos..."Function.of.view |
| 1c60 | 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 74 | ing.changes.")..(defvar.git-gutt |
| 1c80 | 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 63 | er:clear-function.#'git-gutter:c |
| 1ca0 | 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 63 | lear-diff-infos..."Function.of.c |
| 1cc0 | 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 74 | lear.changes.")..(defvar.git-gut |
| 1ce0 | 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 69 | ter:init-function.'nil..."Functi |
| 1d00 | 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 20 | on.of.initialize.")..(defcustom. |
| 1d20 | 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 48 | git-gutter-mode-on-hook.nil..."H |
| 1d40 | 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 61 | ook.run.when.git-gutter.mode.ena |
| 1d60 | 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 69 | ble."...:type.'hook...:group.'gi |
| 1d80 | 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 |
| 1da0 | 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 77 | -mode-off-hook.nil..."Hook.run.w |
| 1dc0 | 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 20 | hen.git-gutter.mode.disable."... |
| 1de0 | 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 72 | :type.'hook...:group.'git-gutter |
| 1e00 | 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 2d | )..(defcustom.git-gutter:update- |
| 1e20 | 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 73 | interval.0..."Time.interval.in.s |
| 1e40 | 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 61 | econds.for.updating.diff.informa |
| 1e60 | 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 70 | tion."...:type.'integer...:group |
| 1e80 | 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 |
| 1ea0 | 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 6d | tter:ask-p.t..."Ask.whether.comm |
| 1ec0 | 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 6c | it/revert.or.not."...:type.'bool |
| 1ee0 | 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 63 | ean...:group.'git-gutter)..(defc |
| 1f00 | 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 22 | ustom.git-gutter:display-p.t..." |
| 1f20 | 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 2e | Display.diff.information.or.not. |
| 1f40 | 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 74 | "...:type.'boolean...:group.'git |
| 1f60 | 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 61 | -gutter)..(defvar.git-gutter:sta |
| 1f80 | 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 69 | rt-revision.nil..."Starting.revi |
| 1fa0 | 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 65 | sion.for.vc.diffs..Can.be.a.dire |
| 1fc0 | 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 6f | ctory-local.variable.in.your.pro |
| 1fe0 | 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 6c | ject.")..(make-variable-buffer-l |
| 2000 | 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 29 | ocal.'git-gutter:start-revision) |
| 2020 | 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 6e | .(put.'git-gutter:start-revision |
| 2040 | 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 62 | .'safe-local-variable......(lamb |
| 2060 | 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 70 | da.(x).(or.(booleanp.x).(stringp |
| 2080 | 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 72 | .x))))..(cl-defstruct.git-gutter |
| 20a0 | 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 20 | -hunk...type.content.start-line. |
| 20c0 | 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 74 | end-line)..(defvar-local.git-gut |
| 20e0 | 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 74 | ter:enabled.nil).(defvar.git-gut |
| 2100 | 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 67 | ter:diffinfos.nil).(defvar.git-g |
| 2120 | 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 0a | utter:has-indirect-buffers.nil). |
| 2140 | 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 6d | (defvar.git-gutter:real-this-com |
| 2160 | 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 6e | mand.nil).(defvar.git-gutter:lin |
| 2180 | 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 74 | um-enabled.nil).(defvar.git-gutt |
| 21a0 | 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 29 | er:linum-prev-window-margin.nil) |
| 21c0 | 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 6c | .(defvar.git-gutter:vcs-type.nil |
| 21e0 | 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 69 | ).(defvar.git-gutter:revision-hi |
| 2200 | 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 70 | story.nil).(defvar.git-gutter:up |
| 2220 | 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 69 | date-timer.nil).(defvar-local.gi |
| 2240 | 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 63 | t-gutter:last-chars-modified-tic |
| 2260 | 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 70 | k.nil)..(defvar.git-gutter:popup |
| 2280 | 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 65 | -buffer."*git-gutter:diff*").(de |
| 22a0 | 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 0a | fvar.git-gutter:ignore-commands. |
| 22c0 | 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 74 | ..'(minibuffer-complete-and-exit |
| 22e0 | 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 69 | .....exit-minibuffer.....ido-exi |
| 2300 | 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 74 | t-minibuffer.....helm-maybe-exit |
| 2320 | 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 64 | -minibuffer.....helm-confirm-and |
| 2340 | 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 69 | -exit-minibuffer))..(defmacro.gi |
| 2360 | 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 29 | t-gutter:awhen.(test.&rest.body) |
| 2380 | 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 53 | ..."Anaphoric.when..Argument.TES |
| 23a0 | 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 74 | T.is.the.case.before.BODY.execut |
| 23c0 | 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 60 | ion."...(declare.(indent.1))...` |
| 23e0 | 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 20 | (let.((it.,test))......(when.it. |
| 2400 | 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 3a | ,@body)))..(defsubst.git-gutter: |
| 2420 | 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 73 | execute-command.(cmd.output.&res |
| 2440 | 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 20 | t.args)...(apply.#'process-file. |
| 2460 | 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 75 | cmd.nil.output.nil.args))..(defu |
| 2480 | 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 70 | n.git-gutter:in-git-repository-p |
| 24a0 | 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 69 | .()...(when.(executable-find."gi |
| 24c0 | 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 20 | t".t).....(with-temp-buffer..... |
| 24e0 | 20 20 28 77 68 65 6e 2d 6c 65 74 20 28 28 65 78 65 63 2d 72 65 73 75 6c 74 20 28 67 69 74 2d 67 | ..(when-let.((exec-result.(git-g |
| 2500 | 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 20 20 | utter:execute-command........... |
| 2520 | 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 22 72 65 | ....................."git".t."re |
| 2540 | 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 65 65 22 | v-parse"."--is-inside-work-tree" |
| 2560 | 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 2d 72 65 | ))).........(when.(zerop.exec-re |
| 2580 | 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 6f 69 6e | sult)...........(goto-char.(poin |
| 25a0 | 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 2d 70 20 | t-min))...........(looking-at-p. |
| 25c0 | 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 65 72 3a | "true"))))))..(defun.git-gutter: |
| 25e0 | 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 68 65 63 | in-repository-common-p.(cmd.chec |
| 2600 | 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 63 75 74 | k-subcmd.repodir)...(and.(execut |
| 2620 | 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 74 65 2d | able-find.cmd.t)........(locate- |
| 2640 | 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 74 6f 72 | dominating-file.default-director |
| 2660 | 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 6c 79 20 | y.repodir)........(zerop.(apply. |
| 2680 | 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 63 6d 64 | #'git-gutter:execute-command.cmd |
| 26a0 | 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 6f 74 20 | .nil.check-subcmd))........(not. |
| 26c0 | 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 20 28 63 | (string-match-p.(regexp-quote.(c |
| 26e0 | 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 20 20 20 | oncat."/".repodir."/"))......... |
| 2700 | 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 69 72 65 | ....................default-dire |
| 2720 | 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 76 63 73 | ctory))))..(defun.git-gutter:vcs |
| 2740 | 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 61 73 65 | -check-function.(vcs)...(cl-case |
| 2760 | 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 67 69 74 | .vcs.....(git.(git-gutter:in-git |
| 2780 | 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 2d 67 75 | -repository-p)).....(svn.(git-gu |
| 27a0 | 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 73 76 6e | tter:in-repository-common-p."svn |
| 27c0 | 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 28 67 69 | ".'("info").".svn")).....(hg.(gi |
| 27e0 | 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 2d 70 20 | t-gutter:in-repository-common-p. |
| 2800 | 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 7a 72 20 | "hg".'("root").".hg")).....(bzr. |
| 2820 | 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 |
| 2840 | 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 0a 0a 28 | -p."bzr".'("root").".bzr"))))..( |
| 2860 | 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 79 2d 70 | defun.git-gutter:in-repository-p |
| 2880 | 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 2d 67 75 | .()...(cl-loop.for.vcs.in.git-gu |
| 28a0 | 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 20 20 20 | tter:handled-backends........... |
| 28c0 | 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 75 6e 63 | .when.(git-gutter:vcs-check-func |
| 28e0 | 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 73 65 74 | tion.vcs)............return.(set |
| 2900 | 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 63 73 29 | q-local.git-gutter:vcs-type.vcs) |
| 2920 | 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 67 65 73 | ))..(defsubst.git-gutter:changes |
| 2940 | 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 67 3d 20 | -to-number.(str)...(if.(string=. |
| 2960 | 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 6f 2d 6e | str."").......1.....(string-to-n |
| 2980 | 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 75 74 74 | umber.str)))..(defsubst.git-gutt |
| 29a0 | 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 65 2d 6e | er:base-file.()...(buffer-file-n |
| 29c0 | 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 64 65 66 | ame.(buffer-base-buffer)))..(def |
| 29e0 | 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 0a 20 20 | un.git-gutter:diff-content.()... |
| 2a00 | 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 72 20 28 | (save-excursion.....(goto-char.( |
| 2a20 | 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 20 28 6c | line-beginning-position)).....(l |
| 2a40 | 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 20 28 66 | et.((curpoint.(point))).......(f |
| 2a60 | 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 73 65 61 | orward-line.1).......(if.(re-sea |
| 2a80 | 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 20 20 20 | rch-forward."^@@".nil.t)........ |
| 2aa0 | 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 40 40 27 | ...(backward-char.3).;;.for.'@@' |
| 2ac0 | 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 78 29 29 | .........(goto-char.(point-max)) |
| 2ae0 | 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 70 6f 69 | ).......(buffer-substring.curpoi |
| 2b00 | 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 75 74 74 | nt.(point)))))..(defvar.git-gutt |
| 2b20 | 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 2d 5c 5c | er:diff-output-regexp..."^@@.-\\ |
| 2b40 | 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 2b 5c 5c | (?:[0-9]+\\),?\\([0-9]*\\).\\+\\ |
| 2b60 | 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 20 20 22 | ([0-9]+\\),?\\([0-9]*\\).@@"..." |
| 2b80 | 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 67 69 74 | Parse.diff.output.")..(defun.git |
| 2ba0 | 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 62 75 66 | -gutter:process-diff-output.(buf |
| 2bc0 | 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 0a 20 20 | )...(when.(buffer-live-p.buf)... |
| 2be0 | 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 20 20 20 | ..(with-current-buffer.buf...... |
| 2c00 | 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 28 | .(goto-char.(point-min)).......( |
| 2c20 | 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 61 72 64 | cl-loop.while.(re-search-forward |
| 2c40 | 20 67 69 74 2d 67 75 74 74 65 72 3a 64 69 66 66 2d 6f 75 74 70 75 74 2d 72 65 67 65 78 70 20 6e | .git-gutter:diff-output-regexp.n |
| 2c60 | 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 6c 69 6e | il.t)................for.new-lin |
| 2c80 | 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 2d 73 74 | e..=.(string-to-number.(match-st |
| 2ca0 | 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 72 69 67 | ring.2))................for.orig |
| 2cc0 | 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 73 2d 74 | -changes.=.(git-gutter:changes-t |
| 2ce0 | 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 20 20 20 | o-number.(match-string.1))...... |
| 2d00 | 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 67 69 74 | ..........for.new-changes.=.(git |
| 2d20 | 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 74 63 68 | -gutter:changes-to-number.(match |
| 2d40 | 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 72 20 74 | -string.3))................for.t |
| 2d60 | 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 67 65 73 | ype.=.(cond.((zerop.orig-changes |
| 2d80 | 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 20 20 20 | ).'added)....................... |
| 2da0 | 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 29 20 27 | ..........((zerop.new-changes).' |
| 2dc0 | 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 20 20 20 | deleted)........................ |
| 2de0 | 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 20 20 20 | .........(t.'modified))......... |
| 2e00 | 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 20 74 79 | .......for.end-line.=.(if.(eq.ty |
| 2e20 | 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 20 20 20 | pe.'deleted).................... |
| 2e40 | 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 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 28 31 2d 20 28 2b 20 6e | ........................(1-.(+.n |
| 2e80 | 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 20 20 20 | ew-line.new-changes))).......... |
| 2ea0 | 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 65 72 3a | ......for.content.=.(git-gutter: |
| 2ec0 | 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 63 6f 6c | diff-content)................col |
| 2ee0 | 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 61 72 74 | lect................(let.((start |
| 2f00 | 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 69 6e 65 | .(if.(zerop.new-line).1.new-line |
| 2f20 | 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 28 69 66 | ))......................(end.(if |
| 2f40 | 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 29 29 0a | .(zerop.end-line).1.end-line))). |
| 2f60 | 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 74 74 65 | .................(make-git-gutte |
| 2f80 | 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 65 20 74 | r-hunk...................:type.t |
| 2fa0 | 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 69 6e 65 | ype.:content.content.:start-line |
| 2fc0 | 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 64 65 66 | .start.:end-line.end))))))..(def |
| 2fe0 | 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 6e 20 28 | subst.git-gutter:window-margin.( |
| 3000 | 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 74 68 20 | )...(or.git-gutter:window-width. |
| 3020 | 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 68 29 29 | (git-gutter:longest-sign-width)) |
| 3040 | 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 6f 77 2d | )..(defun.git-gutter:set-window- |
| 3060 | 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 6e 6f 74 | margin.(width)...(when.(and.(not |
| 3080 | 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 3d 20 77 | .git-gutter:linum-enabled).(>=.w |
| 30a0 | 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 65 74 2d | idth.0)).....(let.((curwin.(get- |
| 30c0 | 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 69 6e 64 | buffer-window))).......(set-wind |
| 30e0 | 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 28 77 69 | ow-margins.curwin.width.(cdr.(wi |
| 3100 | 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 65 66 73 | ndow-margins.curwin))))))..(defs |
| 3120 | 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 70 20 28 | ubst.git-gutter:revision-set-p.( |
| 3140 | 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 69 73 69 | )...(and.git-gutter:start-revisi |
| 3160 | 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 74 61 72 | on.(not.(string=.git-gutter:star |
| 3180 | 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 2d 67 75 | t-revision.""))))..(defun.git-gu |
| 31a0 | 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 29 0a 20 | tter:git-diff-arguments.(file).. |
| 31c0 | 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 69 6e 67 | .(let.(args).....(unless.(string |
| 31e0 | 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 20 20 20 | =.git-gutter:diff-option."").... |
| 3200 | 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 74 2d 73 | ...(setq.args.(nreverse.(split-s |
| 3220 | 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 29 29 29 | tring.git-gutter:diff-option)))) |
| 3240 | 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 6f 6e 2d | .....(when.(git-gutter:revision- |
| 3260 | 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 3a 73 74 | set-p).......(push.git-gutter:st |
| 3280 | 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 20 22 2d | art-revision.args)).....(push."- |
| 32a0 | 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 66 69 6c | -".args).....(nreverse.(cons.fil |
| 32c0 | 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 3a 73 74 | e.args))))..(defun.git-gutter:st |
| 32e0 | 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 6f 63 2d | art-git-diff-process.(file.proc- |
| 3300 | 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 3a 67 69 | buf)...(let.((arg.(git-gutter:gi |
| 3320 | 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 28 61 70 | t-diff-arguments.file))).....(ap |
| 3340 | 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 2d 67 75 | ply.#'start-file-process."git-gu |
| 3360 | 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 74 22 20 | tter".proc-buf............"git". |
| 3380 | 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 65 66 72 | "--no-pager"."-c"."diff.autorefr |
| 33a0 | 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 20 22 2d | eshindex=0"............"diff"."- |
| 33c0 | 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 2d 72 65 | -no-color"."--no-ext-diff"."--re |
| 33e0 | 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 29 29 0a | lative"."-U0"............arg))). |
| 3400 | 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 72 67 75 | .(defun.git-gutter:svn-diff-argu |
| 3420 | 6d 65 6e 74 73 20 28 66 69 6c 65 29 0a 20 20 28 6c 65 74 20 28 61 72 67 73 29 0a 20 20 20 20 28 | ments.(file)...(let.(args).....( |
| 3440 | 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 62 76 65 | unless.(string=.git-gutter:subve |
| 3460 | 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 73 65 74 | rsion-diff-option."").......(set |
| 3480 | 71 20 61 72 67 73 20 28 6e 72 65 76 65 72 73 65 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 67 | q.args.(nreverse.(split-string.g |
| 34a0 | 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 69 6f 6e | it-gutter:subversion-diff-option |
| 34c0 | 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 76 69 73 | )))).....(when.(git-gutter:revis |
| 34e0 | 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 72 67 73 | ion-set-p).......(push."-r".args |
| 3500 | 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 74 2d 72 | ).......(push.git-gutter:start-r |
| 3520 | 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 28 63 6f | evision.args)).....(nreverse.(co |
| 3540 | 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 69 74 2d | ns.file.args))))..(defsubst.git- |
| 3560 | 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 20 28 66 | gutter:start-svn-diff-process.(f |
| 3580 | 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 67 69 74 | ile.proc-buf)...(let.((args.(git |
| 35a0 | 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 6c 65 29 | -gutter:svn-diff-arguments.file) |
| 35c0 | 29 29 0a 20 20 20 20 28 61 70 70 6c 79 20 23 27 73 74 61 72 74 2d 66 69 6c 65 2d 70 72 6f 63 65 | )).....(apply.#'start-file-proce |
| 35e0 | 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 22 20 22 | ss."git-gutter".proc-buf."svn"." |
| 3600 | 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 20 22 64 | diff"."--diff-cmd"............"d |
| 3620 | 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 75 6e 20 | iff"."-x"."-U0".args)))..(defun. |
| 3640 | 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 28 66 69 | git-gutter:hg-diff-arguments.(fi |
| 3660 | 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 20 28 73 | le)...(let.(args).....(unless.(s |
| 3680 | 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 69 66 66 | tring=.git-gutter:mercurial-diff |
| 36a0 | 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 28 6e 72 | -option."").......(setq.args.(nr |
| 36c0 | 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 65 72 3a | everse.(split-string.git-gutter: |
| 36e0 | 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 20 28 77 | mercurial-diff-option)))).....(w |
| 3700 | 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 70 29 0a | hen.(git-gutter:revision-set-p). |
| 3720 | 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 28 70 75 | ......(push."-r".args).......(pu |
| 3740 | 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 61 72 67 | sh.git-gutter:start-revision.arg |
| 3760 | 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 61 72 67 | s)).....(nreverse.(cons.file.arg |
| 3780 | 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 74 61 72 | s))))..(defsubst.git-gutter:star |
| 37a0 | 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 62 75 66 | t-hg-diff-process.(file.proc-buf |
| 37c0 | 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 67 2d 64 | )...(let.((args.(git-gutter:hg-d |
| 37e0 | 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 28 70 72 | iff-arguments.file)).........(pr |
| 3800 | 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 41 49 4e | ocess-environment.(cons."HGPLAIN |
| 3820 | 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 20 20 28 | =1".process-environment))).....( |
| 3840 | 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 2d | apply.#'start-file-process."git- |
| 3860 | 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 22 2d 55 | gutter".proc-buf."hg"."diff"."-U |
| 3880 | 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 62 7a | 0".args)))..(defun.git-gutter:bz |
| 38a0 | 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 74 20 28 | r-diff-arguments.(file)...(let.( |
| 38c0 | 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 74 2d 67 | args).....(unless.(string=.git-g |
| 38e0 | 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 20 20 20 | utter:bazaar-diff-option."").... |
| 3900 | 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 74 2d 73 | ...(setq.args.(nreverse.(split-s |
| 3920 | 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 6f 70 74 | tring.git-gutter:bazaar-diff-opt |
| 3940 | 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 |
| 3960 | 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 |
| 3980 | 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 |
| 39a0 | 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. |
| 39c0 | 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 |
| 39e0 | 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 |
| 3a00 | 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.( |
| 3a20 | 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 20 66 69 | git-gutter:bzr-diff-arguments.fi |
| 3a40 | 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 |
| 3a60 | 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 20 20 20 | ocess."git-gutter".proc-buf..... |
| 3a80 | 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 74 3d 30 | ......."bzr"."diff"."--context=0 |
| 3aa0 | 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 73 74 61 | ".args)))..(defun.git-gutter:sta |
| 3ac0 | 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 75 66 29 | rt-diff-process1.(file.proc-buf) |
| 3ae0 | 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 70 65 0a | ...(cl-case.git-gutter:vcs-type. |
| 3b00 | 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 74 2d 64 | ....(git.(git-gutter:start-git-d |
| 3b20 | 69 66 66 2d 70 72 6f 63 65 73 73 20 66 69 6c 65 20 70 72 6f 63 2d 62 75 66 29 29 0a 20 20 20 20 | iff-process.file.proc-buf))..... |
| 3b40 | 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 66 66 2d | (svn.(git-gutter:start-svn-diff- |
| 3b60 | 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 68 67 20 | process.file.proc-buf)).....(hg. |
| 3b80 | 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 63 65 73 | (git-gutter:start-hg-diff-proces |
| 3ba0 | 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 69 74 2d | s.file.proc-buf)).....(bzr.(git- |
| 3bc0 | 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 20 66 69 | gutter:start-bzr-diff-process.fi |
| 3be0 | 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 75 74 74 | le.proc-buf))))..(defun.git-gutt |
| 3c00 | 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 65 20 70 | er:start-diff-process.(curfile.p |
| 3c20 | 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 75 74 74 | roc-buf)...(let.((file.(git-gutt |
| 3c40 | 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 20 20 20 | er:base-file)).;;.for.tramp..... |
| 3c60 | 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 0a 20 20 | ....(curbuf.(current-buffer))... |
| 3c80 | 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 61 72 74 | ......(process.(git-gutter:start |
| 3ca0 | 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 75 66 29 | -diff-process1.curfile.proc-buf) |
| 3cc0 | 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 65 78 69 | )).....(set-process-query-on-exi |
| 3ce0 | 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 70 72 6f | t-flag.process.nil).....(set-pro |
| 3d00 | 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 20 20 20 | cess-sentinel......process...... |
| 3d20 | 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 28 77 68 | (lambda.(proc._event)........(wh |
| 3d40 | 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 27 65 78 | en.(eq.(process-status.proc).'ex |
| 3d60 | 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 3a 65 6e | it)..........(setq.git-gutter:en |
| 3d80 | 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 66 66 69 | abled.nil)..........(let.((diffi |
| 3da0 | 6e 66 6f 73 20 28 67 69 74 2d 67 75 74 74 65 72 3a 70 72 6f 63 65 73 73 2d 64 69 66 66 2d 6f 75 | nfos.(git-gutter:process-diff-ou |
| 3dc0 | 74 70 75 74 20 28 70 72 6f 63 65 73 73 2d 62 75 66 66 65 72 20 70 72 6f 63 29 29 29 29 0a 20 20 | tput.(process-buffer.proc))))... |
| 3de0 | 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 20 63 75 | .........(when.(buffer-live-p.cu |
| 3e00 | 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 65 6e 74 | rbuf)..............(with-current |
| 3e20 | 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 20 28 67 | -buffer.curbuf................(g |
| 3e40 | 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 |
| 3e60 | 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 2d 67 75 | fos)................(when.git-gu |
| 3e80 | 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 20 20 20 | tter:has-indirect-buffers....... |
| 3ea0 | 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 2d 69 6e | ...........(git-gutter:update-in |
| 3ec0 | 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 20 20 20 | direct-buffers.file))........... |
| 3ee0 | 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 74 29 | .....(setq.git-gutter:enabled.t) |
| 3f00 | 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 6f 63 2d | ))............(kill-buffer.proc- |
| 3f20 | 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 74 65 72 | buf)))))))..(defsubst.git-gutter |
| 3f40 | 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 67 69 74 | :gutter-seperator.()...(when.git |
| 3f60 | 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 72 6f 70 | -gutter:separator-sign.....(prop |
| 3f80 | 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 69 67 6e | ertize.git-gutter:separator-sign |
| 3fa0 | 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 29 29 0a | .'face.'git-gutter:separator))). |
| 3fc0 | 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 69 6e 67 | .(defun.git-gutter:before-string |
| 3fe0 | 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 63 6f 6e | .(sign)...(let.((gutter-sep.(con |
| 4000 | 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 65 70 65 | cat.sign.(git-gutter:gutter-sepe |
| 4020 | 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 20 27 64 | rator)))).....(propertize.".".'d |
| 4040 | 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 20 2c 67 | isplay.`((margin.left-margin).,g |
| 4060 | 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 74 65 72 | utter-sep))))..(defun.git-gutter |
| 4080 | 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 65 74 20 | :propertized-sign.(type)...(let. |
| 40a0 | 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 0a 20 20 | (sign.face).....(cl-case.type... |
| 40c0 | 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 74 65 72 | ....(added.(setq.sign.git-gutter |
| 40e0 | 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 20 20 66 | :added-sign....................f |
| 4100 | 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 20 28 6d | ace.'git-gutter:added)).......(m |
| 4120 | 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 3a 6d 6f | odified.(setq.sign.git-gutter:mo |
| 4140 | 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 20 20 20 | dified-sign..................... |
| 4160 | 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 0a 20 20 | ..face.'git-gutter:modified))... |
| 4180 | 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 75 74 74 | ....(deleted.(setq.sign.git-gutt |
| 41a0 | 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 20 20 20 | er:deleted-sign................. |
| 41c0 | 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 29 29 29 | .....face.'git-gutter:deleted))) |
| 41e0 | 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 20 30 20 | .....(when.(get-text-property.0. |
| 4200 | 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 28 61 70 | 'face.sign).......(setq.face.(ap |
| 4220 | 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 65 78 74 | pend...................(get-text |
| 4240 | 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 20 20 20 | -property.0.'face.sign)......... |
| 4260 | 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 29 0a 20 | ..........`(:inherit.,face)))).. |
| 4280 | 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 65 29 29 | ...(propertize.sign.'face.face)) |
| 42a0 | 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 2d 67 65 | )..(defsubst.git-gutter:linum-ge |
| 42c0 | 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 72 20 6f | t-overlay.(pos)...(cl-loop.for.o |
| 42e0 | 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 20 20 20 | v.in.(overlays-in.pos.pos)...... |
| 4300 | 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 69 6e 75 | ......when.(overlay-get.ov.'linu |
| 4320 | 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 0a 0a 28 | m-str)............return.ov))..( |
| 4340 | 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 6e 75 6d | defun.git-gutter:put-signs-linum |
| 4360 | 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 20 70 6f | .(sign.points)...(dolist.(pos.po |
| 4380 | 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 67 69 74 | ints).....(git-gutter:awhen.(git |
| 43a0 | 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 29 0a 20 | -gutter:linum-get-overlay.pos).. |
| 43c0 | 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 73 74 72 | .....(overlay-put.it.'before-str |
| 43e0 | 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 72 74 69 | ing....................(properti |
| 4400 | 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 20 20 20 | ze.".".......................... |
| 4420 | 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 20 20 20 | ......'display.................. |
| 4440 | 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 6d 61 72 | ..............`((margin.left-mar |
| 4460 | 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 20 20 20 | gin)............................ |
| 4480 | 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 67 65 74 | ......,(concat.sign.(overlay-get |
| 44a0 | 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 6e 20 67 | .it.'linum-str))))))))..(defun.g |
| 44c0 | 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 6e 74 73 | it-gutter:put-signs.(sign.points |
| 44e0 | 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 6c 65 64 | )...(if.git-gutter:linum-enabled |
| 4500 | 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 6c 69 6e | .......(git-gutter:put-signs-lin |
| 4520 | 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 70 6f 73 | um.sign.points).....(dolist.(pos |
| 4540 | 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 65 2d 6f | .points).......(let.((ov.(make-o |
| 4560 | 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 28 67 75 | verlay.pos.pos)).............(gu |
| 4580 | 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 73 74 72 | tter-sign.(git-gutter:before-str |
| 45a0 | 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 70 75 74 | ing.sign))).........(overlay-put |
| 45c0 | 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 6e 29 0a | .ov.'before-string.gutter-sign). |
| 45e0 | 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 67 75 74 | ........(overlay-put.ov.'git-gut |
| 4600 | 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 74 65 72 | ter.t)))))..(defsubst.git-gutter |
| 4620 | 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 20 66 6f | :sign-width.(sign)...(cl-loop.fo |
| 4640 | 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 6d 20 28 | r.s.across.sign............sum.( |
| 4660 | 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 75 74 74 | char-width.s)))..(defun.git-gutt |
| 4680 | 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 65 74 20 | er:longest-sign-width.()...(let. |
| 46a0 | 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 66 69 65 | ((signs.(list.git-gutter:modifie |
| 46c0 | 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 69 74 2d | d-sign......................git- |
| 46e0 | 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 20 20 20 | gutter:added-sign............... |
| 4700 | 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 6e 29 29 | .......git-gutter:deleted-sign)) |
| 4720 | 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 67 65 64 | ).....(when.git-gutter:unchanged |
| 4740 | 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 75 6e 63 | -sign.......(push.git-gutter:unc |
| 4760 | 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 70 70 6c | hanged-sign.signs)).....(+.(appl |
| 4780 | 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 69 67 6e | y.#'max.(mapcar.'git-gutter:sign |
| 47a0 | 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 74 74 65 | -width.signs))........(git-gutte |
| 47c0 | 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 61 74 6f | r:sign-width.git-gutter:separato |
| 47e0 | 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 3a 6e 65 | r-sign))))..(defun.git-gutter:ne |
| 4800 | 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 28 6c 69 | xt-visual-line.(arg)...(let.((li |
| 4820 | 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 67 6e 6f | ne-move-visual.t)).....(or.(igno |
| 4840 | 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 69 6e 65 | re-errors...........;;.next-line |
| 4860 | 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 75 66 66 | .raises.exception.at.end.of.buff |
| 4880 | 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 73 0a 20 | er...........(with-no-warnings.. |
| 48a0 | 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 20 20 20 | ...........(next-line.arg))..... |
| 48c0 | 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 70 6f 69 | ......t).........(goto-char.(poi |
| 48e0 | 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 72 3a 75 | nt-max)))))..(defun.git-gutter:u |
| 4900 | 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 6f 73 29 | nchanged-line-p.(line.diffinfos) |
| 4920 | 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 6e 66 6f | ...(cl-loop.for.info.in.diffinfo |
| 4940 | 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 2d 67 75 | s............for.start.=.(git-gu |
| 4960 | 74 74 65 72 2d 68 75 6e 6b 2d 73 74 61 72 74 2d 6c 69 6e 65 20 69 6e 66 6f 29 0a 20 20 20 20 20 | tter-hunk-start-line.info)...... |
| 4980 | 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 75 6e 6b | ......for.end.=.(git-gutter-hunk |
| 49a0 | 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 76 65 72 | -end-line.info)............never |
| 49c0 | 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 65 20 65 | .(and.(>=.line.start).(<=.line.e |
| 49e0 | 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 77 2d 66 | nd))))..(defun.git-gutter:view-f |
| 4a00 | 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 61 76 65 | or-unchanged.(diffinfos)...(save |
| 4a20 | 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 66 20 67 | -excursion.....(let.((sign.(if.g |
| 4a40 | 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 20 20 20 | it-gutter:unchanged-sign........ |
| 4a60 | 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 67 75 74 | .............(propertize.git-gut |
| 4a80 | 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 20 20 20 | ter:unchanged-sign.............. |
| 4aa0 | 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 2d 67 75 | ...................'face.'git-gu |
| 4ac0 | 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 20 20 20 | tter:unchanged)................. |
| 4ae0 | 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 66 20 67 | .."."))...........(move-fn.(if.g |
| 4b00 | 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 20 20 20 | it-gutter:visual-line........... |
| 4b20 | 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 74 2d 76 | .............#'git-gutter:next-v |
| 4b40 | 69 73 75 61 6c 2d 6c 69 6e 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | isual-line...................... |
| 4b60 | 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 69 6e 74 | #'forward-line))...........point |
| 4b80 | 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 6e 29 29 | s).......(goto-char.(point-min)) |
| 4ba0 | 0a 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 6e 6f 74 20 28 65 6f 62 70 29 29 0a 20 20 20 20 20 | .......(while.(not.(eobp))...... |
| 4bc0 | 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 64 2d 6c | ...(when.(git-gutter:unchanged-l |
| 4be0 | 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 66 66 69 | ine-p.(line-number-at-pos).diffi |
| 4c00 | 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 20 70 6f | nfos)...........(push.(point).po |
| 4c20 | 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 66 6e 20 | ints)).........(funcall.move-fn. |
| 4c40 | 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 6e 73 20 | 1)).......(git-gutter:put-signs. |
| 4c60 | 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 74 2d 67 | sign.points))))..(defsubst.git-g |
| 4c80 | 75 74 74 65 72 3a 63 68 65 63 6b 2d 66 69 6c 65 2d 61 6e 64 2d 64 69 72 65 63 74 6f 72 79 20 28 | utter:check-file-and-directory.( |
| 4ca0 | 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 65 29 0a | )...(and.(git-gutter:base-file). |
| 4cc0 | 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 65 2d 64 | .......default-directory.(file-d |
| 4ce0 | 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 29 29 0a | irectory-p.default-directory))). |
| 4d00 | 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 64 2d 68 | .(defun.git-gutter:pre-command-h |
| 4d20 | 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 6f 6d 6d | ook.()...(unless.(memq.this-comm |
| 4d40 | 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 73 29 0a | and.git-gutter:ignore-commands). |
| 4d60 | 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 73 2d 63 | ....(setq.git-gutter:real-this-c |
| 4d80 | 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 6e 20 67 | ommand.this-command)))..(defun.g |
| 4da0 | 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 2d 62 75 | it-gutter:update-other-window-bu |
| 4dc0 | 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 2d 73 65 | ffers.(curwin.curbuf)...(save-se |
| 4de0 | 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 72 20 77 | lected-window.....(cl-loop.for.w |
| 4e00 | 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 20 | in.in.(window-list)............. |
| 4e20 | 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 20 20 20 | .unless.(eq.win.curwin)......... |
| 4e40 | 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 20 20 20 | .....do..............(progn..... |
| 4e60 | 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 29 0a 20 | ...........(select-window.win).. |
| 4e80 | 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 68 20 28 | ..............(let.((win-width.( |
| 4ea0 | 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 20 20 20 | window-margins.win)))........... |
| 4ec0 | 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 29 0a 20 | .......(unless.(car.win-width).. |
| 4ee0 | 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 72 72 65 | ..................(if.(eq.(curre |
| 4f00 | 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 20 20 20 | nt-buffer).curbuf).............. |
| 4f20 | 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 64 6f 77 | ..........(git-gutter:set-window |
| 4f40 | 2d 6d 61 72 67 69 6e 20 28 67 69 74 2d 67 75 74 74 65 72 3a 77 69 6e 64 6f 77 2d 6d 61 72 67 69 | -margin.(git-gutter:window-margi |
| 4f60 | 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 2d 67 75 | n))......................(git-gu |
| 4f80 | 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 65 72 3a | tter:update-diffinfo.git-gutter: |
| 4fa0 | 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 2d 67 75 | diffinfos))))))))..(defun.git-gu |
| 4fc0 | 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 63 6f 6e | tter:post-command-hook.()...(con |
| 4fe0 | 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 2d 63 6f | d.((memq.git-gutter:real-this-co |
| 5000 | 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 6e 64 73 | mmand.git-gutter:update-commands |
| 5020 | 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 20 20 20 | )..........(git-gutter))........ |
| 5040 | 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 63 6f 6d | .((memq.git-gutter:real-this-com |
| 5060 | 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 73 2d 63 | mand.git-gutter:update-windows-c |
| 5080 | 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 29 0a 20 | ommands)..........(git-gutter).. |
| 50a0 | 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 75 65 2d | ........(unless.(bound-and-true- |
| 50c0 | 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 20 20 20 | p.global-linum-mode)............ |
| 50e0 | 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 6f 77 2d | (git-gutter:update-other-window- |
| 5100 | 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 20 20 20 | 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 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 29 29 | .............(current-buffer)))) |
| 5160 | 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 2d 70 72 | ))..(defsubst.git-gutter:diff-pr |
| 5180 | 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 63 61 74 | ocess-buffer.(curfile)...(concat |
| 51a0 | 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 29 29 0a | .".*git-gutter-".curfile."-*")). |
| 51c0 | 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 72 2d 68 | .(defun.git-gutter:kill-buffer-h |
| 51e0 | 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 65 72 3a | ook.()...(let.((buf.(git-gutter: |
| 5200 | 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 65 72 3a | diff-process-buffer.(git-gutter: |
| 5220 | 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 3a 61 77 | base-file)))).....(git-gutter:aw |
| 5240 | 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 69 6c 6c | hen.(get-buffer.buf).......(kill |
| 5260 | 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 2d 67 75 | -buffer.it))))..(defsubst.git-gu |
| 5280 | 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 6f 6f 70 | tter:linum-padding.()...(cl-loop |
| 52a0 | 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 72 67 69 | .repeat.(git-gutter:window-margi |
| 52c0 | 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 6f 20 70 | n)............collect.".".into.p |
| 52e0 | 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 74 75 72 | addings............finally.retur |
| 5300 | 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 0a 0a 28 | n.(apply.#'concat.paddings)))..( |
| 5320 | 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 64 2d 73 | defun.git-gutter:linum-prepend-s |
| 5340 | 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 20 20 28 | paces.()...(save-excursion.....( |
| 5360 | 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 65 74 20 | goto-char.(point-min)).....(let. |
| 5380 | 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 61 64 64 | ((padding.(git-gutter:linum-padd |
| 53a0 | 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 20 28 77 | ing))...........points).......(w |
| 53c0 | 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 73 68 20 | hile.(not.(eobp)).........(push. |
| 53e0 | 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 61 72 64 | (point).points).........(forward |
| 5400 | 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 75 74 2d | -line.1)).......(git-gutter:put- |
| 5420 | 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 29 0a 0a | signs-linum.padding.points)))).. |
| 5440 | 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 65 20 28 | (defun.git-gutter:linum-update.( |
| 5460 | 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 74 68 20 | diffinfos)...(let.((linum-width. |
| 5480 | 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 28 77 68 | (car.(window-margins)))).....(wh |
| 54a0 | 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 74 65 72 | en.linum-width.......(git-gutter |
| 54c0 | 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 28 67 69 | :linum-prepend-spaces).......(gi |
| 54e0 | 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 66 66 69 | t-gutter:view-set-overlays.diffi |
| 5500 | 6e 66 6f 73 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 75 72 77 69 6e 20 28 67 65 74 2d 62 | nfos).......(let.((curwin.(get-b |
| 5520 | 75 66 66 65 72 2d 77 69 6e 64 6f 77 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 72 67 | uffer-window)).............(marg |
| 5540 | 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 3a 77 69 | in.(+.linum-width.(git-gutter:wi |
| 5560 | 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 20 67 69 | ndow-margin)))).........(setq.gi |
| 5580 | 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 67 69 | t-gutter:linum-prev-window-margi |
| 55a0 | 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 2d 6d 61 | n.margin).........(set-window-ma |
| 55c0 | 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 64 6f 77 | rgins.curwin.margin.(cdr.(window |
| 55e0 | 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 6e 20 67 | -margins.curwin)))))))..(defun.g |
| 5600 | 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 74 71 2d | it-gutter:linum-init.()...(setq- |
| 5620 | 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 64 20 74 | local.git-gutter:linum-enabled.t |
| 5640 | 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 2d 67 75 | )...(make-local-variable.'git-gu |
| 5660 | 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 29 29 0a | tter:linum-prev-window-margin)). |
| 5680 | 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 65 2d | .(defun.git-gutter:linum-update- |
| 56a0 | 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 67 69 74 | window.(&rest._args)...(when.git |
| 56c0 | 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 64 20 67 | -gutter:display-p.....(if.(and.g |
| 56e0 | 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 66 69 6e | it-gutter-mode.git-gutter:diffin |
| 5700 | 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 6d 2d 75 | fos).........(git-gutter:linum-u |
| 5720 | 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 20 20 20 | pdate.git-gutter:diffinfos)..... |
| 5740 | 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 69 6e 64 | ..(let.((curwin.(get-buffer-wind |
| 5760 | 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 67 69 74 | ow)).............(margin.(or.git |
| 5780 | 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 |
| 57a0 | 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 20 28 77 | .........................(car.(w |
| 57c0 | 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 65 74 2d | indow-margins))))).........(set- |
| 57e0 | 77 69 6e 64 6f 77 2d 6d 61 72 67 69 6e 73 20 63 75 72 77 69 6e 20 6d 61 72 67 69 6e 20 28 63 64 | window-margins.curwin.margin.(cd |
| 5800 | 72 20 28 77 69 6e 64 6f 77 2d 6d 61 72 67 69 6e 73 20 63 75 72 77 69 6e 29 29 29 29 29 29 29 0a | r.(window-margins.curwin))))))). |
| 5820 | 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 74 74 65 | .;;;###autoload.(defun.git-gutte |
| 5840 | 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 20 6c 69 | r:linum-setup.()..."Setup.for.li |
| 5860 | 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 3a 69 6e | num-mode."...(setq.git-gutter:in |
| 5880 | 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 2d 69 6e | it-function.'git-gutter:linum-in |
| 58a0 | 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 66 66 2d | it.........git-gutter:view-diff- |
| 58c0 | 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 6c 69 6e | function.nil)...(advice-add.'lin |
| 58e0 | 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 2d 67 75 | um-update-window.:after.#'git-gu |
| 5900 | 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 64 65 66 | tter:linum-update-window))..(def |
| 5920 | 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 29 0a 20 | un.git-gutter:show-backends.().. |
| 5940 | 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 0a 20 20 | .(mapconcat.(lambda.(backend)... |
| 5960 | 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 62 6f 6c | .............(capitalize.(symbol |
| 5980 | 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 20 67 69 | -name.backend)))..............gi |
| 59a0 | 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 29 29 0a | t-gutter:handled-backends."/")). |
| 59c0 | 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 2d 6d 6f | .;;;###autoload.(define-minor-mo |
| 59e0 | 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 74 65 72 | de.git-gutter-mode..."Git-Gutter |
| 5a00 | 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 6c 6f 62 | .mode"...:init-value.nil...:glob |
| 5a20 | 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 67 75 74 | al.....nil...:lighter....git-gut |
| 5a40 | 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 6d 6f 64 | ter:lighter...(if.git-gutter-mod |
| 5a60 | 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 63 68 65 | e.......(if.(and.(git-gutter:che |
| 5a80 | 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 20 20 20 | ck-file-and-directory).......... |
| 5aa0 | 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 72 79 2d | ......(git-gutter:in-repository- |
| 5ac0 | 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 20 20 20 | p))...........(progn............ |
| 5ae0 | 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 6f 6e 0a | .(when.git-gutter:init-function. |
| 5b00 | 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 74 74 65 | ..............(funcall.git-gutte |
| 5b20 | 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 20 28 6d | r:init-function)).............(m |
| 5b40 | 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 72 3a 64 | ake-local-variable.'git-gutter:d |
| 5b60 | 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 2d 6c 6f | iffinfos).............;;(setq-lo |
| 5b80 | 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 20 6e 69 | cal.git-gutter:start-revision.ni |
| 5ba0 | 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 6c 2d 62 | l).............(add-hook.'kill-b |
| 5bc0 | 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 |
| 5be0 | 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 64 64 2d | er-hook.nil.t).............(add- |
| 5c00 | 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 75 74 74 | hook.'pre-command-hook.'git-gutt |
| 5c20 | 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 20 20 20 | er:pre-command-hook.t).......... |
| 5c40 | 20 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 70 6f 73 74 2d 63 6f 6d 6d 61 6e 64 2d 68 6f 6f 6b 20 | ...(add-hook.'post-command-hook. |
| 5c60 | 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 20 6e 69 | 'git-gutter:post-command-hook.ni |
| 5c80 | 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 6b 20 67 | l.t).............(dolist.(hook.g |
| 5ca0 | 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 20 20 20 | it-gutter:update-hooks)......... |
| 5cc0 | 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 74 65 72 | ......(add-hook.hook.'git-gutter |
| 5ce0 | 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 74 65 72 | .nil.t)).............(git-gutter |
| 5d00 | 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 20 67 69 | ).............(when.(and.(not.gi |
| 5d20 | 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 20 20 20 | t-gutter:update-timer).......... |
| 5d40 | 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 70 64 61 | ..............(>.git-gutter:upda |
| 5d60 | 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 20 28 73 | te-interval.0))...............(s |
| 5d80 | 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 20 20 20 | etq.git-gutter:update-timer..... |
| 5da0 | 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 65 2d 74 | ................(run-with-idle-t |
| 5dc0 | 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 2d 67 75 | imer......................git-gu |
| 5de0 | 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 75 74 74 | tter:update-interval.t.'git-gutt |
| 5e00 | 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 68 65 6e | er:live-update)))).........(when |
| 5e20 | 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 20 20 20 | .(>.git-gutter:verbosity.2)..... |
| 5e40 | 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 73 20 77 | ......(message."Here.is.not.%s.w |
| 5e60 | 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 63 6b 65 | ork.tree".(git-gutter:show-backe |
| 5e80 | 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 64 65 20 | nds))).........(git-gutter-mode. |
| 5ea0 | 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 75 66 66 | -1)).....(remove-hook.'kill-buff |
| 5ec0 | 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 65 72 2d | er-hook.'git-gutter:kill-buffer- |
| 5ee0 | 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 2d 63 6f | hook.t).....(remove-hook.'pre-co |
| 5f00 | 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 6d 6d 61 | mmand-hook.'git-gutter:pre-comma |
| 5f20 | 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 70 6f 73 | nd-hook.t).....(remove-hook.'pos |
| 5f40 | 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 73 74 2d | t-command-hook.'git-gutter:post- |
| 5f60 | 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 68 6f 6f | command-hook.t).....(dolist.(hoo |
| 5f80 | 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)...... |
| 5fa0 | 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 72 20 74 | .(remove-hook.hook.'git-gutter.t |
| 5fc0 | 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 65 72 29 | )).....(git-gutter:clear-gutter) |
| 5fe0 | 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 6e 20 28 | ))..(defun.git-gutter--turn-on.( |
| 6000 | 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 61 6d 65 | )...(when.(and.(buffer-file-name |
| 6020 | 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 6f 72 2d | )..............(not.(memq.major- |
| 6040 | 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 73 29 29 | mode.git-gutter:disabled-modes)) |
| 6060 | 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 0a 3b 3b | ).....(git-gutter-mode.+1)))..;; |
| 6080 | 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 69 6e 6f | ;###autoload.(define-global-mino |
| 60a0 | 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 20 67 69 | r-mode.global-git-gutter-mode.gi |
| 60c0 | 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 6e 2d 6f | t-gutter-mode.git-gutter--turn-o |
| 60e0 | 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 2d 67 75 | n)..(defsubst.git-gutter:show-gu |
| 6100 | 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 67 75 74 | tter-p.(diffinfos)...(if.git-gut |
| 6120 | 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 66 69 6e | ter:hide-gutter.......(or.diffin |
| 6140 | 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 29 0a 20 | fos.git-gutter:unchanged-sign).. |
| 6160 | 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 20 67 69 | ...(or.global-git-gutter-mode.gi |
| 6180 | 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 6e 66 6f | t-gutter:unchanged-sign.diffinfo |
| 61a0 | 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 67 75 74 | s)))..(defun.git-gutter:show-gut |
| 61c0 | 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 67 75 74 | ter.(diffinfos)...(when.(git-gut |
| 61e0 | 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 20 20 20 | ter:show-gutter-p.diffinfos).... |
| 6200 | 20 28 67 69 74 2d 67 75 74 74 65 72 3a 73 65 74 2d 77 69 6e 64 6f 77 2d 6d 61 72 67 69 6e 20 28 | .(git-gutter:set-window-margin.( |
| 6220 | 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 0a 28 64 | git-gutter:window-margin))))..(d |
| 6240 | 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 6c 61 79 | efun.git-gutter:view-set-overlay |
| 6260 | 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 2d 67 75 | s.(diffinfos)...(when.(or.git-gu |
| 6280 | 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 72 3a 73 | tter:unchanged-sign.git-gutter:s |
| 62a0 | 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 72 3a 76 | eparator-sign).....(git-gutter:v |
| 62c0 | 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 0a 20 20 | iew-for-unchanged.diffinfos))... |
| 62e0 | 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 72 20 28 | (save-excursion.....(goto-char.( |
| 6300 | 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 20 63 75 | point-min)).....(cl-loop.with.cu |
| 6320 | 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 6f 76 65 | rline.=.1..............with.move |
| 6340 | 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 69 6e 65 | -fn.=.(if.git-gutter:visual-line |
| 6360 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 6380 | 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 65 0a 20 | .#'git-gutter:next-visual-line.. |
| 63a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 66 | .............................#'f |
| 63c0 | 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 72 20 69 | orward-line)...............for.i |
| 63e0 | 6e 66 6f 20 69 6e 20 64 69 66 66 69 6e 66 6f 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f | nfo.in.diffinfos..............fo |
| 6400 | 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 6e 6b 2d | r.start-line.=.(git-gutter-hunk- |
| 6420 | 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 20 66 6f | start-line.info)..............fo |
| 6440 | 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 2d 65 6e | r.end-line.=.(git-gutter-hunk-en |
| 6460 | 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 20 74 79 | d-line.info)..............for.ty |
| 6480 | 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 66 6f 29 | pe.=.(git-gutter-hunk-type.info) |
| 64a0 | 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 2d 67 75 | ..............for.sign.=.(git-gu |
| 64c0 | 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 20 20 20 | tter:propertized-sign.type)..... |
| 64e0 | 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 20 20 20 | .........for.points.=.nil....... |
| 6500 | 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 28 62 6f | .......do..............(let.((bo |
| 6520 | 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 20 20 20 | und.(progn...................... |
| 6540 | 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 69 6e 65 | .......(forward-line.(-.end-line |
| 6560 | 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 20 20 20 | .curline))...................... |
| 6580 | 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 20 20 20 | .......(point))))............... |
| 65a0 | 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 65 6e 64 | .(forward-line.(-.start-line.end |
| 65c0 | 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 73 65 20 | -line))................(cl-case. |
| 65e0 | 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 69 65 64 | type..................((modified |
| 6600 | 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 69 6c 65 | .added)...................(while |
| 6620 | 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 20 28 65 | .(and.(<=.(point).bound).(not.(e |
| 6640 | 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 75 73 68 | obp))).....................(push |
| 6660 | 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 20 20 20 | .(point).points)................ |
| 6680 | 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 20 20 20 | .....(funcall.move-fn.1))....... |
| 66a0 | 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 69 67 6e | ............(git-gutter:put-sign |
| 66c0 | 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 20 20 20 | s.sign.points))................. |
| 66e0 | 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 67 69 74 | .(deleted...................(git |
| 6700 | 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 28 70 6f | -gutter:put-signs.sign.(list.(po |
| 6720 | 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 77 61 72 | int)))...................(forwar |
| 6740 | 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 65 74 71 | d-line.1)))................(setq |
| 6760 | 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 28 64 65 | .curline.(1+.end-line))))))..(de |
| 6780 | 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 73 20 28 | fun.git-gutter:view-diff-infos.( |
| 67a0 | 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 66 6f 73 | diffinfos)...(when.(or.diffinfos |
| 67c0 | 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 61 74 6f | .git-gutter:always-show-separato |
| 67e0 | 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 76 65 72 | r).....(git-gutter:view-set-over |
| 6800 | 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 72 3a 73 | lays.diffinfos))...(git-gutter:s |
| 6820 | 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 75 62 73 | how-gutter.diffinfos))..(defsubs |
| 6840 | 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 67 69 6e | t.git-gutter:reset-window-margin |
| 6860 | 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 75 74 74 | -p.()...(or.git-gutter:hide-gutt |
| 6880 | 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 65 29 29 | er.(not.global-git-gutter-mode)) |
| 68a0 | 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 66 66 2d | )..(defun.git-gutter:clear-diff- |
| 68c0 | 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 72 65 73 | infos.()...(when.(git-gutter:res |
| 68e0 | 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 67 75 74 | et-window-margin-p).....(git-gut |
| 6900 | 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 72 65 6d | ter:set-window-margin.0))...(rem |
| 6920 | 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 6e 74 2d | ove-overlays.(point-min).(point- |
| 6940 | 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 67 69 74 | max).'git-gutter.t))..(defun.git |
| 6960 | 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 76 65 2d | -gutter:clear-gutter.()...(save- |
| 6980 | 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 77 68 65 | restriction.....(widen).....(whe |
| 69a0 | 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 20 20 20 | n.git-gutter:clear-function..... |
| 69c0 | 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 75 6e 63 | ..(funcall.git-gutter:clear-func |
| 69e0 | 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 61 62 6c | tion)))...(setq.git-gutter:enabl |
| 6a00 | 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 74 2d 63 | ed.nil.........git-gutter:last-c |
| 6a20 | 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 20 20 67 | hars-modified-tick.nil.........g |
| 6a40 | 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 65 66 75 | it-gutter:diffinfos.nil))..(defu |
| 6a60 | 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 28 64 69 | n.git-gutter:update-diffinfo.(di |
| 6a80 | 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 20 20 20 | ffinfos)...(save-restriction.... |
| 6aa0 | 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 72 2d 67 | .(widen).....(git-gutter:clear-g |
| 6ac0 | 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 69 66 66 | utter).....(setq.git-gutter:diff |
| 6ae0 | 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 6e 64 20 | infos.diffinfos).....(when.(and. |
| 6b00 | 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 65 72 3a | git-gutter:display-p.git-gutter: |
| 6b20 | 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 6e 63 61 | view-diff-function).......(funca |
| 6b40 | 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 69 6f 6e | ll.git-gutter:view-diff-function |
| 6b60 | 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 74 74 65 | .diffinfos))))..(defun.git-gutte |
| 6b80 | 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 66 69 6e | r:search-near-diff-index.(diffin |
| 6ba0 | 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 74 68 20 | fos.is-reverse)...(cl-loop.with. |
| 6bc0 | 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 70 | current-line.=.(line-number-at-p |
| 6be0 | 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 28 69 66 | os)............with.cmp-fn.=.(if |
| 6c00 | 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 20 20 20 | .is-reverse.#'>.#'<)............ |
| 6c20 | 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 65 20 28 | for.diffinfo.in.(if.is-reverse.( |
| 6c40 | 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 0a 20 20 | reverse.diffinfos).diffinfos)... |
| 6c60 | 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 31 2b 20 | .........for.index.=.0.then.(1+. |
| 6c80 | 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 69 6e 65 | index)............for.start-line |
| 6ca0 | 20 3d 20 28 67 69 74 2d 67 75 74 74 65 72 2d 68 75 6e 6b 2d 73 74 61 72 74 2d 6c 69 6e 65 20 64 | .=.(git-gutter-hunk-start-line.d |
| 6cc0 | 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 63 61 6c | iffinfo)............when.(funcal |
| 6ce0 | 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 69 6e 65 | l.cmp-fn.current-line.start-line |
| 6d00 | 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 76 65 72 | )............return.(if.is-rever |
| 6d20 | 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 28 2d 20 | se.......................(1-.(-. |
| 6d40 | 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 20 20 20 | (length.diffinfos).index))...... |
| 6d60 | 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 75 6e 20 | ...............index)))..(defun. |
| 6d80 | 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. |
| 6da0 | 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. |
| 6dc0 | 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 20 63 75 | ....(widen).....(cl-loop.with.cu |
| 6de0 | 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 70 6f 73 | rrent-line.=.(line-number-at-pos |
| 6e00 | 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 6e 20 64 | )..............for.diffinfo.in.d |
| 6e20 | 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 72 74 20 | iffinfos..............for.start. |
| 6e40 | 3d 20 28 67 69 74 2d 67 75 74 74 65 72 2d 68 75 6e 6b 2d 73 74 61 72 74 2d 6c 69 6e 65 20 64 69 | =.(git-gutter-hunk-start-line.di |
| 6e60 | 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 20 20 3d | ffinfo)..............for.end...= |
| 6e80 | 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 65 20 64 | .(or.(git-gutter-hunk-end-line.d |
| 6ea0 | 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 20 20 20 | iffinfo).(1+.start))............ |
| 6ec0 | 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 73 74 61 | ..when.(and.(>=.current-line.sta |
| 6ee0 | 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 20 20 20 | rt).(<=.current-line.end))...... |
| 6f00 | 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 20 20 20 | ........return.diffinfo......... |
| 6f20 | 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 69 73 20 | .....finally.do.(error."Here.is. |
| 6f40 | 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 74 2d 67 | not.changed!!"))))..(defun.git-g |
| 6f60 | 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 74 72 29 | utter:collect-deleted-line.(str) |
| 6f80 | 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 65 72 74 | ...(with-temp-buffer.....(insert |
| 6fa0 | 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 69 6e 29 | .str).....(goto-char.(point-min) |
| 6fc0 | 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 63 68 2d | ).....(cl-loop.while.(re-search- |
| 6fe0 | 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 0a 20 20 | forward."^-\\(.*?\\)$".nil.t)... |
| 7000 | 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 69 6e 67 | ...........collect.(match-string |
| 7020 | 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 20 20 20 | .1).into.deleted-lines.......... |
| 7040 | 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 6e 65 73 | ....finally.return.deleted-lines |
| 7060 | 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 2d 61 64 | )))..(defun.git-gutter:delete-ad |
| 7080 | 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 65 29 0a | ded-lines.(start-line.end-line). |
| 70a0 | 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 65 29 29 | ..(forward-line.(1-.start-line)) |
| 70c0 | 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 29 29 0a | ...(let.((start-point.(point))). |
| 70e0 | 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 6c 69 6e | ....(forward-line.(1+.(-.end-lin |
| 7100 | 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 65 67 69 | e.start-line))).....(delete-regi |
| 7120 | 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 65 66 75 | on.start-point.(point))))..(defu |
| 7140 | 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 69 6e 65 | n.git-gutter:insert-deleted-line |
| 7160 | 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 67 69 74 | s.(content)...(dolist.(line.(git |
| 7180 | 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 63 6f 6e | -gutter:collect-deleted-line.con |
| 71a0 | 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 6e 65 20 | tent)).....(insert.(concat.line. |
| 71c0 | 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 72 3a 64 | "\n"))))..(defsubst.git-gutter:d |
| 71e0 | 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 74 2d 6c | elete-from-first-line-p.(start-l |
| 7200 | 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 73 74 61 | ine.end-line)...(and.(not.(=.sta |
| 7220 | 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 31 29 29 | rt-line.1)).(not.(=.end-line.1)) |
| 7240 | 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 72 74 2d | ))..(defun.git-gutter:do-revert- |
| 7260 | 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 73 69 6f | hunk.(diffinfo)...(save-excursio |
| 7280 | 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))... |
| 72a0 | 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 65 72 2d | ..(let.((start-line.(git-gutter- |
| 72c0 | 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 20 20 20 | hunk-start-line.diffinfo))...... |
| 72e0 | 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 6e 6b 2d | .....(end-line.(git-gutter-hunk- |
| 7300 | 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 20 28 63 | end-line.diffinfo))...........(c |
| 7320 | 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 6e 74 20 | ontent.(git-gutter-hunk-content. |
| 7340 | 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 69 74 2d | diffinfo))).......(cl-case.(git- |
| 7360 | 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 20 20 20 | gutter-hunk-type.diffinfo)...... |
| 7380 | 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 61 64 64 | ...(added.(git-gutter:delete-add |
| 73a0 | 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 29 0a 20 | ed-lines.start-line.end-line)).. |
| 73c0 | 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 74 74 65 | .......(deleted.(when.(git-gutte |
| 73e0 | 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 61 72 74 | r:delete-from-first-line-p.start |
| 7400 | 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 20 20 20 | -line.end-line)................. |
| 7420 | 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 0a 20 20 | ...(forward-line.start-line))... |
| 7440 | 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 73 65 72 | ...............(git-gutter:inser |
| 7460 | 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 20 20 20 | t-deleted-lines.content))....... |
| 7480 | 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 65 2d 61 | ..(modified.(git-gutter:delete-a |
| 74a0 | 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 0a | dded-lines.start-line.end-line). |
| 74c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 69 74 2d 67 75 74 74 65 72 3a 69 6e | ..................(git-gutter:in |
| 74e0 | 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 29 29 29 | sert-deleted-lines.content)))))) |
| 7500 | 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 62 75 66 | ..(defsubst.git-gutter:popup-buf |
| 7520 | 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 69 6e 64 | fer-window.()...(get-buffer-wind |
| 7540 | 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 75 70 2d | ow.(get-buffer.git-gutter:popup- |
| 7560 | 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 71 75 65 | buffer)))..(defun.git-gutter:que |
| 7580 | 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 70 64 61 | ry-action.(action.action-fn.upda |
| 75a0 | 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 69 74 2d | te-fn)...(git-gutter:awhen.(git- |
| 75c0 | 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 69 74 2d | gutter:search-here-diffinfo.git- |
| 75e0 | 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 69 6e 64 | gutter:diffinfos).....(save-wind |
| 7600 | 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 67 75 74 | ow-excursion.......(when.git-gut |
| 7620 | 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 3a 70 6f | ter:ask-p.........(git-gutter:po |
| 7640 | 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 20 28 6e | pup-hunk.it)).......(when.(or.(n |
| 7660 | 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 20 20 20 | ot.git-gutter:ask-p)............ |
| 7680 | 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 20 63 75 | .....(yes-or-no-p.(format."%s.cu |
| 76a0 | 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 20 20 20 | rrent.hunk.?.".action)))........ |
| 76c0 | 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 20 20 20 | .(funcall.action-fn.it)......... |
| 76e0 | 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 66 20 67 | (funcall.update-fn)).......(if.g |
| 7700 | 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 6c 65 74 | it-gutter:ask-p...........(delet |
| 7720 | 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 66 66 65 | e-window.(git-gutter:popup-buffe |
| 7740 | 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 25 73 20 | r-window)).........(message."%s. |
| 7760 | 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 64 65 66 | current.hunk.".action)))))..(def |
| 7780 | 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 20 20 22 | un.git-gutter:revert-hunk.()..." |
| 77a0 | 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 72 61 63 | Revert.current.hunk."...(interac |
| 77c0 | 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 69 6f 6e | tive)...(git-gutter:query-action |
| 77e0 | 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 65 72 74 | ."Revert".#'git-gutter:do-revert |
| 7800 | 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 20 67 69 | -hunk.#'save-buffer))..(defun.gi |
| 7820 | 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 28 29 0a | t-gutter:extract-hunk-header.(). |
| 7840 | 20 20 28 67 69 74 2d 67 75 74 74 65 72 3a 61 77 68 65 6e 20 28 67 69 74 2d 67 75 74 74 65 72 3a | ..(git-gutter:awhen.(git-gutter: |
| 7860 | 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 66 65 72 | base-file).....(with-temp-buffer |
| 7880 | 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 65 72 3a | .......(when.(zerop.(git-gutter: |
| 78a0 | 65 78 65 63 75 74 65 2d 63 6f 6d 6d 61 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | execute-command................. |
| 78c0 | 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 20 22 64 | ...."git".t."--no-pager"."-c"."d |
| 78e0 | 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 20 20 20 | iff.autorefreshindex=0"......... |
| 7900 | 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 72 22 20 | ............"diff"."--no-color". |
| 7920 | 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 20 20 20 | "--no-ext-diff"................. |
| 7940 | 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 6f 6e 64 | ...."--relative".(file-name-nond |
| 7960 | 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 63 68 61 | irectory.it))).........(goto-cha |
| 7980 | 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 72 64 2d | r.(point-min)).........(forward- |
| 79a0 | 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 72 69 6e | line.4).........(buffer-substrin |
| 79c0 | 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 70 6f 69 | g-no-properties.(point-min).(poi |
| 79e0 | 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 67 69 74 | nt))))))..(defvar.git-gutter:git |
| 7a00 | 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 5c 28 5b | -hunk-header-regexp..."^@@.-\\([ |
| 7a20 | 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 5b 30 2d | 0-9]+\\),?\\([0-9]*\\).\\+\\([0- |
| 7a40 | 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 61 72 73 | 9]+\\),?\\([0-9]*\\).@@"..."Pars |
| 7a60 | 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 67 69 74 | e.git.hunk.header.")..(defun.git |
| 7a80 | 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 64 65 72 | -gutter:read-hunk-header.(header |
| 7aa0 | 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 75 74 74 | )...(when.(string-match.git-gutt |
| 7ac0 | 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 64 65 72 | er:git-hunk-header-regexp.header |
| 7ae0 | 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 20 28 6d | ).....(list.(string-to-number.(m |
| 7b00 | 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 20 20 20 | atch-string.1.header)).......... |
| 7b20 | 20 28 67 69 74 2d 67 75 74 74 65 72 3a 63 68 61 6e 67 65 73 2d 74 6f 2d 6e 75 6d 62 65 72 20 28 | .(git-gutter:changes-to-number.( |
| 7b40 | 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 20 20 20 | match-string.2.header))......... |
| 7b60 | 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 72 69 6e | ..(string-to-number.(match-strin |
| 7b80 | 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 75 74 74 | g.3.header))...........(git-gutt |
| 7ba0 | 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 74 72 69 | er:changes-to-number.(match-stri |
| 7bc0 | 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 67 75 74 | ng.4.header)))))..(defun.git-gut |
| 7be0 | 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 29 0a 20 | ter:convert-hunk-header.(type).. |
| 7c00 | 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 69 6e 67 | .(let.((header.(buffer-substring |
| 7c20 | 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 28 70 6f 69 6e 74 29 20 28 6c 69 6e 65 2d 65 6e 64 | -no-properties.(point).(line-end |
| 7c40 | 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 69 6f 6e | -position)))).....(delete-region |
| 7c60 | 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 0a 20 20 | .(point).(line-end-position))... |
| 7c80 | 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 20 20 20 | ..(cl-destructuring-bind........ |
| 7ca0 | 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 6c 69 6e | .(orig-line.orig-changes.new-lin |
| 7cc0 | 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 75 74 74 | e.new-changes).........(git-gutt |
| 7ce0 | 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 20 20 20 | er:read-hunk-header.header)..... |
| 7d00 | 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 64 20 28 | ..(cl-case.type.........(added.( |
| 7d20 | 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 29 0a 20 | setq.new-line.(1+.orig-line))).. |
| 7d40 | 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 2d 6c 69 | .......(t.(setq.new-line.orig-li |
| 7d60 | 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 20 28 66 | ne))).......(let.((new-header.(f |
| 7d80 | 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 20 20 20 | ormat."@@.-%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 6f 72 69 67 | ............................orig |
| 7dc0 | 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 65 77 2d | -line.orig-changes.new-line.new- |
| 7de0 | 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 77 2d 68 | changes))).........(insert.new-h |
| 7e00 | 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 3a 69 6e | eader)))))..(defun.git-gutter:in |
| 7e20 | 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 0a 20 20 | sert-staging-hunk.(hunk.type)... |
| 7e40 | 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 75 6e 6b | (save-excursion.....(insert.hunk |
| 7e60 | 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 2d 68 75 | ."\n"))...(git-gutter:convert-hu |
| 7e80 | 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 67 75 74 | nk-header.type))..(defun.git-gut |
| 7ea0 | 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 0a 20 20 | ter:apply-directory-option.()... |
| 7ec0 | 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 67 2d 66 | (let.((root.(locate-dominating-f |
| 7ee0 | 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 29 29 0a | ile.default-directory.".git"))). |
| 7f00 | 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 65 2d 72 | ....(file-name-directory.(file-r |
| 7f20 | 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 2d 66 69 | elative-name.(git-gutter:base-fi |
| 7f40 | 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 65 72 3a | le).root))))..(defun.git-gutter: |
| 7f60 | 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 6c 65 74 | do-stage-hunk.(diff-info)...(let |
| 7f80 | 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 6f 6e 74 | .((content.(git-gutter-hunk-cont |
| 7fa0 | 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 20 28 67 | ent.diff-info)).........(type.(g |
| 7fc0 | 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 29 29 0a | it-gutter-hunk-type.diff-info)). |
| 7fe0 | 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 78 74 72 | ........(header.(git-gutter:extr |
| 8000 | 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 74 63 68 | act-hunk-header)).........(patch |
| 8020 | 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 29 29 29 | .(make-temp-name."git-gutter"))) |
| 8040 | 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 2d 74 65 | .....(when.header.......(with-te |
| 8060 | 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 20 68 65 | mp-file.patch.........(insert.he |
| 8080 | 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 65 72 74 | ader).........(git-gutter:insert |
| 80a0 | 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 20 20 20 | -staging-hunk.content.type)).... |
| 80c0 | 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 74 65 72 | ...(let.((dir-option.(git-gutter |
| 80e0 | 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 20 20 20 | :apply-directory-option))....... |
| 8100 | 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 64 22 20 | ......(options.(list."--cached". |
| 8120 | 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 74 69 6f | patch))).........(when.dir-optio |
| 8140 | 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 6e 73 20 | n...........(setq.options.(cons. |
| 8160 | 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 6e 20 6f | "--directory".(cons.dir-option.o |
| 8180 | 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 65 72 6f | ptions)))).........(unless.(zero |
| 81a0 | 70 20 28 61 70 70 6c 79 20 23 27 67 69 74 2d 67 75 74 74 65 72 3a 65 78 65 63 75 74 65 2d 63 6f | p.(apply.#'git-gutter:execute-co |
| 81c0 | 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 20 20 20 | mmand........................... |
| 81e0 | 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 69 66 66 | ...."git".nil."apply"."--unidiff |
| 8200 | 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 20 20 20 | -zero".......................... |
| 8220 | 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 73 61 67 | .....options))...........(messag |
| 8240 | 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 29 29 0a | e."Failed:.stating.this.hunk")). |
| 8260 | 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 29 29 0a | ........(delete-file.patch))))). |
| 8280 | 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 20 28 29 | .(defun.git-gutter:stage-hunk.() |
| 82a0 | 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 20 61 64 | ..."Stage.this.hunk.like.'git.ad |
| 82c0 | 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 74 2d 67 | d.-p'."...(interactive)...(git-g |
| 82e0 | 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 67 69 74 | utter:query-action."Stage".#'git |
| 8300 | 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 75 74 74 | -gutter:do-stage-hunk.#'git-gutt |
| 8320 | 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 6e 65 2d | er))..(defsubst.git-gutter:line- |
| 8340 | 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 6e 0a 20 | point.(line)...(save-excursion.. |
| 8360 | 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 28 | ...(goto-char.(point-min)).....( |
| 8380 | 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 70 6f 69 | forward-line.(1-.line)).....(poi |
| 83a0 | 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 2d 68 75 | nt)))..(defun.git-gutter:mark-hu |
| 83c0 | 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 67 75 74 | nk.()...(interactive)...(git-gut |
| 83e0 | 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 68 65 72 | ter:awhen.(git-gutter:search-her |
| 8400 | 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 6f 73 29 | e-diffinfo.git-gutter:diffinfos) |
| 8420 | 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 3a 6c 69 | .....(let.((start.(git-gutter:li |
| 8440 | 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 72 74 2d | ne-point.(git-gutter-hunk-start- |
| 8460 | 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 74 2d 67 | line.it)))...........(end.(git-g |
| 8480 | 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 74 65 72 | utter:line-point.(1+.(git-gutter |
| 84a0 | 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 28 67 6f | -hunk-end-line.it))))).......(go |
| 84c0 | 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 72 6b 20 | to-char.start).......(push-mark. |
| 84e0 | 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 74 65 72 | end.nil.t))))..(defun.git-gutter |
| 8500 | 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 6e 66 6f | :update-popuped-buffer.(diffinfo |
| 8520 | 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 2d 62 75 | )...(with-current-buffer.(get-bu |
| 8540 | 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 62 75 66 | ffer-create.git-gutter:popup-buf |
| 8560 | 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 73 65 74 | fer).....(view-mode.-1).....(set |
| 8580 | 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 65 72 61 | q.buffer-read-only.nil).....(era |
| 85a0 | 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 75 74 74 | se-buffer).....(insert.(git-gutt |
| 85c0 | 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 20 20 28 | er-hunk-content.diffinfo)).....( |
| 85e0 | 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 70 6f 69 | insert."\n").....(goto-char.(poi |
| 8600 | 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 28 76 69 | nt-min)).....(diff-mode).....(vi |
| 8620 | 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 65 72 29 | ew-mode.+1).....(current-buffer) |
| 8640 | 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 75 6e 6b | ))..(defun.git-gutter:popup-hunk |
| 8660 | 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 70 20 63 | .(&optional.diffinfo)..."Popup.c |
| 8680 | 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 74 69 76 | urrent.diff.hunk."...(interactiv |
| 86a0 | 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 66 66 69 | e)...(git-gutter:awhen.(or.diffi |
| 86c0 | 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 67 69 74 | nfo.........................(git |
| 86e0 | 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 69 74 | -gutter:search-here-diffinfo.git |
| 8700 | 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 2d 73 65 | -gutter:diffinfos)).....(save-se |
| 8720 | 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 62 75 66 | lected-window.......(display-buf |
| 8740 | 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 64 2d 62 | fer.(git-gutter:update-popuped-b |
| 8760 | 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 74 65 72 | uffer.it)))))..(defun.git-gutter |
| 8780 | 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 65 78 74 | :next-hunk.(arg)..."Move.to.next |
| 87a0 | 20 64 69 66 66 20 68 75 6e 6b 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 29 0a | .diff.hunk"...(interactive."p"). |
| 87c0 | 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 6f 73 29 | ..(if.(not.git-gutter:diffinfos) |
| 87e0 | 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 72 62 6f | .......(when.(>.git-gutter:verbo |
| 8800 | 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 72 65 20 | sity.3).........(message."There. |
| 8820 | 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 2d 72 65 | are.no.changes!!")).....(save-re |
| 8840 | 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 20 28 6c | striction.......(widen).......(l |
| 8860 | 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 20 20 20 | et*.((is-reverse.(<.arg.0))..... |
| 8880 | 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 72 3a 64 | .........(diffinfos.git-gutter:d |
| 88a0 | 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 6c 65 6e | iffinfos)..............(len.(len |
| 88c0 | 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 28 69 6e | gth.diffinfos))..............(in |
| 88e0 | 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 69 66 66 | dex.(git-gutter:search-near-diff |
| 8900 | 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 0a 20 20 | -index.diffinfos.is-reverse))... |
| 8920 | 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 64 65 78 | ...........(real-index.(if.index |
| 8940 | 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 28 6c | ..............................(l |
| 8960 | 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 69 6e 64 | et.((next.(if.is-reverse.(1+.ind |
| 8980 | 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 20 20 20 | ex).(1-.index))))............... |
| 89a0 | 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 6e 65 78 | .................(mod.(+.arg.nex |
| 89c0 | 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 20 20 20 | t).len))........................ |
| 89e0 | 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 29 29 29 | ....(if.is-reverse.(1-.len).0))) |
| 8a00 | 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 72 65 61 | ..............(diffinfo.(nth.rea |
| 8a20 | 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 28 67 6f | l-index.diffinfos))).........(go |
| 8a40 | 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 28 66 6f | to-char.(point-min)).........(fo |
| 8a60 | 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 6e 6b 2d | rward-line.(1-.(git-gutter-hunk- |
| 8a80 | 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 20 20 28 | start-line.diffinfo))).........( |
| 8aa0 | 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 30 29 0a | when.(>.git-gutter:verbosity.0). |
| 8ac0 | 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 64 2f 25 | ..........(message."Move.to.%d/% |
| 8ae0 | 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 0a 20 20 | d.hunk".(1+.real-index).len))... |
| 8b00 | 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 65 74 2d | ......(when.(buffer-live-p.(get- |
| 8b20 | 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 72 29 29 | buffer.git-gutter:popup-buffer)) |
| 8b40 | 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 2d 70 6f | ...........(git-gutter:update-po |
| 8b60 | 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 28 64 65 | puped-buffer.diffinfo))))))..(de |
| 8b80 | 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 28 61 72 | fun.git-gutter:previous-hunk.(ar |
| 8ba0 | 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 75 6e 6b | g)..."Move.to.previous.diff.hunk |
| 8bc0 | 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 67 75 74 | "...(interactive."p")...(git-gut |
| 8be0 | 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 75 6e 20 | ter:next-hunk.(-.arg)))..(defun. |
| 8c00 | 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 4d 6f 76 | git-gutter:end-of-hunk.()..."Mov |
| 8c20 | 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 22 0a 20 | e.to.end.of.current.diff.hunk".. |
| 8c40 | 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 61 77 68 | .(interactive)...(git-gutter:awh |
| 8c60 | 65 6e 20 28 67 69 74 2d 67 75 74 74 65 72 3a 73 65 61 72 63 68 2d 68 65 72 65 2d 64 69 66 66 69 | en.(git-gutter:search-here-diffi |
| 8c80 | 6e 66 6f 20 67 69 74 2d 67 75 74 74 65 72 3a 64 69 66 66 69 6e 66 6f 73 29 0a 20 20 20 20 28 6c | nfo.git-gutter:diffinfos).....(l |
| 8ca0 | 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 6b 2d 65 | et.((lines.(-.(git-gutter-hunk-e |
| 8cc0 | 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 6f 73 29 | nd-line.it).(line-number-at-pos) |
| 8ce0 | 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 29 29 29 | ))).......(forward-line.lines))) |
| 8d00 | 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 2d 64 69 | )..(defalias.'git-gutter:next-di |
| 8d20 | 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 6b 65 2d | ff.'git-gutter:next-hunk).(make- |
| 8d40 | 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 66 20 27 | obsolete.'git-gutter:next-diff.' |
| 8d60 | 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 28 64 65 | git-gutter:next-hunk."0.60").(de |
| 8d80 | 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 69 66 66 | falias.'git-gutter:previous-diff |
| 8da0 | 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 6d 61 6b | .'git-gutter:previous-hunk).(mak |
| 8dc0 | 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 75 73 2d | e-obsolete.'git-gutter:previous- |
| 8de0 | 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 6b 20 22 | diff.'git-gutter:previous-hunk." |
| 8e00 | 30 2e 36 30 22 29 0a 28 64 65 66 61 6c 69 61 73 20 27 67 69 74 2d 67 75 74 74 65 72 3a 70 6f 70 | 0.60").(defalias.'git-gutter:pop |
| 8e20 | 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 29 0a | up-diff.'git-gutter:popup-hunk). |
| 8e40 | 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 70 75 70 | (make-obsolete.'git-gutter:popup |
| 8e60 | 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 22 30 2e | -diff.'git-gutter:popup-hunk."0. |
| 8e80 | 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 65 2d 69 | 60")..(defun.git-gutter:update-i |
| 8ea0 | 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 20 28 63 | ndirect-buffers.(orig-file)...(c |
| 8ec0 | 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 75 74 74 | l-loop.with.diffinfos.=.git-gutt |
| 8ee0 | 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 69 6e 20 | er:diffinfos............for.win. |
| 8f00 | 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 6f 72 20 | in.(window-list)............for. |
| 8f20 | 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 20 20 20 | buf..=.(window-buffer.win)...... |
| 8f40 | 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 2d 62 75 | ......for.base.=.(buffer-base-bu |
| 8f60 | 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 64 20 62 | ffer.buf)............when.(and.b |
| 8f80 | 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 65 20 62 | ase.(string=.(buffer-file-name.b |
| 8fa0 | 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 6f 0a 20 | ase).orig-file))............do.. |
| 8fc0 | 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 72 20 62 | ..........(with-current-buffer.b |
| 8fe0 | 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 70 64 61 | uf..............(git-gutter:upda |
| 9000 | 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 3b 23 23 | te-diffinfo.diffinfos))))..;;;## |
| 9020 | 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 29 0a 20 | #autoload.(defun.git-gutter.().. |
| 9040 | 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 74 74 65 | ."Show.diff.information.in.gutte |
| 9060 | 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 72 20 67 | r"...(interactive)...(when.(or.g |
| 9080 | 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 72 3a 69 | it-gutter:vcs-type.(git-gutter:i |
| 90a0 | 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 66 69 6c | n-repository-p)).....(let*.((fil |
| 90c0 | 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 20 20 20 | e.(git-gutter:base-file))....... |
| 90e0 | 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 66 66 2d | .....(proc-buf.(git-gutter:diff- |
| 9100 | 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 28 77 68 | process-buffer.file))).......(wh |
| 9120 | 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 2d 70 20 | en.(and.(called-interactively-p. |
| 9140 | 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 63 2d 62 | 'interactive).(get-buffer.proc-b |
| 9160 | 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 63 2d 62 | uf)).........(kill-buffer.proc-b |
| 9180 | 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 69 6c 65 | uf)).......(when.(and.file.(file |
| 91a0 | 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 66 65 72 | -exists-p.file).(not.(get-buffer |
| 91c0 | 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 74 65 72 | .proc-buf))).........(git-gutter |
| 91e0 | 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 65 2d 6e | :start-diff-process.(file-name-n |
| 9200 | 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 20 20 20 | ondirectory.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 28 67 65 74 2d 62 75 | .........................(get-bu |
| 9240 | 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 64 65 66 | ffer-create.proc-buf))))))..(def |
| 9260 | 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 75 66 66 | un.git-gutter:kill-indirect-buff |
| 9280 | 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 28 62 75 | er.()...(with-current-buffer.(bu |
| 92a0 | 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 69 74 2d | ffer-base-buffer).....(when.git- |
| 92c0 | 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 20 | gutter:has-indirect-buffers..... |
| 92e0 | 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 69 72 65 | ..(if.(<.1.git-gutter:has-indire |
| 9300 | 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 69 74 2d | ct-buffers)...........(setq.git- |
| 9320 | 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 31 2d 20 | gutter:has-indirect-buffers.(1-. |
| 9340 | 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 72 73 29 | git-gutter:has-indirect-buffers) |
| 9360 | 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 65 20 27 | ).........(kill-local-variable.' |
| 9380 | 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 72 73 29 | git-gutter:has-indirect-buffers) |
| 93a0 | 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 69 6e 64 | ))))..(defun.git-gutter:make-ind |
| 93c0 | 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 66 65 72 | irect-buffer.(oldfun.base-buffer |
| 93e0 | 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 62 75 66 | .&rest.args)...(with-current-buf |
| 9400 | 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 77 69 6e | fer.(or.(buffer-base-buffer.(win |
| 9420 | 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 66 65 72 | dow-normalize-buffer.base-buffer |
| 9440 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 61 | ))............................ba |
| 9460 | 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 3a 68 61 | se-buffer).....(if.git-gutter:ha |
| 9480 | 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 65 74 71 | s-indirect-buffers.........(setq |
| 94a0 | 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 72 73 | .git-gutter:has-indirect-buffers |
| 94c0 | 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 62 75 66 | .(1+.git-gutter:has-indirect-buf |
| 94e0 | 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 67 75 74 | fers)).......(setq-local.git-gut |
| 9500 | 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 20 20 20 | ter:has-indirect-buffers.1)).... |
| 9520 | 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 6f 6c 64 | .(with-current-buffer.(apply.old |
| 9540 | 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 61 64 64 | fun.base-buffer.args).......(add |
| 9560 | 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 2d 67 75 | -hook.'kill-buffer-hook.#'git-gu |
| 9580 | 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 20 74 29 | tter:kill-indirect-buffer.nil.t) |
| 95a0 | 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 64 76 69 | .......(current-buffer)))).(advi |
| 95c0 | 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 3a 61 72 | ce-add.'make-indirect-buffer.:ar |
| 95e0 | 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 63 74 2d | ound.#'git-gutter:make-indirect- |
| 9600 | 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 2d 72 65 | buffer)..(defun.git-gutter:vc-re |
| 9620 | 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 74 2d 67 | vert.(&rest._args)...(when.git-g |
| 9640 | 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 2d 74 69 | utter-mode.....(run-with-idle-ti |
| 9660 | 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 64 76 69 | mer.0.1.nil.'git-gutter))).(advi |
| 9680 | 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 74 2d 67 | ce-add.'vc-revert.:after.#'git-g |
| 96a0 | 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 67 75 74 | utter:vc-revert)..(defun.git-gut |
| 96c0 | 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 65 73 74 | ter:toggle-truncate-lines.(&rest |
| 96e0 | 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 65 72 2d | ._args)...(when.(and.git-gutter- |
| 9700 | 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 20 20 20 | mode.git-gutter:visual-line).... |
| 9720 | 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 20 27 67 | .(run-with-idle-timer.0.1.nil.'g |
| 9740 | 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 67 6c 65 | it-gutter))).(advice-add.'toggle |
| 9760 | 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 67 75 74 | -truncate-lines.:after.#'git-gut |
| 9780 | 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 3b 20 60 | ter:toggle-truncate-lines)..;;.` |
| 97a0 | 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 75 66 66 | quit-window'.and.`switch-to-buff |
| 97c0 | 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 63 6f 6d | er'.are.called.from.other.;;.com |
| 97e0 | 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 66 72 6f | mands..So.calling.git-gutter.fro |
| 9800 | 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 65 6e 6f | m.`post-command-hook'.is.not.eno |
| 9820 | 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 28 64 65 | ugh,.use.;;.advices.instead..(de |
| 9840 | 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 72 65 73 | fun.git-gutter:quit-window.(&res |
| 9860 | 74 20 5f 61 72 67 73 29 0a 20 20 28 77 68 65 6e 20 67 69 74 2d 67 75 74 74 65 72 2d 6d 6f 64 65 | t._args)...(when.git-gutter-mode |
| 9880 | 0a 20 20 20 20 28 67 69 74 2d 67 75 74 74 65 72 29 29 29 0a 28 61 64 76 69 63 65 2d 61 64 64 20 | .....(git-gutter))).(advice-add. |
| 98a0 | 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 74 65 72 | 'quit-window.:after.#'git-gutter |
| 98c0 | 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 74 65 72 | :quit-window)..(defun.git-gutter |
| 98e0 | 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 73 29 0a | :switch-to-buffer.(&rest._args). |
| 9900 | 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 67 69 74 | ..(when.git-gutter-mode.....(git |
| 9920 | 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 68 2d 74 | -gutter))).(advice-add.'switch-t |
| 9940 | 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 73 77 69 | o-buffer.:after.#'git-gutter:swi |
| 9960 | 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 74 74 65 | tch-to-buffer)..(defun.git-gutte |
| 9980 | 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 72 6d 61 | r:clear.()..."Clear.diff.informa |
| 99a0 | 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 76 65 29 | tion.in.gutter."...(interactive) |
| 99c0 | 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 65 2d 6f | ...(git-gutter-mode.-1)).(make-o |
| 99e0 | 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 69 74 2d | bsolete.'git-gutter:clear.#'git- |
| 9a00 | 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 74 6f 6c | gutter-mode."0.86")..;;;###autol |
| 9a20 | 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 28 29 0a | oad.(defun.git-gutter:toggle.(). |
| 9a40 | 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 61 74 69 | .."Toggle.to.show.diff.informati |
| 9a60 | 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 74 2d 67 | on."...(interactive)...(if.git-g |
| 9a80 | 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 6d 6f 64 | utter-mode.......(git-gutter-mod |
| 9aa0 | 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 29 29 29 | e.-1).....(git-gutter-mode.+1))) |
| 9ac0 | 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 6f 67 67 | .(make-obsolete.'git-gutter:togg |
| 9ae0 | 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 0a 28 64 | le.#'git-gutter-mode."0.86")..(d |
| 9b00 | 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 64 2d 70 | efun.git-gutter:revision-valid-p |
| 9b20 | 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 20 67 69 | .(revision)...(zerop.(cl-case.gi |
| 9b40 | 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 28 67 69 | t-gutter:vcs-type............(gi |
| 9b60 | 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 20 22 67 | t.(git-gutter:execute-command."g |
| 9b80 | 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 20 20 20 | it".nil......................... |
| 9ba0 | 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 65 22 20 | ...................."rev-parse". |
| 9bc0 | 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 20 20 20 | "--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 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 67 69 74 | .revision))............(svn.(git |
| 9c20 | 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 20 6e 69 | -gutter:execute-command."svn".ni |
| 9c40 | 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 20 20 20 | l."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 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 72 2d 66 | ...(file-relative-name.(buffer-f |
| 9ca0 | 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 67 69 74 | ile-name))))............(hg.(git |
| 9cc0 | 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 6e 69 6c | -gutter:execute-command."hg".nil |
| 9ce0 | 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 20 20 20 | ."id"."-r".revision))........... |
| 9d00 | 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 6d 61 6e | .(bzr.(git-gutter:execute-comman |
| 9d20 | 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 20 20 20 | d."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 22 72 65 76 6e 6f 22 20 | ........................"revno". |
| 9d60 | 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 74 2d 67 | "-r".revision)))))..(defun.git-g |
| 9d80 | 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 72 74 2d | utter:set-start-revision.(start- |
| 9da0 | 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 66 20 60 | rev)..."Set.start.revision..If.` |
| 9dc0 | 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 72 69 6e | start-rev'.is.nil.or.empty.strin |
| 9de0 | 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 0a 20 20 | g.then.reset.start.revision."... |
| 9e00 | 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 74 72 69 | (interactive....(list.(read-stri |
| 9e20 | 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 20 20 20 | ng."Start.Revision:."........... |
| 9e40 | 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 65 76 69 | ............nil.'git-gutter:revi |
| 9e60 | 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 73 74 61 | sion-history)))...(when.(and.sta |
| 9e80 | 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 76 20 22 | rt-rev.(not.(string=.start-rev." |
| 9ea0 | 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 72 65 76 | "))).....(unless.(git-gutter:rev |
| 9ec0 | 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 20 20 28 | ision-valid-p.start-rev).......( |
| 9ee0 | 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 61 6c 69 | error."Revision.'%s'.is.not.vali |
| 9f00 | 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 67 75 74 | d.".start-rev)))...(setq.git-gut |
| 9f20 | 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 0a 20 20 | ter:start-revision.start-rev)... |
| 9f40 | 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 74 65 72 | (git-gutter))..(defun.git-gutter |
| 9f60 | 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 61 74 65 | :update-all-windows.()..."Update |
| 9f80 | 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 6c 6c 20 | .git-gutter.information.for.all. |
| 9fa0 | 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 69 76 65 | visible.buffers."...(interactive |
| 9fc0 | 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 29 29 0a | )...(dolist.(buf.(buffer-list)). |
| 9fe0 | 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 62 75 66 | ....(when.(get-buffer-window.buf |
| a000 | 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 74 2d 62 | .'visible).......(with-current-b |
| a020 | 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 75 74 74 | uffer.buf.........(when.git-gutt |
| a040 | 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 29 29 29 | er-mode...........(git-gutter))) |
| a060 | 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 75 70 64 | )))..(defun.git-gutter:start-upd |
| a080 | 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 20 28 | ate-timer.()...(interactive)...( |
| a0a0 | 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 20 20 20 | when.git-gutter:update-timer.... |
| a0c0 | 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 61 64 79 | .(error."Update.timer.is.already |
| a0e0 | 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 65 72 3a | .running."))...(setq.git-gutter: |
| a100 | 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 68 2d 69 | update-timer.........(run-with-i |
| a120 | 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 6e 74 65 | dle-timer.git-gutter:update-inte |
| a140 | 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 65 29 29 | rval.t.'git-gutter:live-update)) |
| a160 | 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 70 64 61 | )..(defun.git-gutter:cancel-upda |
| a180 | 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 20 28 75 | te-timer.()...(interactive)...(u |
| a1a0 | 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 0a 20 20 | nless.git-gutter:update-timer... |
| a1c0 | 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 2e 22 29 | ..(error."Timer.is.no.running.") |
| a1e0 | 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 75 70 64 | )...(cancel-timer.git-gutter:upd |
| a200 | 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 3a 75 70 | ate-timer)...(setq.git-gutter:up |
| a220 | 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 69 74 2d | date-timer.nil))..(defsubst.git- |
| a240 | 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 28 74 6d | gutter:write-current-content.(tm |
| a260 | 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 65 72 2d | pfile)...(let.((content.(buffer- |
| a280 | 73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 28 70 6f 69 6e 74 2d 6d | substring-no-properties.(point-m |
| a2a0 | 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 74 65 6d | in).(point-max)))).....(with-tem |
| a2c0 | 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 63 6f 6e | p-file.tmpfile.......(insert.con |
| a2e0 | 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 72 69 67 | tent))))..(defun.git-gutter:orig |
| a300 | 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 20 20 28 | inal-file-content.(file.vcs)...( |
| a320 | 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 20 76 63 | with-temp-buffer.....(cl-case.vc |
| a340 | 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 72 6f 70 | s.......(git........(when.(zerop |
| a360 | 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 6c 20 22 | .(process-file."git".nil.t.nil." |
| a380 | 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 20 20 20 | show".(concat.":".file)))....... |
| a3a0 | 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 72 74 69 | ...(buffer-substring-no-properti |
| a3c0 | 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 0a 20 20 | es.(point-min).(point-max))))... |
| a3e0 | 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 20 28 28 | ....((svn.hg.bzr)........(let.(( |
| a400 | 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 20 20 20 | command.(symbol-name.vcs)))..... |
| a420 | 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 6c 65 20 | .....(when.(zerop.(process-file. |
| a440 | 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 29 0a 20 | command.nil.t.nil."cat".file)).. |
| a460 | 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 2d 70 | ..........(buffer-substring-no-p |
| a480 | 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 6d 61 78 | roperties.(point-min).(point-max |
| a4a0 | 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 72 69 74 | ))))))))..(defun.git-gutter:writ |
| a4c0 | 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 69 6c 65 | e-original-content.(tmpfile.file |
| a4e0 | 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 74 2d 67 | name)...(git-gutter:awhen.(git-g |
| a500 | 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 69 6c 65 | utter:original-file-content.file |
| a520 | 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 20 28 77 | name.git-gutter:vcs-type).....(w |
| a540 | 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 69 6e 73 | ith-temp-file.tmpfile.......(ins |
| a560 | 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 20 67 69 | ert.it).......t)))..(defsubst.gi |
| a580 | 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 73 73 20 | t-gutter:start-raw-diff-process. |
| a5a0 | 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 61 72 74 | (proc-buf.original.now)...(start |
| a5c0 | 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 61 74 65 | -file-process."git-gutter:update |
| a5e0 | 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 20 20 20 | -timer".proc-buf................ |
| a600 | 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 6e 6f 77 | ......."diff"."-U0".original.now |
| a620 | 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 69 76 65 | ))..(defun.git-gutter:start-live |
| a640 | 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 20 28 6c | -update.(file.original.now)...(l |
| a660 | 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 3a 64 69 | et.((proc-bufname.(git-gutter:di |
| a680 | 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 28 77 | ff-process-buffer.file))).....(w |
| a6a0 | 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 0a 20 20 | hen.(get-buffer.proc-bufname)... |
| a6c0 | 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 29 29 0a | ....(kill-buffer.proc-bufname)). |
| a6e0 | 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 75 66 66 | ....(let*.((curbuf.(current-buff |
| a700 | 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 74 2d 62 | er))............(proc-buf.(get-b |
| a720 | 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 20 20 20 | uffer-create.proc-bufname))..... |
| a740 | 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 61 72 | .......(process.(git-gutter:star |
| a760 | 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 72 69 67 | t-raw-diff-process.proc-buf.orig |
| a780 | 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 73 2d 71 | inal.now))).......(set-process-q |
| a7a0 | 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 29 0a 20 | uery-on-exit-flag.process.nil).. |
| a7c0 | 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 20 20 20 | .....(set-process-sentinel...... |
| a7e0 | 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 63 20 5f | ..process........(lambda.(proc._ |
| a800 | 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 6f 63 65 | event)..........(when.(eq.(proce |
| a820 | 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 20 20 20 | ss-status.proc).'exit).......... |
| a840 | 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 6c 29 0a | ..(setq.git-gutter:enabled.nil). |
| a860 | 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 67 69 74 | ...........(let.((diffinfos.(git |
| a880 | 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 70 72 6f | -gutter:process-diff-output.(pro |
| a8a0 | 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 20 20 20 | cess-buffer.proc))))............ |
| a8c0 | 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 29 0a 20 | ..(when.(buffer-live-p.curbuf).. |
| a8e0 | 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 75 66 66 | ..............(with-current-buff |
| a900 | 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 69 74 2d | er.curbuf..................(git- |
| a920 | 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 66 6f 73 | gutter:update-diffinfo.diffinfos |
| a940 | 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 67 75 74 | )..................(setq.git-gut |
| a960 | 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 20 28 6b | ter:enabled.t)))..............(k |
| a980 | 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 20 20 20 | ill-buffer.proc-buf)............ |
| a9a0 | 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 20 20 20 | ..(delete-file.original)........ |
| a9c0 | 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 29 0a 0a | ......(delete-file.now)))))))).. |
| a9e0 | 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 74 65 2d | (defun.git-gutter:should-update- |
| aa00 | 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 74 69 63 | p.()...(let.((chars-modified-tic |
| aa20 | 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 29 29 29 | k.(buffer-chars-modified-tick))) |
| aa40 | 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 69 66 69 | .....(unless.(equal.chars-modifi |
| aa60 | 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 2d 6d 6f | ed-tick.git-gutter:last-chars-mo |
| aa80 | 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 67 75 74 | dified-tick).......(setq.git-gut |
| aaa0 | 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 63 68 61 | ter:last-chars-modified-tick.cha |
| aac0 | 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 67 69 74 | rs-modified-tick))))..(defun.git |
| aae0 | 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 68 2d 74 | -gutter:vcs-root.(vcs)...(with-t |
| ab00 | 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 20 20 20 | emp-buffer.....(cl-case.vcs..... |
| ab20 | 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 72 6f 63 | ..(git........(when.(zerop.(proc |
| ab40 | 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 2d 70 61 | ess-file."git".nil.t.nil."rev-pa |
| ab60 | 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 20 20 20 | rse"."--show-toplevel"))........ |
| ab80 | 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 | ..(goto-char.(point-min))....... |
| aba0 | 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 20 20 20 | ...(file-name-as-directory...... |
| abc0 | 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 72 | .....(buffer-substring-no-proper |
| abe0 | 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 6f 6e 29 | ties.(point).(line-end-position) |
| ac00 | 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 28 7a 65 | )))).......(svn........(when.(ze |
| ac20 | 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 20 6e 69 | rop.(process-file."svn".nil.t.ni |
| ac40 | 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 72 20 28 | l."info"))..........(goto-char.( |
| ac60 | 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 65 2d 73 | point-min))..........(when.(re-s |
| ac80 | 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 52 6f 6f | earch-forward."^Working.Copy.Roo |
| aca0 | 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 20 20 20 | t.Path:.\(.+\)$".nil.t)......... |
| acc0 | 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 61 74 63 | ...(file-name-as-directory.(matc |
| ace0 | 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 0a 20 20 | h-string-no-properties.1)))))... |
| ad00 | 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 6f 6d 6d | ....((hg.bzr)........(let.((comm |
| ad20 | 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 20 20 20 | and.(symbol-name.vcs)))......... |
| ad40 | 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 6f 6d 6d | .(when.(zerop.(process-file.comm |
| ad60 | 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 20 20 20 | and.nil.t.nil."root")).......... |
| ad80 | 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 | ..(goto-char.(point-min))....... |
| ada0 | 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 20 | .....(file-name-as-directory.... |
| adc0 | 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 2d 70 72 | .........(buffer-substring-no-pr |
| ade0 | 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 73 69 74 | operties.(point).(line-end-posit |
| ae00 | 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 65 72 3a | ion)))))))))..(defun.git-gutter: |
| ae20 | 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 61 77 68 | live-update.()...(git-gutter:awh |
| ae40 | 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 20 28 77 | en.(git-gutter:base-file).....(w |
| ae60 | 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 20 20 20 | hen.(and.git-gutter:enabled..... |
| ae80 | 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 2d 75 70 | ...........(git-gutter:should-up |
| aea0 | 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 69 6c 65 | date-p)).......(let.((file.(file |
| aec0 | 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 20 20 20 | -name-nondirectory.it))......... |
| aee0 | 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 2d 67 75 | ....(root.(file-truename.(git-gu |
| af00 | 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 74 79 70 | tter:vcs-root.git-gutter:vcs-typ |
| af20 | 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 65 6d 70 | e))).............(now.(make-temp |
| af40 | 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 20 20 20 | -file."git-gutter-cur"))........ |
| af60 | 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 65 20 22 | .....(original.(make-temp-file." |
| af80 | 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 69 66 20 | git-gutter-orig"))).........(if. |
| afa0 | 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 6e 74 65 | (git-gutter:write-original-conte |
| afc0 | 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 6d 65 20 | nt.original.(file-relative-name. |
| afe0 | 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 20 20 20 | it.root)).............(progn.... |
| b000 | 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 63 75 72 | ...........(git-gutter:write-cur |
| b020 | 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 20 20 20 | rent-content.now)............... |
| b040 | 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 20 66 69 | (git-gutter:start-live-update.fi |
| b060 | 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 64 65 6c | le.original.now))...........(del |
| b080 | 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 74 65 2d | ete-file.now)...........(delete- |
| b0a0 | 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 69 6e 75 | file.original))))))..;;.for.linu |
| b0c0 | 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 70 20 27 | m-user.(when.(and.(and.(boundp.' |
| b0e0 | 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 75 6d 2d | global-linum-mode).global-linum- |
| b100 | 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 72 2d 66 | mode).(not.(boundp.'git-gutter-f |
| b120 | 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 73 65 74 | ringe)))...(git-gutter:linum-set |
| b140 | 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 75 6e 6b | up))..(defun.git-gutter:all-hunk |
| b160 | 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 69 6e 20 | s.()..."Cound.unstaged.hunks.in. |
| b180 | 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 0a 20 20 | all.buffers"...(let.((sum.0))... |
| b1a0 | 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 0a 20 20 | ..(dolist.(buf.(buffer-list))... |
| b1c0 | 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 20 | ....(with-current-buffer.buf.... |
| b1e0 | 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 20 20 20 | .....(when.git-gutter-mode...... |
| b200 | 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 3a 62 75 | .....(cl-incf.sum.(git-gutter:bu |
| b220 | 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 65 66 75 | ffer-hunks))))).....sum))..(defu |
| b240 | 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 20 20 22 | n.git-gutter:buffer-hunks.()..." |
| b260 | 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 6e 74 20 | Count.unstaged.hunks.in.current. |
| b280 | 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 3a 64 69 | buffer."...(length.git-gutter:di |
| b2a0 | 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 73 74 61 | ffinfos))..(defun.git-gutter:sta |
| b2c0 | 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 2d 67 75 | t-hunk.(hunk)...(cl-case.(git-gu |
| b2e0 | 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 69 66 69 | tter-hunk-type.hunk).....(modifi |
| b300 | 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 20 20 20 | ed.(with-temp-buffer............ |
| b320 | 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 2d 63 6f | .....(insert.(git-gutter-hunk-co |
| b340 | 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 28 67 6f | ntent.hunk)).................(go |
| b360 | 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | to-char.(point-min))............ |
| b380 | 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 20 20 20 | .....(let.((added.0)............ |
| b3a0 | 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 20 20 20 | ...........(deleted.0))......... |
| b3c0 | 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 0a 20 20 | ..........(while.(not.(eobp))... |
| b3e0 | 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 6b 69 6e | ..................(cond.((lookin |
| b400 | 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 29 0a 20 | g-at-p."\\+").(cl-incf.added)).. |
| b420 | 20 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 6f 6b 69 | .........................((looki |
| b440 | 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 65 64 29 | ng-at-p."\\-").(cl-incf.deleted) |
| b460 | 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 72 64 2d | )).....................(forward- |
| b480 | 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 6f 6e 73 | line.1))...................(cons |
| b4a0 | 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 20 28 63 | .added.deleted)))).....(added.(c |
| b4c0 | 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 69 6e 65 | ons.(-.(git-gutter-hunk-end-line |
| b4e0 | 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 69 74 2d | .hunk).....................(git- |
| b500 | 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 0a 20 20 | gutter-hunk-start-line.hunk))... |
| b520 | 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 65 64 20 | ...............0)).....(deleted. |
| b540 | 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 20 28 67 | (cons.0....................(-.(g |
| b560 | 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 0a 20 20 | it-gutter-hunk-end-line.hunk)... |
| b580 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 69 74 2d 67 75 74 74 65 72 2d | ....................(git-gutter- |
| b5a0 | 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 64 65 66 | hunk-start-line.hunk))))))..(def |
| b5c0 | 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 22 52 65 | un.git-gutter:statistic.()..."Re |
| b5e0 | 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 20 69 6e | turn.statistic.unstaged.hunks.in |
| b600 | 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 69 76 65 | .current.buffer."...(interactive |
| b620 | 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 67 75 74 | )...(cl-loop.for.hunk.in.git-gut |
| b640 | 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 28 61 64 | ter:diffinfos............for.(ad |
| b660 | 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 75 6e 6b | d...del).=.(git-gutter:stat-hunk |
| b680 | 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 6f 20 61 | .hunk)............sum.add.into.a |
| b6a0 | 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 64 65 6c | dded............sum.del.into.del |
| b6c0 | 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 20 20 20 | eted............finally......... |
| b6e0 | 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 20 20 20 | ...return.(progn................ |
| b700 | 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 65 6c 79 | .....(when.(called-interactively |
| b720 | 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 20 20 20 | -p.'interactive)................ |
| b740 | 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 65 73 2c | .......(message."Added.%d.lines, |
| b760 | 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 74 65 64 | .Deleted.%d.lines".added.deleted |
| b780 | 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 61 64 64 | )).....................(cons.add |
| b7a0 | 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 2d 67 75 | ed.deleted))))..(provide.'git-gu |
| b7c0 | 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 20 68 65 | tter)..;;;.git-gutter.el.ends.he |
| b7e0 | 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 6c 6c 2d | re..;;.Local.Variables:.;;.fill- |
| b800 | 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 65 3a 20 | column:.85.;;.indent-tabs-mode:. |
| b820 | 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 73 3a 20 | nil.;;.elisp-lint-indent-specs:. |
| b840 | 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 6e 64 3a | ((git-gutter:awhen...1)).;;.End: |
| b860 | 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 00 00 00 | ................................ |
| b880 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b8a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b8c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b8e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b900 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b920 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b940 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b960 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b980 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b9a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b9c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| b9e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ba00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ba20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ba40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ba60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ba80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| baa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bae0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bb00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bb20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bb40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bb60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bb80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bbc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bbe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bc00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bc20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bc40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bc60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bc80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bca0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bcc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bce0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bd00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bd20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bd40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bd60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bd80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bda0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bdc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bde0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| be00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| be20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| be40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| be60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| be80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bea0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bec0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bee0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bf00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bf20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bf40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bf60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bf80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bfa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bfc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| bfe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c000 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c020 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c040 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c060 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c080 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c0a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c0c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c0e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c100 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c120 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c140 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c160 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c180 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c1a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c1c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c1e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c200 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c220 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c240 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c260 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c280 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c2a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c2c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c2e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c300 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c320 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c3a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c3c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c3e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c400 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c420 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c440 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c460 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c480 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c4a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c4c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c4e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c500 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c520 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c540 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c560 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c580 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c5a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c5c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c5e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c600 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c620 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c640 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c660 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c680 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c6a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c6c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c6e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c700 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c720 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c740 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c760 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c780 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c7a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c7c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c7e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
 |
git.cjennings.net : dotemacs | |
| My Emacs configuration | Craig Jennings |
| summaryrefslogtreecommitdiff |
blob: 49f95e4d97d2b725e6ca2f653653d7d9f946378c (plain)