emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] master ae996bb 064/108: Merge pull request #30 from vmfhrmfoaj/ma


From: Artur Malabarba
Subject: [elpa] master ae996bb 064/108: Merge pull request #30 from vmfhrmfoaj/master
Date: Wed, 25 Mar 2015 18:39:10 +0000

branch: master
commit ae996bbc14d113fb0faaa5a8b141620352a4c6d9
Merge: 6e345d2 e4a4026
Author: Artur Malabarba <address@hidden>
Commit: Artur Malabarba <address@hidden>

    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.")



reply via email to

[Prev in Thread] Current Thread [Next in Thread]