;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\202s r q\210\314\211 \3151g \n\316\317\320!! \321\216rq\210p r 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)
|
