From f35d1d51cd9bcf508607ea083c4c30c6818153dd Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jo=C3=A3o=20T=C3=A1vora?= Date: Wed, 2 May 2018 15:35:22 +0100 Subject: [PATCH] Don't clutter ui with warnings * eglot.el (warnings): require it. (eglot--warn): set warning-minimum-level --- lisp/progmodes/eglot.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el index c7bb5d46f32..6e5954ca807 100644 --- a/lisp/progmodes/eglot.el +++ b/lisp/progmodes/eglot.el @@ -31,6 +31,7 @@ (require 'url-util) (require 'pcase) (require 'compile) ; for some faces +(require 'warnings) (defgroup eglot nil "Interaction with Language Server Protocol servers" @@ -623,9 +624,10 @@ running. INTERACTIVE is t if called interactively." (defun eglot--warn (format &rest args) "Warning message with FORMAT and ARGS." - (display-warning 'eglot - (apply #'format format args) - :warning)) + (let ((warning-minimum-level :error)) + (display-warning 'eglot + (apply #'format format args) + :warning))) -- 2.39.2