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

Chizi123
2018-11-17 5cb5f70b1872a757e93ea333b0e2dca50c6c8957
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
;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!\207" [require cl-lib diff-hl diff-hl-dired] 2)
(defvar diff-hl-margin-old-highlight-function nil)
(byte-code "\300\301\302\303\304\305%\210\306\307\310\311#\210\306\312\313\314#\210\306\315\316\317#\210\306\320\321\317#\210\306\322\323\317#\210\324\325\326\327\330DD\331\332\333\334\335&\210\324\336\326\327\337DD\340\334\341\342\343\304\301\332\344& \207" [custom-declare-group diff-hl-margin nil "Highlight buffer changes on margin" :group diff-hl custom-declare-face diff-hl-margin-insert ((default :inherit diff-hl-insert)) "Face used to highlight inserted lines on the margin." diff-hl-margin-delete ((default :inherit diff-hl-delete)) "Face used to highlight deleted lines on the margin." diff-hl-margin-change ((default :inherit diff-hl-change)) "Face used to highlight changed lines on the margin." diff-hl-margin-ignored ((default :inherit dired-ignored)) diff-hl-margin-unknown ((default :inherit dired-ignored)) custom-declare-variable diff-hl-margin-symbols-alist funcall function #[0 "\300\207" [((insert . "+") (delete . "-") (change . "!") (unknown . "?") (ignored . "i"))] 1] "Associative list from symbols to strings." :type (alist :key-type symbol :value-type string :options (insert delete change unknown ignored)) :set #[514 "\301\"\210\302\211\207" [diff-hl-margin-spec-cache set-default nil] 5 "\n\n(fn SYMBOL VALUE)"] diff-hl-margin-mode #[0 "\300\207" [nil] 1] "Non-nil if Diff-Hl-Margin mode is enabled.\nSee the `diff-hl-margin-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 `diff-hl-margin-mode'." custom-set-minor-mode :initialize custom-initialize-default boolean] 12)
#@80 Toggle displaying `diff-hl-mode' highlights on the margin.
 
(fn &optional ARG)
(defalias 'diff-hl-margin-mode #[256 "\303 \304\300\305=\203\306\300!?\202\307!\310V\"\210\2033\311\312\313\"\210\311\314\315\"\210\311\316\313\"\210\311\317\315\"\210\202G\320\312\313\"\210\320\314\315\"\210\320\316\313\"\210\320\317\315\"\210\321 \211\203\204\211@r\211q\210    \203i\313\203`\322\202a\323!\210\324 \210\202|\n\203|\313\203v\322\202w\323!\210\325 \210)A\266\202\202I\210\326\327\306\300!\203\221\330\202\222\331\"\210\332\333!\203\274\334\300!\210\303 \203\252\211\303 \232\203\274\335\336\337\306\300!\203\267\340\202\270\341#\266\210\342 \210\306\300!\207" [diff-hl-margin-mode diff-hl-mode diff-hl-dired-mode current-message set-default toggle default-value prefix-numeric-value 0 add-hook diff-hl-mode-on-hook diff-hl-margin-minor-mode diff-hl-mode-off-hook diff-hl-margin-minor-mode-off diff-hl-dired-mode-on-hook diff-hl-dired-mode-off-hook remove-hook buffer-list 1 -1 diff-hl-update diff-hl-dired-update run-hooks diff-hl-margin-mode-hook diff-hl-margin-mode-on-hook diff-hl-margin-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Diff-Hl-Margin mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 2202) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
(defvar diff-hl-margin-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-margin-mode-map diff-hl-margin-mode-hook variable-documentation put "Hook run after entering or leaving `diff-hl-margin-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-margin-mode "" boundp nil] 6)
#@119 Non-nil if Diff-Hl-Margin minor mode is enabled.
Use the command `diff-hl-margin-minor-mode' to change this variable.
(defvar diff-hl-margin-minor-mode nil (#$ . 3988))
(make-variable-buffer-local 'diff-hl-margin-minor-mode)
#@139 Toggle displaying `diff-hl-mode' highlights on the margin locally.
You probably shouldn't use this function directly.
 
(fn &optional ARG)
(defalias 'diff-hl-margin-minor-mode #[256 "\304 \305=\203 ?\202\306!\307V\310\311\312    \"!\2030\313\303!\210\n\313\302!\210\314\211\315L\210\2028 \316\211\307L\210\210\317 \211\203M\211@\320p\"\210A\266\202\202;\210\321\322\203X\323\202Y\324\"\210\325\326!\203}\304 \203m\211\304 \232\203}\327\330\331\203x\332\202y\333#\266\210\334 \210\207" [diff-hl-margin-minor-mode diff-hl-side diff-hl-highlight-function diff-hl-margin-old-highlight-function current-message toggle prefix-numeric-value 0 intern format "%s-margin-width" make-local-variable diff-hl-highlight-on-margin 1 nil get-buffer-window-list set-window-buffer run-hooks diff-hl-margin-minor-mode-hook diff-hl-margin-minor-mode-on-hook diff-hl-margin-minor-mode-off-hook called-interactively-p any " in current buffer" message "Diff-Hl-Margin minor mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 4220) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
(defvar diff-hl-margin-minor-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\311\211%\210\312\313\314\311#\210\315\211\203B\211@\313N\203;\314N\204;\303\314\313N#\210A\266\202\202!\210\316\313\314\317#\207" [diff-hl-margin-minor-mode-map diff-hl-margin-minor-mode-hook variable-documentation put "Hook run after entering or leaving `diff-hl-margin-minor-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-margin-minor-mode "" boundp nil defvaralias diff-hl-margin-side diff-hl-side (saved-value saved-variable-comment) make-obsolete-variable "1.7.1"] 7)
(defalias 'diff-hl-margin-minor-mode-off #[0 "\300\301!\207" [diff-hl-margin-minor-mode -1] 2])
(defvar diff-hl-margin-spec-cache nil)
(defalias 'diff-hl-margin-spec-cache #[0 "\206\301 \211\207" [diff-hl-margin-spec-cache diff-hl-margin-build-spec-cache] 2])
(defalias 'diff-hl-margin-build-spec-cache #[0 "\301\211\211:\203Z@\262\211A\262\242\262\302\301\211:\203J@\262B\303\304\305\306\307\310\311    \"!D\303 \312\307\310\313\"!#D#BB\262A\262\202\211\237\266\203\237\244\262A\262\202\211\237\207" [diff-hl-margin-symbols-alist nil (left right) propertize " " display margin intern format "%s-margin" face "diff-hl-margin-%s"] 19])
#@23 
 
(fn OVL TYPE SHAPE)
(defalias 'diff-hl-highlight-on-margin #[771 "\301B\302 \"A\303\304#\207" [diff-hl-side assoc diff-hl-margin-spec-cache overlay-put before-string] 8 (#$ . 6712)])
(provide 'diff-hl-margin)