| 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 cl-lib diff-hl diff-hl-dired] 2) | |
| 16 | (defvar diff-hl-margin-old-highlight-function nil) | |
| 17 | (byte-code "\300\301\302\303\304\305%\210\306\307\310\311#\210\306\312\313\314#\210\306\315\316\317#\210\306\320\321\317#\210\306\322\323\317#\210\324\325\326\327\330DD\331\332\333\334\335&\210\324\336\326\327\337DD\340\334\341\342\343\304\301\332\344& \207" [custom-declare-group diff-hl-margin nil "Highlight buffer changes on margin" :group diff-hl custom-declare-face diff-hl-margin-insert ((default :inherit diff-hl-insert)) "Face used to highlight inserted lines on the margin." diff-hl-margin-delete ((default :inherit diff-hl-delete)) "Face used to highlight deleted lines on the margin." diff-hl-margin-change ((default :inherit diff-hl-change)) "Face used to highlight changed lines on the margin." diff-hl-margin-ignored ((default :inherit dired-ignored)) diff-hl-margin-unknown ((default :inherit dired-ignored)) custom-declare-variable diff-hl-margin-symbols-alist funcall function #[0 "\300\207" [((insert . "+") (delete . "-") (change . "!") (unknown . "?") (ignored . "i"))] 1] "Associative list from symbols to strings." :type (alist :key-type symbol :value-type string :options (insert delete change unknown ignored)) :set #[514 "\301\"\210\302\211\207" [diff-hl-margin-spec-cache set-default nil] 5 "\n\n(fn SYMBOL VALUE)"] diff-hl-margin-mode #[0 "\300\207" [nil] 1] "Non-nil if Diff-Hl-Margin mode is enabled.\nSee the `diff-hl-margin-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 `diff-hl-margin-mode'." custom-set-minor-mode :initialize custom-initialize-default boolean] 12) | |
| 18 | #@80 Toggle displaying `diff-hl-mode' highlights on the margin. | |
| 19 | ||
| 20 | (fn &optional ARG) | |
| 21 | (defalias 'diff-hl-margin-mode #[256 "\303 \304\300\305=\203 \306\300!?\202 \307!\310V\"\210\2033 \311\312\313\"\210\311\314\315\"\210\311\316\313\"\210\311\317\315\"\210\202G \320\312\313\"\210\320\314\315\"\210\320\316\313\"\210\320\317\315\"\210\321 \211\203\204 \211@r\211q\210 \203i \313\203` \322\202a \323!\210\324 \210\202| \n\203| \313\203v \322\202w \323!\210\325 \210)A\266\202\202I \210\326\327\306\300!\203\221 \330\202\222 \331\"\210\332\333!\203\274 \334\300!\210\303 \203\252 \211\303 \232\203\274 \335\336\337\306\300!\203\267 \340\202\270 \341#\266\210\342 \210\306\300!\207" [diff-hl-margin-mode diff-hl-mode diff-hl-dired-mode current-message set-default toggle default-value prefix-numeric-value 0 add-hook diff-hl-mode-on-hook diff-hl-margin-minor-mode diff-hl-mode-off-hook diff-hl-margin-minor-mode-off diff-hl-dired-mode-on-hook diff-hl-dired-mode-off-hook remove-hook buffer-list 1 -1 diff-hl-update diff-hl-dired-update run-hooks diff-hl-margin-mode-hook diff-hl-margin-mode-on-hook diff-hl-margin-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Diff-Hl-Margin mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 2202) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)]) | |
| 22 | (defvar diff-hl-margin-mode-hook nil) | |
| 23 | (byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \311\211%\207" [diff-hl-margin-mode-map diff-hl-margin-mode-hook variable-documentation put "Hook run after entering or leaving `diff-hl-margin-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-margin-mode "" boundp nil] 6) | |
| 24 | #@119 Non-nil if Diff-Hl-Margin minor mode is enabled. | |
| 25 | Use the command `diff-hl-margin-minor-mode' to change this variable. | |
| 26 | (defvar diff-hl-margin-minor-mode nil (#$ . 3988)) | |
| 27 | (make-variable-buffer-local 'diff-hl-margin-minor-mode) | |
| 28 | #@139 Toggle displaying `diff-hl-mode' highlights on the margin locally. | |
| 29 | You probably shouldn't use this function directly. | |
| 30 | ||
| 31 | (fn &optional ARG) | |
| 32 | (defalias 'diff-hl-margin-minor-mode #[256 "\304 \305=\203 ?\202 \306!\307V\310\311\312 \"!\2030 \313\303!\210\n\313\302!\210\314\211\315L\210\2028 \316\211\307L\210\210\317 \211\203M \211@\320p\"\210A\266\202\202; \210\321\322\203X \323\202Y \324\"\210\325\326!\203} \304 \203m \211\304 \232\203} \327\330\331\203x \332\202y \333#\266\210\334 \210\207" [diff-hl-margin-minor-mode diff-hl-side diff-hl-highlight-function diff-hl-margin-old-highlight-function current-message toggle prefix-numeric-value 0 intern format "%s-margin-width" make-local-variable diff-hl-highlight-on-margin 1 nil get-buffer-window-list set-window-buffer run-hooks diff-hl-margin-minor-mode-hook diff-hl-margin-minor-mode-on-hook diff-hl-margin-minor-mode-off-hook called-interactively-p any " in current buffer" message "Diff-Hl-Margin minor mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 4220) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)]) | |
| 33 | (defvar diff-hl-margin-minor-mode-hook nil) | |
| 34 | (byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \311\211%\210\312\313\314\311#\210\315\211\203B \211@\313N\203; \314N\204; \303\314\313N#\210A\266\202\202! \210\316\313\314\317#\207" [diff-hl-margin-minor-mode-map diff-hl-margin-minor-mode-hook variable-documentation put "Hook run after entering or leaving `diff-hl-margin-minor-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-margin-minor-mode "" boundp nil defvaralias diff-hl-margin-side diff-hl-side (saved-value saved-variable-comment) make-obsolete-variable "1.7.1"] 7) | |
| 35 | (defalias 'diff-hl-margin-minor-mode-off #[0 "\300\301!\207" [diff-hl-margin-minor-mode -1] 2]) | |
| 36 | (defvar diff-hl-margin-spec-cache nil) | |
| 37 | (defalias 'diff-hl-margin-spec-cache #[0 "\206 \301 \211\207" [diff-hl-margin-spec-cache diff-hl-margin-build-spec-cache] 2]) | |
| 38 | (defalias 'diff-hl-margin-build-spec-cache #[0 "\301\211\211:\203Z @\262\211A\262\242\262\302\301\211:\203J @\262B\303\304\305\306\307\310\311 \"!D\303 \312\307\310\313\"!#D#BB\262A\262\202 \211\237\266\203\237\244\262A\262\202 \211\237\207" [diff-hl-margin-symbols-alist nil (left right) propertize " " display margin intern format "%s-margin" face "diff-hl-margin-%s"] 19]) | |
| 39 | #@23 | |
| 40 | ||
| 41 | (fn OVL TYPE SHAPE) | |
| 42 | (defalias 'diff-hl-highlight-on-margin #[771 "\301B\302 \"A\303\304#\207" [diff-hl-side assoc diff-hl-margin-spec-cache overlay-put before-string] 8 (#$ . 6712)]) | |
| 43 | (provide 'diff-hl-margin) | |
