From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Dov Grobgeld Newsgroups: gmane.emacs.bugs Subject: bug#73436: eglot-1.17 fails to run in emacs 29.4 Date: Mon, 23 Sep 2024 22:29:15 +0300 Message-ID: References: <861q1ah99i.fsf@gnu.org> Mime-Version: 1.0 Content-Type: text/plain; charset="UTF-8" Content-Transfer-Encoding: quoted-printable Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="16207"; mail-complaints-to="usenet@ciao.gmane.io" Cc: Eli Zaretskii , 73436@debbugs.gnu.org To: =?UTF-8?Q?Jo=C3=A3o_?= =?UTF-8?Q?T=C3=A1vora?= Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Mon Sep 23 21:32:07 2024 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1ssomz-00042M-F3 for geb-bug-gnu-emacs@m.gmane-mx.org; Mon, 23 Sep 2024 21:32:05 +0200 Original-Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1ssomb-0002DD-Td; Mon, 23 Sep 2024 15:31:42 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1ssomZ-0002Cx-VT for bug-gnu-emacs@gnu.org; Mon, 23 Sep 2024 15:31:40 -0400 Original-Received: from debbugs.gnu.org ([2001:470:142:5::43]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1ssomZ-0003Sy-LT for bug-gnu-emacs@gnu.org; Mon, 23 Sep 2024 15:31:39 -0400 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=debbugs.gnu.org; s=debbugs-gnu-org; h=Date:From:In-Reply-To:References:MIME-Version:To:Subject; bh=o7NC8bnh+KsrEXFTU2XcKjWUoGlJs+IuhMzlbAXflZ8=; b=Rfy6gCGvb2onyJ1vl5Ry7ezXVC58vNQXasC3LqW0H5lhSL0ZlneCq3RQe1qXWOErEzmP1EJiF9G20kaVAXf3r7KH0VU+WNA7dI56UOeHlZDL/2CYLXcPVmtAGQDLwIWRcSQ5D1tuCRmwE826dNi5ys/3y423JPw2/ejt1GtDd/3XN0r/S+3ltj1RztjxgjSkdzQ3hi5w7WL5xo3xwT6/dprw+xZoVJ7ppgWHRX5smGPStk+ZH79I4tMXahwvCkkwvO9nXHYbGEVLQWJoBjh8Zk3lHVSsvKJqbxheWWi85E/v3KdaxCwRMlnTiQQcJGTfxk9teysH4v+MBiP8Sw7KVg==; Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1ssomw-00016H-56 for bug-gnu-emacs@gnu.org; Mon, 23 Sep 2024 15:32:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Dov Grobgeld Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Mon, 23 Sep 2024 19:32:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 73436 X-GNU-PR-Package: emacs Original-Received: via spool by 73436-submit@debbugs.gnu.org id=B73436.17271198634149 (code B ref 73436); Mon, 23 Sep 2024 19:32:02 +0000 Original-Received: (at 73436) by debbugs.gnu.org; 23 Sep 2024 19:31:03 +0000 Original-Received: from localhost ([127.0.0.1]:44713 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1ssolx-00014Y-Hq for submit@debbugs.gnu.org; Mon, 23 Sep 2024 15:31:03 -0400 Original-Received: from mail-lf1-f49.google.com ([209.85.167.49]:49624) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1ssolu-00014E-2A for 73436@debbugs.gnu.org; Mon, 23 Sep 2024 15:30:59 -0400 Original-Received: by mail-lf1-f49.google.com with SMTP id 2adb3069b0e04-5365c512b00so5585076e87.3 for <73436@debbugs.gnu.org>; Mon, 23 Sep 2024 12:30:34 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20230601; t=1727119769; x=1727724569; darn=debbugs.gnu.org; h=content-transfer-encoding:cc:to:subject:message-id:date:from :in-reply-to:references:mime-version:from:to:cc:subject:date :message-id:reply-to; bh=o7NC8bnh+KsrEXFTU2XcKjWUoGlJs+IuhMzlbAXflZ8=; b=kI1wU0JWYR+m82s4EaW69N1TGmB6UOeSeQJKVRdvcpUfh8XBvqWfYx71KQmcsDkgll 8J6UJ8cGu+PfizIx0HHqvMWQKH54yfGXmDtPhNHc0g5vKfKdlqOn1e5g8HuBS9ZtSYcD cGASu5AeQzLCegon4H6M/FOl+G2cfRYAmXF18yVgQ8000AgtDq5tyxNqiAai/sFKEV3A EzM2Bpo9ouGNqG39GXPHtA/CmltXIp+GeRdxalSahtOlZOd61GJ/Mobw2U5U7mxVL4SX +NrttLbo7wUy2zF9Y35uuIGLtCVvTDxVpkpoaOvtHkoKjxsaFoDxDzXu14InBSdXOVgr fFoQ== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20230601; t=1727119769; x=1727724569; h=content-transfer-encoding:cc:to:subject:message-id:date:from :in-reply-to:references:mime-version:x-gm-message-state:from:to:cc :subject:date:message-id:reply-to; bh=o7NC8bnh+KsrEXFTU2XcKjWUoGlJs+IuhMzlbAXflZ8=; b=wXkP+ufr3orvpFBHsn0HxAKCstODVJ8ZuRDLB/MHd9snneJgSnmQxMwVXwQs3aDdXr vUM0GQwni2AVtBM8ttBWRjW33OuBoP92s9yOCP81dAR6MrIFg1YVBP9RalDdpm+H0ayv ESQFThVT70+oFvp1ZM4hCK8Hu2qaXaeOPGon+WCCCPXWZH42eX4nRFJnpT+LD8vypJou vkXmjgMelCO9OBxtFqr/wLFB1evWAK0PD1bSJAIXzGll76xpOBbOcEEtmzMub5Vxqscg iBpQAcpOpKC3Z+1bKQ5M87zVTgxK69vnZlMHTlSeaIMd2WlrW9kx69YIjao7UxyDeHiG 0wLg== X-Forwarded-Encrypted: i=1; AJvYcCXjDhShZ9gXCwhRZDdrIt/N8A7EW8DtPqF5eGt5EQ4vUnFNYMRJlDl5G5wT+8GA8jQr1S1Tcg==@debbugs.gnu.org X-Gm-Message-State: AOJu0YwK8SOB7f5OwEntNoq+wNSWi2ce4mwnddQpcxRJlQr87RBu8hf4 W0jgvfHxh9PN9jJro48aioRK5lgkZ3nJ1NXAhUEsNuKzxA62WoPq6cFhpytJHsETHs/ciZT2maW bTgE/tPb5WQg5R8GxN+uAAPAJLow= X-Google-Smtp-Source: AGHT+IESpi8MkSUTOildCdgabUnopA2PDK6gnH6vE6msWwVwNhJ6nDpjbKq7ieKMrlLDCTuIuPL/kEgVtjbuUcCOOT4= X-Received: by 2002:a05:6512:b8a:b0:52c:8aa6:4e9d with SMTP id 2adb3069b0e04-536ac2f533fmr6659812e87.29.1727119767971; Mon, 23 Sep 2024 12:29:27 -0700 (PDT) In-Reply-To: X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Xref: news.gmane.io gmane.emacs.bugs:292289 Archived-At: Thanks Jo=C3=A3o, You pushed me finally fix the my use-package installation, and once I did that everything worked. I'll close the bug. On Mon, Sep 23, 2024 at 9:02=E2=80=AFPM Jo=C3=A3o T=C3=A1vora wrote: > > Dov, I don't know where you may have obtained the idea that this eval-buf= fer activation method is supported. It isn't. > > Eglot has dependencies, so either use package.el facilities to ensure tha= t they are installed and activated or use Emacs master. IIRC, in Emacs 29.4= one can use M-x eglot-upgrade-eglot to get and activate the latest version= from GNU Elpa (or GNU-devel Elpa) correctly. Other methods are not support= ed. > > > On Mon, Sep 23, 2024, 12:58 Eli Zaretskii wrote: >> >> > From: Dov Grobgeld >> > Date: Mon, 23 Sep 2024 11:58:03 +0300 >> > >> > Running the latest version of eglot, version 1.17, installed by >> > package-list-packages, on emacs 29.4 fails. >> >> Adding Jo=C3=A3o. >> >> > 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-93e4e78>" :events-buffer-config) >> > signal(invalid-slot-name ("#> > eglot-lsp-server-93e4e78>" :events-buffer-config)) >> > slot-missing(# >> > :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." >> > #)(#> > 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=3Dno -o >> > ControlPath=3Dnone")) (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." #) #> > 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=3Dno -o >> > ControlPath=3Dnone")) (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(# >> > (: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=3Dno -o >> > ControlPath=3Dnone")) (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." #> > -0x1f60eebd0e85d7f7>)(# >> > (: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=3Dno -o >> > ControlPath=3Dnone")) (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." #> > -0x1f60eebd0e85d7f7>) (# >> > (: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=3Dno -o >> > ControlPath=3Dnone")) (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) #)() >> > #f(compiled-function (cl--cnm conn slots) #> > 0x18a7bfd9b312194c>)(#f(compiled-function (&rest args) #> > -0x7469b45b80fef61>) # >> > (: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=3Dno -o >> > ControlPath=3Dnone")) (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) #> > 0x18a7bfd9b312194c>) #f(compiled-function (&rest args) #> > -0x7469b45b80fef61>) (# >> > (: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=3Dno -o >> > ControlPath=3Dnone")) (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) #> > 0x164956dec53e81bc>)(# >> > (: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=3Dno -o >> > ControlPath=3Dnone")) (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) #> > 0x164956dec53e81bc>) (# >> > (: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=3Dno -o >> > ControlPath=3Dnone")) (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) #> > -0xb77c4438ff27908>)(# >> > (: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=3Dno -o >> > ControlPath=3Dnone")) (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) #> > -0xb77c4438ff27908>) # >> > (: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=3Dno -o >> > ControlPath=3Dnone")) (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(# >> > (: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=3Dno -o >> > ControlPath=3Dnone")) (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." >> > #)(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=3Dno -o >> > ControlPath=3Dnone")) (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." #) 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=3Dno -o >> > ControlPath=3Dnone")) (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=3Dno -o >> > ControlPath=3Dnone")) (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=3Dno -o >> > ControlPath=3Dnone")) (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 "")) (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) >> > >> > >> > >> >