branch: master
commit ae996bbc14d113fb0faaa5a8b141620352a4c6d9
Merge: 6e345d2 e4a4026
Author: Artur Malabarba <bruce.connor...@gmail.com>
Commit: Artur Malabarba <bruce.connor...@gmail.com>
Merge pull request #30 from vmfhrmfoaj/master
Fix bug with cl-letf not restoring the values.
---
aggressive-indent.el | 15 ++++++---------
1 files changed, 6 insertions(+), 9 deletions(-)
diff --git a/aggressive-indent.el b/aggressive-indent.el
index fc3ad1f..140cf25 100644
--- a/aggressive-indent.el
+++ b/aggressive-indent.el
@@ -104,9 +104,8 @@ Meant for use in functions which go in hooks."
'aggressive-indent--internal-dont-indent-if
#'eval)
(aggressive-indent--run-user-hooks))
- (ignore-errors
- (cl-letf (((symbol-function 'message) #'ignore))
- ,@body))))
+ (cl-letf (((symbol-function 'message) #'ignore))
+ (ignore-errors ,@body))))
;;;###autoload
(define-namespace aggressive-indent- :group indent
@@ -261,9 +260,8 @@ Like `aggressive-indent-indent-defun', but wrapped in a
'aggressive-indent--internal-dont-indent-if
#'eval)
(aggressive-indent--run-user-hooks))
- (ignore-errors
- (cl-letf (((symbol-function 'message) #'ignore))
- (indent-defun)))))
+ (cl-letf (((symbol-function 'message) #'ignore))
+ (ignore-errors (indent-defun)))))
:autoload
(defun indent-region-and-on (l r)
@@ -307,9 +305,8 @@ Like `aggressive-indent-indent-region-and-on', but wrapped
in a
'aggressive-indent--internal-dont-indent-if
#'eval)
(aggressive-indent--run-user-hooks))
- (ignore-errors
- (cl-letf (((symbol-function 'message) #'ignore))
- (indent-region-and-on l r)))))
+ (cl-letf (((symbol-function 'message) #'ignore))
+ (ignore-errors (indent-region-and-on l r)))))
(defvar -changed-list-right nil
"List of right limit of regions changed in the last command loop.")
