mirror of https://github.com/Chizi123/.emacs.d.git

Chizi123
2018-11-18 76bbd07de7add0f9d13c6914f158d19630fe2f62
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.
 
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
 
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 
(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311\303%\210\312\313\314\315\311\306%\210\312\316\317\320\311\306%\210\312\321\322\323\311\306%\210\324\325\326\327\330DD\331\311\306\332\333&\210\324\334\326\327\335DD\336\311\306\332\337&\210\324\340\326\327\341DD\342\311\306\332\327&\210\324\343\326\327\344DD\345\311\306\332\346&\210\324\347\326\327\350DD\351\311\306\332\327&\210\324\352\326\327\353DD\354\332\355\356\357&\207" [require fringe diff-mode vc vc-dir custom-declare-group diff-hl nil "VC diff highlighting on the side of a window" :group custom-declare-face diff-hl-insert ((default :inherit diff-added) (((class color)) :foreground "green4")) "Face used to highlight inserted lines." diff-hl-delete ((default :inherit diff-removed) (((class color)) :foreground "red3")) "Face used to highlight deleted lines." diff-hl-change ((default :foreground "blue3") (((class color) (min-colors 88) (background light)) :background "#ddddff") (((class color) (min-colors 88) (background dark)) :background "#333355")) "Face used to highlight changed lines." custom-declare-variable diff-hl-command-prefix funcall function #[0 "\300\207" ["v"] 1] "The prefix for all `diff-hl' commands." :type string diff-hl-draw-borders #[0 "\300\207" [t] 1] "Non-nil to draw borders around fringe indicators." boolean diff-hl-highlight-function #[0 "\300\207" [diff-hl-highlight-on-fringe] 1] "Function to highlight the current line. Its arguments are\n  overlay, change type and position within a hunk." diff-hl-fringe-bmp-function #[0 "\300\207" [diff-hl-fringe-bmp-from-pos] 1] "Function to choose the fringe bitmap for a given change type\n  and position within a hunk.  Should accept two arguments." (choice (const diff-hl-fringe-bmp-from-pos) (const diff-hl-fringe-bmp-from-type) function) diff-hl-fringe-face-function #[0 "\300\207" [diff-hl-fringe-face-from-type] 1] "Function to choose the fringe face for a given change type\n  and position within a hunk.  Should accept two arguments." diff-hl-side #[0 "\300\207" [left] 1] "Which side to use for indicators." (choice (const left) (const right)) :set #[514 "\301\300!\205\211\203\300\302!\210\303\"\210\211\205\300\304!\207" [global-diff-hl-mode boundp -1 set-default 1] 6 "\n\n(fn VAR VALUE)"]] 8)
#@59 Revision to diff against.  nil means the most recent one.
(defvar diff-hl-reference-revision nil (#$ . 2707))
(defalias 'diff-hl-define-bitmaps #[0 "\303\300!\203\247\203\304    \"\202\305\306 \203\307\310!\206\311\312\313 _!\314!\2034\315\313 _!\2025\\\316\317\320\321\322\n\"!\"\323^\324\304\325S\"\"\304\325\"S\326!\326!\326!\311I\210SI\210\211\311I\210\211SI\210\327\330        \331%\210\327\332        \333%\210\327\334        \335%\210\327\336        \331%\210\327\337\340\317\325\333%\210\325\245\325_\211\311U\203\257\325\202\260\211\304\325S\"\325Z\325\245S\304\325\"\324\341_\"\327\342\324\325\"\211$\210\211\311\211I\210\211I\210\211TI\210\211S\311I\210\327\343\211$\266\206\207" [text-scale-mode-amount text-scale-mode-step diff-hl-side boundp expt 1 display-graphic-p default-value line-spacing 0 ceiling frame-char-height floatp truncate frame-parameter nil intern format "%s-fringe" 16 make-vector 2 copy-sequence define-fringe-bitmap diff-hl-bmp-top top diff-hl-bmp-middle center diff-hl-bmp-bottom bottom diff-hl-bmp-single diff-hl-bmp-i [3 3 0 3 3 3 3 3 3 3] 3 diff-hl-bmp-delete diff-hl-bmp-insert] 20])
(defalias 'diff-hl-maybe-define-bitmaps #[0 "\300 \205\301\302!?\205\303 \210\304\302\305\306\211\307%\207" [window-system fringe-bitmap-p diff-hl-bmp-empty diff-hl-define-bitmaps define-fringe-bitmap [0] 1 center] 6])
(defvar diff-hl-spec-cache (make-hash-table :test 'equal))
#@22 
 
(fn TYPE POS SIDE)
(defalias 'diff-hl-fringe-spec #[771 "    \257\303\n\"\211\2042\"    \"\304\305\306\307\310\311\n\"!EC#\262\312\n#\266\207" [diff-hl-fringe-face-function diff-hl-fringe-bmp-function diff-hl-spec-cache gethash propertize " " display intern format "%s-fringe" puthash] 14 (#$ . 4158)])
#@17 
 
(fn TYPE POS)
(defalias 'diff-hl-fringe-face-from-type #[514 "\300\301\302\"!\207" [intern format "diff-hl-%s"] 6 (#$ . 4485)])
#@17 
 
(fn TYPE POS)
(defalias 'diff-hl-fringe-bmp-from-pos #[514 "\300\301\302\"!\207" [intern format "diff-hl-bmp-%s"] 6 (#$ . 4622)])
#@17 
 
(fn TYPE POS)
(defalias 'diff-hl-fringe-bmp-from-type #[514 "\300\267\202\f\301\207\302\207\303\207\304\305\306\"!\207" [#s(hash-table size 3 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (unknown 6 change 8 ignored 10)) question-mark exclamation-mark diff-hl-bmp-i intern format "diff-hl-bmp-%s"] 6 (#$ . 4761)])
#@13 
 
(fn BODY)
(defalias 'diff-hl-with-diff-switches '(macro . #[257 "\300\301\302\303\304\305\306!\205\f\307BBBBE\207" [let (vc-git-diff-switches (cons "-U0" (and (boundp 'vc-git-diff-switches) (listp vc-git-diff-switches) (cl-remove-if-not (lambda (arg) (member arg '("--histogram" "--patience" "--minimal"))) vc-git-diff-switches)))) (vc-hg-diff-switches nil) (vc-svn-diff-switches nil) (vc-diff-switches '("-U0")) boundp vc-disable-async-diff ((vc-disable-async-diff t))] 8 (#$ . 5105)]))
#@14 
 
(fn STATE)
(defalias 'diff-hl-modified-p #[257 "\211\302=\206\211\303=\205\206    \207" [revert-buffer-in-progress-p diff-hl-reference-revision edited up-to-date] 3 (#$ . 5603)])
#@21 
 
(fn FILE BACKEND)
(defalias 'diff-hl-changes-buffer #[514 "\305\306\307\300!\205<\205\310\311\"B\312\211\313\314\315C\f\312&\210,\211\207" [vc-git-diff-switches vc-diff-switches vc-svn-diff-switches vc-hg-diff-switches diff-hl-reference-revision " *diff-hl* " "-U0" boundp cl-remove-if-not #[257 "\211\300\235\207" [("--histogram" "--patience" "--minimal")] 3 "\n\n(fn ARG)"] nil ("-U0") vc-call-backend diff] 10 (#$ . 5794)])
(defalias 'diff-hl-changes #[0 "\303!\211\205\264\304\"\305!\203\223\306\211r\307\"q\210eb\210m\204\212\3101.\311\312!0\2022\210\2023\210\313\n!\203\212\314\315\316!!\315\317!\211\203K\314!\202L\320\262`\321 \210\322\323`#\322\324`#\211\325U\203f\326\202q\325U\203p\327\202q\330\211\327=\203~\320\262T\262EB\266\207\2023)\211\237)\262\202\262\211\331=\203\244\320\332d!\333BBC\202\262\211\334=\205\262\320\332d!\335BBC\262\207" [buffer-file-name diff-auto-refine-mode diff-hunk-header-re-unified vc-backend vc-state diff-hl-modified-p nil diff-hl-changes-buffer (error) diff-beginning-of-hunk t looking-at string-to-number match-string 3 4 1 diff-end-of-hunk diff-count-matches "^\\+" "^-" 0 insert delete change added line-number-at-pos (insert) removed (delete)] 14])
(defalias 'diff-hl-update #[0 "\301 \302\303 \210\212\214~\210eb\210\211\205\264\211@\211\211G\304U\203%\211A\262\242\202,\305\306\307GD\"\211A\262\242@Zy\210\262`\211\310V\262\203\211\311\204Q\312\202x\302U\203b\nU\203b\313\202x\302U\203l\314\202x\nU\203w\315\202x\316\"\210\302y\210T\262S\262\202>\317`\"\320\321\322\323#\210\321\324\323#\210\321\325#\210\321\326#\210\321\327#\266A\266\202\202\262*\207" [diff-hl-draw-borders diff-hl-changes 1 diff-hl-remove-overlays 3 signal wrong-number-of-arguments nil 0 diff-hl-add-highlighting empty single bottom top middle make-overlay (diff-hl-overlay-modified) overlay-put diff-hl t diff-hl-hunk modification-hooks insert-in-front-hooks insert-behind-hooks] 15])
#@19 
 
(fn TYPE SHAPE)
(defalias 'diff-hl-add-highlighting #[514 "\301``\"\302\303\304#\210#\210\211\207" [diff-hl-highlight-function make-overlay overlay-put diff-hl t] 7 (#$ . 7821)])
#@23 
 
(fn OVL TYPE SHAPE)
(defalias 'diff-hl-highlight-on-fringe #[771 "\301\302\303##\207" [diff-hl-side overlay-put before-string diff-hl-fringe-spec] 10 (#$ . 8013)])
#@26 
 
(fn &optional BEG END)
(defalias 'diff-hl-remove-overlays #[512 "\214~\210\300\206    e\206d\"\211\205'\211@\301\302\"\203 \303!\210A\266\202\202\262)\207" [overlays-in overlay-get diff-hl delete-overlay] 7 (#$ . 8189)])
#@104 Delete the hunk overlay and all our line overlays inside it.
 
(fn OV AFTER-P BEG END &optional LENGTH)
(defalias 'diff-hl-overlay-modified #[1284 "?\205\300!\205\301\302!\303!\"\210\304!\207" [overlay-buffer diff-hl-remove-overlays overlay-start overlay-end delete-overlay] 9 (#$ . 8429)])
(defvar diff-hl-timer nil)
#@79 DTRT when we've `undo'-ne the buffer into unmodified state.
 
(fn BEG END LEN)
(defalias 'diff-hl-edit #[771 "\205    \203\f\302    !\210\303\304\305\306p$\211\207" [undo-in-progress diff-hl-timer cancel-timer run-with-idle-timer 0.01 nil diff-hl-after-undo] 8 (#$ . 8763)])
#@15 
 
(fn BUFFER)
(defalias 'diff-hl-after-undo #[257 "r\211q\210\300 ?\205\f\301 )\207" [buffer-modified-p diff-hl-update] 2 (#$ . 9042)])
#@70 Run VC diff command and go to the line corresponding to the current.
(defalias 'diff-hl-diff-goto-hunk #[0 "\301 \210\302 p\303\304\305 \306\304%\210\307\310\311\312\313BB\314D\315BBBB!\207" [diff-hl-reference-revision vc-buffer-sync line-number-at-pos vc-diff-internal t vc-deduce-fileset nil vc-exec-after if (< (line-number-at-pos (point-max)) 3) with-current-buffer ((diff-hl-remove-overlays)) diff-hl-diff-skip-to ((setq vc-sentinel-movepoint (point)))] 8 (#$ . 9185) nil])
#@135 In `diff-mode', skip to the hunk and line corresponding to LINE
in the source file, or the last line of the hunk above it.
 
(fn LINE)
(defalias 'diff-hl-diff-skip-to #[257 "\301 \210\302\303!\205d\211?\205d\304\305\306!!\305\307!\211\203!\304!\202\"\310\262\\V\2032\301 \210\202_\311\262W\203A\312y\210\202_ZT\211\211\313V\262\203^\310y\210\303\314!\204E\211S\262\202E\210\266\202\207" [diff-hunk-header-re-unified diff-hunk-next nil looking-at string-to-number match-string 3 4 1 t -1 0 "^-"] 8 (#$ . 9675)])
#@58 Revert the diff hunk with changes at or above the point.
(defalias 'diff-hl-revert-hunk #[0 "\301 \210\302\303!p\212\304`!\204\305 \210\306 )\307 \310\311\312\313\314!\315\"\316$\216\317\320\320\211    &\210\321\322\323\324\325\326\327BB\330BBB\322\331\332DE\333\334\335\336\337\340\341\342\343\344\345A@@ED\346BB\347\326\350BB\351BBBBBBBBBBBBBB!)\207" [diff-hl-reference-revision vc-buffer-sync generate-new-buffer-name "*diff-hl*" diff-hl-hunk-overlay-at diff-hl-previous-hunk line-number-at-pos vc-deduce-fileset make-byte-code 0 "\301\300\302\"\207" vconcat vector [quit-windows-on t] 3 vc-diff-internal nil vc-exec-after let (beg-line end-line) when (eobp) with-current-buffer ((diff-hl-remove-overlays)) ((user-error "Buffer is up-to-date")) (diff-auto-refine-mode) diff-hl-diff-skip-to (save-excursion (while (looking-at "[-+]") (forward-line 1)) (setq end-line (line-number-at-pos (point))) (unless (eobp) (diff-split-hunk))) (unless (looking-at "[-+]") (forward-line -1)) (while (looking-at "[-+]") (forward-line -1)) (setq beg-line (line-number-at-pos (point))) (unless (looking-at "@") (forward-line 1) (diff-split-hunk)) (let ((wbh (window-body-height))) (if (>= wbh (- end-line beg-line)) (recenter (/ (+ wbh (- beg-line end-line) 2) 2)) (recenter 1))) (when diff-auto-refine-mode (diff-refine-hunk)) unless yes-or-no-p format "Revert current hunk in %s? " ((user-error "Revert canceled")) (let ((diff-advance-after-apply-hunk nil)) (diff-apply-hunk t)) ((save-buffer)) ((message "Hunk reverted"))] 21 (#$ . 10218) nil])
#@12 
 
(fn POS)
(defalias 'diff-hl-hunk-overlay-at #[257 "\300\211T\"\301\302\301:\203-@\262\303\304\"\203\"\262\301\211\262\202#\302\203-A\262\202\207" [overlays-in nil t overlay-get diff-hl-hunk] 8 (#$ . 11771)])
#@86 Go to the beginning of the next hunk in the current buffer.
 
(fn &optional BACKWARD)
(defalias 'diff-hl-next-hunk #[256 "\212\3002<\211\203 o\202m?\205;\211\203\301`!\202\302`!b\210\303`!\211\2037\304!`U\2037\305\300\304!\"\210\210\2020)\211\203F\211b\202I\306\307!\207" [found previous-overlay-change next-overlay-change diff-hl-hunk-overlay-at overlay-start throw user-error "No further hunks found"] 6 (#$ . 12003) nil])
#@65 Go to the beginning of the previous hunk in the current buffer.
(defalias 'diff-hl-previous-hunk #[0 "\300\301!\207" [diff-hl-next-hunk t] 2 (#$ . 12450) nil])
(defalias 'diff-hl-mark-hunk #[0 "\300`!\211\204 \301\302!\210\303!b\210\304\305!\306\307#\207" [diff-hl-hunk-overlay-at user-error "No hunk at point" overlay-start push-mark overlay-end nil t] 5 nil nil])
(defvar diff-hl-command-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\211\207" [make-sparse-keymap define-key "n" diff-hl-revert-hunk "[" diff-hl-previous-hunk "]" diff-hl-next-hunk] 5))
(fset 'diff-hl-command-map diff-hl-command-map)
#@110 Mode line lighter for Diff Hl.
 
The value of this variable is a mode line template as in
`mode-line-format'.
(defvar diff-hl-lighter "" (#$ . 13091))
#@93 Non-nil if Diff-Hl mode is enabled.
Use the command `diff-hl-mode' to change this variable.
(defvar diff-hl-mode nil (#$ . 13247))
(make-variable-buffer-local 'diff-hl-mode)
#@50 Toggle VC diff highlighting.
 
(fn &optional ARG)
(defalias 'diff-hl-mode #[256 "\302 \303=\203 ?\202\304!\305V\211\203d\306 \210\307\310\311\312\313$\210\307\314\315\312\313$\210\307    \2031\316\2022\317\311\313\211$\210\307\320\311\312\313$\210\307\321\311\312\313$\210\307\322\311\312\313$\210\307\323\311\312\313$\210\307\324\311\312\313$\210\307\325\326\312\313$\210\202\235\327\310\311\313#\210\327\314\315\313#\210\327\317\311\313#\210\327\320\311\313#\210\327\321\311\313#\210\327\322\311\313#\210\327\323\311\313#\210\327\324\311\313#\210\327\325\326\313#\210\330 \210\331\332\203\247\316\202\250\333\"\210\334\335!\203\314\302 \203\274\211\302 \232\203\314\336\337\340\203\307\341\202\310\342#\266\210\343 \210\207" [diff-hl-mode vc-mode current-message toggle prefix-numeric-value 0 diff-hl-maybe-define-bitmaps add-hook after-save-hook diff-hl-update nil t after-change-functions diff-hl-edit diff-hl-mode-on-hook find-file-hook vc-checkin-hook after-revert-hook magit-revert-buffer-hook magit-not-reverted-hook auto-revert-mode-hook text-scale-mode-hook diff-hl-define-bitmaps remove-hook diff-hl-remove-overlays run-hooks diff-hl-mode-hook diff-hl-mode-off-hook called-interactively-p any " in current buffer" message "Diff-Hl mode %sabled%s" "en" "dis" force-mode-line-update] 8 (#$ . 13427) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
(defvar diff-hl-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\300\207" [diff-hl-mode-hook variable-documentation put "Hook run after entering or leaving `diff-hl-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)"] 4)
#@28 Keymap for `diff-hl-mode'.
(defvar diff-hl-mode-map (byte-code "\301\302BD\303!\203\211\202\211<\203\304!\202\305\306\"\207" [diff-hl-command-prefix ([remap vc-diff] . diff-hl-diff-goto-hunk) diff-hl-command-map keymapp easy-mmode-define-keymap error "Invalid keymap %S"] 4) (#$ . 15143))
(byte-code "\303\304\305\306\211%\210\307\310\306\311#\2033\306C\306C\211\312\313\314\315\316\"\317\"\320\321%\240\210\211\242    !\210\322\n\242#\266\306\207" [diff-hl-mode-map diff-hl-command-map diff-hl-command-prefix add-minor-mode diff-hl-mode diff-hl-lighter nil require smartrep t make-byte-code 257 "\302\303\304\305\306\307\300\301\"\310\"\311\312%\"\207" vconcat vector [map-keymap make-byte-code 514 "\211:\203\n\301\242!\207\302!\205\300\303!B\300\242B\240\207" vconcat vector [characterp string] 5 "\n\n(fn EVENT BINDING)"] 9 "\n\n(fn MAP)" smartrep-define-key] 10)
(defalias 'diff-hl-magit-post-refresh #[0 "\301 \302\303\304\305\306\307!\310\"\311\312%\313\314!\"\315\316 \211\205\203\211@\317\320\"\203|\321!\204|\300!\203|\322\300!\"\203|\323\300!!\203|r\211q\210\324!\211\203y\235\203h\325!>\203b\326\"\210\327 \210\202y\325\">\204y\326\"\210\327 \210\266)A\266\202\202\262\207" [buffer-file-name magit-toplevel mapcar make-byte-code 257 "\301\300\"\207" vconcat vector [expand-file-name] 4 "\n\n(fn FILE)" magit-unstaged-files t (up-to-date ignored unregistered) buffer-list buffer-local-value diff-hl-mode buffer-modified-p file-in-directory-p file-exists-p vc-backend vc-state vc-state-refresh diff-hl-update] 10])
(defalias 'diff-hl-dir-update #[0 "\300 \203\n\301 \202\f\302 \211\2051\211@\211A\303=\203*\304@!\211\203)r\211q\210\305 \210)\210A\266\202\202\f\207" [vc-dir-marked-files vc-dir-marked-only-files-and-states vc-dir-child-files-and-states up-to-date find-buffer-visiting diff-hl-remove-overlays] 4])
#@101 Non-nil if Diff-Hl-Dir mode is enabled.
Use the command `diff-hl-dir-mode' to change this variable.
(defvar diff-hl-dir-mode nil (#$ . 17048))
(make-variable-buffer-local 'diff-hl-dir-mode)
#@82 Toggle `diff-hl-mode' integration in a `vc-dir-mode' buffer.
 
(fn &optional ARG)
(defalias 'diff-hl-dir-mode #[256 "\301 \302=\203 ?\202\303!\304V\211\203!\305\306\307\310\211$\210\202'\311\306\307\310#\210\312\313\2031\314\2022\315\"\210\316\317!\203V\301 \203F\211\301 \232\203V\320\321\322\203Q\323\202R\324#\266\210\325 \210\207" [diff-hl-dir-mode current-message toggle prefix-numeric-value 0 add-hook vc-checkin-hook diff-hl-dir-update t remove-hook run-hooks diff-hl-dir-mode-hook diff-hl-dir-mode-on-hook diff-hl-dir-mode-off-hook called-interactively-p any " in current buffer" message "Diff-Hl-Dir mode %sabled%s" "en" "dis" force-mode-line-update] 8 (#$ . 17244) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
(defvar diff-hl-dir-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\311\211%\207" [diff-hl-dir-mode-map diff-hl-dir-mode-hook variable-documentation put "Hook run after entering or leaving `diff-hl-dir-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" add-minor-mode diff-hl-dir-mode "" boundp nil] 6)
#@74 Turn on `diff-hl-mode' or `diff-hl-dir-mode' in a buffer if appropriate.
(defalias 'turn-on-diff-hl-mode #[0 "\203\302\303!\207    \304=\205\305\303!\207" [buffer-file-name major-mode diff-hl-mode 1 vc-dir-mode diff-hl-dir-mode] 2 (#$ . 18440)])
(defvar diff-hl-mode-major-mode nil)
(byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313\314\315\316\317& \207" [make-variable-buffer-local diff-hl-mode-major-mode custom-declare-variable global-diff-hl-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Global Diff-Hl mode is enabled.\nSee the `global-diff-hl-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `global-diff-hl-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group diff-hl :type boolean] 12)
#@347 Toggle Diff-Hl mode in all buffers.
With prefix ARG, enable Global Diff-Hl mode if ARG is positive;
otherwise, disable it.  If called from Lisp, enable the mode if
ARG is omitted or nil.
 
Diff-Hl mode is enabled in all buffers where
`turn-on-diff-hl-mode' would do it.
See `diff-hl-mode' for more information on Diff-Hl mode.
 
(fn &optional ARG)
(defalias 'global-diff-hl-mode #[256 "\302 \303\300\304=\203\305\300!?\202\306!\307V\"\210\203.\310\311\312\"\210\310\313\314\"\210\310\315\316\"\210\202=\317\311\312\"\210\317\313\314\"\210\317\315\316\"\210\320 \211\203c\211@r\211q\210\203S\321 \210\202[    \203[\301\322!\210)A\266\202\202?\210\323\324\305\300!\203p\325\202q\326\"\210\327\330!\203\233\331\300!\210\302 \203\211\211\302 \232\203\233\332\333\334\305\300!\203\226\335\202\227\336#\266\337 \266\340 \210\305\300!\207" [global-diff-hl-mode diff-hl-mode current-message set-default toggle default-value prefix-numeric-value 0 add-hook after-change-major-mode-hook global-diff-hl-mode-enable-in-buffers find-file-hook global-diff-hl-mode-check-buffers change-major-mode-hook global-diff-hl-mode-cmhh remove-hook buffer-list turn-on-diff-hl-mode -1 run-hooks global-diff-hl-mode-hook global-diff-hl-mode-on-hook global-diff-hl-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Global Diff-Hl mode %sabled%s" "en" "dis" diff-hl-global-mode-change force-mode-line-update] 7 (#$ . 19343) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
(defvar global-diff-hl-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\307\211%\207" [global-diff-hl-mode-map global-diff-hl-mode-hook variable-documentation put "Hook run after entering or leaving `global-diff-hl-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" add-minor-mode global-diff-hl-mode nil boundp] 6)
(defvar diff-hl-mode-set-explicitly nil nil)
(make-variable-buffer-local 'diff-hl-mode-set-explicitly)
(defalias 'diff-hl-mode-set-explicitly #[0 "\301\211\207" [diff-hl-mode-set-explicitly t] 2])
(byte-code "\300\301\302\303#\210\304\305\301\"\207" [put diff-hl-mode-set-explicitly definition-name global-diff-hl-mode add-hook diff-hl-mode-hook] 4)
(defvar global-diff-hl-mode-buffers nil)
(defalias 'global-diff-hl-mode-enable-in-buffers #[0 "\211\2056\211@\305!\203/r\211q\210    \204,\n =\204,\f\203)\304\306!\210\307 \210\202,\307 \210 )A\266\202\202\207" [global-diff-hl-mode-buffers diff-hl-mode-set-explicitly diff-hl-mode-major-mode major-mode diff-hl-mode buffer-live-p -1 turn-on-diff-hl-mode] 4])
(put 'global-diff-hl-mode-enable-in-buffers 'definition-name 'global-diff-hl-mode)
(defalias 'global-diff-hl-mode-check-buffers #[0 "\301 \210\302\303\304\305\"\207" [global-diff-hl-mode-buffers global-diff-hl-mode-enable-in-buffers nil remove-hook post-command-hook global-diff-hl-mode-check-buffers] 3])
(put 'global-diff-hl-mode-check-buffers 'definition-name 'global-diff-hl-mode)
(defalias 'global-diff-hl-mode-cmhh #[0 "\300\301p\"\210\302\303\304\"\207" [add-to-list global-diff-hl-mode-buffers add-hook post-command-hook global-diff-hl-mode-check-buffers] 3])
(put 'global-diff-hl-mode-cmhh 'definition-name 'global-diff-hl-mode)
(defalias 'diff-hl-global-mode-change #[0 "?\205#\302 \211\205!\211@r\211q\210    \203\301\303!\210)A\266\202\202\262\207" [global-diff-hl-mode diff-hl-dir-mode buffer-list -1] 4])
(provide 'diff-hl)