;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\302\303\304\305\306\307&\210\310\311\312\313\306\301%\210\314\315\316\317\306\301%\207" [custom-declare-group highlight-indentation nil "Highlight Indentation" :prefix "highlight-indentation-" :group basic-faces custom-declare-face highlight-indentation-face ((t :inherit fringe)) "Basic face for highlighting indentation guides." custom-declare-variable highlight-indentation-offset (if (and (boundp 'standard-indent) standard-indent) standard-indent 2) "Default indentation offset, used if no other can be found from\n major mode. This value is always used by\n `highlight-indentation-mode' if set buffer local. Set buffer\n local with `highlight-indentation-set-offset'"] 8) (defvar highlight-indentation-overlay-priority 1) (defvar highlight-indentation-current-column-overlay-priority 2) (defconst highlight-indentation-hooks '((after-change-functions (lambda (start end length) (highlight-indentation-redraw-region start end 'highlight-indentation-overlay 'highlight-indentation-put-overlays-region)) t t) (window-scroll-functions (lambda (win start) (highlight-indentation-redraw-window win 'highlight-indentation-overlay 'highlight-indentation-put-overlays-region start)) nil t))) #@57 Return a list of windows displaying the current buffer. (defalias 'highlight-indentation-get-buffer-windows #[(&optional all-frames) "\301p\302#\207" [all-frames get-buffer-window-list no-minibuf] 4 (#$ . 1624)]) #@44 Delete all overlays in the current buffer. (defalias 'highlight-indentation-delete-overlays-buffer #[(overlay) "\214~\210\301ed#)\207" [overlay highlight-indentation-delete-overlays-region] 4 (#$ . 1844)]) #@40 Delete overlays between START and END. (defalias 'highlight-indentation-delete-overlays-region #[(start end overlay) "\302\303\304 \"\"\207" [start end mapc #[(o) "\302 \"\205\n\303!\207" [o overlay overlay-get delete-overlay] 3] overlays-in] 5 (#$ . 2057)]) #@33 Redraw win starting from START. (defalias 'highlight-indentation-redraw-window #[(win overlay func &optional start) "\304\206\305 !\306 \307\"\n $\207" [start win overlay func highlight-indentation-redraw-region window-start window-end t] 5 (#$ . 2326)]) #@49 Erease and read overlays between START and END. (defalias 'highlight-indentation-redraw-region #[(start end overlay func) "\306 \307\216\212\310\212 b\210\311\312!)\313 \f#\210 \f#-\207" [save-match-data-internal end inhibit-point-motion-hooks start overlay func match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] t line-beginning-position 2 highlight-indentation-delete-overlays-region] 4 (#$ . 2590)]) #@52 Redraw the all windows showing the current buffer. (defalias 'highlight-indentation-redraw-all-windows #[(overlay func &optional all-frames) "\305!\306\211\205\n@\307 \f#\210\nA\211\204\n\306*\207" [all-frames win --dolist-tail-- overlay func highlight-indentation-get-buffer-windows nil highlight-indentation-redraw-window] 5 (#$ . 3045)]) #@39 Place overlays between START and END. (defalias 'highlight-indentation-put-overlays-region #[(start end overlay) "b\210\306\307 \fW\205[\310 \210\306f\250\203R\306f\311U\204R\306f\312U\203Ri \246\307U\203L`\211\313 \211T\"\314 \315#\210\314 \316#\210\314 \317\320#\210\306u\210\202\306y\210`\211\202\n+\207" [start pos last-indent o end highlight-indentation-offset nil 0 beginning-of-line 10 32 make-overlay overlay-put t priority face highlight-indentation-face overlay highlight-indentation-overlay-priority] 5 (#$ . 3401)]) #@43 Get indentation offset of current buffer. (defalias 'highlight-indentation-guess-offset #[nil "\306=\203\307\301!\203 \207\306=\203\307\302!\203\n\207\306=\203*\307\303!\203* \207\310=\2038\307\304!\2038\f\207\311=\203F\307\305!\203F \207\311=\203U\307\312!\203U\n\207\313=\204a\314=\203j\307\315!\203j \207\316=\203y\307\317!\203y\207\320=\203\210\307\321!\203\210\207\322=\203\227\307\323!\203\227\207\324=\203\246\307\325!\203\246\207\326\327!\203\275\327!\330=\203\275\307\331!\203\275\207\332=\203\314\307\333!\203\314\207\332=\203\333\307\334!\203\333\207\335\336!\203\352\307\336!\203\352\207\337=\203\371\307\340!\203\371 \207\341=\203\307\342!\203\"\207\343\344!\207" [major-mode python-indent py-indent-offset python-indent-offset ruby-indent-level scala-indent:step python-mode boundp ruby-mode scala-mode scala-mode-indent:step scss-mode css-mode css-indent-offset nxml-mode nxml-child-indent coffee-mode coffee-tab-width js-mode js-indent-level js2-mode js2-basic-offset fboundp derived-mode-class sws-mode sws-tab-width web-mode web-mode-markup-indent-offset web-mode-html-offset local-variable-p c-basic-offset yaml-mode yaml-indent-offset elixir-mode elixir-smie-indent-basic default-value highlight-indentation-offset] 2 (#$ . 3956)]) #@121 Non-nil if Highlight-Indentation mode is enabled. Use the command `highlight-indentation-mode' to change this variable. (defvar highlight-indentation-mode nil (#$ . 5294)) (make-variable-buffer-local 'highlight-indentation-mode) #@73 Highlight indentation minor mode highlights indentation based on spaces (defalias 'highlight-indentation-mode #[(&optional arg) "\306  \307=\203\n?\202\310 !\311V\211\204:\312\313!\210 \314\211\2039 @\315\f@\fA@\316\f8#\210 A\211\204$*\n\203i\317\320!\204L\321\320!\210\322  \314\211\203c @\323\324\f\"\210 A\211\204T*\325\313\326\"\210\327\330\n\203s\331\202t\332\"\210\333\334!\203\233\306 \203\210\306 \232\203\233\335#\336\337\n\203\225\340\202\226\341##\210))\342 \210\n\207" [#1=#:last-message arg highlight-indentation-mode highlight-indentation-hooks hook --dolist-tail-- current-message toggle prefix-numeric-value 0 highlight-indentation-delete-overlays-buffer highlight-indentation-overlay nil remove-hook 3 local-variable-p highlight-indentation-offset make-local-variable highlight-indentation-guess-offset apply add-hook highlight-indentation-redraw-all-windows highlight-indentation-put-overlays-region run-hooks highlight-indentation-mode-hook highlight-indentation-mode-on-hook highlight-indentation-mode-off-hook called-interactively-p any " in current buffer" message "Highlight-Indentation mode %sabled%s" "en" "dis" force-mode-line-update local] 6 (#$ . 5529) (list (or current-prefix-arg 'toggle))]) #@191 Hook run after entering or leaving `highlight-indentation-mode'. No problems result if this variable is not bound. `add-hook' automatically binds it. (This is true for all hook variables.) (defvar highlight-indentation-mode-hook nil (#$ . 6791)) (byte-code "\301\302\303\304\300!\205\n\305\211%\207" [highlight-indentation-mode-map add-minor-mode highlight-indentation-mode " ||" boundp nil] 6) #@133 Set indentation offset localy in buffer, will prevent highlight-indentation from trying to guess indentation offset from major mode (defalias 'highlight-indentation-set-offset #[(offset) "\303\301!\210\n\205\f\302 \207" [offset highlight-indentation-offset highlight-indentation-mode make-local-variable] 2 (#$ . 7196) (byte-code "\203:\204\301!C\207\302\303!C\207" [current-prefix-arg prefix-numeric-value read-number "Indentation offset: "] 2)]) (custom-declare-face 'highlight-indentation-current-column-face '((t (:background "black"))) "Basic face for highlighting indentation guides." :group 'highlight-indentation) (defconst highlight-indentation-current-column-hooks '((post-command-hook (lambda nil (highlight-indentation-redraw-all-windows 'highlight-indentation-current-column-overlay 'highlight-indentation-current-column-put-overlays-region)) nil t))) #@39 Place overlays between START and END. (defalias 'highlight-indentation-current-column-put-overlays-region #[(start end overlay) "\306\307\212\310 \210i)b\210 W\205`\311 \210\306f\250\203W\306f\312U\204W\306f\313U\203Wi\nU\203Q`\211\314 \211T\"\315\f\316#\210\315\f\317#\210\315\f\320\321#\210\306u\210\202\306y\210`\211\202,\207" [start pos indent last-indent o end nil 0 back-to-indentation beginning-of-line 10 32 make-overlay overlay-put t priority face highlight-indentation-current-column-face overlay highlight-indentation-current-column-overlay-priority] 5 (#$ . 8077)]) #@151 Non-nil if Highlight-Indentation-Current-Column mode is enabled. Use the command `highlight-indentation-current-column-mode' to change this variable. (defvar highlight-indentation-current-column-mode nil (#$ . 8686)) (make-variable-buffer-local 'highlight-indentation-current-column-mode) #@109 Hilight Indentation minor mode displays a vertical bar corresponding to the indentation of the current line (defalias 'highlight-indentation-current-column-mode #[(&optional arg) "\306  \307=\203\n?\202\310 !\311V\211\204:\312\313!\210 \314\211\2039 @\315\f@\fA@\316\f8#\210 A\211\204$*\n\203i\317\320!\204L\321\320!\210\322  \314\211\203c @\323\324\f\"\210 A\211\204T*\325\313\326\"\210\327\330\n\203s\331\202t\332\"\210\333\334!\203\233\306 \203\210\306 \232\203\233\335#\336\337\n\203\225\340\202\226\341##\210))\342 \210\n\207" [#1=#:last-message arg highlight-indentation-current-column-mode highlight-indentation-current-column-hooks hook --dolist-tail-- current-message toggle prefix-numeric-value 0 highlight-indentation-delete-overlays-buffer highlight-indentation-current-column-overlay nil remove-hook 3 local-variable-p highlight-indentation-offset make-local-variable highlight-indentation-guess-offset apply add-hook highlight-indentation-redraw-all-windows highlight-indentation-current-column-put-overlays-region run-hooks highlight-indentation-current-column-mode-hook highlight-indentation-current-column-mode-on-hook highlight-indentation-current-column-mode-off-hook called-interactively-p any " in current buffer" message "Highlight-Indentation-Current-Column mode %sabled%s" "en" "dis" force-mode-line-update local] 6 (#$ . 8982) (list (or current-prefix-arg 'toggle))]) #@206 Hook run after entering or leaving `highlight-indentation-current-column-mode'. No problems result if this variable is not bound. `add-hook' automatically binds it. (This is true for all hook variables.) (defvar highlight-indentation-current-column-mode-hook nil (#$ . 10415)) (byte-code "\301\302\303\304\300!\205\n\305\211%\210\306\307!\207" [highlight-indentation-current-column-mode-map add-minor-mode highlight-indentation-current-column-mode " |" boundp nil provide highlight-indentation] 6)