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 11:58:03 +0300 Message-ID: Mime-Version: 1.0 Content-Type: text/plain; charset="UTF-8" Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="11381"; mail-complaints-to="usenet@ciao.gmane.io" To: 73436@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Mon Sep 23 10:58:58 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 1sseuH-0002kc-Ri for geb-bug-gnu-emacs@m.gmane-mx.org; Mon, 23 Sep 2024 10:58:58 +0200 Original-Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1sseu1-0001Cg-9u; Mon, 23 Sep 2024 04:58:41 -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 1sseu0-0001Bd-7Y for bug-gnu-emacs@gnu.org; Mon, 23 Sep 2024 04:58: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 1ssetz-0003yO-UD for bug-gnu-emacs@gnu.org; Mon, 23 Sep 2024 04:58: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:MIME-Version:To:Subject; bh=w5eKSH8ZxNuiYBX0tHUynfbLZzTdUkw00LZy1P/5adE=; b=oO5QaRTAgWaNTz1coi5lyCsFOgLiX6M1bZTkXBfVG0vGSNHELknqr1fnMnY2Byq5AxuXgGwZJy7mt/6WjnsJCSXUWcu6B5LiwPi/z2VGAhCt6AeiIGuG2Nu2y5INO8DKERiwodQjNiEPQtaL2HLEOoioaj92+ikoWouufh5dbVtFMNeFzZYBHnTnoWDZ/NRLTXXn0iZ+2VN5wA4OYOlglU0vSbkVVetIVI0DbES/rwuPTKqZc7pFuhAKPrlwm1m/aq/bvrsBR9Z4+iTOOehp/ywarxYW4XHPesKya4oTWXQpTDfs3AOpmN1zbCkHO8IXD9f9BjfINOCzC19wJ+hG5g==; Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1sseuM-0007m3-GD for bug-gnu-emacs@gnu.org; Mon, 23 Sep 2024 04:59: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 08:59:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 73436 X-GNU-PR-Package: emacs X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.172708193229862 (code B ref -1); Mon, 23 Sep 2024 08:59:02 +0000 Original-Received: (at submit) by debbugs.gnu.org; 23 Sep 2024 08:58:52 +0000 Original-Received: from localhost ([127.0.0.1]:43185 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1sseuB-0007lX-1V for submit@debbugs.gnu.org; Mon, 23 Sep 2024 04:58:52 -0400 Original-Received: from lists.gnu.org ([209.51.188.17]:43388) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1sseu8-0007lN-0Q for submit@debbugs.gnu.org; Mon, 23 Sep 2024 04:58:49 -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 1ssetk-00018R-TH for bug-gnu-emacs@gnu.org; Mon, 23 Sep 2024 04:58:24 -0400 Original-Received: from mail-lj1-x234.google.com ([2a00:1450:4864:20::234]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1ssetg-0003wq-Nm for bug-gnu-emacs@gnu.org; Mon, 23 Sep 2024 04:58:23 -0400 Original-Received: by mail-lj1-x234.google.com with SMTP id 38308e7fff4ca-2f75de9a503so35455191fa.0 for ; Mon, 23 Sep 2024 01:58:19 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20230601; t=1727081897; x=1727686697; darn=gnu.org; h=to:subject:message-id:date:from:mime-version:from:to:cc:subject :date:message-id:reply-to; bh=w5eKSH8ZxNuiYBX0tHUynfbLZzTdUkw00LZy1P/5adE=; b=fSy/fvnqALplZgNxtJmIRutWbA+4m9jpjRC6AMt6n4sr2ZfnsE6BE8yei0to4d1iC5 +++mrX9UTqkRPGzkKiktXHlY/qMVjzTclWKDLuN0u8pqJ2dOoqmy9jChIIbBUfUBzq9a ONMVN6k0gLTXmjwphdGcNKqLpvXlEG6ggq7JaBGmWG7shTIKEjouWb0B6MGD6HA1OmpD AuChG1jCnjwasZnssleHehEGcXuJjEcDqVQxD6k/zpBh/SclW6rTrt3HqCl6AtLoPFUW AocV7POB/UOXWNR3UEzDp3WhX+jLoDW7kD6qp5VmtA1xuTLugyBTASXVk1u8QRpaGag6 bvng== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20230601; t=1727081897; x=1727686697; h=to:subject:message-id:date:from:mime-version:x-gm-message-state :from:to:cc:subject:date:message-id:reply-to; bh=w5eKSH8ZxNuiYBX0tHUynfbLZzTdUkw00LZy1P/5adE=; b=ce4yF8MUI6nn44wEQcEzgAfTZSqB42TbjgLiW6gl0xSQQ3mYTpZaZIcGqdLOgiktpi V3i9ny6IvEB/c4Y/2HU6349YeGI/SR6Xyvm8DX1V3sTZ2cA4sni8agMQk67e4u6NYuAf +cPD6kw+iNH83d4IUW4bomHU/W+xcEymqia7MJ2eqtJqzLGTXwg7qSQXOQf4Aytgi3ps NizdOpyMk/lm/DIPoki5v6sulliUFXYAThqrRDCcghtnNJ7x+xxtpAHnLzybP27UZq9j 0n15FhDniUIMmD3GFjb5nj20im5FqCK0x179f5l6SQBnVnnBgY7F5mgFtgw1UeDaUNna cL8w== X-Gm-Message-State: AOJu0Yxc6rrnnrRU0vT/l3GZwseYOD5Fn/X01cfGGzOtGe+7DA+0XRbS 6vxfLhwDYyJMCeUOkCfu0NKgHf7rR6GEBs5ea09H0ZxhW310NXT6sEq1qdNlYI+sQdu0Dy+zMPM z76oaMBSRqxfWjyRjkEFhsQmnNWvq3LZR0ig= X-Google-Smtp-Source: AGHT+IEjnjxgu5O44ZSuRGuF3JP+Mb/bfsDVrkDGxbJ5nBUtadgdt2OzwtoLGoNN72tvCnjnbFr0LMIHclSWbiSV7Dg= X-Received: by 2002:a05:6512:3b29:b0:536:55ae:7458 with SMTP id 2adb3069b0e04-536ac32e514mr5386998e87.40.1727081896373; Mon, 23 Sep 2024 01:58:16 -0700 (PDT) Received-SPF: pass client-ip=2a00:1450:4864:20::234; envelope-from=dov.grobgeld@gmail.com; helo=mail-lj1-x234.google.com X-Spam_score_int: -20 X-Spam_score: -2.1 X-Spam_bar: -- X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, FREEMAIL_FROM=0.001, RCVD_IN_DNSWL_NONE=-0.0001, SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action 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:292264 Archived-At: 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 "#" :events-buffer-config) signal(invalid-slot-name ("#" :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." #)(# (: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." #) # (: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(# (: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." #)(# (: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." #) (# (: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) #)() #f(compiled-function (cl--cnm conn slots) #)(#f(compiled-function (&rest args) #) # (: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) #) #f(compiled-function (&rest args) #) (# (: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) #)(# (: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) #) (# (: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) #)(# (: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) #) # (: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(# (: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." #)(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." #) 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 "")) (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)