From: João Távora <joaotavora@gmail.com>
Date: Mon, 4 Apr 2022 08:39:59 +0000 (+0100)
Subject: Make eglot--plist-keys a simple (non-map.el) helper again
X-Git-Tag: emacs-29.0.90~1616^2~524^2~4^2~58
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ef0da9414e148cafef7443660ac90c571850b629;p=emacs.git

Make eglot--plist-keys a simple (non-map.el) helper again

This removes a nagging compilation warning when developing on Emacs
master.

There's not much point in depending on map.el just for this util.  And
there' snot much point in making eglot--plist-keys go through a
generic dispatching mechanism when we happen to know the thing
being dispatched

* eglot.el (eglot--plist-keys): Define in helpers section.
---

diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el
index 86e798fabdd..f739a0d34db 100644
--- a/lisp/progmodes/eglot.el
+++ b/lisp/progmodes/eglot.el
@@ -1550,6 +1550,9 @@ and just return it.  PROMPT shouldn't end with a question mark."
   "Tell if SERVER's project root is `file-remote-p'."
   (file-remote-p (project-root (eglot--project server))))
 
+(defun eglot--plist-keys (plist) "Get keys of a plist."
+  (cl-loop for (k _v) on plist by #'cddr collect k))
+
 
 ;;; Minor modes
 ;;;
@@ -3078,13 +3081,6 @@ If NOERROR, return predicate, else erroring function."
 
 (make-obsolete-variable 'eglot--managed-mode-hook
                         'eglot-managed-mode-hook "1.6")
-
-(if (< emacs-major-version 27)
-    (defun eglot--plist-keys (plist)
-      (cl-loop for (k _v) on plist by #'cddr collect k))
-  ;; Make into an obsolete alias once we drop support for Emacs 26.
-  (defalias 'eglot--plist-keys #'map-keys))
-
 (provide 'eglot)
 
 ;; Local Variables: