branch: master
commit 726291c89de57d1c8b08fee1e126732b7e959d4d
Author: Artur Malabarba <bruce.connor...@gmail.com>
Commit: Artur Malabarba <bruce.connor...@gmail.com>
Redo fix for #25
Awesome tip from @tsdh!
---
aggressive-indent.el | 20 ++++++--------------
1 files changed, 6 insertions(+), 14 deletions(-)
diff --git a/aggressive-indent.el b/aggressive-indent.el
index 012e731..3db3819 100644
--- a/aggressive-indent.el
+++ b/aggressive-indent.el
@@ -335,22 +335,14 @@ 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)
