From aefc32fe4a25756dc34130704d961ac25d8f7e8b Mon Sep 17 00:00:00 2001 From: Gracjan Polak Date: Sun, 1 May 2016 23:37:47 +0200 Subject: [PATCH] Sience possible messages from modes --- haskell-font-lock.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/haskell-font-lock.el b/haskell-font-lock.el index a7a0425fe..e5eb0f0f4 100644 --- a/haskell-font-lock.el +++ b/haskell-font-lock.el @@ -431,8 +431,11 @@ like ::, class, instance, data, newtype, type." (concat " haskell-font-lock-fontify-block:" (symbol-name lang-mode))) (delete-region (point-min) (point-max)) (insert string " ") ;; so there's a final property change - (unless (eq major-mode lang-mode) (funcall lang-mode)) - (font-lock-ensure) + (cl-letf (((symbol-function 'message) + (lambda (fmt &rest args)))) + ;; silence messages + (unless (eq major-mode lang-mode) (funcall lang-mode)) + (font-lock-ensure)) (setq pos (point-min)) (while (setq next (next-single-property-change pos 'face)) (put-text-property