;ELC ;;; Compiled ;;; in Emacs version 25.3.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 (#$ . 2204) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)]) #@184 Hook run after entering or leaving `diff-hl-margin-mode'. No problems result if this variable is not bound. `add-hook' automatically binds it. (This is true for all hook variables.) (defvar diff-hl-margin-mode-hook nil (#$ . 3543)) (byte-code "\301\302\303\304\300!\205\n\305\211%\207" [diff-hl-margin-mode-map 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 (#$ . 3917)) (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 (#$ . 4149) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)]) #@190 Hook run after entering or leaving `diff-hl-margin-minor-mode'. No problems result if this variable is not bound. `add-hook' automatically binds it. (This is true for all hook variables.) (defvar diff-hl-margin-minor-mode-hook nil (#$ . 5261)) (byte-code "\301\302\303\304\300!\205\n\305\211%\210\306\307\310\305#\210\311\211\2036\211@\307N\203/\310N\204/\312\310\307N#\210A\266\202\202\210\313\307\310\314#\207" [diff-hl-margin-minor-mode-map add-minor-mode diff-hl-margin-minor-mode "" boundp nil defvaralias diff-hl-margin-side diff-hl-side (saved-value saved-variable-comment) put 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]) (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 "\n\n(fn OVL TYPE SHAPE)"]) (provide 'diff-hl-margin)