kaushalmodi/aggressive-indent.el

## aggressive-indent.el
;ELC���
;;; Compiled
;;; in Emacs version 25.0.50.2
;;; 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!\207" [require cl-lib names] 2)
#@282 Execute body unobstrusively.
This means:
 1. Do nothing in several situations, specified by
    `aggressive-indent-dont-indent-if' and
    `aggressive-indent--internal-dont-indent-if'.
 2. Silence all messages.
 3. Never throw errors.
Meant for use in functions which go in hooks.
(defalias 'aggressive-indent--do-softly '(macro . #[(&rest body) "\301\302\303\304\305BEE\207" [body unless (or (run-hook-wrapped 'aggressive-indent--internal-dont-indent-if #'eval) (aggressive-indent--run-user-hooks)) cl-letf (((symbol-function 'message) #'ignore)) ignore-errors] 6 (#$ . 480)]))
(byte-code "\300\301\302\303#\210\304\305\306\307\310\311\312\313&\207" [put aggressive-indent--do-softly edebug-form-spec t custom-declare-group aggressive-indent nil "Customization group for aggressive-indent." :prefix "aggressive-indent-" :group indent] 8)
#@46 Version of the aggressive-indent.el package.
(defconst aggressive-indent-version "0.3.5" (#$ . 1327))
#@133 Opens github issues page in a web browser. Please send any bugs you find.
Please include your emacs and aggressive-indent versions.
(defalias 'aggressive-indent-bug-report #[nil "\302\303	#\210\304\305!\207" [aggressive-indent-version emacs-version message "Your `aggressive-indent-version' is: %s, and your emacs version is: %s.\nPlease include this in your report!" browse-url "https://github.com/Bruce-Connor/aggressive-indent-mode/issues/new"] 4 (#$ . 1436) nil])
(byte-code "\300\301\302\303\304\305\306\307\310\311&	\210\300\312\313\314\304\315\306\316\310\311&	\210\300\317\320\321\304\322\306\323\310\311&	\210\300\324\325\326\304\327\306\330\310\311&	\207" [custom-declare-variable aggressive-indent-dont-electric-modes '(ruby-mode) "List of major-modes where `electric-indent-mode' should be disabled." :type (choice (const :tag "Never use `electric-indent-mode'." t) (repeat :tag "List of major-modes to avoid `electric-indent-mode'." symbol)) :package-version (aggressive-indent . "0.3.1") :group aggressive-indent aggressive-indent-excluded-modes '(bibtex-mode cider-repl-mode coffee-mode conf-mode Custom-mode diff-mode doc-view-mode dos-mode erc-mode jabber-chat-mode haml-mode haskell-mode image-mode makefile-mode makefile-gmake-mode minibuffer-inactive-mode netcmd-mode python-mode sass-mode slim-mode special-mode shell-mode snippet-mode eshell-mode tabulated-list-mode term-mode TeX-output-mode text-mode yaml-mode) "Modes in which `aggressive-indent-mode' should not be activated.\nThis variable is only used if `global-aggressive-indent-mode' is\nactive. If the minor mode is turned on with the local command,\n`aggressive-indent-mode', this variable is ignored." (repeat symbol) (aggressive-indent . "0.3.1") aggressive-indent-protected-commands '(undo undo-tree-undo undo-tree-redo) "Commands after which indentation will NOT be performed.\nAggressive indentation could break things like `undo' by locking\nthe user in a loop, so this variable is used to control which\ncommands will NOT be followed by a re-indent." (repeat symbol) (aggressive-indent . "0.1") aggressive-indent-comments-too nil "If non-nil, aggressively indent in comments as well." boolean (aggressive-indent . "0.3")] 10)
#@175 List of forms which prevent indentation when they evaluate to non-nil.
This is for internal use only. For user customization, use
`aggressive-indent-dont-indent-if' instead.
(defvar aggressive-indent--internal-dont-indent-if '((memq this-command aggressive-indent-protected-commands) (region-active-p) buffer-read-only (null (buffer-modified-p)) (and (boundp 'smerge-mode) smerge-mode) (string-match "\\`[[:blank:]]*\n?\\'" (or (thing-at-point 'line) "")) (and (not aggressive-indent-comments-too) (aggressive-indent--in-comment-p)) (aggressive-indent--in-string-p)) (#$ . 3660))
(byte-code "\300\301\302\303\304\305\306\307\310\311&	\210\312\313\314\"\210\312\315\316\"\210\312\317\320\"\210\300\321\322\323\304\324\310\311\306\325&	\207" [custom-declare-variable aggressive-indent-modes-to-prefer-defun '(emacs-lisp-mode lisp-mode scheme-mode) "List of major-modes in which indenting defun is preferred.\nAdd here any major modes with very good definitions of\n`end-of-defun' and `beginning-of-defun', or modes which bug out\nif you have `after-change-functions' (such as paredit).\n\nIf current major mode is derived from one of these,\n`aggressive-indent-mode' will call\n`aggressive-indent-indent-defun' after every command. Otherwise,\nit will call `aggressive-indent-indent-region-and-on' after every\nbuffer change." :type (repeat symbol) :package-version (aggressive-indent . "0.3") :group aggressive-indent eval-after-load yasnippet #[nil "\301\302!\205�\303\235\203�\207\304\303C\"\211\207" [aggressive-indent--internal-dont-indent-if boundp yas--active-field-overlay (and (overlayp yas--active-field-overlay) (overlay-end yas--active-field-overlay)) append] 3] company #[nil "\301\302!\205�\302\235\203�\207\302B\211\207" [aggressive-indent--internal-dont-indent-if boundp company-candidates] 2] auto-complete #[nil "\301\302!\205�\302\235\203�\207\302B\211\207" [aggressive-indent--internal-dont-indent-if boundp ac-completing] 2] aggressive-indent-dont-indent-if 'nil "List of variables and functions to prevent aggressive indenting.\nThis variable is a list where each element is a lisp form.\nAs long as any one of these forms returns non-nil,\naggressive-indent will not perform any indentation.\n\nSee `aggressive-indent--internal-dont-indent-if' for usage examples." (repeat sexp) (aggressive-indent . "0.2")] 10)
#@61 Error message thrown by `aggressive-indent-dont-indent-if'.
(defvar aggressive-indent--error-message "One of the forms in `aggressive-indent-dont-indent-if' had the following error, I've disabled it until you fix it: %S" (#$ . 6017))
#@131 Keep track of whether `aggressive-indent-dont-indent-if' is throwing.
This is used to prevent an infinite error loop on the user.
(defvar aggressive-indent--has-errored nil (#$ . 6258))
#@138 Safely run forms in `aggressive-indent-dont-indent-if'.
If any of them errors out, we only report it once until it stops
erroring again.
(defalias 'aggressive-indent--run-user-hooks #[nil "\205�\3041�\305\306B!\3070\207	?\205�\310\311\n\")\207" [aggressive-indent-dont-indent-if aggressive-indent--has-errored er aggressive-indent--error-message (error) eval or nil t message] 3 (#$ . 6451)])
#@69 Indent current defun.
Throw an error if parentheses are unbalanced.
(defalias 'aggressive-indent-indent-defun #[nil "\301 \302\303\"\210\304\212\305\306!\210`)\212\307\306!\210`)\"\210b)\207" [p point-marker set-marker-insertion-type t indent-region beginning-of-defun 1 end-of-defun] 4 (#$ . 6859) nil])
#@126 Indent current defun unobstrusively.
Like `aggressive-indent-indent-defun', but wrapped in a
`aggressive-indent--do-softly'.
(defalias 'aggressive-indent--softly-indent-defun #[nil "\301\302\303\"\206	�\304 ?\205#�\305K\306\216\305\307M\210\3101 �\311 0\202\"�\210\312*\207" [#1=#:old run-hook-wrapped aggressive-indent--internal-dont-indent-if eval aggressive-indent--run-user-hooks message #[nil "\301M\207" [#1# message] 2] ignore (error) aggressive-indent-indent-defun nil] 3 (#$ . 7174)])
#@137 Indent region between L and R, and then some.
Call `indent-region' between L and R, and then keep indenting
until nothing more happens.
(defalias 'aggressive-indent-indent-region-and-on #[(l r) "\304 \305\306	\307\"\210\310\216\nb\210\n\311 U\nU\204'�b\210\312 U\203'�T\nU\2042�\313\n\"\210\2039�\314 \210\315y\210m?\205U�\316\305w\210`\314 \210`U?\205U�\315y\210\202<�+\207" [was-begining-of-line p r l point-marker nil set-marker-insertion-type t #[nil "b\207" [p] 1] line-beginning-position line-end-position indent-region indent-according-to-mode 1 "[:blank:]\n"] 3 (#$ . 7677) "r"])
#@134 Indent current defun unobstrusively.
Like `aggressive-indent-indent-region-and-on', but wrapped in a
`aggressive-indent--do-softly'.
(defalias 'aggressive-indent--softly-indent-region-and-on #[(l r &rest _) "\303\304\305\"\206	�\306 ?\205%�\307K\310\216\307\311M\210\3121\"�\313	\n\"0\202$�\210\314*\207" [#1=#:old l r run-hook-wrapped aggressive-indent--internal-dont-indent-if eval aggressive-indent--run-user-hooks message #[nil "\301M\207" [#1# message] 2] ignore (error) aggressive-indent-indent-region-and-on nil] 3 (#$ . 8284)])
#@66 List of right limit of regions changed in the last command loop.
(defvar aggressive-indent--changed-list-right nil (#$ . 8828))
#@65 List of left limit of regions changed in the last command loop.
(defvar aggressive-indent--changed-list-left nil (#$ . 8962))
#@58 Indent any region that changed in the last command loop.
(defalias 'aggressive-indent--indent-if-changed #[nil "\303	\205�\304\305\306	\"\305\307\n\"\"\210\310\211\211)\207" [inhibit-modification-hooks aggressive-indent--changed-list-left aggressive-indent--changed-list-right t aggressive-indent--softly-indent-region-and-on apply min max nil] 6 (#$ . 9094)])
#@61 Store the limits of each change that happens in the buffer.
(defalias 'aggressive-indent--keep-track-of-changes #[(l r &rest _) "	B\nB\211\207" [l aggressive-indent--changed-list-left r aggressive-indent--changed-list-right] 2 (#$ . 9465)])
#@108 Return non-nil if point is inside a comment.
Assumes that the syntax table is sufficient to find comments.
(defalias 'aggressive-indent--in-comment-p #[nil "\300\301 8\207" [4 syntax-ppss] 2 (#$ . 9717)])
#@114 Return non-nil if point is inside a string.
Assumes that the syntax table is sufficient for recognizing
strings.
(defalias 'aggressive-indent--in-string-p #[nil "\300\301 8\207" [3 syntax-ppss] 2 (#$ . 9929)])
#@113 Non-nil if Aggressive-Indent mode is enabled.
Use the command `aggressive-indent-mode' to change this variable.
(defvar aggressive-indent-mode nil (#$ . 10146))
(make-variable-buffer-local 'aggressive-indent-mode)
#@274 Toggle Aggressive-Indent mode on or off.
With a prefix argument ARG, enable Aggressive-Indent mode if ARG is
positive, and disable it otherwise.  If called from Lisp, enable
the mode if ARG is omitted or nil, and toggle it if ARG is `toggle'.
\{aggressive-indent-mode-map}
(defalias 'aggressive-indent-mode #[(&optional arg) "\306 	\307=\203�\n?\202�\310	!\311V\211\203r�\2035�\312\313\f\"\204.�
\314>\204.�%\2035�\302\315!\210\202\204�&\316=\204D�\312\313&\"\203K�\317\320!\210\202O�\317\316!\210\312\313'\"\203a�\321\322\323\320\324$\210\202\204�\321\325\326\320\324$\210\321\322\327\320\324$\210\202\204�\330\325\326\324#\210\330\322\327\324#\210\330\322\323\324#\210\n\203\342�\203\245�\312\313\f\"\204\236�
\314>\204\236�%\203\245�\302\315!\210\202\364�&\316=\204\264�\312\313&\"\203\273�\317\320!\210\202\277�\317\316!\210\312\313'\"\203\321�\321\322\323\320\324$\210\202\364�\321\325\326\320\324$\210\321\322\327\320\324$\210\202\364�\330\325\326\324#\210\330\322\327\324#\210\330\322\323\324#\210\331\332\n\203\376�\333\202\377�\334\"\210\335\336!\203&\306 \203\306 \232\203&\337\340\341\n\203 \342\202!\343#\210))\344 \210\n\207" [#1=#:last-message arg aggressive-indent-mode global-aggressive-indent-mode aggressive-indent-excluded-modes major-mode current-message toggle prefix-numeric-value 0 cl-member-if derived-mode-p (text-mode fundamental-mode) -1 t aggressive-indent--local-electric nil add-hook post-command-hook aggressive-indent--softly-indent-defun local after-change-functions aggressive-indent--keep-track-of-changes aggressive-indent--indent-if-changed remove-hook run-hooks aggressive-indent-mode-hook aggressive-indent-mode-on-hook aggressive-indent-mode-off-hook called-interactively-p any " in current buffer" message "Aggressive-Indent mode %sabled%s" "en" "dis" force-mode-line-update buffer-read-only aggressive-indent-dont-electric-modes aggressive-indent-modes-to-prefer-defun] 6 (#$ . 10367) (list (or current-prefix-arg 'toggle))])
#@187 Hook run after entering or leaving `aggressive-indent-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it.  (This is true for all hook variables.)
(defvar aggressive-indent-mode-hook nil (#$ . 12367))
#@38 Keymap for `aggressive-indent-mode'.
(defvar aggressive-indent-mode-map (byte-code "\301\302!\203\f�\202�<\203�\303!\202�\304\305\")\207" [m (("" . aggressive-indent-indent-defun) ([backspace] menu-item "maybe-delete-indentation" ignore :filter (lambda (&optional _) (when (and (looking-back "^[[:blank:]]+") (not (run-hook-wrapped 'aggressive-indent--internal-dont-indent-if #'eval)) (not (aggressive-indent--run-user-hooks))) #'delete-indentation)))) keymapp easy-mmode-define-keymap error "Invalid keymap %S"] 3) (#$ . 12613))
(byte-code "\301\302\303\304\211%\207" [aggressive-indent-mode-map add-minor-mode aggressive-indent-mode " =>" nil] 6)
#@72 Turn `electric-indent-mode' on or off locally, as given by boolean ON.
(defalias 'aggressive-indent--local-electric #[(on) "\302\303!\203�\303\203�\304\202�\305!\207\306\301!\210\211\207" [on electric-indent-mode fboundp electric-indent-local-mode 1 -1 make-local-variable] 2 (#$ . 13280)])
(defvar aggressive-indent-mode-major-mode nil)
(byte-code "\300\301!\210\302\303\304\305\306\307\310\311\312\313\314\315&\207" [make-variable-buffer-local aggressive-indent-mode-major-mode custom-declare-variable global-aggressive-indent-mode nil "Non-nil if Global-Aggressive-Indent mode is enabled.\nSee the command `global-aggressive-indent-mode' for 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 `global-aggressive-indent-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group aggressive-indent :type boolean] 12)
#@379 Toggle Aggressive-Indent mode in all buffers.
With prefix ARG, enable Global-Aggressive-Indent mode if ARG is positive;
otherwise, disable it.  If called from Lisp, enable the mode if
ARG is omitted or nil.

Aggressive-Indent mode is enabled in all buffers where
`aggressive-indent-mode' would do it.
See `aggressive-indent-mode' for more information on Aggressive-Indent mode.
(defalias 'global-aggressive-indent-mode #[(&optional arg) "\306 	\307=\203�\n?\202�\310	!\311V\211\203*�\312\313\314\"\210\312\315\316\"\210\312\317\320\"\210\2029�\321\313\314\"\210\321\315\316\"\210\321\317\320\"\210\322 \323\211\203c�\f@rq\210\n\203S�\305 \210\202[�
\203[�\305\324!\210)\fA\211\204B�*\325\326\n\203n�\327\202o�\330\"\210\331\332!\203\244�\333\302!\210\306 \203\207�\306 \232\203\244�\334\302!\203\221�\335\202\222�\336$\337\340\n\203\236�\341\202\237�\342$#\210))\343 \210\n\207" [#1=#:last-message arg global-aggressive-indent-mode buf --dolist-tail-- aggressive-indent-mode current-message toggle prefix-numeric-value 0 add-hook after-change-major-mode-hook global-aggressive-indent-mode-enable-in-buffers find-file-hook global-aggressive-indent-mode-check-buffers change-major-mode-hook global-aggressive-indent-mode-cmhh remove-hook buffer-list nil -1 run-hooks global-aggressive-indent-mode-hook global-aggressive-indent-mode-on-hook global-aggressive-indent-mode-off-hook called-interactively-p any customize-mark-as-set local-variable-p " in current buffer" "" message "Global-Aggressive-Indent mode %sabled%s" "en" "dis" force-mode-line-update local] 5 (#$ . 14254) (list (or current-prefix-arg 'toggle))])
#@194 Hook run after entering or leaving `global-aggressive-indent-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it.  (This is true for all hook variables.)
(defvar global-aggressive-indent-mode-hook nil (#$ . 15887))
(byte-code "\301\302\303\304\300!\205\n�\303\211%\207" [global-aggressive-indent-mode-map add-minor-mode global-aggressive-indent-mode nil boundp] 6)
(defvar aggressive-indent-mode-set-explicitly nil nil)
(make-variable-buffer-local 'aggressive-indent-mode-set-explicitly)
(defalias 'aggressive-indent-mode-set-explicitly #[nil "\301\211\207" [aggressive-indent-mode-set-explicitly t] 2])
(byte-code "\300\301\302\303#\210\304\305\301\"\207" [put aggressive-indent-mode-set-explicitly definition-name global-aggressive-indent-mode add-hook aggressive-indent-mode-hook] 4)
(defvar global-aggressive-indent-mode-buffers nil)
(defalias 'global-aggressive-indent-mode-enable-in-buffers #[nil "\306\211\205<�\n@\307	!\2034�r	q\210\2041�\f
=\2041�\203.�\310\311!\210\310 \210\2021�\310 \210
)\nA\211\204�\306*\207" [global-aggressive-indent-mode-buffers buf --dolist-tail-- aggressive-indent-mode-set-explicitly aggressive-indent-mode-major-mode major-mode nil buffer-live-p aggressive-indent-mode -1] 3])
(put 'global-aggressive-indent-mode-enable-in-buffers 'definition-name 'global-aggressive-indent-mode)
(defalias 'global-aggressive-indent-mode-check-buffers #[nil "\301 \210\302\303\304\305\"\207" [global-aggressive-indent-mode-buffers global-aggressive-indent-mode-enable-in-buffers nil remove-hook post-command-hook global-aggressive-indent-mode-check-buffers] 3])
(put 'global-aggressive-indent-mode-check-buffers 'definition-name 'global-aggressive-indent-mode)
(defalias 'global-aggressive-indent-mode-cmhh #[nil "p\211	\235\204\f�	B)\302\303\304\"\207" [#1=#:x global-aggressive-indent-mode-buffers add-hook post-command-hook global-aggressive-indent-mode-check-buffers] 4])
(byte-code "\300\301\302\303#\210\304\305\303\"\210\306\307!\207" [put global-aggressive-indent-mode-cmhh definition-name global-aggressive-indent-mode defalias aggressive-indent-global-mode provide aggressive-indent] 4)
	;ELC��
	;;; Compiled
	;;; in Emacs version 25.0.50.2
	;;; 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!\207" [require cl-lib names] 2)
	#@282 Execute body unobstrusively.
	This means:
	1. Do nothing in several situations, specified by
	`aggressive-indent-dont-indent-if' and
	`aggressive-indent--internal-dont-indent-if'.
	2. Silence all messages.
	3. Never throw errors.
	Meant for use in functions which go in hooks.
	(defalias 'aggressive-indent--do-softly '(macro . #[(&rest body) "\301\302\303\304\305BEE\207" [body unless (or (run-hook-wrapped 'aggressive-indent--internal-dont-indent-if #'eval) (aggressive-indent--run-user-hooks)) cl-letf (((symbol-function 'message) #'ignore)) ignore-errors] 6 (#$ . 480)]))
	(byte-code "\300\301\302\303#\210\304\305\306\307\310\311\312\313&\207" [put aggressive-indent--do-softly edebug-form-spec t custom-declare-group aggressive-indent nil "Customization group for aggressive-indent." :prefix "aggressive-indent-" :group indent] 8)
	#@46 Version of the aggressive-indent.el package.
	(defconst aggressive-indent-version "0.3.5" (#$ . 1327))
	#@133 Opens github issues page in a web browser. Please send any bugs you find.
	Please include your emacs and aggressive-indent versions.
	(defalias 'aggressive-indent-bug-report #[nil "\302\303 #\210\304\305!\207" [aggressive-indent-version emacs-version message "Your `aggressive-indent-version' is: %s, and your emacs version is: %s.\nPlease include this in your report!" browse-url "https://github.com/Bruce-Connor/aggressive-indent-mode/issues/new"] 4 (#$ . 1436) nil])
	(byte-code "\300\301\302\303\304\305\306\307\310\311& \210\300\312\313\314\304\315\306\316\310\311& \210\300\317\320\321\304\322\306\323\310\311& \210\300\324\325\326\304\327\306\330\310\311& \207" [custom-declare-variable aggressive-indent-dont-electric-modes '(ruby-mode) "List of major-modes where `electric-indent-mode' should be disabled." :type (choice (const :tag "Never use `electric-indent-mode'." t) (repeat :tag "List of major-modes to avoid `electric-indent-mode'." symbol)) :package-version (aggressive-indent . "0.3.1") :group aggressive-indent aggressive-indent-excluded-modes '(bibtex-mode cider-repl-mode coffee-mode conf-mode Custom-mode diff-mode doc-view-mode dos-mode erc-mode jabber-chat-mode haml-mode haskell-mode image-mode makefile-mode makefile-gmake-mode minibuffer-inactive-mode netcmd-mode python-mode sass-mode slim-mode special-mode shell-mode snippet-mode eshell-mode tabulated-list-mode term-mode TeX-output-mode text-mode yaml-mode) "Modes in which `aggressive-indent-mode' should not be activated.\nThis variable is only used if `global-aggressive-indent-mode' is\nactive. If the minor mode is turned on with the local command,\n`aggressive-indent-mode', this variable is ignored." (repeat symbol) (aggressive-indent . "0.3.1") aggressive-indent-protected-commands '(undo undo-tree-undo undo-tree-redo) "Commands after which indentation will NOT be performed.\nAggressive indentation could break things like `undo' by locking\nthe user in a loop, so this variable is used to control which\ncommands will NOT be followed by a re-indent." (repeat symbol) (aggressive-indent . "0.1") aggressive-indent-comments-too nil "If non-nil, aggressively indent in comments as well." boolean (aggressive-indent . "0.3")] 10)
	#@175 List of forms which prevent indentation when they evaluate to non-nil.
	This is for internal use only. For user customization, use
	`aggressive-indent-dont-indent-if' instead.
	(defvar aggressive-indent--internal-dont-indent-if '((memq this-command aggressive-indent-protected-commands) (region-active-p) buffer-read-only (null (buffer-modified-p)) (and (boundp 'smerge-mode) smerge-mode) (string-match "\\`[[:blank:]]*\n?\\'" (or (thing-at-point 'line) "")) (and (not aggressive-indent-comments-too) (aggressive-indent--in-comment-p)) (aggressive-indent--in-string-p)) (#$ . 3660))
	(byte-code "\300\301\302\303\304\305\306\307\310\311& \210\312\313\314\"\210\312\315\316\"\210\312\317\320\"\210\300\321\322\323\304\324\310\311\306\325& \207" [custom-declare-variable aggressive-indent-modes-to-prefer-defun '(emacs-lisp-mode lisp-mode scheme-mode) "List of major-modes in which indenting defun is preferred.\nAdd here any major modes with very good definitions of\n`end-of-defun' and `beginning-of-defun', or modes which bug out\nif you have `after-change-functions' (such as paredit).\n\nIf current major mode is derived from one of these,\n`aggressive-indent-mode' will call\n`aggressive-indent-indent-defun' after every command. Otherwise,\nit will call `aggressive-indent-indent-region-and-on' after every\nbuffer change." :type (repeat symbol) :package-version (aggressive-indent . "0.3") :group aggressive-indent eval-after-load yasnippet #[nil "\301\302!\205�\303\235\203�\207\304\303C\"\211\207" [aggressive-indent--internal-dont-indent-if boundp yas--active-field-overlay (and (overlayp yas--active-field-overlay) (overlay-end yas--active-field-overlay)) append] 3] company #[nil "\301\302!\205�\302\235\203�\207\302B\211\207" [aggressive-indent--internal-dont-indent-if boundp company-candidates] 2] auto-complete #[nil "\301\302!\205�\302\235\203�\207\302B\211\207" [aggressive-indent--internal-dont-indent-if boundp ac-completing] 2] aggressive-indent-dont-indent-if 'nil "List of variables and functions to prevent aggressive indenting.\nThis variable is a list where each element is a lisp form.\nAs long as any one of these forms returns non-nil,\naggressive-indent will not perform any indentation.\n\nSee `aggressive-indent--internal-dont-indent-if' for usage examples." (repeat sexp) (aggressive-indent . "0.2")] 10)
	#@61 Error message thrown by `aggressive-indent-dont-indent-if'.
	(defvar aggressive-indent--error-message "One of the forms in `aggressive-indent-dont-indent-if' had the following error, I've disabled it until you fix it: %S" (#$ . 6017))
	#@131 Keep track of whether `aggressive-indent-dont-indent-if' is throwing.
	This is used to prevent an infinite error loop on the user.
	(defvar aggressive-indent--has-errored nil (#$ . 6258))
	#@138 Safely run forms in `aggressive-indent-dont-indent-if'.
	If any of them errors out, we only report it once until it stops
	erroring again.
	(defalias 'aggressive-indent--run-user-hooks #[nil "\205�\3041�\305\306B!\3070\207 ?\205�\310\311\n\")\207" [aggressive-indent-dont-indent-if aggressive-indent--has-errored er aggressive-indent--error-message (error) eval or nil t message] 3 (#$ . 6451)])
	#@69 Indent current defun.
	Throw an error if parentheses are unbalanced.
	(defalias 'aggressive-indent-indent-defun #[nil "\301 \302\303\"\210\304\212\305\306!\210`)\212\307\306!\210`)\"\210b)\207" [p point-marker set-marker-insertion-type t indent-region beginning-of-defun 1 end-of-defun] 4 (#$ . 6859) nil])
	#@126 Indent current defun unobstrusively.
	Like `aggressive-indent-indent-defun', but wrapped in a
	`aggressive-indent--do-softly'.
	(defalias 'aggressive-indent--softly-indent-defun #[nil "\301\302\303\"\206 �\304 ?\205#�\305K\306\216\305\307M\210\3101 �\311 0\202\"�\210\312*\207" [#1=#:old run-hook-wrapped aggressive-indent--internal-dont-indent-if eval aggressive-indent--run-user-hooks message #[nil "\301M\207" [#1# message] 2] ignore (error) aggressive-indent-indent-defun nil] 3 (#$ . 7174)])
	#@137 Indent region between L and R, and then some.
	Call `indent-region' between L and R, and then keep indenting
	until nothing more happens.
	(defalias 'aggressive-indent-indent-region-and-on #[(l r) "\304 \305\306 \307\"\210\310\216\nb\210\n\311 U\nU\204'�b\210\312 U\203'�T\nU\2042�\313\n\"\210\2039�\314 \210\315y\210m?\205U�\316\305w\210`\314 \210`U?\205U�\315y\210\202<�+\207" [was-begining-of-line p r l point-marker nil set-marker-insertion-type t #[nil "b\207" [p] 1] line-beginning-position line-end-position indent-region indent-according-to-mode 1 "[:blank:]\n"] 3 (#$ . 7677) "r"])
	#@134 Indent current defun unobstrusively.
	Like `aggressive-indent-indent-region-and-on', but wrapped in a
	`aggressive-indent--do-softly'.
	(defalias 'aggressive-indent--softly-indent-region-and-on #[(l r &rest _) "\303\304\305\"\206 �\306 ?\205%�\307K\310\216\307\311M\210\3121\"�\313 \n\"0\202$�\210\314*\207" [#1=#:old l r run-hook-wrapped aggressive-indent--internal-dont-indent-if eval aggressive-indent--run-user-hooks message #[nil "\301M\207" [#1# message] 2] ignore (error) aggressive-indent-indent-region-and-on nil] 3 (#$ . 8284)])
	#@66 List of right limit of regions changed in the last command loop.
	(defvar aggressive-indent--changed-list-right nil (#$ . 8828))
	#@65 List of left limit of regions changed in the last command loop.
	(defvar aggressive-indent--changed-list-left nil (#$ . 8962))
	#@58 Indent any region that changed in the last command loop.
	(defalias 'aggressive-indent--indent-if-changed #[nil "\303 \205�\304\305\306 \"\305\307\n\"\"\210\310\211\211)\207" [inhibit-modification-hooks aggressive-indent--changed-list-left aggressive-indent--changed-list-right t aggressive-indent--softly-indent-region-and-on apply min max nil] 6 (#$ . 9094)])
	#@61 Store the limits of each change that happens in the buffer.
	(defalias 'aggressive-indent--keep-track-of-changes #[(l r &rest _) " B\nB\211\207" [l aggressive-indent--changed-list-left r aggressive-indent--changed-list-right] 2 (#$ . 9465)])
	#@108 Return non-nil if point is inside a comment.
	Assumes that the syntax table is sufficient to find comments.
	(defalias 'aggressive-indent--in-comment-p #[nil "\300\301 8\207" [4 syntax-ppss] 2 (#$ . 9717)])
	#@114 Return non-nil if point is inside a string.
	Assumes that the syntax table is sufficient for recognizing
	strings.
	(defalias 'aggressive-indent--in-string-p #[nil "\300\301 8\207" [3 syntax-ppss] 2 (#$ . 9929)])
	#@113 Non-nil if Aggressive-Indent mode is enabled.
	Use the command `aggressive-indent-mode' to change this variable.
	(defvar aggressive-indent-mode nil (#$ . 10146))
	(make-variable-buffer-local 'aggressive-indent-mode)
	#@274 Toggle Aggressive-Indent mode on or off.
	With a prefix argument ARG, enable Aggressive-Indent mode if ARG is
	positive, and disable it otherwise. If called from Lisp, enable
	the mode if ARG is omitted or nil, and toggle it if ARG is `toggle'.
	\{aggressive-indent-mode-map}
	(defalias 'aggressive-indent-mode #[(&optional arg) "\306 \307=\203�\n?\202�\310 !\311V\211\203r�\2035�\312\313\f\"\204.�
	\314>\204.�%\2035�\302\315!\210\202\204�&\316=\204D�\312\313&\"\203K�\317\320!\210\202O�\317\316!\210\312\313'\"\203a�\321\322\323\320\324$\210\202\204�\321\325\326\320\324$\210\321\322\327\320\324$\210\202\204�\330\325\326\324#\210\330\322\327\324#\210\330\322\323\324#\210\n\203\342�\203\245�\312\313\f\"\204\236�
	\314>\204\236�%\203\245�\302\315!\210\202\364�&\316=\204\264�\312\313&\"\203\273�\317\320!\210\202\277�\317\316!\210\312\313'\"\203\321�\321\322\323\320\324$\210\202\364�\321\325\326\320\324$\210\321\322\327\320\324$\210\202\364�\330\325\326\324#\210\330\322\327\324#\210\330\322\323\324#\210\331\332\n\203\376�\333\202\377�\334\"\210\335\336!\203&\306 \203\306 \232\203&\337\340\341\n\203 \342\202!\343#\210))\344 \210\n\207" [#1=#:last-message arg aggressive-indent-mode global-aggressive-indent-mode aggressive-indent-excluded-modes major-mode current-message toggle prefix-numeric-value 0 cl-member-if derived-mode-p (text-mode fundamental-mode) -1 t aggressive-indent--local-electric nil add-hook post-command-hook aggressive-indent--softly-indent-defun local after-change-functions aggressive-indent--keep-track-of-changes aggressive-indent--indent-if-changed remove-hook run-hooks aggressive-indent-mode-hook aggressive-indent-mode-on-hook aggressive-indent-mode-off-hook called-interactively-p any " in current buffer" message "Aggressive-Indent mode %sabled%s" "en" "dis" force-mode-line-update buffer-read-only aggressive-indent-dont-electric-modes aggressive-indent-modes-to-prefer-defun] 6 (#$ . 10367) (list (or current-prefix-arg 'toggle))])
	#@187 Hook run after entering or leaving `aggressive-indent-mode'.
	No problems result if this variable is not bound.
	`add-hook' automatically binds it. (This is true for all hook variables.)
	(defvar aggressive-indent-mode-hook nil (#$ . 12367))
	#@38 Keymap for `aggressive-indent-mode'.
	(defvar aggressive-indent-mode-map (byte-code "\301\302!\203\f�\202�<\203�\303!\202�\304\305\")\207" [m (("" . aggressive-indent-indent-defun) ([backspace] menu-item "maybe-delete-indentation" ignore :filter (lambda (&optional _) (when (and (looking-back "^[[:blank:]]+") (not (run-hook-wrapped 'aggressive-indent--internal-dont-indent-if #'eval)) (not (aggressive-indent--run-user-hooks))) #'delete-indentation)))) keymapp easy-mmode-define-keymap error "Invalid keymap %S"] 3) (#$ . 12613))
	(byte-code "\301\302\303\304\211%\207" [aggressive-indent-mode-map add-minor-mode aggressive-indent-mode " =>" nil] 6)
	#@72 Turn `electric-indent-mode' on or off locally, as given by boolean ON.
	(defalias 'aggressive-indent--local-electric #[(on) "\302\303!\203�\303\203�\304\202�\305!\207\306\301!\210\211\207" [on electric-indent-mode fboundp electric-indent-local-mode 1 -1 make-local-variable] 2 (#$ . 13280)])
	(defvar aggressive-indent-mode-major-mode nil)
	(byte-code "\300\301!\210\302\303\304\305\306\307\310\311\312\313\314\315&\207" [make-variable-buffer-local aggressive-indent-mode-major-mode custom-declare-variable global-aggressive-indent-mode nil "Non-nil if Global-Aggressive-Indent mode is enabled.\nSee the command `global-aggressive-indent-mode' for 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 `global-aggressive-indent-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group aggressive-indent :type boolean] 12)
	#@379 Toggle Aggressive-Indent mode in all buffers.
	With prefix ARG, enable Global-Aggressive-Indent mode if ARG is positive;
	otherwise, disable it. If called from Lisp, enable the mode if
	ARG is omitted or nil.

	Aggressive-Indent mode is enabled in all buffers where
	`aggressive-indent-mode' would do it.
	See `aggressive-indent-mode' for more information on Aggressive-Indent mode.
	(defalias 'global-aggressive-indent-mode #[(&optional arg) "\306 \307=\203�\n?\202�\310 !\311V\211\203*�\312\313\314\"\210\312\315\316\"\210\312\317\320\"\210\2029�\321\313\314\"\210\321\315\316\"\210\321\317\320\"\210\322 \323\211\203c�\f@rq\210\n\203S�\305 \210\202[�
	\203[�\305\324!\210)\fA\211\204B�*\325\326\n\203n�\327\202o�\330\"\210\331\332!\203\244�\333\302!\210\306 \203\207�\306 \232\203\244�\334\302!\203\221�\335\202\222�\336$\337\340\n\203\236�\341\202\237�\342$#\210))\343 \210\n\207" [#1=#:last-message arg global-aggressive-indent-mode buf --dolist-tail-- aggressive-indent-mode current-message toggle prefix-numeric-value 0 add-hook after-change-major-mode-hook global-aggressive-indent-mode-enable-in-buffers find-file-hook global-aggressive-indent-mode-check-buffers change-major-mode-hook global-aggressive-indent-mode-cmhh remove-hook buffer-list nil -1 run-hooks global-aggressive-indent-mode-hook global-aggressive-indent-mode-on-hook global-aggressive-indent-mode-off-hook called-interactively-p any customize-mark-as-set local-variable-p " in current buffer" "" message "Global-Aggressive-Indent mode %sabled%s" "en" "dis" force-mode-line-update local] 5 (#$ . 14254) (list (or current-prefix-arg 'toggle))])
	#@194 Hook run after entering or leaving `global-aggressive-indent-mode'.
	No problems result if this variable is not bound.
	`add-hook' automatically binds it. (This is true for all hook variables.)
	(defvar global-aggressive-indent-mode-hook nil (#$ . 15887))
	(byte-code "\301\302\303\304\300!\205\n�\303\211%\207" [global-aggressive-indent-mode-map add-minor-mode global-aggressive-indent-mode nil boundp] 6)
	(defvar aggressive-indent-mode-set-explicitly nil nil)
	(make-variable-buffer-local 'aggressive-indent-mode-set-explicitly)
	(defalias 'aggressive-indent-mode-set-explicitly #[nil "\301\211\207" [aggressive-indent-mode-set-explicitly t] 2])
	(byte-code "\300\301\302\303#\210\304\305\301\"\207" [put aggressive-indent-mode-set-explicitly definition-name global-aggressive-indent-mode add-hook aggressive-indent-mode-hook] 4)
	(defvar global-aggressive-indent-mode-buffers nil)
	(defalias 'global-aggressive-indent-mode-enable-in-buffers #[nil "\306\211\205<�\n@\307 !\2034�r q\210\2041�\f
	=\2041�\203.�\310\311!\210\310 \210\2021�\310 \210
	)\nA\211\204�\306*\207" [global-aggressive-indent-mode-buffers buf --dolist-tail-- aggressive-indent-mode-set-explicitly aggressive-indent-mode-major-mode major-mode nil buffer-live-p aggressive-indent-mode -1] 3])
	(put 'global-aggressive-indent-mode-enable-in-buffers 'definition-name 'global-aggressive-indent-mode)
	(defalias 'global-aggressive-indent-mode-check-buffers #[nil "\301 \210\302\303\304\305\"\207" [global-aggressive-indent-mode-buffers global-aggressive-indent-mode-enable-in-buffers nil remove-hook post-command-hook global-aggressive-indent-mode-check-buffers] 3])
	(put 'global-aggressive-indent-mode-check-buffers 'definition-name 'global-aggressive-indent-mode)
	(defalias 'global-aggressive-indent-mode-cmhh #[nil "p\211 \235\204\f� B)\302\303\304\"\207" [#1=#:x global-aggressive-indent-mode-buffers add-hook post-command-hook global-aggressive-indent-mode-check-buffers] 4])
	(byte-code "\300\301\302\303#\210\304\305\303\"\210\306\307!\207" [put global-aggressive-indent-mode-cmhh definition-name global-aggressive-indent-mode defalias aggressive-indent-global-mode provide aggressive-indent] 4)