mirror of https://github.com/Chizi123/.emacs.d.git

Chizi123
2018-11-18 c655eea759be1db69c5e6b45c228139d8390122a
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\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 (#$ . 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)