From: João Távora <joaotavora@gmail.com>
Date: Wed, 2 May 2018 14:35:22 +0000 (+0100)
Subject: Don't clutter ui with warnings
X-Git-Tag: emacs-29.0.90~1616^2~524^2~4^2~675
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f35d1d51cd9bcf508607ea083c4c30c6818153dd;p=emacs.git

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 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)))