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

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

[elpa] master e4a4026 061/108: Prevent that to replace the 'message' fun


From: Artur Malabarba
Subject: [elpa] master e4a4026 061/108: Prevent that to replace the 'message' func to 'ignore' func.
Date: Wed, 25 Mar 2015 18:39:09 +0000

branch: master
commit e4a40267da02dad21394ea01eba6ba09d82a410c
Author: Jinseop Kim <address@hidden>
Commit: Jinseop Kim <address@hidden>

    Prevent that to replace the 'message' func to 'ignore' func.
---
 aggressive-indent.el |   15 ++++++---------
 1 files changed, 6 insertions(+), 9 deletions(-)

diff --git a/aggressive-indent.el b/aggressive-indent.el
index 0b9f26e..ce6eee5 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
@@ -259,9 +258,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)
@@ -305,9 +303,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]