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

Chizi123
2018-11-18 8f6f2705a38e2515b6c57fda12c5be29fb9a798f
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
;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\304\305#\204\306\307!\210\310\311\304\312\313\301%\210\314\315\316\317\320\321%\207" [require diff-hl diff nadvice nil t error "`diff-hl-flydiff-mode' requires Emacs 24.4 or newer" custom-declare-group diff-hl-flydiff "Highlight changes on the fly" :group custom-declare-variable diff-hl-flydiff-delay 0.3 "The idle delay in seconds before highlighting is updated." :type number] 6)
(defvar diff-hl-flydiff-modified-tick 0)
(defvar diff-hl-flydiff-timer nil)
(make-variable-buffer-local 'diff-hl-flydiff-modified-tick)
(defalias 'diff-hl-flydiff/vc-git--symbolic-ref #[(file) "\303\304\"\206'\305\306\305\307\310#\311\304\n\205%\312\313\n\"\203$\314\315\n\"\202%\n#*\207" [file process-file-side-effects str vc-file-getprop vc-git-symbolic-ref nil vc-git--run-command-string "symbolic-ref" "HEAD" vc-file-setprop string-match "^\\(refs/heads/\\)?\\(.+\\)$" match-string 2] 6])
#@48 Git-specific version of `vc-working-revision'.
(defalias 'diff-hl-flydiff/vc-git-working-revision #[(_file) "\301\302\303!)\207" [process-file-side-effects nil vc-git--rev-parse "HEAD"] 2 (#$ . 1342)])
#@70 Return a string for `vc-mode-line' to put in the mode line for FILE.
(defalias 'diff-hl-flydiff/vc-git-mode-line-string #[(file) "\306!\307!\206    \310\311O\312\313\"\314\310\304 #\314\310\305 #\315\316    \317P\n \320\211%\305 \304\f\321    Q%-\207" [file rev disp-rev def-ml help-echo face vc-working-revision diff-hl-flydiff/vc-git--symbolic-ref 0 7 vc-default-mode-line-string Git get-text-property propertize replace-regexp-in-string "\\'" t "\nCurrent revision: "] 8 (#$ . 1551)])
(byte-code "\301\302\"\203\f\303\304\305\"\210\301\207" [emacs-version version<= "25.0" eval-after-load vc-git #[nil "\300\301\302\303#\210\300\304\302\305#\207" [advice-add vc-git-working-revision :override diff-hl-flydiff/vc-git-working-revision vc-git-mode-line-string diff-hl-flydiff/vc-git-mode-line-string] 4]] 3)
#@49 Like vc-working-revision, but always up-to-date
(defalias 'diff-hl-flydiff/working-revision #[(file) "\301\302\303\304!\305##\207" [file vc-file-setprop vc-working-revision vc-call-backend vc-backend working-revision] 7 (#$ . 2368)])
#@161 Return a backup file name for REV or the current version of FILE.
If MANUAL is non-nil it means that a name for backups created by
the user should be returned.
(defalias 'diff-hl-flydiff-make-temp-file-name #[(file rev &optional manual) "\304\305BBC\306\307 \310\311\312\313\n# ?\205\314\315\260\")\207" [temporary-file-directory auto-save-file-name-transforms rev manual ".*" (t) expand-file-name make-auto-save-file-name ".~" subst-char-in-string 47 95 "." "~"] 7 (#$ . 2612)])
#@60 Read REVISION of FILE into a buffer and return the buffer.
(defalias 'diff-hl-flydiff-create-revision #[(file revision) "\306    \"\307!\306    \310#\311\n!\204s\311\f!\203$\312\f\n\313#\210\202sr q\210\314\211\3151g\n\316\317\320!!\321\216rq\210pr q\210\322\323!\324    %+rq\210\325\313\211\313\326%\210,0\202q\210\311\n!\203r\327\n!\210+\n+\207" [file revision filename filebuf automatic-backup coding-system-for-write diff-hl-flydiff-make-temp-file-name get-file-buffer manual file-exists-p rename-file nil no-conversion (error) get-buffer-create generate-new-buffer-name " *temp file*" #[nil "\301!\205    \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] vc-call-backend vc-backend find-revision write-region 0 delete-file coding-system-for-read #1# #2=#:temp-file outbuf] 7 (#$ . 3104)])
#@131 View the differences between BUFFER and its associated file.
This requires the external program `diff' to be in your `exec-path'.
(defalias 'diff-hl-flydiff-buffer-with-head #[(file &optional backend) "\304 \210\305 r\306\307!\203\307\202    \310\n\311\n!\"\312 p\313\314\315\316!%+\207" [diff-hl-flydiff-modified-tick temporary-file-directory file rev vc-ensure-vc-buffer buffer-modified-tick file-directory-p "/dev/shm/" diff-hl-flydiff-create-revision diff-hl-flydiff/working-revision diff-no-select "-U 0 --strip-trailing-cr" noasync get-buffer-create " *diff-hl-diff*"] 7 (#$ . 3934) nil])
(defalias 'diff-hl-flydiff-update #[nil "?\206    \304 U\206\n?\206\305\n!?\206\306 !?\205!\307 \207" [diff-hl-mode diff-hl-flydiff-modified-tick buffer-file-name default-directory buffer-modified-tick file-exists-p file-remote-p diff-hl-update] 2])
(defalias 'diff-hl-flydiff/modified-p #[(state) "\300 \207" [buffer-modified-p] 1])
#@281 Non-nil if Diff-Hl-Flydiff mode is enabled.
See the `diff-hl-flydiff-mode' command
for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `diff-hl-flydiff-mode'.
(custom-declare-variable 'diff-hl-flydiff-mode nil '(#$ . 4881) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'diff-hl-flydiff :type 'boolean)
#@100 Perform highlighting on-the-fly.
This is a global minor mode.  It alters how `diff-hl-mode' works.
(defalias 'diff-hl-flydiff-mode #[(&optional arg) "\306 \307\302    \310=\203\311\302!?\202\312    !\313V\"\210\n\2038\314\315\316\317#\210\314\320\321\322#\210\314\323\316\324#\210\325 \326\327#\202O\330\315\317\"\210\330\320\322\"\210\330\323\324\"\210\f\203O\331\f!\210\332\333\311\302!\203[\334\202\\\335\"\210\336\337!\203\207\340\302!\210\306 \203t\306 \232\203\207\341\342\343\311\302!\203\202\344\202\203\345 #\210))\346 \210\311\302!\207" [#1=#:last-message arg diff-hl-flydiff-mode diff-hl-flydiff-delay diff-hl-flydiff-timer local current-message set-default toggle default-value prefix-numeric-value 0 advice-add diff-hl-overlay-modified :override ignore diff-hl-modified-p :before-until diff-hl-flydiff/modified-p diff-hl-changes-buffer diff-hl-flydiff-buffer-with-head run-with-idle-timer t diff-hl-flydiff-update advice-remove cancel-timer run-hooks diff-hl-flydiff-mode-hook diff-hl-flydiff-mode-on-hook diff-hl-flydiff-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Diff-Hl-Flydiff mode %sabled%s" "en" "dis" force-mode-line-update] 4 (#$ . 5339) (list (or current-prefix-arg 'toggle))])
(defvar diff-hl-flydiff-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!\207" [diff-hl-flydiff-mode-map diff-hl-flydiff-mode-hook variable-documentation put "Hook run after entering or leaving `diff-hl-flydiff-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-flydiff-mode "" boundp nil provide diff-hl-flydiff] 6)