Don't clutter ui with warnings

* eglot.el (warnings): require it.
(eglot--warn): set warning-minimum-level

diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el
index c7bb5d46f32ce0bfe451f1abdf276de07c40298f..6e5954ca80769b911821bdf64ab80504e16e93a3 100644 (file)
--- 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)))
 
 
 \f