;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (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\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] 10) #@639 Toggle displaying `diff-hl-mode' highlights on the margin. This is a minor mode. If called interactively, toggle the `Diff-Hl-Margin mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `(default-value 'diff-hl-margin-mode)'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'diff-hl-margin-mode #[256 "\304 \305\301\306=\203\307\301!?\202!\247\203 \310W\203 \311\202!\312\"\210\313\300!\2038\314\301\"\307\301!\2038\301B \203S\315\316\317\"\210\315\320\321\"\210\315\322\317\"\210\315\323\321\"\210\202g\324\316\317\"\210\324\320\321\"\210\324\322\317\"\210\324\323\321\"\210\325 \211\203\244\211@r\211q\210\n\203\211\317 \203\200\310\202\201\326!\210\327 \210\202\234 \203\234\317 \203\226\310\202\227\326!\210\330 \210)A\266\202\202i\210\331\332\307\301!\203\261\333\202\262\334\"\210\335\336!\203\332\337\301!\210\304 \203\312\211\304 \232\203\332\340\341\307\301!\203\326\342\202\327\343\344#\210\210\345 \210\307\301!\207" [global-minor-modes diff-hl-margin-mode diff-hl-mode diff-hl-dired-mode current-message set-default toggle default-value 1 nil t boundp delq 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 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] 6 (#$ . 1874) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar diff-hl-margin-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\314\300!\205#\310\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.)" custom-type hook standard-value nil add-minor-mode diff-hl-margin-mode "" boundp] 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 (#$ . 4436)) (make-variable-buffer-local 'diff-hl-margin-minor-mode) #@693 Toggle displaying `diff-hl-mode' highlights on the margin locally. You probably shouldn't use this function directly. This is a minor mode. If called interactively, toggle the `Diff-Hl-Margin minor mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `diff-hl-margin-minor-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'diff-hl-margin-minor-mode #[256 "\305 \306=\203 ?\202\247\203\307W\203\310\202\311\312\301!\2031\313\300 \"\2031\300 B\314\315\316\n\"!\203O\317\304!\210 \317\303!\210\320\211\307L\266\202\\\f\203W\f\310\211\321L\266\322 \211\203p\211@\323p\"\210A\266\202\202^\210\324\325\203{\326\202|\327\"\210\330\331!\203\236\305 \203\220\211\305 \232\203\236\332\333\203\232\334\202\233\335\336#\210\210\337 \210\207" [diff-hl-margin-minor-mode local-minor-modes diff-hl-side diff-hl-highlight-function diff-hl-margin-old-highlight-function current-message toggle 1 nil t boundp delq intern format "%s-margin-width" make-local-variable diff-hl-highlight-on-margin 0 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 message "Diff-Hl-Margin minor mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 7 (#$ . 4668) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar diff-hl-margin-minor-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\314\300!\205#\310\211%\210\315\316\317\310#\210\320\211\203O\211@\316N\203H\317N\204H\303\317\316N#\210A\266\202\202.\210\321\316\317\322#\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.)" custom-type hook standard-value nil add-minor-mode diff-hl-margin-minor-mode "" boundp 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 (#$ . 7922)]) (provide 'diff-hl-margin)