;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!\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 (#$ . 1809)) (make-variable-buffer-local 'diff-hl-dired-mode) #@80 Toggle VC diff highlighting on the side of a Dired window. (fn &optional ARG) (defalias 'diff-hl-dired-mode #[256 "\302 \303=\203 ?\202\304!\305V\211\203*\306 \210\307\301!\210\310\311\312\313\310\314$\210\2023\315\312\313\314#\210\316 \210\317\320\203=\321\202>\322\"\210\323\324!\203b\302 \203R\211\302 \232\203b\325\326\327\203]\330\202^\331#\266\210\332 \210\207" [diff-hl-dired-mode diff-hl-dired-process-buffer current-message toggle prefix-numeric-value 0 diff-hl-maybe-define-bitmaps make-local-variable nil add-hook dired-after-readin-hook diff-hl-dired-update t 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 " in current buffer" message "Diff-Hl-Dired mode %sabled%s" "en" "dis" force-mode-line-update] 8 (#$ . 2012) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)]) #@183 Hook run after entering or leaving `diff-hl-dired-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-dired-mode-hook nil (#$ . 2934)) (byte-code "\301\302\303\304\300!\205\n\305\211%\207" [diff-hl-dired-mode-map add-minor-mode diff-hl-dired-mode "" boundp nil] 6) #@29 Highlight the Dired buffer. (defalias 'diff-hl-dired-update #[0 "\3041 \305!0\202 \210\306p\306C\306C\205\204 >?\205\204\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\324\325\326   #\327\"\330\331%$)\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-byte-code 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\"\203x\317\320\"\321\301\242\"A\211=\204s\322=\204s\211\204e\301B\301\242B\240\210\202s\323=\204s\321\301\242\"\324\241\210\266\202\201\302B\302\242B\240\210\266A\266\202\202 \210\211\204\230\325\326\301\242\302\242\"!\210)\211?\205\241\327 !\207" vconcat vector [diff-hl-dired-process-buffer buffer-live-p signal wrong-number-of-arguments nil 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)"] 17 (#$ . 3303)]) #@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 (#$ . 4886)]) (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 (#$ . 5608)]) (defalias 'diff-hl-dired-face-from-type #[514 "\300\301\302\"!\207" [intern format "diff-hl-dired-%s"] 6 "\n\n(fn TYPE POS)"]) (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)