;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311\303%\210\312\313\314\315\311\306%\210\312\316\317\320\311\306%\210\312\321\322\323\311\306%\210\324\325\326\327\330DD\331\311\306\332\333&\210\324\334\326\327\335DD\336\311\306\332\337&\210\324\340\326\327\341DD\342\311\306\332\337&\210\324\343\326\327\344DD\345\311\306\332\327&\210\324\346\326\327\347DD\350\311\306\332\351&\210\324\352\326\327\353DD\354\311\306\332\327&\210\324\355\326\327\356DD\357\332\360\361\362&\210\324\363\326\327\364DD\365\332\366%\210\324\367\326\327\370DD\371\332\372\311\306&\207" [require fringe diff-mode vc vc-dir custom-declare-group diff-hl nil "VC diff highlighting on the side of a window" :group custom-declare-face diff-hl-insert ((default :inherit diff-added) (((class color)) :foreground "green4")) "Face used to highlight inserted lines." diff-hl-delete ((default :inherit diff-removed) (((class color)) :foreground "red3")) "Face used to highlight deleted lines." diff-hl-change ((default :foreground "blue3") (((class color) (min-colors 88) (background light)) :background "#ddddff") (((class color) (min-colors 88) (background dark)) :background "#333355")) "Face used to highlight changed lines." custom-declare-variable diff-hl-command-prefix funcall function #[0 "\300\207" ["v"] 1] "The prefix for all `diff-hl' commands." :type string diff-hl-draw-borders #[0 "\300\207" [t] 1] "Non-nil to draw borders around fringe indicators." boolean diff-hl-ask-before-revert-hunk #[0 "\300\207" [t] 1] "Non-nil to ask for confirmation before revert a hunk." diff-hl-highlight-function #[0 "\300\207" [diff-hl-highlight-on-fringe] 1] "Function to highlight the current line. Its arguments are\n overlay, change type and position within a hunk." diff-hl-fringe-bmp-function #[0 "\300\207" [diff-hl-fringe-bmp-from-pos] 1] "Function to choose the fringe bitmap for a given change type\n and position within a hunk. Should accept two arguments." (choice (const diff-hl-fringe-bmp-from-pos) (const diff-hl-fringe-bmp-from-type) function) diff-hl-fringe-face-function #[0 "\300\207" [diff-hl-fringe-face-from-type] 1] "Function to choose the fringe face for a given change type\n and position within a hunk. Should accept two arguments." diff-hl-side #[0 "\300\207" [left] 1] "Which side to use for indicators." (choice (const left) (const right)) :set #[514 "\301\300!\205\211\203\300\302!\210\303\"\210\211\205\300\304!\207" [global-diff-hl-mode boundp -1 set-default 1] 6 "\n\n(fn VAR VALUE)"] diff-hl-highlight-revert-hunk-function #[0 "\300\207" [diff-hl-revert-highlight-first-column] 1] "Function to highlight the current hunk in `diff-hl-revert-hunk'.\nThe function is called at the beginning of the hunk and passed\nthe end position as its only argument." (choice (const :tag "Do nothing" ignore) (const :tag "Highlight the first column" diff-hl-revert-highlight-first-column)) diff-hl-global-modes #[0 "\300\207" [(not image-mode)] 1] "Modes for which `diff-hl-mode' is automagically turned on.\nThis affects the behavior of `global-diff-hl-mode'.\nIf nil, no modes have `diff-hl-mode' automatically turned on.\nIf t, all modes have `diff-hl-mode' enabled.\nIf a list, it should be a list of `major-mode' symbol names for\nwhich it should be automatically turned on. The sense of the list\nis negated if it begins with `not'. As such, the default value\n (not image-mode)\nmeans that `diff-hl-mode' is turned on in all modes except for\n`image-mode' buffers. Previously, `diff-hl-mode' caused worse\nperformance when viewing such files in certain conditions." (choice (const :tag "none" nil) (const :tag "all" t) (set :menu-tag "mode specific" :tag "modes" :value (not) (const :tag "Except" not) (repeat :inline t (symbol :tag "mode"))))] 8) #@59 Revision to diff against. nil means the most recent one. (defvar diff-hl-reference-revision nil (#$ . 3881)) (defalias 'diff-hl-define-bitmaps #[0 "\303\300!\203\247\203\304 \"\202\305\306 \203\307\310!\206\311\312\313 _!\314!\2034\315\313 _!\2025\\\316\317\320\321\322\n\"!\"\323^\317\311U\203K\323\262\324\304\325S\"\"\304\325\"S\326!\326!\326!\311I\210SI\210\211\311I\210\211SI\210\327\330\n\n\331%\210\327\332\n\n\333%\210\327\334\n\n\335%\210\327\336\n\n\331%\210\327\337\340\317\325\333%\210\325\245\325_\211\311U\203\272\325\202\273\211\304\325S\"\325Z\325\245S\304\325\"\324\341_\"\327\342\324\325\"\211$\210\211\311\211I\210\211I\210\211TI\210\211S\311I\210\327\343\211$\207" [text-scale-mode-amount text-scale-mode-step diff-hl-side boundp expt 1 display-graphic-p default-value line-spacing 0 ceiling frame-char-height floatp truncate frame-parameter nil intern format "%s-fringe" 16 make-vector 2 copy-sequence define-fringe-bitmap diff-hl-bmp-top top diff-hl-bmp-middle center diff-hl-bmp-bottom bottom diff-hl-bmp-single diff-hl-bmp-i [3 3 0 3 3 3 3 3 3 3] 3 diff-hl-bmp-delete diff-hl-bmp-insert] 21]) (defalias 'diff-hl-maybe-define-bitmaps #[0 "\300 \205\301\302!?\205\303 \210\304\302\305\306\211\307%\207" [window-system fringe-bitmap-p diff-hl-bmp-empty diff-hl-define-bitmaps define-fringe-bitmap [0] 1 center] 6]) (defalias 'diff-hl-maybe-redefine-bitmaps #[0 "\300 \205\301 \207" [window-system diff-hl-define-bitmaps] 1]) (defvar diff-hl-spec-cache (make-hash-table :test 'equal)) #@22 (fn TYPE POS SIDE) (defalias 'diff-hl-fringe-spec #[771 " \257\303\n\"\211\2042\" \"\304\305\306\307\310\311\n\"!EC#\262\312\n#\266\207" [diff-hl-fringe-face-function diff-hl-fringe-bmp-function diff-hl-spec-cache gethash propertize " " display intern format "%s-fringe" puthash] 14 (#$ . 5470)]) #@17 (fn TYPE POS) (defalias 'diff-hl-fringe-face-from-type #[514 "\300\301\302\"!\207" [intern format "diff-hl-%s"] 6 (#$ . 5797)]) #@17 (fn TYPE POS) (defalias 'diff-hl-fringe-bmp-from-pos #[514 "\300\301\302\"!\207" [intern format "diff-hl-bmp-%s"] 6 (#$ . 5934)]) #@17 (fn TYPE POS) (defalias 'diff-hl-fringe-bmp-from-type #[514 "\300\267\202\f\301\207\302\207\303\207\304\305\306\"!\207" [#s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (unknown 6 change 8 ignored 10)) question-mark exclamation-mark diff-hl-bmp-i intern format "diff-hl-bmp-%s"] 6 (#$ . 6073)]) #@13 (fn BODY) (defalias 'diff-hl-with-diff-switches '(macro . #[257 "\300\301\302\303\304\305\306!\205\f\307BBBBE\207" [let (vc-git-diff-switches (cons "-U0" (and (boundp 'vc-git-diff-switches) (listp vc-git-diff-switches) (cl-remove-if-not (lambda (arg) (member arg '("--histogram" "--patience" "--minimal"))) vc-git-diff-switches)))) (vc-hg-diff-switches nil) (vc-svn-diff-switches nil) (vc-diff-switches '("-U0")) boundp vc-disable-async-diff ((vc-disable-async-diff t))] 8 (#$ . 6416)])) #@14 (fn STATE) (defalias 'diff-hl-modified-p #[257 "\211\302>\206\211\303=\205\206 \207" [revert-buffer-in-progress-p diff-hl-reference-revision (edited conflict) up-to-date] 3 (#$ . 6914)]) #@21 (fn FILE BACKEND) (defalias 'diff-hl-changes-buffer #[514 "\3061,\307\310\300!\205<\205\311\312\"B\313\211\314\315\316C\f\313\317&,0\210\202c\320\321!\313\322\323#)\266\203\205a\307\310\300!\205N<\205N\311\324\"B\313\211\314\315\316C\325\313\317&,\266\317\207" [vc-git-diff-switches vc-diff-switches vc-svn-diff-switches vc-hg-diff-switches diff-hl-reference-revision inhibit-changing-match-data (error) "-U0" boundp cl-remove-if-not #[257 "\211\300\235\207" [#1=("--histogram" "--patience" "--minimal")] 3 "\n\n(fn ARG)"] nil ("-U0") vc-call-backend diff " *diff-hl* " "\\`Failed (status 128)" error-message-string t string-match #[257 "\211\300\235\207" [#1#] 3 "\n\n(fn ARG)"] "4b825dc642cb6eb9a060e54bf8d69288fbee4904"] 10 (#$ . 7116)]) (defalias 'diff-hl-changes #[0 "\303!\211\2057\304\"\305!\203\224\306\211r\307\"q\210eb\210m\204\213\3101/\311\312!0\210\2024\210\2024\210\313\n!\203\213\314\315\316!!\315\317!\211\203L\314!\202M\320\262`\321 \210\322\323`#\322\324`#\211\325U\203g\326\202r\325U\203q\327\202r\330\211\327=\203\320\262T\262EB\266\207\2024)\211\237)\262\2025\211\331\267\202\260\320\332d!\333BBC\2025\320\332d!\334BBC\2025\305!\2055\306\211r\307\"q\210eb\210m\204/\3351\323\311\312!0\210\202\330\210\202\330\210\313\n!\203/\314\315\316!!\315\317!\211\203\360\314!\202\361\320\262`\321 \210\322\323`#\322\324`#\211\325U\203 \326\202\325U\203\327\202\330\211\327=\203#\320\262T\262EB\266\207\202\330)\211\237)\262\262\207" [buffer-file-name diff-auto-refine-mode diff-hunk-header-re-unified vc-backend vc-state diff-hl-modified-p nil diff-hl-changes-buffer (error) diff-beginning-of-hunk t looking-at string-to-number match-string 3 4 1 diff-end-of-hunk diff-count-matches "^\\+" "^-" 0 insert delete change #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (added 154 removed 165)) line-number-at-pos (insert) (delete) (error)] 14]) (defalias 'diff-hl-update #[0 "\301 \302\303 \210\212\214~\210eb\210\211\205\264\211@\211\211G\304U\203%\211A\262\242\202,\305\306\307GD\"\211A\262\242\242Zy\210\262`\211\310V\262\203\211\311\204Q\312\202x\302U\203b\nU\203b\313\202x\302U\203l\314\202x\nU\203w\315\202x\316\"\210\302y\210T\262S\262\202>\317`\"\320\321\322\323#\210\321\324\323#\210\321\325#\210\321\326#\210\321\327#\266A\266\202\202\262*\207" [diff-hl-draw-borders diff-hl-changes 1 diff-hl-remove-overlays 3 signal wrong-number-of-arguments (line len type) 0 diff-hl-add-highlighting empty single bottom top middle make-overlay (diff-hl-overlay-modified) overlay-put diff-hl t diff-hl-hunk modification-hooks insert-in-front-hooks insert-behind-hooks] 15]) (defvar diff-hl--modified-tick nil nil) (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local diff-hl--modified-tick put permanent-local t] 4) (defalias 'diff-hl-update-once #[0 "\301 \232?\205\302 \210\301 \211\207" [diff-hl--modified-tick buffer-chars-modified-tick diff-hl-update] 2]) #@19 (fn TYPE SHAPE) (defalias 'diff-hl-add-highlighting #[514 "\301``\"\302\303\304#\210#\210\207" [diff-hl-highlight-function make-overlay overlay-put diff-hl t] 7 (#$ . 10218)]) #@23 (fn OVL TYPE SHAPE) (defalias 'diff-hl-highlight-on-fringe #[771 "\301\302\303##\207" [diff-hl-side overlay-put before-string diff-hl-fringe-spec] 10 (#$ . 10407)]) #@26 (fn &optional BEG END) (defalias 'diff-hl-remove-overlays #[512 "\214~\210\300\206 e\206d\"\211\205'\211@\301\302\"\203 \303!\210A\266\202\202\262)\207" [overlays-in overlay-get diff-hl delete-overlay] 7 (#$ . 10584)]) #@104 Delete the hunk overlay and all our line overlays inside it. (fn OV AFTER-P BEG END &optional LENGTH) (defalias 'diff-hl-overlay-modified #[1284 "?\205\300!\205\301\302!\303!\"\210\304!\207" [overlay-buffer diff-hl-remove-overlays overlay-start overlay-end delete-overlay] 9 (#$ . 10825)]) (defvar diff-hl-timer nil) #@79 DTRT when we've `undo'-ne the buffer into unmodified state. (fn BEG END LEN) (defalias 'diff-hl-edit #[771 "\205 \203\f\302 !\210\303\304\305\306p$\211\207" [undo-in-progress diff-hl-timer cancel-timer run-with-idle-timer 0.01 nil diff-hl-after-undo] 8 (#$ . 11160)]) #@15 (fn BUFFER) (defalias 'diff-hl-after-undo #[257 "r\211q\210\300 ?\205\f\301 )\207" [buffer-modified-p diff-hl-update] 2 (#$ . 11440)]) (defalias 'diff-hl-after-revert #[0 "\205\301 \207" [revert-buffer-preserve-modes diff-hl-update] 1]) (defalias 'diff-hl-diff-goto-hunk-1 #[0 "\301 \210\302 p\303\304\305 \306\304%\210\307\310\311\312\313BB\314D\315BBBB!\207" [diff-hl-reference-revision vc-buffer-sync line-number-at-pos vc-diff-internal t vc-deduce-fileset nil vc-exec-after if (< (line-number-at-pos (point-max)) 3) with-current-buffer ((diff-hl-remove-overlays)) diff-hl-diff-skip-to ((setq vc-sentinel-movepoint (point)))] 8]) #@70 Run VC diff command and go to the line corresponding to the current. (defalias 'diff-hl-diff-goto-hunk #[0 "r\300 \206pq\210\301 )\207" [buffer-base-buffer diff-hl-diff-goto-hunk-1] 1 (#$ . 12089) nil]) #@135 In `diff-mode', skip to the hunk and line corresponding to LINE in the source file, or the last line of the hunk above it. (fn LINE) (defalias 'diff-hl-diff-skip-to #[257 "\301 \210\302\303!\205e\211?\205e\304\305\306!!\305\307!\211\203!\304!\202\"\310\262\\V\2033\301 \266\202\311\262W\203C\312y\266\202ZT\211\211\313V\262\203`\310y\210\303\314!\204G\211S\262\202G\266\202\207" [diff-hunk-header-re-unified diff-hunk-next nil looking-at string-to-number match-string 3 4 1 t -1 0 "^-"] 8 (#$ . 12301)]) (custom-declare-face 'diff-hl-reverted-hunk-highlight '((default :inverse-video t)) "Face used to highlight the first column of the hunk to be reverted.") #@12 (fn END) (defalias 'diff-hl-revert-highlight-first-column #[257 "\301\212`W\205\302``T\303\304$\210\305y\210\202*\207" [inhibit-read-only t font-lock-prepend-text-property font-lock-face diff-hl-reverted-hunk-highlight 1] 6 (#$ . 12998)]) (defalias 'diff-hl-revert-hunk-1 #[0 "\214~\210\301 \210\302\303!p\212\304`!\204\305 \210\306 )\307 \310\311\"\216\312\313\313\211 &\210\314\315\316\317\320\321\322BB\323BBB\315\324\325DE\326\327\330\331\332\333\334\335\336\337\340\341\342\343A@@ED\344BBE\345\321\346BB\347BBBBBBBBBBBBBBB!)\266\204)\207" [diff-hl-reference-revision vc-buffer-sync generate-new-buffer-name "*diff-hl*" diff-hl-hunk-overlay-at diff-hl-previous-hunk line-number-at-pos vc-deduce-fileset make-closure #[0 "\301\300\302\"\207" [V0 quit-windows-on t] 3] vc-diff-internal nil vc-exec-after let (beg-line end-line m-end) when (eobp) with-current-buffer ((diff-hl-remove-overlays)) ((user-error "Buffer is up-to-date")) (diff-auto-refine-mode) diff-hl-diff-skip-to (save-excursion (while (looking-at "[-+]") (forward-line 1)) (setq end-line (line-number-at-pos (point))) (setq m-end (point-marker)) (unless (eobp) (diff-split-hunk))) (unless (looking-at "[-+]") (forward-line -1)) (while (looking-at "[-+]") (forward-line -1)) (setq beg-line (line-number-at-pos (point))) (unless (looking-at "@") (forward-line 1) (diff-split-hunk)) (funcall diff-hl-highlight-revert-hunk-function m-end) (let ((wbh (window-body-height))) (if (>= wbh (- end-line beg-line)) (recenter (/ (+ wbh (- beg-line end-line) 2) 2)) (recenter 1))) (when diff-auto-refine-mode (diff-refine-hunk)) if diff-hl-ask-before-revert-hunk unless yes-or-no-p format "Revert current hunk in %s? " ((user-error "Revert canceled")) (let ((diff-advance-after-apply-hunk nil)) (save-window-excursion (diff-apply-hunk t))) ((save-buffer)) ((message "Hunk reverted"))] 24]) #@58 Revert the diff hunk with changes at or above the point. (defalias 'diff-hl-revert-hunk #[0 "r\300 \206pq\210\301 )\207" [buffer-base-buffer diff-hl-revert-hunk-1] 1 (#$ . 14871) nil]) #@12 (fn POS) (defalias 'diff-hl-hunk-overlay-at #[257 "\300\211T\"\301\211\211:\203-@\262\302\303\"\203\"\262\301\211\262\202#\304\203-A\262\202\207" [overlays-in nil overlay-get diff-hl-hunk t] 8 (#$ . 15064)]) #@86 Go to the beginning of the next hunk in the current buffer. (fn &optional BACKWARD) (defalias 'diff-hl-next-hunk #[256 "\212\3002<\211\203 o\202m?\205;\211\203\301`!\202\302`!b\210\303`!\211\2037\304!`U\2037\305\300\304!\"\210\210\2020)\211\203D\211b\207\306\307!\207" [found previous-overlay-change next-overlay-change diff-hl-hunk-overlay-at overlay-start throw user-error "No further hunks found"] 6 (#$ . 15296) nil]) #@65 Go to the beginning of the previous hunk in the current buffer. (defalias 'diff-hl-previous-hunk #[0 "\300\301!\207" [diff-hl-next-hunk t] 2 (#$ . 15741) nil]) (defalias 'diff-hl-mark-hunk #[0 "\300`!\211\204 \301\302!\210\303!b\210\304\305!\306\307#\207" [diff-hl-hunk-overlay-at user-error "No hunk at point" overlay-start push-mark overlay-end nil t] 5 nil nil]) (defvar diff-hl-command-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\207" [make-sparse-keymap define-key "n" diff-hl-revert-hunk "[" diff-hl-previous-hunk "]" diff-hl-next-hunk] 5)) (fset 'diff-hl-command-map diff-hl-command-map) #@110 Mode line lighter for Diff Hl. The value of this variable is a mode line template as in `mode-line-format'. (defvar diff-hl-lighter "" (#$ . 16378)) #@93 Non-nil if Diff-Hl mode is enabled. Use the command `diff-hl-mode' to change this variable. (defvar diff-hl-mode nil (#$ . 16534)) (make-variable-buffer-local 'diff-hl-mode) #@578 Toggle VC diff highlighting. This is a minor mode. If called interactively, toggle the `Diff-Hl 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 `diff-hl-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'diff-hl-mode #[256 "\303 \304=\203 ?\202\247\203\305W\203\306\202\307\310\301!\2031\311\300 \"\2031\300 B\203{\312 \210\313\314\315\306\307$\210\313\316\317\306\307$\210\313\n\203O\320\202P\321\322\307\211$\210\313\323\315\306\307$\210\313\324\325\306\307$\210\313\326\315\306\307$\210\313\327\315\306\307$\210\313\330\331\306\307$\210\202\256\332\314\315\307#\210\332\316\317\307#\210\332\321\315\307#\210\332\323\315\307#\210\332\324\315\307#\210\332\326\315\307#\210\332\327\315\307#\210\332\330\331\307#\210\333 \210\334\335\203\270\320\202\271\336\"\210\337\340!\203\333\303 \203\315\211\303 \232\203\333\341\342\203\327\343\202\330\344\345#\210\210\346 \210\207" [diff-hl-mode local-minor-modes vc-mode current-message toggle 1 nil t boundp delq diff-hl-maybe-define-bitmaps add-hook after-save-hook diff-hl-update after-change-functions diff-hl-edit diff-hl-mode-on-hook find-file-hook diff-hl-update-once vc-checkin-hook after-revert-hook diff-hl-after-revert magit-revert-buffer-hook magit-not-reverted-hook text-scale-mode-hook diff-hl-maybe-redefine-bitmaps remove-hook diff-hl-remove-overlays run-hooks diff-hl-mode-hook diff-hl-mode-off-hook called-interactively-p any message "Diff-Hl mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 7 (#$ . 16715) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar diff-hl-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\302\300\304\305#\210\302\300\306\307C#\207" [diff-hl-mode-hook variable-documentation put "Hook run after entering or leaving `diff-hl-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] 4) #@28 Keymap for `diff-hl-mode'. (defvar diff-hl-mode-map (byte-code "\301\302BD\303!\203\f\207\211<\203\304!\207\305\306\"\207" [diff-hl-command-prefix ([remap vc-diff] . diff-hl-diff-goto-hunk) diff-hl-command-map keymapp easy-mmode-define-keymap error "Invalid keymap %S"] 4) (#$ . 19117)) (byte-code "\303\304\305\306\211%\210\307\310\306\311#\203)\306C\306C\211\312\313#\240\210\211\242 !\210\314\n\242#\266\306\207" [diff-hl-mode-map diff-hl-command-map diff-hl-command-prefix add-minor-mode diff-hl-mode diff-hl-lighter nil require smartrep t make-closure #[257 "\302\303\304\300\301#\"\207" [V0 V1 map-keymap make-closure #[514 "\211:\203\n\301\242!\207\302!\205\300\303!B\300\242B\240\207" [V0 V1 characterp string] 5 "\n\n(fn EVENT BINDING)"]] 6 "\n\n(fn MAP)"] smartrep-define-key] 7) (defvar diff-hl--magit-unstaged-files nil) (defalias 'diff-hl-magit-pre-refresh #[0 "\301\302!\211\207" [diff-hl--magit-unstaged-files magit-unstaged-files t] 2]) (defalias 'diff-hl-magit-post-refresh #[0 "\302 \303\304\305\"\306\307\310\311!\244\312\"!\"\313\314\315 \211\205\204\211@\316\317\"\203}\320!\204}\301!\203}\321\301!\"\203}\322\301!!\203}r\211q\210 \323!\211\203z\235\203i\324!>\203b\325\"\210\326 \266\202|\324\">\204z\325\"\210\326 \210\266)A\266\202\202\207" [diff-hl--magit-unstaged-files buffer-file-name magit-toplevel mapcar make-closure #[257 "\301\300\"\207" [V0 expand-file-name] 4 "\n\n(fn FILE)"] delete-consecutive-dups sort magit-unstaged-files t string< (up-to-date ignored unregistered) nil buffer-list buffer-local-value diff-hl-mode buffer-modified-p file-in-directory-p file-exists-p vc-backend vc-state vc-state-refresh diff-hl-update] 10]) (defalias 'diff-hl-dir-update #[0 "\300 \203\n\301 \202\f\302 \211\2051\211@\211A\303=\203*\304@!\211\203)r\211q\210\305 \210)\210A\266\202\202\f\207" [vc-dir-marked-files vc-dir-marked-only-files-and-states vc-dir-child-files-and-states up-to-date find-buffer-visiting diff-hl-remove-overlays] 4]) #@101 Non-nil if Diff-Hl-Dir mode is enabled. Use the command `diff-hl-dir-mode' to change this variable. (defvar diff-hl-dir-mode nil (#$ . 21158)) (make-variable-buffer-local 'diff-hl-dir-mode) #@618 Toggle `diff-hl-mode' integration in a `vc-dir-mode' buffer. This is a minor mode. If called interactively, toggle the `Diff-Hl-Dir 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 `diff-hl-dir-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'diff-hl-dir-mode #[256 "\302 \303=\203 ?\202\247\203\304W\203\305\202\306\307\301!\2031\310\300 \"\2031\300 B\203?\311\312\313\306\211$\210\202E\314\312\313\306#\210\315\316\203O\317\202P\320\"\210\321\322!\203r\302 \203d\211\302 \232\203r\323\324\203n\325\202o\326\327#\210\210\330 \210\207" [diff-hl-dir-mode local-minor-modes current-message toggle 1 nil t boundp delq add-hook vc-checkin-hook diff-hl-dir-update remove-hook run-hooks diff-hl-dir-mode-hook diff-hl-dir-mode-on-hook diff-hl-dir-mode-off-hook called-interactively-p any message "Diff-Hl-Dir mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 7 (#$ . 21355) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar diff-hl-dir-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%\207" [diff-hl-dir-mode-map diff-hl-dir-mode-hook variable-documentation put "Hook run after entering or leaving `diff-hl-dir-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-dir-mode "" boundp] 6) #@74 Turn on `diff-hl-mode' or `diff-hl-dir-mode' in a buffer if appropriate. (defalias 'turn-on-diff-hl-mode #[0 "\203\302\303!\207 \304=\205\305\303!\207" [buffer-file-name major-mode diff-hl-mode 1 vc-dir-mode diff-hl-dir-mode] 2 (#$ . 23271)]) #@70 Call `turn-on-diff-hl-mode' if the current major mode is applicable. (defalias 'diff-hl--global-turn-on #[0 "\302=\204\242\303=\203 A>?\202 >\205\304 \207" [diff-hl-global-modes major-mode t not turn-on-diff-hl-mode] 2 (#$ . 23525)]) (put 'global-diff-hl-mode 'globalized-minor-mode t) (defvar diff-hl-mode-major-mode nil nil) (byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313\314\315& \207" [make-variable-buffer-local diff-hl-mode-major-mode custom-declare-variable global-diff-hl-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Global Diff-Hl mode is enabled.\nSee the `global-diff-hl-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `global-diff-hl-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean] 10) #@351 Toggle Diff-Hl mode in all buffers. With prefix ARG, enable Global Diff-Hl mode if ARG is positive; otherwise, disable it. If called from Lisp, enable the mode if ARG is omitted or nil. Diff-Hl mode is enabled in all buffers where `diff-hl--global-turn-on' would do it. See `diff-hl-mode' for more information on Diff-Hl mode. (fn &optional ARG) (defalias 'global-diff-hl-mode #[256 "\303 \304\301\305=\203\306\301!?\202!\247\203 \307W\203 \310\202!\311\"\210\312\300!\2038\313\301\"\306\301!\2038\301B \203N\314\315\316\"\210\314\317\320\"\210\314\321\322\"\210\202]\323\315\316\"\210\323\317\320\"\210\323\321\322\"\210\324 \211\203\203\211@r\211q\210 \203s\325 \210\202{\n\203{\302\326!\210)A\266\202\202_\210\327\330\306\301!\203\220\331\202\221\332\"\210\333\334!\203\271\335\301!\210\303 \203\251\211\303 \232\203\271\336\337\306\301!\203\265\340\202\266\341\342#\210\343 \266\344 \210\306\301!\207" [global-minor-modes global-diff-hl-mode diff-hl-mode current-message set-default toggle default-value 1 nil t boundp delq add-hook after-change-major-mode-hook global-diff-hl-mode-enable-in-buffers find-file-hook global-diff-hl-mode-check-buffers change-major-mode-hook global-diff-hl-mode-cmhh remove-hook buffer-list diff-hl--global-turn-on -1 run-hooks global-diff-hl-mode-hook global-diff-hl-mode-on-hook global-diff-hl-mode-off-hook called-interactively-p any customize-mark-as-set message "Global Diff-Hl mode %sabled%s" "en" "dis" "" diff-hl-global-mode-change force-mode-line-update] 6 (#$ . 24459) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar global-diff-hl-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\310\313\300!\205#\310\211%\207" [global-diff-hl-mode-map global-diff-hl-mode-hook variable-documentation put "Hook run after entering or leaving `global-diff-hl-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 global-diff-hl-mode boundp] 6) (defvar diff-hl-mode-set-explicitly nil nil) (make-variable-buffer-local 'diff-hl-mode-set-explicitly) (defalias 'diff-hl-mode-set-explicitly #[0 "\301\211\207" [diff-hl-mode-set-explicitly t] 2]) (byte-code "\300\301\302\303#\210\304\305\301\"\207" [put diff-hl-mode-set-explicitly definition-name global-diff-hl-mode add-hook diff-hl-mode-hook] 4) (defvar global-diff-hl-mode-buffers nil) (defalias 'global-diff-hl-mode-enable-in-buffers #[0 "\305\211\211\2059\211@\306!\2032r\211q\210 \204/\n =\204/\f\203,\304\307!\210\310 \210\202/\310 \210 )A\266\202\202\207" [global-diff-hl-mode-buffers diff-hl-mode-set-explicitly diff-hl-mode-major-mode major-mode diff-hl-mode nil buffer-live-p -1 diff-hl--global-turn-on] 5]) (put 'global-diff-hl-mode-enable-in-buffers 'definition-name 'global-diff-hl-mode) (defalias 'global-diff-hl-mode-check-buffers #[0 "\300 \210\301\302\303\"\207" [global-diff-hl-mode-enable-in-buffers remove-hook post-command-hook global-diff-hl-mode-check-buffers] 3]) (put 'global-diff-hl-mode-check-buffers 'definition-name 'global-diff-hl-mode) (defalias 'global-diff-hl-mode-cmhh #[0 "\300\301p\"\210\302\303\304\"\207" [add-to-list global-diff-hl-mode-buffers add-hook post-command-hook global-diff-hl-mode-check-buffers] 3]) (put 'global-diff-hl-mode-cmhh 'definition-name 'global-diff-hl-mode) (defalias 'diff-hl-global-mode-change #[0 "?\205#\302 \211\205!\211@r\211q\210 \203\301\303!\210)A\266\202\202\262\207" [global-diff-hl-mode diff-hl-dir-mode buffer-list -1] 4]) (provide 'diff-hl)