;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\207" [require diff-hl dired vc-hooks] 2) (defvar diff-hl-dired-process-buffer nil) (byte-code "\301\302\303\304\305\306%\210\307\310\311\312#\210\307\313\314\315#\210\307\316\317\320#\210\307\321\322\323#\210\307\324\325\323#\210\326\327\330\331\332DD\333\334\335%\210\326\336\330\331\337DD\340\334\341\342\343\344\"BD%\207" [vc-handled-backends custom-declare-group diff-hl-dired nil "VC diff highlighting on the side of a Dired window." :group diff-hl custom-declare-face diff-hl-dired-insert ((default :inherit diff-hl-insert)) "Face used to highlight added files." diff-hl-dired-delete ((default :inherit diff-hl-delete)) "Face used to highlight directories with deleted files." diff-hl-dired-change ((default :inherit diff-hl-change)) "Face used to highlight changed files." diff-hl-dired-unknown ((default :inherit dired-ignored)) "Face used to highlight unregistered files." diff-hl-dired-ignored ((default :inherit dired-ignored)) custom-declare-variable diff-hl-dired-extra-indicators funcall function #[0 "\300\207" [t] 1] "Non-nil to indicate ignored files." :type boolean diff-hl-dired-ignored-backends #[0 "\300\207" [(RCS)] 1] "VC backends to ignore.\nThe directories registered to one of these backends won't have\nstatus indicators." repeat choice mapcar #[257 "\300\301\302!F\207" [const :tag symbol-name] 5 "\n\n(fn NAME)"]] 10) #@105 Non-nil if Diff-Hl-Dired mode is enabled. Use the command `diff-hl-dired-mode' to change this variable. (defvar diff-hl-dired-mode nil (#$ . 1486)) (make-variable-buffer-local 'diff-hl-dired-mode) #@620 Toggle VC diff highlighting on the side of a Dired window. This is a minor mode. If called interactively, toggle the `Diff-Hl-Dired 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-dired-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'diff-hl-dired-mode #[256 "\303 \304=\203 ?\202\247\203\305W\203\306\202\307\310\301!\2031\311\300 \"\2031\300 B\203H\312 \210\313\302!\210\306\314\315\316\306\307$\210\202Q\317\315\316\307#\210\320 \210\321\322\203[\323\202\\\324\"\210\325\326!\203~\303 \203p\211\303 \232\203~\327\330\203z\331\202{\332\333#\210\210\334 \210\207" [diff-hl-dired-mode local-minor-modes diff-hl-dired-process-buffer current-message toggle 1 nil t boundp delq diff-hl-maybe-define-bitmaps make-local-variable add-hook dired-after-readin-hook diff-hl-dired-update remove-hook diff-hl-dired-clear run-hooks diff-hl-dired-mode-hook diff-hl-dired-mode-on-hook diff-hl-dired-mode-off-hook called-interactively-p any message "Diff-Hl-Dired mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 7 (#$ . 1690) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar diff-hl-dired-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-dired-mode-map diff-hl-dired-mode-hook variable-documentation put "Hook run after entering or leaving `diff-hl-dired-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-dired-mode "" boundp] 6) #@29 Highlight the Dired buffer. (defalias 'diff-hl-dired-update #[0 "\3041 \305!0\202 \210\306p\306C\306C\205| >?\205|\307 \210\310\n!\2036\311\n!\211\2032\312!\210\210\202:\313\314!r\nq\210\315!\316 \210\317 \205q\320!\306\211:\203m@\262\321\235\204fB\262A\262\202R\211\237\266\203\322\323$$)\207" [default-directory diff-hl-dired-ignored-backends diff-hl-dired-process-buffer diff-hl-dired-extra-indicators (error) vc-responsible-backend nil diff-hl-dired-clear buffer-live-p get-buffer-process kill-process generate-new-buffer " *diff-hl-dired* tmp status" expand-file-name erase-buffer diff-hl-dired-status-files directory-files ("." ".." ".hg") make-closure #[513 "\304\300!\205\241r\300q\210\211\203\212\211@\211\211A\203 \211A\262\242\202'\305\306\307GD\"\211A\262\242\310\311\312#\262\313\314\"\315\316\"\203y\317\320\"\321\301\242\"A\211=\204t\322=\204t\211\204f\301B\301\242B\240\266\202\203\323=\204t\321\301\242\"\324\241\210\266\202\203\302B\302\242B\240\266A\266\202\202 \210\211\204\230\325\326\301\242\302\242\"!\210)\211?\205\241\327 !\207" [V0 V1 V2 diff-hl-dired-process-buffer buffer-live-p signal wrong-number-of-arguments (file state &rest r) replace-regexp-in-string "\\` " "" plist-get (edited change added insert removed delete unregistered unknown ignored ignored) string-match "\\`\\([^/]+\\)/" match-string 1 assoc up-to-date ignored change diff-hl-dired-highlight-items append kill-buffer] 13 "\n\n(fn ENTRIES &optional MORE-TO-COME)"]] 14 (#$ . 3774)]) #@183 Using version control BACKEND, return list of (FILE STATE EXTRA) entries for DIR containing FILES. Call UPDATE-FUNCTION as entries are added. (fn BACKEND DIR FILES UPDATE-FUNCTION) (defalias 'diff-hl-dired-status-files #[1028 "\301\302\"\203\303\304%\207\303\304\305&\207" [emacs-version version< "25" vc-call-backend dir-status-files nil] 11 (#$ . 5336)]) (byte-code "\301\302\"\203\303\304\305\306\307$\210\310\304\307\"\210\307\207" [emacs-version version< "24.4.51.5" ad-add-advice vc-git-dir-status-goto-stage (diff-hl-dired-skip-up-to-date nil t (advice lambda (stage files update-function) (when (eq stage 'ls-files-up-to-date) (setq stage 'diff-index)) ad-do-it)) around nil ad-activate] 5) #@64 Highlight ALIST containing (FILE . TYPE) elements. (fn ALIST) (defalias 'diff-hl-dired-highlight-items #[257 "\211\211\2057\211@\211@A\212eb\210\211\203-\302\303!\304#\203-\305\306\307\310\"\311\312\313#\210*\210)\266A\266\202\202\207" [diff-hl-fringe-bmp-function diff-hl-fringe-face-function dired-goto-file-1 expand-file-name nil diff-hl-fringe-bmp-from-type diff-hl-dired-face-from-type diff-hl-add-highlighting single overlay-put modification-hooks (diff-hl-overlay-modified)] 10 (#$ . 6058)]) #@17 (fn TYPE POS) (defalias 'diff-hl-dired-face-from-type #[514 "\300\301\302\"!\207" [intern format "diff-hl-dired-%s"] 6 (#$ . 6578)]) (defalias 'diff-hl-dired-clear 'diff-hl-remove-overlays) (defalias 'diff-hl-dired-mode-unless-remote #[0 "\301!?\205 \302 \207" [default-directory file-remote-p diff-hl-dired-mode] 2]) (provide 'diff-hl-dired)