[elpa] externals/aggressive-indent f376cdc25d 2/2: Merge pull request #157 from skangas/important-fix

[ELPA Syncer]

branch: externals/aggressive-indent
commit f376cdc25de5c0f8c330f1e053557d95ca47a540
Merge: 6a96e2890c 75794add5a
Author: Artur Malabarba <453029+Malabarba@users.noreply.github.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #157 from skangas/important-fix
    
    Fix aggressive-indent-mode
---
 aggressive-indent.el | 21 +++++++++++----------
 1 file changed, 11 insertions(+), 10 deletions(-)

diff --git a/aggressive-indent.el b/aggressive-indent.el
index d49ad39348..9a57206851 100644
--- a/aggressive-indent.el
+++ b/aggressive-indent.el
@@ -487,17 +487,18 @@ If BODY finishes, `while-no-input' returns whatever value 
BODY produced."
 ;;; Minor modes
 ;;;###autoload
 (define-minor-mode aggressive-indent-mode
+  "Minor mode to keep your code always indented."
   :lighter " =>"
-  `((,(kbd "C-c C-q") . aggressive-indent-indent-defun)
-    ([backspace]
-     menu-item "maybe-delete-indentation" ignore :filter
-     (lambda (&optional _)
-       (when (and (looking-back "^[[:blank:]]+")
-                  ;; Wherever we don't want to indent, we probably also
-                  ;; want the default backspace behavior.
-                  (not (run-hook-wrapped 
'aggressive-indent--internal-dont-indent-if #'eval))
-                  (not (aggressive-indent--run-user-hooks)))
-         #'delete-indentation))))
+  :keymap `((,(kbd "C-c C-q") . aggressive-indent-indent-defun)
+            ([backspace]
+             menu-item "maybe-delete-indentation" ignore :filter
+             (lambda (&optional _)
+               (when (and (looking-back "^[[:blank:]]+")
+                          ;; Wherever we don't want to indent, we probably also
+                          ;; want the default backspace behavior.
+                          (not (run-hook-wrapped 
'aggressive-indent--internal-dont-indent-if #'eval))
+                          (not (aggressive-indent--run-user-hooks)))
+                 #'delete-indentation))))
   (if aggressive-indent-mode
       (if (and (bound-and-true-p global-aggressive-indent-mode)
                (or (cl-member-if #'derived-mode-p 
aggressive-indent-excluded-modes)