git-gutter-20240425.647.tar « localrepo - dotemacs.git

blob: 4407f87477f549c0d725984fd88d4116f8f863ca (plain)

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