;ELC
|
;;; Compiled
|
;;; in Emacs version 26.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 cl-lib diff-hl diff-hl-dired] 2)
|
(defvar diff-hl-margin-old-highlight-function nil)
|
(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)
|
#@80 Toggle displaying `diff-hl-mode' highlights on the margin.
|
|
(fn &optional ARG)
|
(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)])
|
(defvar diff-hl-margin-mode-hook nil)
|
(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)
|
#@119 Non-nil if Diff-Hl-Margin minor mode is enabled.
|
Use the command `diff-hl-margin-minor-mode' to change this variable.
|
(defvar diff-hl-margin-minor-mode nil (#$ . 3988))
|
(make-variable-buffer-local 'diff-hl-margin-minor-mode)
|
#@139 Toggle displaying `diff-hl-mode' highlights on the margin locally.
|
You probably shouldn't use this function directly.
|
|
(fn &optional ARG)
|
(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)])
|
(defvar diff-hl-margin-minor-mode-hook nil)
|
(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)
|
(defalias 'diff-hl-margin-minor-mode-off #[0 "\300\301!\207" [diff-hl-margin-minor-mode -1] 2])
|
(defvar diff-hl-margin-spec-cache nil)
|
(defalias 'diff-hl-margin-spec-cache #[0 "\206 \301 \211\207" [diff-hl-margin-spec-cache diff-hl-margin-build-spec-cache] 2])
|
(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])
|
#@23
|
|
(fn OVL TYPE SHAPE)
|
(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)])
|
(provide 'diff-hl-margin)
|
