From f58b55c35e9f8a5fb5892ded14ec80cc500fd76f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Furkan=20Karata=C5=9F?= Date: Sun, 11 Apr 2021 18:25:25 +0300 Subject: [PATCH] Make suppress messages Emacs28 compatible --- aggressive-indent.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/aggressive-indent.el b/aggressive-indent.el index b32b587..e67fa22 100644 --- a/aggressive-indent.el +++ b/aggressive-indent.el @@ -310,7 +310,8 @@ If L and R are provided, use them for finding the start and end of defun." "Indent current defun unobstrusively. Like `aggressive-indent-indent-defun', but without errors or messages. L and R passed to `aggressive-indent-indent-defun'." - (cl-letf (((symbol-function 'message) #'ignore)) + (let ((inhibit-message t) + (message-log-max nil)) (ignore-errors (aggressive-indent-indent-defun l r)))) ;;; Indenting region @@ -382,7 +383,8 @@ then keep indenting until nothing more happens." "Indent region between L and R, and a bit more. Like `aggressive-indent-indent-region-and-on', but without errors or messages." - (cl-letf (((symbol-function 'message) #'ignore)) + (let ((inhibit-message t) + (message-log-max nil)) (ignore-errors (aggressive-indent-indent-region-and-on l r)))) ;;; Tracking changes