Configuracion en desarrollo PC pega

[config.git] / djavu-asus / elpa / highlight-indentation-20210221.1418 / highlight-indentation.elc

;ELC\1c\0\0\0
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301\302\303\304\305\306\307&\a\210\310\311\312\313\306\301%\210\314\315\316\317\320\321\306\301&\a\210\314\322\302\323\320\324\306\301&\a\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'" :type integer highlight-indentation-blank-lines "Show indentation guides on blank lines.  Experimental.\n\nKnown issues:\n- Doesn't work well with completion popups that use overlays\n- Overlays on blank lines sometimes aren't cleaned up or updated perfectly\n  Can be refreshed by scrolling\n- Not yet implemented for highlight-indentation-current-column-mode\n- May not work perfectly near the bottom of the screen\n- Point appears after indent guides on blank lines" boolean] 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.\1f
(defalias 'highlight-indentation-get-buffer-windows #[(&optional all-frames) "\301p\302\b#\207" [all-frames get-buffer-window-list no-minibuf] 4 (#$ . 1823)])
#@44 Delete all overlays in the current buffer.\1f
(defalias 'highlight-indentation-delete-overlays-buffer #[(overlay) "\214~\210\301ed\b#)\207" [overlay highlight-indentation-delete-overlays-region] 4 (#$ . 2043)])
#@40 Delete overlays between START and END.\1f
(defalias 'highlight-indentation-delete-overlays-region #[(start end overlay) "\302\303\304\b	\"\"\207" [start end mapc #[(o) "\302\b	\"\205\n\0\303\b!\207" [o overlay overlay-get delete-overlay] 3] overlays-in] 5 (#$ . 2256)])
#@33 Redraw win starting from START.\1f
(defalias 'highlight-indentation-redraw-window #[(win overlay func &optional start) "\304\b\206\b\0\305	!\306	\307\"\n\v$\207" [start win overlay func highlight-indentation-redraw-region window-start window-end t] 5 (#$ . 2525)])
#@48 Erase and read overlays between START and END.\1f
(defalias 'highlight-indentation-redraw-region #[(start end overlay func) "\306 \18\307\216\212\310\212	b\210\311 \210`)\212\nb\210\312\313!)\1a\19\e\314	\n\f#\210\r	\n\f#.\ 6\207" [save-match-data-internal start end inhibit-point-motion-hooks overlay func match-data #[nil "\301\b\302\"\207" [save-match-data-internal set-match-data evaporate] 3] t beginning-of-line line-beginning-position 2 highlight-indentation-delete-overlays-region] 4 (#$ . 2789)])
#@52 Redraw the all windows showing the current buffer.\1f
(defalias 'highlight-indentation-redraw-all-windows #[(overlay func &optional all-frames) "\305\b!\306\19\211\1a\205\e\0\n@\11\307	\v\f#\210\nA\211\12\204\n\0\306*\207" [all-frames win --dolist-tail-- overlay func highlight-indentation-get-buffer-windows nil highlight-indentation-redraw-window] 5 (#$ . 3287)])
#@39 Place overlays between START and END.\1f
(defalias 'highlight-indentation-put-overlays-region #[(start end overlay) "\bb\210\306\307\211`\310\19\1a\e\1c\1d	\205:\ 1\n\ e\1eY\205:\ 1\212\311 \210\307i\1e\1f\1e \306f\211\16 \203p\0\ e \250\203p\0\ e \312U\204p\0\ e \313U\203p\0\ e\1f\ e!\246\307U\203g\0`\1e\"\314\ e\"\211T\"\15)\315\r\ e#\310#\210\315\r\316\ e$#\210\315\r\317\320#\210\306u\210i\16\1f\202\"\0\ e%\203\e\ 1\ e \250\203\e\ 1\ e \312U\204\211\0\ e \321U\203\e\ 1\ e\1f\fW\203\e\ 1\ e\1f\306\310\306\1e&\1e'\1e(\211\1e)\fW\203\357\0\307\f\ e)Z\ e!\246\211\16&Y\203\275\0\ e!S\16&\310\16'\202\300\0\306\16'\ e'\203\315\0\322\323\317\320#\202\316\0\324\325\ e&\313\"P\ e(B\16(\ e)\ e&\\\ e'\203\347\0\326\202\350\0\307\\\211\16)\202\236\0\327\330\331\ e(!\"\16(`\1e\"\314\ e\"\211\"\15)\315\r\ e#\310#\210\315\r\316\ e$#\210\315\r\332\ e(#\210,\f\16\1f\ e!\333\334\ e\1f!\ e!\245!_\14+\n\ e\1eU\2032\ 1\306\11\335y\210`\12\202\r\0-\207" [end loop pos last-char last-indent o nil 0 t beginning-of-line 10 32 make-overlay overlay-put priority face highlight-indentation-face 13 propertize " " "" make-string 1 apply concat reverse after-string ceiling float -1 start cur-column c highlight-indentation-offset p overlay highlight-indentation-overlay-priority highlight-indentation-blank-lines num-spaces show s column] 6 (#$ . 3643)])
#@43 Get indentation offset of current buffer.\1f
(defalias 'highlight-indentation-guess-offset #[nil "\b\306=\203\ e\0\307\301!\203\ e\0	\207\b\306=\203\1c\0\307\302!\203\1c\0\n\207\b\306=\203*\0\307\303!\203*\0\v\207\b\310=\2038\0\307\304!\2038\0\f\207\b\311=\203F\0\307\305!\203F\0\r\207\b\311=\203U\0\307\312!\203U\0\ e\n\207\b\313=\204a\0\b\314=\203j\0\307\315!\203j\0\ e\r\207\b\316=\203y\0\307\317!\203y\0\ e\ f\207\b\320=\203\210\0\307\321!\203\210\0\ e\11\207\b\322=\203\227\0\307\323!\203\227\0\ e\13\207\b\324=\203\246\0\307\325!\203\246\0\ e\15\207\326\327!\203\275\0\327\b!\330=\203\275\0\307\331!\203\275\0\ e\19\207\b\332=\203\314\0\307\333!\203\314\0\ e\e\207\b\332=\203\333\0\307\334!\203\333\0\ e\1c\207\335\336!\203\352\0\307\336!\203\352\0\ e\1e\207\b\337=\203\371\0\307\340!\203\371\0\ e \207\b\341=\203\b\ 1\307\342!\203\b\ 1\ e\"\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 (#$ . 4808)])
#@121 Non-nil if Highlight-Indentation mode is enabled.
Use the command `highlight-indentation-mode' to change this variable.\1f
(defvar highlight-indentation-mode nil (#$ . 6146))
(make-variable-buffer-local 'highlight-indentation-mode)
#@629 Highlight indentation minor mode highlights indentation based on spaces

This is a minor mode.  If called interactively, toggle the
`Highlight-Indentation 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 `highlight-indentation-mode'.

The mode's hook is called both when the mode is enabled and when
it is disabled.\1f
(defalias 'highlight-indentation-mode #[(&optional arg) "\306 \18	\307=\203\ e\0\n?\202\1e\0	\247\203\1d\0	\310W\203\1d\0\311\202\1e\0\312\12\313\303!\2032\0\314\302\v\"\13\n\2032\0\302\vB\13\n\204\\\0\315\316!\210\f\311\1d\211\1e%\203[\0\ e%@\15\317\r@\rA@\320\r8#\210\ e%A\211\16%\204C\0*\n\203\217\0\321\322!\204n\0\323\322!\210\324 \16\12\f\311\1d\211\1e%\203\211\0\ e%@\15\325\326\r\"\210\ e%A\211\16%\204w\0*\327\316\330\"\210\331\332\n\203\231\0\333\202\232\0\334\"\210\335\336!\203\301\0\306 \203\256\0\b\306 \232\203\301\0\337\1e&\340\341\n\203\273\0\342\202\274\0\343\ e&#\210))\344 \210\n\207" [#1=#:last-message arg highlight-indentation-mode local-minor-modes highlight-indentation-hooks hook current-message toggle 1 nil t boundp delq highlight-indentation-delete-overlays-buffer highlight-indentation-overlay 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 --dolist-tail-- local] 6 (#$ . 6382) (list (if current-prefix-arg (prefix-numeric-value current-prefix-arg) 'toggle))])
(defvar highlight-indentation-mode-hook nil)
(byte-code "\301\302N\204\f\0\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\314\300!\205#\0\b\310\211%\207" [highlight-indentation-mode-map highlight-indentation-mode-hook variable-documentation put "Hook run after entering or leaving `highlight-indentation-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 highlight-indentation-mode " ||" boundp] 6)
#@134 Set indentation offset locally in buffer, will prevent
highlight-indentation from trying to guess indentation offset
from major mode\1f
(defalias 'highlight-indentation-set-offset #[(offset) "\303\301!\210\b\11\n\205\f\0\302 \207" [offset highlight-indentation-offset highlight-indentation-mode make-local-variable] 2 (#$ . 8898) (byte-code "\b\203\ e\0\b:\204\ e\0\301\b!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.\1f
(defalias 'highlight-indentation-current-column-put-overlays-region #[(start end overlay) "\306\307\212\310 \210i)\b\19\1a\e\1c\bb\210	\rW\205`\0\311 \210\306f\250\203W\0\306f\312U\204W\0\306f\313U\203W\0i\nU\203Q\0`\211\11\13\314	\211T\"\14\315\f\ e\12\316#\210\315\f\317\ e\13#\210\315\f\320\321#\210\306u\210\202\19\0\306y\210`\211\11\202\11\0,\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 (#$ . 9780)])
#@151 Non-nil if Highlight-Indentation-Current-Column mode is enabled.
Use the command `highlight-indentation-current-column-mode' to change
this variable.\1f
(defvar highlight-indentation-current-column-mode nil (#$ . 10389))
(make-variable-buffer-local 'highlight-indentation-current-column-mode)
#@697 Highlight Indentation minor mode displays a vertical bar
corresponding to the indentation of the current line

This is a minor mode.  If called interactively, toggle the
`Highlight-Indentation-Current-Column 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 `highlight-indentation-current-column-mode'.

The mode's hook is called both when the mode is enabled and when
it is disabled.\1f
(defalias 'highlight-indentation-current-column-mode #[(&optional arg) "\306 \18	\307=\203\ e\0\n?\202\1e\0	\247\203\1d\0	\310W\203\1d\0\311\202\1e\0\312\12\313\303!\2032\0\314\302\v\"\13\n\2032\0\302\vB\13\n\204\\\0\315\316!\210\f\311\1d\211\1e%\203[\0\ e%@\15\317\r@\rA@\320\r8#\210\ e%A\211\16%\204C\0*\n\203\217\0\321\322!\204n\0\323\322!\210\324 \16\12\f\311\1d\211\1e%\203\211\0\ e%@\15\325\326\r\"\210\ e%A\211\16%\204w\0*\327\316\330\"\210\331\332\n\203\231\0\333\202\232\0\334\"\210\335\336!\203\301\0\306 \203\256\0\b\306 \232\203\301\0\337\1e&\340\341\n\203\273\0\342\202\274\0\343\ e&#\210))\344 \210\n\207" [#1=#:last-message arg highlight-indentation-current-column-mode local-minor-modes highlight-indentation-current-column-hooks hook current-message toggle 1 nil t boundp delq highlight-indentation-delete-overlays-buffer highlight-indentation-current-column-overlay 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 --dolist-tail-- local] 6 (#$ . 10686) (list (if current-prefix-arg (prefix-numeric-value current-prefix-arg) 'toggle))])
(defvar highlight-indentation-current-column-mode-hook nil)
(byte-code "\301\302N\204\f\0\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\314\300!\205#\0\b\310\211%\210\315\316!\207" [highlight-indentation-current-column-mode-map highlight-indentation-current-column-mode-hook variable-documentation put "Hook run after entering or leaving `highlight-indentation-current-column-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 highlight-indentation-current-column-mode " |" boundp provide highlight-indentation] 6)