bug#73436: eglot-1.17 fails to run in emacs 29.4

[Dov Grobgeld <dov.grobgeld@gmail.com>]

Running the latest version of eglot, version 1.17, installed by
package-list-packages, on emacs 29.4 fails.

Here's what I did:

$ cd /tmp/eglot-1.17
$ emacs -Q -nw eglot.el

and then the interactive commands

M-x eval-buffer
C-x C-f hello.c
C-: (setq debug-on-error t)
M-x eglot

This resulted in an error. Here is the stack trace:

Debugger entered--Lisp error: (invalid-slot-name "#<eglot-lsp-server
eglot-lsp-server-93e4e78>" :events-buffer-config)
  signal(invalid-slot-name ("#<eglot-lsp-server
eglot-lsp-server-93e4e78>" :events-buffer-config))
  slot-missing(#<eglot-lsp-server eglot-lsp-server-93e4e78>
:events-buffer-config oset (:size 2000000 :format full))
  #f(compiled-function (obj slots) "Set slots of OBJ with SLOTS which
is a list of name/value pairs.\nCalled from the constructor routine."
#<bytecode 0x4590eddf9051ddd>)(#<eglot-lsp-server
eglot-lsp-server-93e4e78> (:name "EGLOT (eglot-1.17/(c-mode c-ts-mode
c++-mode c++-t..." :events-buffer-config (:size 2000000 :format full)
:notification-dispatcher (closure ((fn . eglot-handle-notification))
(server method params) (let ((eglot--cached-server server)) (apply fn
server method (append params nil)))) :request-dispatcher (closure ((fn
. eglot-handle-request)) (server method params) (let
((eglot--cached-server server)) (apply fn server method (append params
nil)))) :on-shutdown eglot--on-shutdown :process (closure ((contact
"/usr/bin/clangd") (server-info) (readable-name . "EGLOT
(eglot-1.17/(c-mode c-ts-mode c++-mode c++-t...")
tramp-ssh-controlmaster-options tramp-use-ssh-controlmaster-options)
nil (let ((default-directory default-directory)
(tramp-use-ssh-controlmaster-options 'suppress)
(tramp-ssh-controlmaster-options "-o ControlMaster=no -o
ControlPath=none")) (make-process :name readable-name :command (setq
server-info (eglot--cmd contact)) :connection-type 'pipe :coding
'utf-8-emacs-unix :noquery t :stderr (get-buffer-create (format "*%s
stderr*" readable-name)) :file-handler t)))))
  apply(#f(compiled-function (obj slots) "Set slots of OBJ with SLOTS
which is a list of name/value pairs.\nCalled from the constructor
routine." #<bytecode 0x4590eddf9051ddd>) #<eglot-lsp-server
eglot-lsp-server-93e4e78> (:name "EGLOT (eglot-1.17/(c-mode c-ts-mode
c++-mode c++-t..." :events-buffer-config (:size 2000000 :format full)
:notification-dispatcher (closure ((fn . eglot-handle-notification))
(server method params) (let ((eglot--cached-server server)) (apply fn
server method (append params nil)))) :request-dispatcher (closure ((fn
. eglot-handle-request)) (server method params) (let
((eglot--cached-server server)) (apply fn server method (append params
nil)))) :on-shutdown eglot--on-shutdown :process (closure ((contact
"/usr/bin/clangd") (server-info) (readable-name . "EGLOT
(eglot-1.17/(c-mode c-ts-mode c++-mode c++-t...")
tramp-ssh-controlmaster-options tramp-use-ssh-controlmaster-options)
nil (let ((default-directory default-directory)
(tramp-use-ssh-controlmaster-options 'suppress)
(tramp-ssh-controlmaster-options "-o ControlMaster=no -o
ControlPath=none")) (make-process :name readable-name :command (setq
server-info (eglot--cmd contact)) :connection-type 'pipe :coding
'utf-8-emacs-unix :noquery t :stderr (get-buffer-create (format "*%s
stderr*" readable-name)) :file-handler t)))))
  shared-initialize(#<eglot-lsp-server eglot-lsp-server-93e4e78>
(:name "EGLOT (eglot-1.17/(c-mode c-ts-mode c++-mode c++-t..."
:events-buffer-config (:size 2000000 :format full)
:notification-dispatcher (closure ((fn . eglot-handle-notification))
(server method params) (let ((eglot--cached-server server)) (apply fn
server method (append params nil)))) :request-dispatcher (closure ((fn
. eglot-handle-request)) (server method params) (let
((eglot--cached-server server)) (apply fn server method (append params
nil)))) :on-shutdown eglot--on-shutdown :process (closure ((contact
"/usr/bin/clangd") (server-info) (readable-name . "EGLOT
(eglot-1.17/(c-mode c-ts-mode c++-mode c++-t...")
tramp-ssh-controlmaster-options tramp-use-ssh-controlmaster-options)
nil (let ((default-directory default-directory)
(tramp-use-ssh-controlmaster-options 'suppress)
(tramp-ssh-controlmaster-options "-o ControlMaster=no -o
ControlPath=none")) (make-process :name readable-name :command (setq
server-info (eglot--cmd contact)) :connection-type 'pipe :coding
'utf-8-emacs-unix :noquery t :stderr (get-buffer-create (format "*%s
stderr*" readable-name)) :file-handler t)))))
  #f(compiled-function (this &optional args) "Construct the new object
THIS based on ARGS.\nARGS is a property list where odd numbered
elements are tags, and\neven numbered elements are the values to store
in the tagged slot.\nIf you overload the `initialize-instance', there
you will need to\ncall `shared-initialize' yourself, or you can call
`call-next-method'\nto have this constructor called automatically.  If
these steps are\nnot taken, then new objects of your class will not
have their values\ndynamically set from ARGS." #<bytecode
-0x1f60eebd0e85d7f7>)(#<eglot-lsp-server eglot-lsp-server-93e4e78>
(:name "EGLOT (eglot-1.17/(c-mode c-ts-mode c++-mode c++-t..."
:events-buffer-config (:size 2000000 :format full)
:notification-dispatcher (closure ((fn . eglot-handle-notification))
(server method params) (let ((eglot--cached-server server)) (apply fn
server method (append params nil)))) :request-dispatcher (closure ((fn
. eglot-handle-request)) (server method params) (let
((eglot--cached-server server)) (apply fn server method (append params
nil)))) :on-shutdown eglot--on-shutdown :process (closure ((contact
"/usr/bin/clangd") (server-info) (readable-name . "EGLOT
(eglot-1.17/(c-mode c-ts-mode c++-mode c++-t...")
tramp-ssh-controlmaster-options tramp-use-ssh-controlmaster-options)
nil (let ((default-directory default-directory)
(tramp-use-ssh-controlmaster-options 'suppress)
(tramp-ssh-controlmaster-options "-o ControlMaster=no -o
ControlPath=none")) (make-process :name readable-name :command (setq
server-info (eglot--cmd contact)) :connection-type 'pipe :coding
'utf-8-emacs-unix :noquery t :stderr (get-buffer-create (format "*%s
stderr*" readable-name)) :file-handler t)))))
  apply(#f(compiled-function (this &optional args) "Construct the new
object THIS based on ARGS.\nARGS is a property list where odd numbered
elements are tags, and\neven numbered elements are the values to store
in the tagged slot.\nIf you overload the `initialize-instance', there
you will need to\ncall `shared-initialize' yourself, or you can call
`call-next-method'\nto have this constructor called automatically.  If
these steps are\nnot taken, then new objects of your class will not
have their values\ndynamically set from ARGS." #<bytecode
-0x1f60eebd0e85d7f7>) (#<eglot-lsp-server eglot-lsp-server-93e4e78>
(:name "EGLOT (eglot-1.17/(c-mode c-ts-mode c++-mode c++-t..."
:events-buffer-config (:size 2000000 :format full)
:notification-dispatcher (closure ((fn . eglot-handle-notification))
(server method params) (let ((eglot--cached-server server)) (apply fn
server method (append params nil)))) :request-dispatcher (closure ((fn
. eglot-handle-request)) (server method params) (let
((eglot--cached-server server)) (apply fn server method (append params
nil)))) :on-shutdown eglot--on-shutdown :process (closure ((contact
"/usr/bin/clangd") (server-info) (readable-name . "EGLOT
(eglot-1.17/(c-mode c-ts-mode c++-mode c++-t...")
tramp-ssh-controlmaster-options tramp-use-ssh-controlmaster-options)
nil (let ((default-directory default-directory)
(tramp-use-ssh-controlmaster-options 'suppress)
(tramp-ssh-controlmaster-options "-o ControlMaster=no -o
ControlPath=none")) (make-process :name readable-name :command (setq
server-info (eglot--cmd contact)) :connection-type 'pipe :coding
'utf-8-emacs-unix :noquery t :stderr (get-buffer-create (format "*%s
stderr*" readable-name)) :file-handler t))))))
  #f(compiled-function (&rest args) #<bytecode -0x7469b45b80fef61>)()
  #f(compiled-function (cl--cnm conn slots) #<bytecode
0x18a7bfd9b312194c>)(#f(compiled-function (&rest args) #<bytecode
-0x7469b45b80fef61>) #<eglot-lsp-server eglot-lsp-server-93e4e78>
(:name "EGLOT (eglot-1.17/(c-mode c-ts-mode c++-mode c++-t..."
:events-buffer-config (:size 2000000 :format full)
:notification-dispatcher (closure ((fn . eglot-handle-notification))
(server method params) (let ((eglot--cached-server server)) (apply fn
server method (append params nil)))) :request-dispatcher (closure ((fn
. eglot-handle-request)) (server method params) (let
((eglot--cached-server server)) (apply fn server method (append params
nil)))) :on-shutdown eglot--on-shutdown :process (closure ((contact
"/usr/bin/clangd") (server-info) (readable-name . "EGLOT
(eglot-1.17/(c-mode c-ts-mode c++-mode c++-t...")
tramp-ssh-controlmaster-options tramp-use-ssh-controlmaster-options)
nil (let ((default-directory default-directory)
(tramp-use-ssh-controlmaster-options 'suppress)
(tramp-ssh-controlmaster-options "-o ControlMaster=no -o
ControlPath=none")) (make-process :name readable-name :command (setq
server-info (eglot--cmd contact)) :connection-type 'pipe :coding
'utf-8-emacs-unix :noquery t :stderr (get-buffer-create (format "*%s
stderr*" readable-name)) :file-handler t)))))
  apply(#f(compiled-function (cl--cnm conn slots) #<bytecode
0x18a7bfd9b312194c>) #f(compiled-function (&rest args) #<bytecode
-0x7469b45b80fef61>) (#<eglot-lsp-server eglot-lsp-server-93e4e78>
(:name "EGLOT (eglot-1.17/(c-mode c-ts-mode c++-mode c++-t..."
:events-buffer-config (:size 2000000 :format full)
:notification-dispatcher (closure ((fn . eglot-handle-notification))
(server method params) (let ((eglot--cached-server server)) (apply fn
server method (append params nil)))) :request-dispatcher (closure ((fn
. eglot-handle-request)) (server method params) (let
((eglot--cached-server server)) (apply fn server method (append params
nil)))) :on-shutdown eglot--on-shutdown :process (closure ((contact
"/usr/bin/clangd") (server-info) (readable-name . "EGLOT
(eglot-1.17/(c-mode c-ts-mode c++-mode c++-t...")
tramp-ssh-controlmaster-options tramp-use-ssh-controlmaster-options)
nil (let ((default-directory default-directory)
(tramp-use-ssh-controlmaster-options 'suppress)
(tramp-ssh-controlmaster-options "-o ControlMaster=no -o
ControlPath=none")) (make-process :name readable-name :command (setq
server-info (eglot--cmd contact)) :connection-type 'pipe :coding
'utf-8-emacs-unix :noquery t :stderr (get-buffer-create (format "*%s
stderr*" readable-name)) :file-handler t))))))
  #f(compiled-function (conn slots) #<bytecode
0x164956dec53e81bc>)(#<eglot-lsp-server eglot-lsp-server-93e4e78>
(:name "EGLOT (eglot-1.17/(c-mode c-ts-mode c++-mode c++-t..."
:events-buffer-config (:size 2000000 :format full)
:notification-dispatcher (closure ((fn . eglot-handle-notification))
(server method params) (let ((eglot--cached-server server)) (apply fn
server method (append params nil)))) :request-dispatcher (closure ((fn
. eglot-handle-request)) (server method params) (let
((eglot--cached-server server)) (apply fn server method (append params
nil)))) :on-shutdown eglot--on-shutdown :process (closure ((contact
"/usr/bin/clangd") (server-info) (readable-name . "EGLOT
(eglot-1.17/(c-mode c-ts-mode c++-mode c++-t...")
tramp-ssh-controlmaster-options tramp-use-ssh-controlmaster-options)
nil (let ((default-directory default-directory)
(tramp-use-ssh-controlmaster-options 'suppress)
(tramp-ssh-controlmaster-options "-o ControlMaster=no -o
ControlPath=none")) (make-process :name readable-name :command (setq
server-info (eglot--cmd contact)) :connection-type 'pipe :coding
'utf-8-emacs-unix :noquery t :stderr (get-buffer-create (format "*%s
stderr*" readable-name)) :file-handler t)))))
  apply(#f(compiled-function (conn slots) #<bytecode
0x164956dec53e81bc>) (#<eglot-lsp-server eglot-lsp-server-93e4e78>
(:name "EGLOT (eglot-1.17/(c-mode c-ts-mode c++-mode c++-t..."
:events-buffer-config (:size 2000000 :format full)
:notification-dispatcher (closure ((fn . eglot-handle-notification))
(server method params) (let ((eglot--cached-server server)) (apply fn
server method (append params nil)))) :request-dispatcher (closure ((fn
. eglot-handle-request)) (server method params) (let
((eglot--cached-server server)) (apply fn server method (append params
nil)))) :on-shutdown eglot--on-shutdown :process (closure ((contact
"/usr/bin/clangd") (server-info) (readable-name . "EGLOT
(eglot-1.17/(c-mode c-ts-mode c++-mode c++-t...")
tramp-ssh-controlmaster-options tramp-use-ssh-controlmaster-options)
nil (let ((default-directory default-directory)
(tramp-use-ssh-controlmaster-options 'suppress)
(tramp-ssh-controlmaster-options "-o ControlMaster=no -o
ControlPath=none")) (make-process :name readable-name :command (setq
server-info (eglot--cmd contact)) :connection-type 'pipe :coding
'utf-8-emacs-unix :noquery t :stderr (get-buffer-create (format "*%s
stderr*" readable-name)) :file-handler t))))))
  #f(compiled-function (&rest args) #<bytecode
-0xb77c4438ff27908>)(#<eglot-lsp-server eglot-lsp-server-93e4e78>
(:name "EGLOT (eglot-1.17/(c-mode c-ts-mode c++-mode c++-t..."
:events-buffer-config (:size 2000000 :format full)
:notification-dispatcher (closure ((fn . eglot-handle-notification))
(server method params) (let ((eglot--cached-server server)) (apply fn
server method (append params nil)))) :request-dispatcher (closure ((fn
. eglot-handle-request)) (server method params) (let
((eglot--cached-server server)) (apply fn server method (append params
nil)))) :on-shutdown eglot--on-shutdown :process (closure ((contact
"/usr/bin/clangd") (server-info) (readable-name . "EGLOT
(eglot-1.17/(c-mode c-ts-mode c++-mode c++-t...")
tramp-ssh-controlmaster-options tramp-use-ssh-controlmaster-options)
nil (let ((default-directory default-directory)
(tramp-use-ssh-controlmaster-options 'suppress)
(tramp-ssh-controlmaster-options "-o ControlMaster=no -o
ControlPath=none")) (make-process :name readable-name :command (setq
server-info (eglot--cmd contact)) :connection-type 'pipe :coding
'utf-8-emacs-unix :noquery t :stderr (get-buffer-create (format "*%s
stderr*" readable-name)) :file-handler t)))))
  apply(#f(compiled-function (&rest args) #<bytecode
-0xb77c4438ff27908>) #<eglot-lsp-server eglot-lsp-server-93e4e78>
(:name "EGLOT (eglot-1.17/(c-mode c-ts-mode c++-mode c++-t..."
:events-buffer-config (:size 2000000 :format full)
:notification-dispatcher (closure ((fn . eglot-handle-notification))
(server method params) (let ((eglot--cached-server server)) (apply fn
server method (append params nil)))) :request-dispatcher (closure ((fn
. eglot-handle-request)) (server method params) (let
((eglot--cached-server server)) (apply fn server method (append params
nil)))) :on-shutdown eglot--on-shutdown :process (closure ((contact
"/usr/bin/clangd") (server-info) (readable-name . "EGLOT
(eglot-1.17/(c-mode c-ts-mode c++-mode c++-t...")
tramp-ssh-controlmaster-options tramp-use-ssh-controlmaster-options)
nil (let ((default-directory default-directory)
(tramp-use-ssh-controlmaster-options 'suppress)
(tramp-ssh-controlmaster-options "-o ControlMaster=no -o
ControlPath=none")) (make-process :name readable-name :command (setq
server-info (eglot--cmd contact)) :connection-type 'pipe :coding
'utf-8-emacs-unix :noquery t :stderr (get-buffer-create (format "*%s
stderr*" readable-name)) :file-handler t)))))
  initialize-instance(#<eglot-lsp-server eglot-lsp-server-93e4e78>
(:name "EGLOT (eglot-1.17/(c-mode c-ts-mode c++-mode c++-t..."
:events-buffer-config (:size 2000000 :format full)
:notification-dispatcher (closure ((fn . eglot-handle-notification))
(server method params) (let ((eglot--cached-server server)) (apply fn
server method (append params nil)))) :request-dispatcher (closure ((fn
. eglot-handle-request)) (server method params) (let
((eglot--cached-server server)) (apply fn server method (append params
nil)))) :on-shutdown eglot--on-shutdown :process (closure ((contact
"/usr/bin/clangd") (server-info) (readable-name . "EGLOT
(eglot-1.17/(c-mode c-ts-mode c++-mode c++-t...")
tramp-ssh-controlmaster-options tramp-use-ssh-controlmaster-options)
nil (let ((default-directory default-directory)
(tramp-use-ssh-controlmaster-options 'suppress)
(tramp-ssh-controlmaster-options "-o ControlMaster=no -o
ControlPath=none")) (make-process :name readable-name :command (setq
server-info (eglot--cmd contact)) :connection-type 'pipe :coding
'utf-8-emacs-unix :noquery t :stderr (get-buffer-create (format "*%s
stderr*" readable-name)) :file-handler t)))))
  #f(compiled-function (class &rest slots) "Default constructor for
CLASS `eieio-default-superclass'.\nSLOTS are the initialization slots
used by `initialize-instance'.\nThis static method is called when an
object is constructed.\nIt allocates the vector used to represent an
EIEIO object, and then\ncalls `initialize-instance' on that object."
#<bytecode -0x982733269180e59>)(eglot-lsp-server :name "EGLOT
(eglot-1.17/(c-mode c-ts-mode c++-mode c++-t..." :events-buffer-config
(:size 2000000 :format full) :notification-dispatcher (closure ((fn .
eglot-handle-notification)) (server method params) (let
((eglot--cached-server server)) (apply fn server method (append params
nil)))) :request-dispatcher (closure ((fn . eglot-handle-request))
(server method params) (let ((eglot--cached-server server)) (apply fn
server method (append params nil)))) :on-shutdown eglot--on-shutdown
:process (closure ((contact "/usr/bin/clangd") (server-info)
(readable-name . "EGLOT (eglot-1.17/(c-mode c-ts-mode c++-mode
c++-t...") tramp-ssh-controlmaster-options
tramp-use-ssh-controlmaster-options) nil (let ((default-directory
default-directory) (tramp-use-ssh-controlmaster-options 'suppress)
(tramp-ssh-controlmaster-options "-o ControlMaster=no -o
ControlPath=none")) (make-process :name readable-name :command (setq
server-info (eglot--cmd contact)) :connection-type 'pipe :coding
'utf-8-emacs-unix :noquery t :stderr (get-buffer-create (format "*%s
stderr*" readable-name)) :file-handler t))))
  apply(#f(compiled-function (class &rest slots) "Default constructor
for CLASS `eieio-default-superclass'.\nSLOTS are the initialization
slots used by `initialize-instance'.\nThis static method is called
when an object is constructed.\nIt allocates the vector used to
represent an EIEIO object, and then\ncalls `initialize-instance' on
that object." #<bytecode -0x982733269180e59>) eglot-lsp-server (:name
"EGLOT (eglot-1.17/(c-mode c-ts-mode c++-mode c++-t..."
:events-buffer-config (:size 2000000 :format full)
:notification-dispatcher (closure ((fn . eglot-handle-notification))
(server method params) (let ((eglot--cached-server server)) (apply fn
server method (append params nil)))) :request-dispatcher (closure ((fn
. eglot-handle-request)) (server method params) (let
((eglot--cached-server server)) (apply fn server method (append params
nil)))) :on-shutdown eglot--on-shutdown :process (closure ((contact
"/usr/bin/clangd") (server-info) (readable-name . "EGLOT
(eglot-1.17/(c-mode c-ts-mode c++-mode c++-t...")
tramp-ssh-controlmaster-options tramp-use-ssh-controlmaster-options)
nil (let ((default-directory default-directory)
(tramp-use-ssh-controlmaster-options 'suppress)
(tramp-ssh-controlmaster-options "-o ControlMaster=no -o
ControlPath=none")) (make-process :name readable-name :command (setq
server-info (eglot--cmd contact)) :connection-type 'pipe :coding
'utf-8-emacs-unix :noquery t :stderr (get-buffer-create (format "*%s
stderr*" readable-name)) :file-handler t)))))
  make-instance(eglot-lsp-server :name "EGLOT (eglot-1.17/(c-mode
c-ts-mode c++-mode c++-t..." :events-buffer-config (:size 2000000
:format full) :notification-dispatcher (closure ((fn .
eglot-handle-notification)) (server method params) (let
((eglot--cached-server server)) (apply fn server method (append params
nil)))) :request-dispatcher (closure ((fn . eglot-handle-request))
(server method params) (let ((eglot--cached-server server)) (apply fn
server method (append params nil)))) :on-shutdown eglot--on-shutdown
:process (closure ((contact "/usr/bin/clangd") (server-info)
(readable-name . "EGLOT (eglot-1.17/(c-mode c-ts-mode c++-mode
c++-t...") tramp-ssh-controlmaster-options
tramp-use-ssh-controlmaster-options) nil (let ((default-directory
default-directory) (tramp-use-ssh-controlmaster-options 'suppress)
(tramp-ssh-controlmaster-options "-o ControlMaster=no -o
ControlPath=none")) (make-process :name readable-name :command (setq
server-info (eglot--cmd contact)) :connection-type 'pipe :coding
'utf-8-emacs-unix :noquery t :stderr (get-buffer-create (format "*%s
stderr*" readable-name)) :file-handler t))))
  apply(make-instance eglot-lsp-server :name "EGLOT
(eglot-1.17/(c-mode c-ts-mode c++-mode c++-t..." :events-buffer-config
(:size 2000000 :format full) :notification-dispatcher (closure ((fn .
eglot-handle-notification)) (server method params) (let
((eglot--cached-server server)) (apply fn server method (append params
nil)))) :request-dispatcher (closure ((fn . eglot-handle-request))
(server method params) (let ((eglot--cached-server server)) (apply fn
server method (append params nil)))) :on-shutdown eglot--on-shutdown
(:process (closure ((contact "/usr/bin/clangd") (server-info)
(readable-name . "EGLOT (eglot-1.17/(c-mode c-ts-mode c++-mode
c++-t...") tramp-ssh-controlmaster-options
tramp-use-ssh-controlmaster-options) nil (let ((default-directory
default-directory) (tramp-use-ssh-controlmaster-options 'suppress)
(tramp-ssh-controlmaster-options "-o ControlMaster=no -o
ControlPath=none")) (make-process :name readable-name :command (setq
server-info (eglot--cmd contact)) :connection-type 'pipe :coding
'utf-8-emacs-unix :noquery t :stderr (get-buffer-create (format "*%s
stderr*" readable-name)) :file-handler t)))))
  (let* ((default-directory (project-root project)) (nickname
(project-name project)) (readable-name (format "EGLOT (%s/%s)"
nickname managed-modes)) server-info (contact (if (functionp contact)
(funcall contact) contact)) (initargs (cond ((keywordp (car contact))
contact) ((integerp (car (cdr contact))) (setq server-info (list
(format "%s:%s" ... ...))) (list ':process #'(lambda nil ...))) ((and
(stringp (car contact)) (cl-find-if #'... contact)) (setq server-info
(list "<inferior process>")) (list ':process
(jsonrpc-autoport-bootstrap readable-name contact :connect-args
'...))) ((stringp (car contact)) (let* ((probe ...) (more-initargs
...) (contact ...)) (cons ':process (cons ... more-initargs))))))
(spread #'(lambda (fn) #'(lambda (server method params) (let ...
...)))) (server (apply #'make-instance class :name readable-name
:events-buffer-config eglot-events-buffer-config
:notification-dispatcher (funcall spread #'eglot-handle-notification)
:request-dispatcher (funcall spread #'eglot-handle-request)
:on-shutdown #'eglot--on-shutdown initargs)) (canceled nil) (tag
(make-symbol "connected-catch-tag"))) (if server-info (progn
(jsonrpc--debug server "Running language server: %s" (string-join
server-info " ")))) (let* ((v server)) (\(setf\
eglot--saved-initargs\) initargs v)) (let* ((v server)) (\(setf\
eglot--project\) project v)) (let* ((v server)) (\(setf\
eglot--project-nickname\) nickname v)) (let* ((v server)) (\(setf\
eglot--languages\) (let* ((--cl-var-- managed-modes) (m nil)
(--cl-var-- language-ids) (l nil) (--cl-var-- nil)) (while (and (consp
--cl-var--) (progn (setq m ...) (consp --cl-var--))) (setq l (car
--cl-var--)) (setq --cl-var-- (cons (cons m l) --cl-var--)) (setq
--cl-var-- (cdr --cl-var--)) (setq --cl-var-- (cdr --cl-var--)))
(nreverse --cl-var--)) v)) (run-hook-with-args
'eglot-server-initialized-hook server) (unwind-protect (condition-case
_quit (let ((retval (catch tag (jsonrpc-async-request server
:initialize ... :success-fn ... :timeout eglot-connect-timeout
:error-fn ... :timeout-fn ...) (cond ... ...)))) (cond ((consp retval)
(let* (...) (if ... ... ...))) ((null retval) (let nil (eglot--message
"Waiting in background for server `%s'" ...) nil)) (t (let nil
server)))) (quit (jsonrpc-shutdown server) (setq canceled 'quit)))
(setq tag nil)))
  eglot--connect((c-mode c-ts-mode c++-mode c++-ts-mode objc-mode)
(transient . "/tmp/eglot-1.17/") eglot-lsp-server ("/usr/bin/clangd")
("c" "c" "c++" "c++" "objc"))
  eglot((c-mode c-ts-mode c++-mode c++-ts-mode objc-mode) (transient .
"/tmp/eglot-1.17/") eglot-lsp-server ("/usr/bin/clangd") ("c" "c"
"c++" "c++" "objc") t)
  funcall-interactively(eglot (c-mode c-ts-mode c++-mode c++-ts-mode
objc-mode) (transient . "/tmp/eglot-1.17/") eglot-lsp-server
("/usr/bin/clangd") ("c" "c" "c++" "c++" "objc") t)
  command-execute(eglot record)
  execute-extended-command(nil "eglot" "eglot")
  funcall-interactively(execute-extended-command nil "eglot" "eglot")
  command-execute(execute-extended-command)