[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#69605: [PATCH] Query Eglot version via package.el
From: |
Philip Kaludercic |
Subject: |
bug#69605: [PATCH] Query Eglot version via package.el |
Date: |
Fri, 03 May 2024 07:38:15 +0000 |
Ping?
Philip Kaludercic <philipk@posteo.net> writes:
> It seems to me that 'package-get-version' should already implement the
> logic which is currently being reproduced when defining the constant
> 'eglot--version', so I suggest the following simplification:
>
>>From 7566857ae869eb4cf01bde527eaedb8a3353f035 Mon Sep 17 00:00:00 2001
> From: Philip Kaludercic <philipk@posteo.net>
> Date: Thu, 7 Mar 2024 10:21:45 +0100
> Subject: [PATCH] Query Eglot version via package.el
>
> * lisp/progmodes/eglot.el (eglot--version): Remove constant.
> (eglot--connect): Use 'package-get-version'.
> ---
> lisp/progmodes/eglot.el | 13 ++++---------
> 1 file changed, 4 insertions(+), 9 deletions(-)
>
> diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el
> index f341428cac3..1ec186e75f8 100644
> --- a/lisp/progmodes/eglot.el
> +++ b/lisp/progmodes/eglot.el
> @@ -545,13 +545,6 @@ eglot-withhold-process-id
>
> ;;; Constants
> ;;;
> -(defconst eglot--version
> - (eval-when-compile
> - (when byte-compile-current-file
> - (require 'lisp-mnt)
> - (lm-version byte-compile-current-file)))
> - "The version as a string of this version of Eglot.
> -It is nil if Eglot is not byte-complied.")
>
> (defconst eglot--symbol-kind-names
> `((1 . "File") (2 . "Module")
> @@ -1585,8 +1578,10 @@ eglot--connect
> 'network))
> (emacs-pid))
> :clientInfo
> - `(:name "Eglot" ,@(when eglot--version
> - `(:version ,eglot--version)))
> + (append
> + '(:name "Eglot")
> + (let ((v (package-get-version)))
> + (and v (list :version v))))
> ;; Maybe turn trampy
> `/ssh:foo@bar:/path/to/baz.py'
> ;; into `/path/to/baz.py', so LSP groks it.
> :rootPath (file-local-name
> --
> 2.44.0
--
Philip Kaludercic on peregrine
- bug#69605: [PATCH] Query Eglot version via package.el,
Philip Kaludercic <=