;ELC ;;; Compiled ;;; in Emacs version 25.3.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 (#$ . 1344)]) #@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 (#$ . 1553)]) (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 (#$ . 2370)]) #@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 (#$ . 2614)]) #@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 (#$ . 3106)]) #@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 (#$ . 3936) nil]) (defalias 'diff-hl-flydiff-update #[nil "?\206 \303 U\206\304\n!?\205\305 \207" [diff-hl-mode diff-hl-flydiff-modified-tick default-directory buffer-modified-tick 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 '(#$ . 4830) :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 (#$ . 5288) (list (or current-prefix-arg 'toggle))]) #@185 Hook run after entering or leaving `diff-hl-flydiff-mode'. No problems result if this variable is not bound. `add-hook' automatically binds it. (This is true for all hook variables.) (defvar diff-hl-flydiff-mode-hook nil (#$ . 6539)) (byte-code "\301\302\303\304\300!\205\n\305\211%\210\306\307!\207" [diff-hl-flydiff-mode-map add-minor-mode diff-hl-flydiff-mode "" boundp nil provide diff-hl-flydiff] 6)