Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
;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\n B\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@r q\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)
@kaushalmodi

This comment has been minimized.

Copy link
Owner Author

commented Mar 25, 2015

Renamed to .el to get correct syntax highlighting

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.