| commit | author | age | ||
| 5cb5f7 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (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) | |
| 16 | (defvar diff-hl-flydiff-modified-tick 0) | |
| 17 | (defvar diff-hl-flydiff-timer nil) | |
| 18 | (make-variable-buffer-local 'diff-hl-flydiff-modified-tick) | |
| 19 | (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]) | |
| 20 | #@48 Git-specific version of `vc-working-revision'. | |
| 21 | (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)]) | |
| 22 | #@70 Return a string for `vc-mode-line' to put in the mode line for FILE. | |
| 23 | (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)]) | |
| 24 | (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) | |
| 25 | #@49 Like vc-working-revision, but always up-to-date | |
| 26 | (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)]) | |
| 27 | #@161 Return a backup file name for REV or the current version of FILE. | |
| 28 | If MANUAL is non-nil it means that a name for backups created by | |
| 29 | the user should be returned. | |
| 30 | (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)]) | |
| 31 | #@60 Read REVISION of FILE into a buffer and return the buffer. | |
| 32 | (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)]) | |
| 33 | #@131 View the differences between BUFFER and its associated file. | |
| 34 | This requires the external program `diff' to be in your `exec-path'. | |
| 35 | (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]) | |
| 36 | (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]) | |
| 37 | (defalias 'diff-hl-flydiff/modified-p #[(state) "\300 \207" [buffer-modified-p] 1]) | |
| 38 | #@281 Non-nil if Diff-Hl-Flydiff mode is enabled. | |
| 39 | See the `diff-hl-flydiff-mode' command | |
| 40 | for a description of this minor mode. | |
| 41 | Setting this variable directly does not take effect; | |
| 42 | either customize it (see the info node `Easy Customization') | |
| 43 | or call the function `diff-hl-flydiff-mode'. | |
| 44 | (custom-declare-variable 'diff-hl-flydiff-mode nil '(#$ . 4881) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'diff-hl-flydiff :type 'boolean) | |
| 45 | #@100 Perform highlighting on-the-fly. | |
| 46 | This is a global minor mode. It alters how `diff-hl-mode' works. | |
| 47 | (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))]) | |
| 48 | (defvar diff-hl-flydiff-mode-hook nil) | |
| 49 | (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) | |
