| 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!\207" [require diff-hl dired vc-hooks] 2) | |
| 16 | (defvar diff-hl-dired-process-buffer nil) | |
| 17 | (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) | |
| 18 | #@105 Non-nil if Diff-Hl-Dired mode is enabled. | |
| 19 | Use the command `diff-hl-dired-mode' to change this variable. | |
| 20 | (defvar diff-hl-dired-mode nil (#$ . 1807)) | |
| 21 | (make-variable-buffer-local 'diff-hl-dired-mode) | |
| 22 | #@80 Toggle VC diff highlighting on the side of a Dired window. | |
| 23 | ||
| 24 | (fn &optional ARG) | |
| 25 | (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 (#$ . 2010) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)]) | |
| 26 | (defvar diff-hl-dired-mode-hook nil) | |
| 27 | (byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \311\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.)" add-minor-mode diff-hl-dired-mode "" boundp nil] 6) | |
| 28 | #@29 Highlight the Dired buffer. | |
| 29 | (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\204f B\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\241 r\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 (#$ . 3373)]) | |
| 30 | #@183 Using version control BACKEND, return list of (FILE STATE EXTRA) entries | |
| 31 | for DIR containing FILES. Call UPDATE-FUNCTION as entries are added. | |
| 32 | ||
| 33 | (fn BACKEND DIR FILES UPDATE-FUNCTION) | |
| 34 | (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 (#$ . 4956)]) | |
| 35 | (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) | |
| 36 | #@64 Highlight ALIST containing (FILE . TYPE) elements. | |
| 37 | ||
| 38 | (fn ALIST) | |
| 39 | (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 (#$ . 5678)]) | |
| 40 | #@17 | |
| 41 | ||
| 42 | (fn TYPE POS) | |
| 43 | (defalias 'diff-hl-dired-face-from-type #[514 "\300\301\302\"!\207" [intern format "diff-hl-dired-%s"] 6 (#$ . 6198)]) | |
| 44 | (defalias 'diff-hl-dired-clear 'diff-hl-remove-overlays) | |
| 45 | (defalias 'diff-hl-dired-mode-unless-remote #[0 "\301!?\205 \302 \207" [default-directory file-remote-p diff-hl-dired-mode] 2]) | |
| 46 | (provide 'diff-hl-dired) | |
