;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (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 nil) (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 (#$ . 1023)]) #@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 (#$ . 1232)]) (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 (#$ . 2049)]) #@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 (#$ . 2293)]) #@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\210\202r\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) generate-new-buffer " *temp file*" t #[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 (#$ . 2785)]) #@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) "\305 \210\306 r\307\310!\203\310\202 \311\n \206\312\n!\"\313\fp\314\315\316\317!%+\207" [diff-hl-flydiff-modified-tick temporary-file-directory file diff-hl-reference-revision rev vc-ensure-vc-buffer buffer-chars-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 (#$ . 3598) nil]) (defalias 'diff-hl-flydiff-update #[nil "?\206 \304 =\206\n?\206\305\n!?\206\306 !?\205!\307 \207" [diff-hl-mode diff-hl-flydiff-modified-tick buffer-file-name default-directory buffer-chars-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 '(#$ . 4592) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :type 'boolean) #@661 Perform highlighting on-the-fly. This is a global minor mode. It alters how `diff-hl-mode' works. This is a minor mode. If called interactively, toggle the `Diff-Hl-Flydiff mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `(default-value 'diff-hl-flydiff-mode)'. The mode's hook is called both when the mode is enabled and when it is disabled. (defalias 'diff-hl-flydiff-mode #[(&optional arg) "\306 \307\303 \310=\203\311\303!?\202\" \247\203! \312W\203!\313\202\"\314\"\210\315\302!\2039\316\303\n\"\311\303!\2039\303\nB \203X\317\320\321\322#\210\317\323\324\325#\210\317\326\321\327#\210\330\f\314\331#\202o\332\320\322\"\210\332\323\325\"\210\332\326\327\"\210 \203o\333 !\210\334\335\311\303!\203{\336\202|\337\"\210\340\341!\203\251\342\303!\210\306 \203\224\306 \232\203\251\343)\344\345\311\303!\203\243\346\202\244\347)#\210))\350 \210\311\303!\207" [#1=#:last-message arg global-minor-modes diff-hl-flydiff-mode diff-hl-flydiff-delay diff-hl-flydiff-timer current-message set-default toggle default-value 1 nil t boundp delq 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 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 local] 4 (#$ . 5026) (list (if current-prefix-arg (prefix-numeric-value current-prefix-arg) 'toggle))]) (defvar diff-hl-flydiff-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\314\300!\205#\310\211%\210\315\316!\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.)" custom-type hook standard-value nil add-minor-mode diff-hl-flydiff-mode "" boundp provide diff-hl-flydiff] 6)