From 726291c89de57d1c8b08fee1e126732b7e959d4d Mon Sep 17 00:00:00 2001
From: Artur Malabarba <bruce.connor.am@gmail.com>
Date: Fri, 31 Oct 2014 08:43:59 +0000
Subject: [PATCH] Redo fix for #25 Awesome tip from @tsdh!

---
 aggressive-indent.el | 20 ++++++--------------
 1 file changed, 6 insertions(+), 14 deletions(-)

diff --git a/aggressive-indent.el b/aggressive-indent.el
index 012e73130..3db3819b1 100644
--- a/aggressive-indent.el
+++ b/aggressive-indent.el
@@ -334,23 +334,15 @@ Like `aggressive-indent-indent-region-and-on', but wrapped in a
 Assumes that the syntax table is sufficient to find comments."
   (nth 4 (syntax-ppss)))
 
-
-;;; Keymap
-(defun delete-backward ()
-  "Either `delete-indentation' or call [backspace]."
-  (interactive)
-  (if (looking-back "^[[:blank:]]+")
-      (call-interactively 'delete-indentation)
-    (let ((mode nil))
-      (execute-kbd-macro [backspace]))))
-
-;; (define-key mode-map "\C-c\C-q" #'indent-defun)
-;; (define-key mode-map [backspace] #'delete-backward)
-
 
 ;;; Minor modes
 :autoload
-(define-minor-mode mode nil nil " =>" nil
+(define-minor-mode mode nil nil " =>"
+  '(("" . aggressive-indent-indent-defun)
+    ([backspace] menu-item "maybe-delete-indentation" ignore
+     :filter (lambda (&optional _)
+               (when (looking-back "^[[:blank:]]+")
+                 #'delete-indentation))))
   (if mode
       (if (and global-aggressive-indent-mode
                (or (cl-member-if #'derived-mode-p excluded-modes)
-- 
2.39.2