]> git.eshelyaron.com Git - emacs.git/commitdiff
Make eglot--plist-keys a simple (non-map.el) helper again
authorJoão Távora <joaotavora@gmail.com>
Mon, 4 Apr 2022 08:39:59 +0000 (09:39 +0100)
committerJoão Távora <joaotavora@gmail.com>
Mon, 4 Apr 2022 08:43:01 +0000 (09:43 +0100)
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.

lisp/progmodes/eglot.el

index 86e798fabdda4634aa2010a906dc5cf25b67cdd5..f739a0d34db5118fdb99e8cca1f83f9ecba502ef 100644 (file)
@@ -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))
+
 \f
 ;;; 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: