branch: externals/elpa commit e964abeba3e1f164fa05e9f7aaa79c4419ee1fe7 Author: João Távora <joaotav...@gmail.com> Commit: João Távora <joaotav...@gmail.com>
Get rid of eglot--buffer-open-count Hasn't really proved useful yet. * eglot.el (eglot--buffer-open-count): Remove. (eglot--signal-textDocument/didOpen) (eglot--signal-textDocument/didClose): Simplify. --- eglot.el | 35 ++++++++--------------------------- 1 file changed, 8 insertions(+), 27 deletions(-) diff --git a/eglot.el b/eglot.el index 1318fee..a600f47 100644 --- a/eglot.el +++ b/eglot.el @@ -135,9 +135,6 @@ A list (WHAT SERIOUS-P)." t) Either a list of strings (a shell command and arguments), or a list of a single string of the form <host>:<port>") -(eglot--define-process-var eglot--buffer-open-count (make-hash-table) - "Keeps track of didOpen/didClose notifs for each buffer.") - (defun eglot--make-process (name managed-major-mode contact) "Make a process from CONTACT. NAME is a name to give the inferior process or connection. @@ -1158,33 +1155,17 @@ Records START, END and PRE-CHANGE-LENGTH locally." (defun eglot--signal-textDocument/didOpen () "Send textDocument/didOpen to server." - (let* ((proc (eglot--current-process-or-lose)) - (count (1+ (or (gethash (current-buffer) - (eglot--buffer-open-count proc)) - 0)))) - (when (> count 1) - (eglot--error "Too many textDocument/didOpen notifs for %s" (current-buffer))) - (setf (gethash (current-buffer) (eglot--buffer-open-count proc)) - count) - (eglot--notify proc - :textDocument/didOpen - (eglot--obj :textDocument - (eglot--current-buffer-TextDocumentItem))))) + (eglot--notify (eglot--current-process-or-lose) + :textDocument/didOpen + (eglot--obj :textDocument + (eglot--current-buffer-TextDocumentItem)))) (defun eglot--signal-textDocument/didClose () "Send textDocument/didClose to server." - (let* ((proc (eglot--current-process-or-lose)) - (count (1- (or (gethash (current-buffer) - (eglot--buffer-open-count proc)) - 0)))) - (when (< count 0) - (eglot--error "Too many textDocument/didClose notifs for %s" (current-buffer))) - (setf (gethash (current-buffer) (eglot--buffer-open-count proc)) - count) - (eglot--notify proc - :textDocument/didClose - (eglot--obj :textDocument - (eglot--current-buffer-TextDocumentIdentifier))))) + (eglot--notify (eglot--current-process-or-lose) + :textDocument/didClose + (eglot--obj :textDocument + (eglot--current-buffer-TextDocumentIdentifier)))) (defun eglot--signal-textDocument/willSave () "Send textDocument/willSave to server."