mirror of https://github.com/Chizi123/.emacs.d.git
view | history | commit | commitdiff
Chizi123
2018-11-18 8f6f2705a38e2515b6c57fda12c5be29fb9a798f
commit | author | age
5cb5f7 1 ;ELC
C 2 ;;; Compiled
3 ;;; in Emacs version 26.1
4 ;;; with all optimizations.
5
6 ;;; This file uses dynamic docstrings, first added in Emacs 19.29.
7
8 ;;; This file does not contain utf-8 non-ASCII characters,
9 ;;; and so can be loaded in Emacs versions earlier than 23.
10
11 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
12 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
13
14
15 (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)
16 #@59 Revision to diff against.  nil means the most recent one.
17 (defvar diff-hl-reference-revision nil (#$ . 2707))
18 (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])
19 (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])
20 (defvar diff-hl-spec-cache (make-hash-table :test 'equal))
21 #@22 
22
23 (fn TYPE POS SIDE)
24 (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)])
25 #@17 
26
27 (fn TYPE POS)
28 (defalias 'diff-hl-fringe-face-from-type #[514 "\300\301\302\"!\207" [intern format "diff-hl-%s"] 6 (#$ . 4485)])
29 #@17 
30
31 (fn TYPE POS)
32 (defalias 'diff-hl-fringe-bmp-from-pos #[514 "\300\301\302\"!\207" [intern format "diff-hl-bmp-%s"] 6 (#$ . 4622)])
33 #@17 
34
35 (fn TYPE POS)
36 (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)])
37 #@13 
38
39 (fn BODY)
40 (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)]))
41 #@14 
42
43 (fn STATE)
44 (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)])
45 #@21 
46
47 (fn FILE BACKEND)
48 (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)])
49 (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])
50 (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])
51 #@19 
52
53 (fn TYPE SHAPE)
54 (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)])
55 #@23 
56
57 (fn OVL TYPE SHAPE)
58 (defalias 'diff-hl-highlight-on-fringe #[771 "\301\302\303##\207" [diff-hl-side overlay-put before-string diff-hl-fringe-spec] 10 (#$ . 8013)])
59 #@26 
60
61 (fn &optional BEG END)
62 (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)])
63 #@104 Delete the hunk overlay and all our line overlays inside it.
64
65 (fn OV AFTER-P BEG END &optional LENGTH)
66 (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)])
67 (defvar diff-hl-timer nil)
68 #@79 DTRT when we've `undo'-ne the buffer into unmodified state.
69
70 (fn BEG END LEN)
71 (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)])
72 #@15 
73
74 (fn BUFFER)
75 (defalias 'diff-hl-after-undo #[257 "r\211q\210\300 ?\205\f\301 )\207" [buffer-modified-p diff-hl-update] 2 (#$ . 9042)])
76 #@70 Run VC diff command and go to the line corresponding to the current.
77 (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])
78 #@135 In `diff-mode', skip to the hunk and line corresponding to LINE
79 in the source file, or the last line of the hunk above it.
80
81 (fn LINE)
82 (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)])
83 #@58 Revert the diff hunk with changes at or above the point.
84 (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])
85 #@12 
86
87 (fn POS)
88 (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)])
89 #@86 Go to the beginning of the next hunk in the current buffer.
90
91 (fn &optional BACKWARD)
92 (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])
93 #@65 Go to the beginning of the previous hunk in the current buffer.
94 (defalias 'diff-hl-previous-hunk #[0 "\300\301!\207" [diff-hl-next-hunk t] 2 (#$ . 12450) nil])
95 (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])
96 (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))
97 (fset 'diff-hl-command-map diff-hl-command-map)
98 #@110 Mode line lighter for Diff Hl.
99
100 The value of this variable is a mode line template as in
101 `mode-line-format'.
102 (defvar diff-hl-lighter "" (#$ . 13091))
103 #@93 Non-nil if Diff-Hl mode is enabled.
104 Use the command `diff-hl-mode' to change this variable.
105 (defvar diff-hl-mode nil (#$ . 13247))
106 (make-variable-buffer-local 'diff-hl-mode)
107 #@50 Toggle VC diff highlighting.
108
109 (fn &optional ARG)
110 (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)])
111 (defvar diff-hl-mode-hook nil)
112 (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)
113 #@28 Keymap for `diff-hl-mode'.
114 (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))
115 (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)
116 (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])
117 (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])
118 #@101 Non-nil if Diff-Hl-Dir mode is enabled.
119 Use the command `diff-hl-dir-mode' to change this variable.
120 (defvar diff-hl-dir-mode nil (#$ . 17048))
121 (make-variable-buffer-local 'diff-hl-dir-mode)
122 #@82 Toggle `diff-hl-mode' integration in a `vc-dir-mode' buffer.
123
124 (fn &optional ARG)
125 (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)])
126 (defvar diff-hl-dir-mode-hook nil)
127 (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)
128 #@74 Turn on `diff-hl-mode' or `diff-hl-dir-mode' in a buffer if appropriate.
129 (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)])
130 (defvar diff-hl-mode-major-mode nil)
131 (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)
132 #@347 Toggle Diff-Hl mode in all buffers.
133 With prefix ARG, enable Global Diff-Hl mode if ARG is positive;
134 otherwise, disable it.  If called from Lisp, enable the mode if
135 ARG is omitted or nil.
136
137 Diff-Hl mode is enabled in all buffers where
138 `turn-on-diff-hl-mode' would do it.
139 See `diff-hl-mode' for more information on Diff-Hl mode.
140
141 (fn &optional ARG)
142 (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)])
143 (defvar global-diff-hl-mode-hook nil)
144 (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)
145 (defvar diff-hl-mode-set-explicitly nil nil)
146 (make-variable-buffer-local 'diff-hl-mode-set-explicitly)
147 (defalias 'diff-hl-mode-set-explicitly #[0 "\301\211\207" [diff-hl-mode-set-explicitly t] 2])
148 (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)
149 (defvar global-diff-hl-mode-buffers nil)
150 (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])
151 (put 'global-diff-hl-mode-enable-in-buffers 'definition-name 'global-diff-hl-mode)
152 (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])
153 (put 'global-diff-hl-mode-check-buffers 'definition-name 'global-diff-hl-mode)
154 (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])
155 (put 'global-diff-hl-mode-cmhh 'definition-name 'global-diff-hl-mode)
156 (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])
157 (provide 'diff-hl)