Error with textDocument/documentHighlight when opening a typescript file in a big typescript project

Thank you for the bug report

[X] I am using the latest version of lsp-mode related packages.
[X] I checked FAQ and Troubleshooting sections
[X] You may also try reproduce the issue using clean environment using the following command
```
emacs -q -l lsp-start-plain.el
```
where lsp-start-plain.el can be downloaded here.
Bug description

When opening a typescript file in a big typescript project the LSP will error and say textDocument/documentHighlight is not supported. I am not exactly sure if this has anything to do with typescript specifically but this is just what I have tested on.
Steps to reproduce

Find a big typescript project
Open treemacs
Open a file in the big typescript project
LSP should ask you if you want to watch all of these files -- in my case it was 1326 directories
The error will pop up about not supporting textDocument/documentHighlight
Expected behavior

If something is not supported by the LSP then it should stay silent about it, I would assume
Which Language Server did you use?

Whatever typescript server is available in lsp-plain-start.el
OS

Linux
Error callstack

Debugger entered--Lisp error: (error "The connected server(s) does not support method te...")
  signal(error ("The connected server(s) does not support method te..."))
  error("The connected server(s) does not support method %s..." "textDocument/documentHighlight")
  (if target-workspaces (let* ((start-time (current-time)) (method (plist-get body :method)) (id (setq lsp-last-id (1+ lsp-last-id))) (hooks (cond ((eq mode 'alive) '(...)) ((eq mode 'tick) '(... ...)) ((eq mode 'unchanged) '(... ...)) ((eq mode 'current) '(...)) (t nil))) (buf (current-buffer)) (cleanup-hooks #'(lambda nil (mapc #'... hooks) (remhash cancel-token lsp--cancelable-requests))) (callback (if (memq mode '(tick alive)) (progn #'(lambda ... ...)) callback)) (callback (lsp--create-async-callback callback method no-merge target-workspaces)) (callback #'(lambda (result) (lsp--request-cleanup-hooks id) (funcall callback result))) (error-callback (lsp--create-async-callback (or error-callback (lsp--create-default-error-handler method)) method nil target-workspaces)) (error-callback #'(lambda (error) (funcall callback :error) (lsp--request-cleanup-hooks id) (funcall error-callback error))) (cancel-callback (if cancel-callback (progn (if (memq mode ...) (progn ...) cancel-callback)))) (body (plist-put body :id id))) (mapc #'(lambda (input0) (let* ((--dash-source-560-- input0) (hook ...) (local --dash-source-560--)) (add-hook hook (lsp--create-request-cancel id target-workspaces hook buf method cancel-callback) nil local))) hooks) (puthash id cleanup-hooks lsp--request-cleanup-hooks) (setq lsp--last-active-workspaces target-workspaces) (if cancel-token (progn (puthash cancel-token (cons id target-workspaces) lsp--cancelable-requests))) (seq-do #'(lambda (workspace) (if (lsp--log-io-p method) (progn (lsp--log-entry-new ... workspace))) (let ((message ...)) (puthash id (list callback error-callback method start-time ...) (let ... ...)) (lsp--send-no-wait message (progn ... ...)))) target-workspaces) body) (error "The connected server(s) does not support method %s..." (plist-get body :method)))
  (let* ((target-workspaces (and t (lsp--find-workspaces-for body)))) (if target-workspaces (let* ((start-time (current-time)) (method (plist-get body :method)) (id (setq lsp-last-id (1+ lsp-last-id))) (hooks (cond ((eq mode ...) '...) ((eq mode ...) '...) ((eq mode ...) '...) ((eq mode ...) '...) (t nil))) (buf (current-buffer)) (cleanup-hooks #'(lambda nil (mapc ... hooks) (remhash cancel-token lsp--cancelable-requests))) (callback (if (memq mode '...) (progn #'...) callback)) (callback (lsp--create-async-callback callback method no-merge target-workspaces)) (callback #'(lambda (result) (lsp--request-cleanup-hooks id) (funcall callback result))) (error-callback (lsp--create-async-callback (or error-callback (lsp--create-default-error-handler method)) method nil target-workspaces)) (error-callback #'(lambda (error) (funcall callback :error) (lsp--request-cleanup-hooks id) (funcall error-callback error))) (cancel-callback (if cancel-callback (progn (if ... ... cancel-callback)))) (body (plist-put body :id id))) (mapc #'(lambda (input0) (let* (... ... ...) (add-hook hook ... nil local))) hooks) (puthash id cleanup-hooks lsp--request-cleanup-hooks) (setq lsp--last-active-workspaces target-workspaces) (if cancel-token (progn (puthash cancel-token (cons id target-workspaces) lsp--cancelable-requests))) (seq-do #'(lambda (workspace) (if (lsp--log-io-p method) (progn ...)) (let (...) (puthash id ... ...) (lsp--send-no-wait message ...))) target-workspaces) body) (error "The connected server(s) does not support method %s..." (plist-get body :method))))
  lsp--send-request-async((:jsonrpc "2.0" :method "textDocument/documentHighlight" :params (:textDocument (:uri "file:///home/sethen/Developer/sonar-lerna/packages...") :position (:line 0 :character 0))) lsp--document-highlight-callback tick nil nil nil :highlights)
  (progn (let ((--cl-keys-- --cl-rest--)) (while --cl-keys-- (cond ((memq (car --cl-keys--) '(:mode :error-handler :cancel-handler :no-merge :cancel-token :allow-other-keys)) (setq --cl-keys-- (cdr (cdr --cl-keys--)))) ((car (cdr (memq ... --cl-rest--))) (setq --cl-keys-- nil)) (t (error "Keyword argument %s not one of (:mode :error-handl..." (car --cl-keys--)))))) (lsp--send-request-async (list ':jsonrpc "2.0" ':method method ':params params) callback mode error-handler cancel-handler no-merge cancel-token))
  (let* ((mode (car (cdr (plist-member --cl-rest-- ':mode)))) (error-handler (car (cdr (plist-member --cl-rest-- ':error-handler)))) (cancel-handler (car (cdr (plist-member --cl-rest-- ':cancel-handler)))) (no-merge (car (cdr (plist-member --cl-rest-- ':no-merge)))) (cancel-token (car (cdr (plist-member --cl-rest-- ':cancel-token))))) (progn (let ((--cl-keys-- --cl-rest--)) (while --cl-keys-- (cond ((memq (car --cl-keys--) '...) (setq --cl-keys-- (cdr ...))) ((car (cdr ...)) (setq --cl-keys-- nil)) (t (error "Keyword argument %s not one of (:mode :error-handl..." (car --cl-keys--)))))) (lsp--send-request-async (list ':jsonrpc "2.0" ':method method ':params params) callback mode error-handler cancel-handler no-merge cancel-token)))
  lsp-request-async("textDocument/documentHighlight" (:textDocument (:uri "file:///home/sethen/Developer/sonar-lerna/packages...") :position (:line 0 :character 0)) lsp--document-highlight-callback :mode tick :cancel-token :highlights)
  (if (or (looking-at "[[:space:]\n]") (not lsp-enable-symbol-highlighting) (and lsp--have-document-highlights curr-sym-bounds (equal curr-sym-bounds lsp--symbol-bounds-of-last-highlight-invocation))) nil (setq lsp--symbol-bounds-of-last-highlight-invocation curr-sym-bounds) (lsp-request-async "textDocument/documentHighlight" (lsp--text-document-position-params) #'lsp--document-highlight-callback :mode 'tick :cancel-token :highlights))
  (let ((curr-sym-bounds (bounds-of-thing-at-point 'symbol))) (if (or (looking-at "[[:space:]\n]") (not lsp-enable-symbol-highlighting) (and lsp--have-document-highlights curr-sym-bounds (equal curr-sym-bounds lsp--symbol-bounds-of-last-highlight-invocation))) nil (setq lsp--symbol-bounds-of-last-highlight-invocation curr-sym-bounds) (lsp-request-async "textDocument/documentHighlight" (lsp--text-document-position-params) #'lsp--document-highlight-callback :mode 'tick :cancel-token :highlights)))
  lsp--document-highlight()
  run-hooks(lsp-on-idle-hook)
  (progn (run-hooks 'lsp-on-idle-hook))
  (if (and (buffer-live-p buffer) (equal buffer (current-buffer)) (not lsp-inhibit-lsp-hooks) lsp-managed-mode) (progn (run-hooks 'lsp-on-idle-hook)))
  lsp--on-idle(#<buffer package.json>)
  (save-current-buffer (set-buffer buffer) (lsp--on-change-debounce buffer) (lsp--on-idle buffer))
  (if wcb (let ((lsp--buffer-workspaces (plist-get buffer :workspaces))) (funcall wcb #'(lambda nil (lsp--on-change-debounce buffer) (lsp--on-idle buffer)))) (save-current-buffer (set-buffer buffer) (lsp--on-change-debounce buffer) (lsp--on-idle buffer)))
  (let* ((wcb (and t (plist-get buffer :with-current-buffer)))) (if wcb (let ((lsp--buffer-workspaces (plist-get buffer :workspaces))) (funcall wcb #'(lambda nil (lsp--on-change-debounce buffer) (lsp--on-idle buffer)))) (save-current-buffer (set-buffer buffer) (lsp--on-change-debounce buffer) (lsp--on-idle buffer))))
  (progn (let* ((wcb (and t (plist-get buffer :with-current-buffer)))) (if wcb (let ((lsp--buffer-workspaces (plist-get buffer :workspaces))) (funcall wcb #'(lambda nil (lsp--on-change-debounce buffer) (lsp--on-idle buffer)))) (save-current-buffer (set-buffer buffer) (lsp--on-change-debounce buffer) (lsp--on-idle buffer)))))
  (if (lsp-buffer-live-p buffer) (progn (let* ((wcb (and t (plist-get buffer :with-current-buffer)))) (if wcb (let ((lsp--buffer-workspaces (plist-get buffer :workspaces))) (funcall wcb #'(lambda nil ... ...))) (save-current-buffer (set-buffer buffer) (lsp--on-change-debounce buffer) (lsp--on-idle buffer))))))
  (closure ((buffer . #<buffer package.json>) (last-message) (arg . 1) cl-struct-lsp--log-entry-tags cl-struct-lsp-session-tags cl-struct-lsp--workspace-tags cl-struct-lsp--registered-capability-tags lsp-mode-menu cl-struct-lsp--folding-range-tags cl-struct-lsp-watch-tags cl-struct-lsp--client-tags lsp--log-lines company-minimum-prefix-length dap-ui-menu-items dap-auto-configure-mode yas-also-auto-indent-first-line yas-wrap-around-region yas-indent-line yas-inhibit-overlay-modification-protection t) nil (if (lsp-buffer-live-p buffer) (progn (let* ((wcb (and t (plist-get buffer :with-current-buffer)))) (if wcb (let ((lsp--buffer-workspaces ...)) (funcall wcb #'...)) (save-current-buffer (set-buffer buffer) (lsp--on-change-debounce buffer) (lsp--on-idle buffer)))))))()
  apply((closure ((buffer . #<buffer package.json>) (last-message) (arg . 1) cl-struct-lsp--log-entry-tags cl-struct-lsp-session-tags cl-struct-lsp--workspace-tags cl-struct-lsp--registered-capability-tags lsp-mode-menu cl-struct-lsp--folding-range-tags cl-struct-lsp-watch-tags cl-struct-lsp--client-tags lsp--log-lines company-minimum-prefix-length dap-ui-menu-items dap-auto-configure-mode yas-also-auto-indent-first-line yas-wrap-around-region yas-indent-line yas-inhibit-overlay-modification-protection t) nil (if (lsp-buffer-live-p buffer) (progn (let* ((wcb (and t ...))) (if wcb (let (...) (funcall wcb ...)) (save-current-buffer (set-buffer buffer) (lsp--on-change-debounce buffer) (lsp--on-idle buffer))))))) nil)
  timer-event-handler([t 0 0 0 nil (closure ((buffer . #<buffer package.json>) (last-message) (arg . 1) cl-struct-lsp--log-entry-tags cl-struct-lsp-session-tags cl-struct-lsp--workspace-tags cl-struct-lsp--registered-capability-tags lsp-mode-menu cl-struct-lsp--folding-range-tags cl-struct-lsp-watch-tags cl-struct-lsp--client-tags lsp--log-lines company-minimum-prefix-length dap-ui-menu-items dap-auto-configure-mode yas-also-auto-indent-first-line yas-wrap-around-region yas-indent-line yas-inhibit-overlay-modification-protection t) nil (if (lsp-buffer-live-p buffer) (progn (let* ((wcb ...)) (if wcb (let ... ...) (save-current-buffer ... ... ...)))))) nil idle 0])
  yes-or-no-p("Watching all the files in /home/sethen/Developer/s...")
  (prog1 (yes-or-no-p (format "Watching all the files in %s would require adding ..." dir number-of-directories dir)) (lsp--info (concat "You can configure this warning with the `lsp-enabl..." "and `lsp-file-watch-threshold' variables")))
  lsp--ask-about-watching-big-repo(1326 "/home/sethen/Developer/sonar-lerna")
  (condition-case _err (lsp--ask-about-watching-big-repo number-of-directories dir) ('quit))
  (or (< number-of-directories lsp-file-watch-threshold) (condition-case _err (lsp--ask-about-watching-big-repo number-of-directories dir) ('quit)))
  (let ((number-of-directories (length dirs-to-watch))) (or (< number-of-directories lsp-file-watch-threshold) (condition-case _err (lsp--ask-about-watching-big-repo number-of-directories dir) ('quit))))
  (or (not warn-big-repo\?) (not lsp-file-watch-threshold) (let ((number-of-directories (length dirs-to-watch))) (or (< number-of-directories lsp-file-watch-threshold) (condition-case _err (lsp--ask-about-watching-big-repo number-of-directories dir) ('quit)))))
  (if (or (not warn-big-repo\?) (not lsp-file-watch-threshold) (let ((number-of-directories (length dirs-to-watch))) (or (< number-of-directories lsp-file-watch-threshold) (condition-case _err (lsp--ask-about-watching-big-repo number-of-directories dir) ('quit))))) (progn (let ((--dolist-tail-- dirs-to-watch)) (while --dolist-tail-- (let ((current-dir (car --dolist-tail--))) (condition-case err (progn (puthash current-dir ... ...)) (error (lsp-log "Failed to create a watch for %s: message" ...)) (file-missing (lsp-log "Failed to create a watch for %s: message" ...))) (setq --dolist-tail-- (cdr --dolist-tail--)))))))
  (let* ((dir (if (f-symlink\? dir) (file-truename dir) dir)) (watch (or watch (make-lsp-watch :root-directory dir))) (dirs-to-watch (lsp--all-watchable-directories dir ignored-directories))) (lsp-log "Creating watchers for following %s folders:\n  %s" (length dirs-to-watch) (s-join "\n  " dirs-to-watch)) (if (or (not warn-big-repo\?) (not lsp-file-watch-threshold) (let ((number-of-directories (length dirs-to-watch))) (or (< number-of-directories lsp-file-watch-threshold) (condition-case _err (lsp--ask-about-watching-big-repo number-of-directories dir) ('quit))))) (progn (let ((--dolist-tail-- dirs-to-watch)) (while --dolist-tail-- (let ((current-dir ...)) (condition-case err (progn ...) (error ...) (file-missing ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))))) watch)
  lsp-watch-root-folder("/home/sethen/Developer/sonar-lerna" #f(compiled-function (&rest args2) #<bytecode 0x15734b197e6d>) ("[/\\\\]flycheck_[^/\\\\]+\\'" "[/\\\\]\\.#[^/\\\\]+\\'" "[/\\\\][^/\\\\]+~\\'") ("[/\\\\]\\.git\\'" "[/\\\\]\\.github\\'" "[/\\\\]\\.circleci\\'" "[/\\\\]\\.hg\\'" "[/\\\\]\\.bzr\\'" "[/\\\\]_darcs\\'" "[/\\\\]\\.svn\\'" "[/\\\\]_FOSSIL_\\'" "[/\\\\]\\.idea\\'" "[/\\\\]\\.ensime_cache\\'" "[/\\\\]\\.eunit\\'" "[/\\\\]node_modules" "[/\\\\]\\.yarn\\'" "[/\\\\]\\.fslckout\\'" "[/\\\\]\\.tox\\'" "[/\\\\]dist\\'" "[/\\\\]dist-newstyle\\'" "[/\\\\]\\.stack-work\\'" "[/\\\\]\\.bloop\\'" "[/\\\\]\\.metals\\'" "[/\\\\]target\\'" "[/\\\\]\\.ccls-cache\\'" "[/\\\\]\\.vscode\\'" "[/\\\\]\\.venv\\'" "[/\\\\]\\.deps\\'" "[/\\\\]build-aux\\'" "[/\\\\]autom4te.cache\\'" "[/\\\\]\\.reference\\'" "[/\\\\]\\.lsp\\'" "[/\\\\]\\.clj-kondo\\'" "[/\\\\]\\.shadow-cljs\\'" "[/\\\\]\\.babel_cache\\'" "[/\\\\]\\.cpcache\\'" "[/\\\\]bin/Debug\\'" "[/\\\\]obj\\'" "[/\\\\]_opam\\'" "[/\\\\]_build\\'" "[/\\\\]\\.direnv\\'") #s(lsp-watch :descriptors #<hash-table equal 0/65 0x15734b197e1d> :root-directory "/home/sethen/Developer/sonar-lerna") t)
  (let* ((watch (make-lsp-watch :root-directory folder)) (ignored-things (lsp--get-ignored-regexes-for-workspace-root folder)) (ignored-files-regex-list (car ignored-things)) (ignored-directories-regex-list (car (cdr ignored-things)))) (puthash folder watch created-watches) (lsp-watch-root-folder (file-truename folder) (-partial #'lsp--file-process-event (lsp-session) folder) ignored-files-regex-list ignored-directories-regex-list watch t))
  (let ((folder (car --dolist-tail--))) (let* ((watch (make-lsp-watch :root-directory folder)) (ignored-things (lsp--get-ignored-regexes-for-workspace-root folder)) (ignored-files-regex-list (car ignored-things)) (ignored-directories-regex-list (car (cdr ignored-things)))) (puthash folder watch created-watches) (lsp-watch-root-folder (file-truename folder) (-partial #'lsp--file-process-event (lsp-session) folder) ignored-files-regex-list ignored-directories-regex-list watch t)) (setq --dolist-tail-- (cdr --dolist-tail--)))
  (while --dolist-tail-- (let ((folder (car --dolist-tail--))) (let* ((watch (make-lsp-watch :root-directory folder)) (ignored-things (lsp--get-ignored-regexes-for-workspace-root folder)) (ignored-files-regex-list (car ignored-things)) (ignored-directories-regex-list (car (cdr ignored-things)))) (puthash folder watch created-watches) (lsp-watch-root-folder (file-truename folder) (-partial #'lsp--file-process-event (lsp-session) folder) ignored-files-regex-list ignored-directories-regex-list watch t)) (setq --dolist-tail-- (cdr --dolist-tail--))))
  (let ((--dolist-tail-- root-folders)) (while --dolist-tail-- (let ((folder (car --dolist-tail--))) (let* ((watch (make-lsp-watch :root-directory folder)) (ignored-things (lsp--get-ignored-regexes-for-workspace-root folder)) (ignored-files-regex-list (car ignored-things)) (ignored-directories-regex-list (car (cdr ignored-things)))) (puthash folder watch created-watches) (lsp-watch-root-folder (file-truename folder) (-partial #'lsp--file-process-event (lsp-session) folder) ignored-files-regex-list ignored-directories-regex-list watch t)) (setq --dolist-tail-- (cdr --dolist-tail--)))))
  (let* ((created-watches (lsp-session-watches (lsp-session))) (root-folders (cl-set-difference (lsp-find-roots-for-workspace lsp--cur-workspace (lsp-session)) (ht-keys created-watches)))) (let ((--dolist-tail-- root-folders)) (while --dolist-tail-- (let ((folder (car --dolist-tail--))) (let* ((watch (make-lsp-watch :root-directory folder)) (ignored-things (lsp--get-ignored-regexes-for-workspace-root folder)) (ignored-files-regex-list (car ignored-things)) (ignored-directories-regex-list (car ...))) (puthash folder watch created-watches) (lsp-watch-root-folder (file-truename folder) (-partial #'lsp--file-process-event (lsp-session) folder) ignored-files-regex-list ignored-directories-regex-list watch t)) (setq --dolist-tail-- (cdr --dolist-tail--))))))
  (progn (let* ((created-watches (lsp-session-watches (lsp-session))) (root-folders (cl-set-difference (lsp-find-roots-for-workspace lsp--cur-workspace (lsp-session)) (ht-keys created-watches)))) (let ((--dolist-tail-- root-folders)) (while --dolist-tail-- (let ((folder (car --dolist-tail--))) (let* ((watch ...) (ignored-things ...) (ignored-files-regex-list ...) (ignored-directories-regex-list ...)) (puthash folder watch created-watches) (lsp-watch-root-folder (file-truename folder) (-partial ... ... folder) ignored-files-regex-list ignored-directories-regex-list watch t)) (setq --dolist-tail-- (cdr --dolist-tail--)))))))
  (if (and lsp-enable-file-watchers (equal method "workspace/didChangeWatchedFiles")) (progn (let* ((created-watches (lsp-session-watches (lsp-session))) (root-folders (cl-set-difference (lsp-find-roots-for-workspace lsp--cur-workspace (lsp-session)) (ht-keys created-watches)))) (let ((--dolist-tail-- root-folders)) (while --dolist-tail-- (let ((folder ...)) (let* (... ... ... ...) (puthash folder watch created-watches) (lsp-watch-root-folder ... ... ignored-files-regex-list ignored-directories-regex-list watch t)) (setq --dolist-tail-- (cdr --dolist-tail--))))))))
  (let* ((method (gethash "method" input0)) (id (gethash "id" input0)) (register-options\? (gethash "registerOptions" input0))) (if (and lsp-enable-file-watchers (equal method "workspace/didChangeWatchedFiles")) (progn (let* ((created-watches (lsp-session-watches (lsp-session))) (root-folders (cl-set-difference (lsp-find-roots-for-workspace lsp--cur-workspace ...) (ht-keys created-watches)))) (let ((--dolist-tail-- root-folders)) (while --dolist-tail-- (let (...) (let* ... ... ...) (setq --dolist-tail-- ...))))))) (let* ((v (record 'lsp--registered-capability id method register-options\?))) (progn (or (and (memq (type-of lsp--cur-workspace) cl-struct-lsp--workspace-tags) t) (signal 'wrong-type-argument (list 'lsp--workspace lsp--cur-workspace))) (let* ((v lsp--cur-workspace)) (aset v 3 (cons v (aref v 3)))))))
  lsp--server-register-capability(#<hash-table equal 3/65 0x15734b3c6669>)
  (let ((lsp--cur-workspace workspace)) (lsp--server-register-capability (lsp-make-registration :id "random-id" :method "workspace/didChangeWatchedFiles" :register-options\? (lsp-make-did-change-watched-files-registration-options :watchers (vector (lsp-make-file-system-watcher :glob-pattern "**/.eslintr{c.js,c.yaml,c.yml,c,c.json}") (lsp-make-file-system-watcher :glob-pattern "**/.eslintignore") (lsp-make-file-system-watcher :glob-pattern "**/package.json"))))))
  (closure (t) (workspace) (let ((lsp--cur-workspace workspace)) (lsp--server-register-capability (lsp-make-registration :id "random-id" :method "workspace/didChangeWatchedFiles" :register-options\? (lsp-make-did-change-watched-files-registration-options :watchers (vector (lsp-make-file-system-watcher :glob-pattern "**/.eslintr{c.js,c.yaml,c.yml,c,c.json}") (lsp-make-file-system-watcher :glob-pattern "**/.eslintignore") (lsp-make-file-system-watcher :glob-pattern "**/package.json")))))))(#s(lsp--workspace :ewoc nil :server-capabilities #<hash-table equal 4/4 0x15734b2c1b35> :registered-server-capabilities nil :root "/home/sethen/Developer/sonar-lerna" :client #s(lsp--client :language-id nil :add-on? t :new-connection (:connect (closure ((test-command closure (t) nil (lsp-eslint-server-exists\? ...)) (command closure (t) nil (lsp-eslint-server-command)) view-inhibit-help-message cl-struct-lsp--log-entry-tags cl-struct-lsp-session-tags cl-struct-lsp--workspace-tags cl-struct-lsp--registered-capability-tags lsp-mode-menu cl-struct-lsp--folding-range-tags cl-struct-lsp-watch-tags cl-struct-lsp--client-tags lsp--log-lines company-minimum-prefix-length dap-ui-menu-items dap-auto-configure-mode yas-also-auto-indent-first-line yas-wrap-around-region yas-indent-line yas-inhibit-overlay-modification-protection t) (filter sentinel name environment-fn) (let ((final-command ...) (process-name ...) (process-environment ...)) (let* (... ...) (set-process-query-on-exit-flag proc nil) (set-process-query-on-exit-flag ... nil) (save-current-buffer ... ...) (cons proc proc)))) :test\? (closure (t) nil (lsp-eslint-server-exists\? (lsp-eslint-server-command)))) :ignore-regexps nil :ignore-messages nil :notification-handlers #<hash-table equal 1/65 0x15734b19819d> :request-handlers #<hash-table equal 3/65 0x15734b19ae29> :response-handlers #<hash-table eql 1/65 0x15734b428801> :prefix-function nil :uri-handlers #<hash-table equal 0/65 0x15734b42b2a5> :action-handlers #<hash-table equal 0/65 0x15734bb3c429> :major-modes nil :activation-fn (closure (t) (filename &optional _) (if lsp-eslint-enable (progn (or (string-match-p "[^z-a]+\\.\\(?:html\\|jsx?\\|svelte\\|tsx?\\|vue\\)\\'" filename) (derived-mode-p ... ... ... ... ...))))) :priority -1 :server-id eslint :multi-root t :initialization-options nil :semantic-tokens-faces-overrides nil :custom-capabilities nil :library-folders-fn nil :before-file-open-fn nil :initialized-fn (closure (t) (workspace) (let ((lsp--cur-workspace workspace)) (lsp--server-register-capability (lsp-make-registration :id "random-id" :method "workspace/didChangeWatchedFiles" :register-options\? (lsp-make-did-change-watched-files-registration-options :watchers ...))))) :remote? nil :completion-in-comments? t :path->uri-fn nil :uri->path-fn nil :environment-fn nil :after-open-fn nil :async-request-handlers #<hash-table equal 1/65 0x15734beb1e11> :download-server-fn (closure (t) (_client callback error-callback _update\?) (let ((tmp-zip (make-temp-file "ext" nil ".zip"))) (delete-file tmp-zip) (lsp-download-install #'(lambda ... ...) error-callback :url (lsp-vscode-extension-url "dbaeumer" "vscode-eslint" "2.1.23") :store-path tmp-zip))) :download-in-progress? nil :buffers nil) :host-root nil :proc #<process eslint> :cmd-proc #<process eslint> :buffers (#<buffer package.json>) :semantic-tokens-faces nil :semantic-tokens-modifier-faces nil :extra-client-capabilities nil :status initialized :metadata #<hash-table equal 0/65 0x15734bf5a2b5> :watches #<hash-table equal 0/65 0x15734ba9bc45> :workspace-folders nil :last-id 0 :status-string nil :shutdown-action nil :diagnostics #<hash-table equal 0/65 0x15734bd4e54d> :work-done-tokens #<hash-table equal 0/65 0x15734bb65be5>))
  funcall((closure (t) (workspace) (let ((lsp--cur-workspace workspace)) (lsp--server-register-capability (lsp-make-registration :id "random-id" :method "workspace/didChangeWatchedFiles" :register-options\? (lsp-make-did-change-watched-files-registration-options :watchers (vector (lsp-make-file-system-watcher :glob-pattern "**/.eslintr{c.js,c.yaml,c.yml,c,c.json}") (lsp-make-file-system-watcher :glob-pattern "**/.eslintignore") (lsp-make-file-system-watcher :glob-pattern "**/package.json"))))))) #s(lsp--workspace :ewoc nil :server-capabilities #<hash-table equal 4/4 0x15734b2c1b35> :registered-server-capabilities nil :root "/home/sethen/Developer/sonar-lerna" :client #s(lsp--client :language-id nil :add-on? t :new-connection (:connect (closure ((test-command closure (t) nil (lsp-eslint-server-exists\? ...)) (command closure (t) nil (lsp-eslint-server-command)) view-inhibit-help-message cl-struct-lsp--log-entry-tags cl-struct-lsp-session-tags cl-struct-lsp--workspace-tags cl-struct-lsp--registered-capability-tags lsp-mode-menu cl-struct-lsp--folding-range-tags cl-struct-lsp-watch-tags cl-struct-lsp--client-tags lsp--log-lines company-minimum-prefix-length dap-ui-menu-items dap-auto-configure-mode yas-also-auto-indent-first-line yas-wrap-around-region yas-indent-line yas-inhibit-overlay-modification-protection t) (filter sentinel name environment-fn) (let ((final-command ...) (process-name ...) (process-environment ...)) (let* (... ...) (set-process-query-on-exit-flag proc nil) (set-process-query-on-exit-flag ... nil) (save-current-buffer ... ...) (cons proc proc)))) :test\? (closure (t) nil (lsp-eslint-server-exists\? (lsp-eslint-server-command)))) :ignore-regexps nil :ignore-messages nil :notification-handlers #<hash-table equal 1/65 0x15734b19819d> :request-handlers #<hash-table equal 3/65 0x15734b19ae29> :response-handlers #<hash-table eql 1/65 0x15734b428801> :prefix-function nil :uri-handlers #<hash-table equal 0/65 0x15734b42b2a5> :action-handlers #<hash-table equal 0/65 0x15734bb3c429> :major-modes nil :activation-fn (closure (t) (filename &optional _) (if lsp-eslint-enable (progn (or (string-match-p "[^z-a]+\\.\\(?:html\\|jsx?\\|svelte\\|tsx?\\|vue\\)\\'" filename) (derived-mode-p ... ... ... ... ...))))) :priority -1 :server-id eslint :multi-root t :initialization-options nil :semantic-tokens-faces-overrides nil :custom-capabilities nil :library-folders-fn nil :before-file-open-fn nil :initialized-fn (closure (t) (workspace) (let ((lsp--cur-workspace workspace)) (lsp--server-register-capability (lsp-make-registration :id "random-id" :method "workspace/didChangeWatchedFiles" :register-options\? (lsp-make-did-change-watched-files-registration-options :watchers ...))))) :remote? nil :completion-in-comments? t :path->uri-fn nil :uri->path-fn nil :environment-fn nil :after-open-fn nil :async-request-handlers #<hash-table equal 1/65 0x15734beb1e11> :download-server-fn (closure (t) (_client callback error-callback _update\?) (let ((tmp-zip (make-temp-file "ext" nil ".zip"))) (delete-file tmp-zip) (lsp-download-install #'(lambda ... ...) error-callback :url (lsp-vscode-extension-url "dbaeumer" "vscode-eslint" "2.1.23") :store-path tmp-zip))) :download-in-progress? nil :buffers nil) :host-root nil :proc #<process eslint> :cmd-proc #<process eslint> :buffers (#<buffer package.json>) :semantic-tokens-faces nil :semantic-tokens-modifier-faces nil :extra-client-capabilities nil :status initialized :metadata #<hash-table equal 0/65 0x15734bf5a2b5> :watches #<hash-table equal 0/65 0x15734ba9bc45> :workspace-folders nil :last-id 0 :status-string nil :shutdown-action nil :diagnostics #<hash-table equal 0/65 0x15734bd4e54d> :work-done-tokens #<hash-table equal 0/65 0x15734bb65be5>))
  (progn (funcall initialized-fn workspace))
  (if initialized-fn (progn (funcall initialized-fn workspace)))
  (let* ((capabilities (lsp:initialize-result-capabilities response)) (json-object-type 'hash-table) (text-document-sync (let ((result (let (...) (if result ...)))) (if result (progn (gethash "textDocumentSync" result nil))))) (save (if (ht\? text-document-sync) (progn (gethash "save" text-document-sync nil))))) (if (and (ht\? save) (= 0 (hash-table-count save))) (progn (lsp:set-text-document-sync-options-save\? (lsp:server-capabilities-text-document-sync\? capabilities) save))) (progn (progn (or (and (memq (type-of workspace) cl-struct-lsp--workspace-tags) t) (signal 'wrong-type-argument (list 'lsp--workspace workspace))) (let* ((v workspace)) (aset v 2 capabilities))) (progn (or (and (memq (type-of workspace) cl-struct-lsp--workspace-tags) t) (signal 'wrong-type-argument (list 'lsp--workspace workspace))) (let* ((v workspace)) (aset v 13 'initialized)))) (let ((lsp--cur-workspace workspace)) (lsp-notify "initialized" lsp--empty-ht)) (if initialized-fn (progn (funcall initialized-fn workspace))) (progn (or (and (memq (type-of workspace) cl-struct-lsp--workspace-tags) t) (signal 'wrong-type-argument (list 'lsp--workspace workspace))) (let* ((v workspace)) (aset v 9 (-filter #'lsp-buffer-live-p (progn (or (and ... t) (signal ... ...)) (aref workspace 9)))))) (mapc #'(lambda (buffer) (let* ((wcb (and t ...))) (if wcb (let (...) (funcall wcb ...)) (save-current-buffer (set-buffer buffer) (lsp--open-in-workspace workspace))))) (progn (or (and (memq (type-of workspace) cl-struct-lsp--workspace-tags) t) (signal 'wrong-type-argument (list 'lsp--workspace workspace))) (aref workspace 9))) (let ((lsp--cur-workspace workspace)) (run-hooks 'lsp-after-initialize-hook)) (lsp--info "%s initialized successfully in folders: %s" (lsp--workspace-print workspace) (lsp-workspace-folders workspace)))
  (closure ((workspace-folders "/home/sethen/Developer..." "/home/sethen/Developer..." "/home/sethen/Developer...") (cmd-proc . #<process eslint>) (proc . #<process eslint>) (--dash-source-685-- . #<process eslint>) (initialized-fn closure ... ... ...) (multi-root . t) (custom-capabilities) (new-connection :connect ... :test\? ...) (environment-fn) (server-id . eslint) (workspace . ...) (client . ...) (initialization-options) (root . "/home/sethen/Developer...") (client-template . ...) (session . ...) view-inhibit-help-message cl-struct-lsp--log-entry-tags cl-struct-lsp-session-tags cl-struct-lsp--workspace-tags cl-struct-lsp--registered-capability-tags lsp-mode-menu ...) (response) (if response nil (lsp--spinner-stop) (signal ... ...)) (let* (... ... ... ...) (if ... ...) (progn ... ...) (let ... ...) (if initialized-fn ...) (progn ... ...) (mapc ... ...) (let ... ...) (lsp--info "%s initialized success..." ... ...)))(#<hash-table equal 1/1 0x15734b1ce205>)
  funcall((closure ((workspace-folders "/home/sethen/Developer/sonar-ler..." "/home/sethen/Developer/sonar-ler..." "/home/sethen/Developer/dotfiles") (cmd-proc . #<process eslint>) (proc . #<process eslint>) (--dash-source-685-- . #<process eslint>) (initialized-fn closure (t) (workspace) (let ... ...)) (multi-root . t) (custom-capabilities) (new-connection :connect (closure ... ... ...) :test\? (closure ... nil ...)) (environment-fn) (server-id . eslint) (workspace . #s(lsp--workspace :ewoc nil :server-capabilities #<hash-table equal 4/4 0x15734b2c1b35> :registered-server-capabilities nil :root "/home/sethen/Developer/sonar-ler..." :client ... :host-root nil :proc #<process eslint> :cmd-proc #<process eslint> :buffers ... :semantic-tokens-faces nil :semantic-tokens-modifier-faces nil :extra-client-capabilities nil :status initialized :metadata #<hash-table equal 0/65 0x15734bf5a2b5> :watches #<hash-table equal 0/65 0x15734ba9bc45> :workspace-folders nil :last-id 0 :status-string nil :shutdown-action nil :diagnostics #<hash-table equal 0/65 0x15734bd4e54d> :work-done-tokens #<hash-table equal 0/65 0x15734bb65be5>)) (client . #s(lsp--client :language-id nil :add-on? t :new-connection ... :ignore-regexps nil :ignore-messages nil :notification-handlers #<hash-table equal 1/65 0x15734b19819d> :request-handlers #<hash-table equal 3/65 0x15734b19ae29> :response-handlers #<hash-table eql 1/65 0x15734b428801> :prefix-function nil :uri-handlers #<hash-table equal 0/65 0x15734b42b2a5> :action-handlers #<hash-table equal 0/65 0x15734bb3c429> :major-modes nil :activation-fn ... :priority -1 :server-id eslint :multi-root t :initialization-options nil :semantic-tokens-faces-overrides nil :custom-capabilities nil :library-folders-fn nil :before-file-open-fn nil :initialized-fn ... :remote? nil :completion-in-comments? t :path->uri-fn nil :uri->path-fn nil :environment-fn nil :after-open-fn nil :async-request-handlers #<hash-table equal 1/65 0x15734beb1e11> :download-server-fn ... :download-in-progress? nil :buffers nil)) (initialization-options) (root . "/home/sethen/Developer/sonar-ler...") (client-template . #s(lsp--client :language-id nil :add-on? t :new-connection ... :ignore-regexps nil :ignore-messages nil :notification-handlers #<hash-table equal 1/65 0x15734b19819d> :request-handlers #<hash-table equal 3/65 0x15734b19ae29> :response-handlers #<hash-table eql 1/65 0x15734b428801> :prefix-function nil :uri-handlers #<hash-table equal 0/65 0x15734b42b2a5> :action-handlers #<hash-table equal 0/65 0x15734bb3c429> :major-modes nil :activation-fn ... :priority -1 :server-id eslint :multi-root t :initialization-options nil :semantic-tokens-faces-overrides nil :custom-capabilities nil :library-folders-fn nil :before-file-open-fn nil :initialized-fn ... :remote? nil :completion-in-comments? t :path->uri-fn nil :uri->path-fn nil :environment-fn nil :after-open-fn nil :async-request-handlers #<hash-table equal 1/65 0x15734beb1e11> :download-server-fn ... :download-in-progress? nil :buffers nil)) (session . #s(lsp-session :folders ... :folders-blacklist nil :server-id->folders #<hash-table equal 1/65 0x15734b19f39d> :folder->servers #<hash-table equal 2/65 0x15734b19f3bd> :metadata #<hash-table equal 2/65 0x15734b19f3dd>)) view-inhibit-help-message cl-struct-lsp--log-entry-tags cl-struct-lsp-session-tags cl-struct-lsp--workspace-tags cl-struct-lsp--registered-capability-tags lsp-mode-menu cl-struct-lsp--folding-range-tags cl-struct-lsp-watch-tags cl-struct-lsp--client-tags lsp--log-lines company-minimum-prefix-length dap-ui-menu-items dap-auto-configure-mode yas-also-auto-indent-first-line yas-wrap-around-region yas-indent-line ...) (response) (if response nil (lsp--spinner-stop) (signal 'lsp-empty-response-error (list "initialize"))) (let* ((capabilities ...) (json-object-type ...) (text-document-sync ...) (save ...)) (if (and ... ...) (progn ...)) (progn (progn ... ...) (progn ... ...)) (let (...) (lsp-notify "initialized" lsp--empty-ht)) (if initialized-fn (progn ...)) (progn (or ... ...) (let* ... ...)) (mapc #'... (progn ... ...)) (let (...) (run-hooks ...)) (lsp--info "%s initialized successfully in f..." (lsp--workspace-print workspace) (lsp-workspace-folders workspace)))) #<hash-table equal 1/1 0x15734b1ce205>)
  (progn (funcall callback (if no-merge results (lsp--merge-results (-map #'cl-rest results) method))))
  (if (and (not (eq (length errors) (length workspaces))) (eq (+ (length errors) (length results)) (length workspaces))) (progn (funcall callback (if no-merge results (lsp--merge-results (-map #'cl-rest results) method)))))
  (closure ((errors) (results ...) (workspaces ...) (no-merge) (method . "initialize") (callback closure ... ... ... ...) cl-struct-lsp--log-entry-tags cl-struct-lsp-session-tags cl-struct-lsp--workspace-tags cl-struct-lsp--registered-capability-tags lsp-mode-menu cl-struct-lsp--folding-range-tags cl-struct-lsp-watch-tags cl-struct-lsp--client-tags lsp--log-lines company-minimum-prefix-length dap-ui-menu-items dap-auto-configure-mode yas-also-auto-indent-first-line yas-wrap-around-region yas-indent-line yas-inhibit-overlay-modification-protection ...) (result) (let* (...) (if ... ... ...)) (if (and ... ...) (progn ...)))(#<hash-table equal 1/1 0x15734b1ce205>)
  funcall((closure ((errors) (results (#s(lsp--workspace :ewoc nil :server-capabilities #<hash-table equal 4/4 0x15734b2c1b35> :registered-server-capabilities nil :root "/home/sethen/Developer/sonar-lerna" :client ... :host-root nil :proc #<process eslint> :cmd-proc #<process eslint> :buffers ... :semantic-tokens-faces nil :semantic-tokens-modifier-faces nil :extra-client-capabilities nil :status initialized :metadata #<hash-table equal 0/65 0x15734bf5a2b5> :watches #<hash-table equal 0/65 0x15734ba9bc45> :workspace-folders nil :last-id 0 :status-string nil :shutdown-action nil :diagnostics #<hash-table equal 0/65 0x15734bd4e54d> :work-done-tokens #<hash-table equal 0/65 0x15734bb65be5>) . #<hash-table equal 1/1 0x15734b1ce205>)) (workspaces #s(lsp--workspace :ewoc nil :server-capabilities #<hash-table equal 4/4 0x15734b2c1b35> :registered-server-capabilities nil :root "/home/sethen/Developer/sonar-lerna" :client #s(lsp--client :language-id nil :add-on? t :new-connection ... :ignore-regexps nil :ignore-messages nil :notification-handlers #<hash-table equal 1/65 0x15734b19819d> :request-handlers #<hash-table equal 3/65 0x15734b19ae29> :response-handlers #<hash-table eql 1/65 0x15734b428801> :prefix-function nil :uri-handlers #<hash-table equal 0/65 0x15734b42b2a5> :action-handlers #<hash-table equal 0/65 0x15734bb3c429> :major-modes nil :activation-fn ... :priority -1 :server-id eslint :multi-root t :initialization-options nil :semantic-tokens-faces-overrides nil :custom-capabilities nil :library-folders-fn nil :before-file-open-fn nil :initialized-fn ... :remote? nil :completion-in-comments? t :path->uri-fn nil :uri->path-fn nil :environment-fn nil :after-open-fn nil :async-request-handlers #<hash-table equal 1/65 0x15734beb1e11> :download-server-fn ... :download-in-progress? nil :buffers nil) :host-root nil :proc #<process eslint> :cmd-proc #<process eslint> :buffers (#<buffer package.json>) :semantic-tokens-faces nil :semantic-tokens-modifier-faces nil :extra-client-capabilities nil :status initialized :metadata #<hash-table equal 0/65 0x15734bf5a2b5> :watches #<hash-table equal 0/65 0x15734ba9bc45> :workspace-folders nil :last-id 0 :status-string nil :shutdown-action nil :diagnostics #<hash-table equal 0/65 0x15734bd4e54d> :work-done-tokens #<hash-table equal 0/65 0x15734bb65be5>)) (no-merge) (method . "initialize") (callback closure ((workspace-folders "/home/sethen/Developer/sonar-lerna" "/home/sethen/Developer/sonar-lerna" "/home/sethen/Developer/dotfiles") (cmd-proc . #<process eslint>) (proc . #<process eslint>) (--dash-source-685-- . #<process eslint>) (initialized-fn closure ... ... ...) (multi-root . t) (custom-capabilities) (new-connection :connect ... :test\? ...) (environment-fn) (server-id . eslint) (workspace . ...) (client . ...) (initialization-options) (root . "/home/sethen/Developer/sonar-lerna") (client-template . ...) (session . ...) view-inhibit-help-message cl-struct-lsp--log-entry-tags cl-struct-lsp-session-tags cl-struct-lsp--workspace-tags cl-struct-lsp--registered-capability-tags lsp-mode-menu cl-struct-lsp--folding-range-tags cl-struct-lsp-watch-tags cl-struct-lsp--client-tags lsp--log-lines company-minimum-prefix-length dap-ui-menu-items dap-auto-configure-mode yas-also-auto-indent-first-line yas-wrap-around-region yas-indent-line yas-inhibit-overlay-modification-protection t) (response) (if response nil (lsp--spinner-stop) (signal ... ...)) (let* (... ... ... ...) (if ... ...) (progn ... ...) (let ... ...) (if initialized-fn ...) (progn ... ...) (mapc ... ...) (let ... ...) (lsp--info "%s initialized successfully in folders..." ... ...))) cl-struct-lsp--log-entry-tags cl-struct-lsp-session-tags cl-struct-lsp--workspace-tags cl-struct-lsp--registered-capability-tags lsp-mode-menu cl-struct-lsp--folding-range-tags cl-struct-lsp-watch-tags cl-struct-lsp--client-tags lsp--log-lines company-minimum-prefix-length dap-ui-menu-items dap-auto-configure-mode yas-also-auto-indent-first-line yas-wrap-around-region yas-indent-line yas-inhibit-overlay-modification-protection t) (result) (let* ((v (cons lsp--cur-workspace result))) (if (eq result :error) (setq errors (cons v errors)) (setq results (cons v results)))) (if (and (not (eq ... ...)) (eq (+ ... ...) (length workspaces))) (progn (funcall callback (if no-merge results ...))))) #<hash-table equal 1/1 0x15734b1ce205>)
  (closure (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (result) (lsp--request-cleanup-hooks id) (funcall callback result))(#<hash-table equal 1/1 0x15734b1ce205>)
  funcall((closure ((callback closure ... ... ... ...) (callback closure ... ... ... ...) (cleanup-hooks closure ... nil ... ...) (buf . #<buffer package.json>) (hooks) (id . 2) (method . "initialize") (start-time 24907 29742 843590 436000) (target-workspaces ...) (cancel-token) (no-merge) (cancel-callback) (error-callback) (mode . detached) (callback closure ... ... ... ...) (body :jsonrpc "2.0" :method "initialize" :params ... :id 2) cl-struct-lsp--log-entry-tags cl-struct-lsp-session-tags cl-struct-lsp--workspace-tags cl-struct-lsp--registered-capability-tags lsp-mode-menu cl-struct-lsp--folding-range-tags cl-struct-lsp-watch-tags cl-struct-lsp--client-tags lsp--log-lines company-minimum-prefix-length ...) (result) (lsp--request-cleanup-hooks id) (funcall callback result)) #<hash-table equal 1/1 0x15734b1ce205>)
  (progn (remhash id (progn (or (and (memq (type-of client) cl-struct-lsp--client-tags) t) (signal 'wrong-type-argument (list 'lsp--client client))) (aref client 8))) (funcall callback (lsp:json-response-result json-data)))
  (if callback (progn (remhash id (progn (or (and (memq (type-of client) cl-struct-lsp--client-tags) t) (signal 'wrong-type-argument (list 'lsp--client client))) (aref client 8))) (funcall callback (lsp:json-response-result json-data))))
  (let* ((--dash-source-657-- (gethash id (progn (or (and (memq ... cl-struct-lsp--client-tags) t) (signal 'wrong-type-argument (list ... client))) (aref client 8)))) (callback (car-safe (prog1 --dash-source-657-- (setq --dash-source-657-- (cdr --dash-source-657--))))) (method (prog1 (car (cdr --dash-source-657--)) (setq --dash-source-657-- (nthcdr 2 --dash-source-657--)))) (before-send (car (cdr --dash-source-657--)))) (if (lsp--log-io-p method) (progn (lsp--log-entry-new (lsp--make-log-entry method id data 'incoming-resp (/ (nth 2 (time-since before-send)) 1000)) workspace))) (if callback (progn (remhash id (progn (or (and (memq ... cl-struct-lsp--client-tags) t) (signal 'wrong-type-argument (list ... client))) (aref client 8))) (funcall callback (lsp:json-response-result json-data)))))
  (cond ((eq val 'response) (progn (or id (cl--assertion-failed 'id)) nil) (let* ((--dash-source-657-- (gethash id (progn (or ... ...) (aref client 8)))) (callback (car-safe (prog1 --dash-source-657-- (setq --dash-source-657-- ...)))) (method (prog1 (car (cdr --dash-source-657--)) (setq --dash-source-657-- (nthcdr 2 --dash-source-657--)))) (before-send (car (cdr --dash-source-657--)))) (if (lsp--log-io-p method) (progn (lsp--log-entry-new (lsp--make-log-entry method id data 'incoming-resp (/ ... 1000)) workspace))) (if callback (progn (remhash id (progn (or ... ...) (aref client 8))) (funcall callback (lsp:json-response-result json-data)))))) ((eq val 'response-error) (progn (or id (cl--assertion-failed 'id)) nil) (let* ((--dash-source-659-- (cdr (gethash id (progn ... ...)))) (callback (car-safe (prog1 --dash-source-659-- (setq --dash-source-659-- ...)))) (method (car-safe (prog1 --dash-source-659-- (setq --dash-source-659-- ...)))) (before-send (car (cdr --dash-source-659--)))) (if (lsp--log-io-p method) (progn (lsp--log-entry-new (lsp--make-log-entry method id (lsp:json-response-error-error json-data) 'incoming-resp (/ ... 1000)) workspace))) (if callback (progn (remhash id (progn (or ... ...) (aref client 8))) (funcall callback (lsp:json-response-error-error json-data)))))) ((eq val 'notification) (lsp--on-notification workspace json-data)) ((eq val 'request) (lsp--on-request workspace json-data)) (t nil))
  (let* ((val (lsp--get-message-type json-data))) (cond ((eq val 'response) (progn (or id (cl--assertion-failed 'id)) nil) (let* ((--dash-source-657-- (gethash id (progn ... ...))) (callback (car-safe (prog1 --dash-source-657-- ...))) (method (prog1 (car ...) (setq --dash-source-657-- ...))) (before-send (car (cdr --dash-source-657--)))) (if (lsp--log-io-p method) (progn (lsp--log-entry-new (lsp--make-log-entry method id data ... ...) workspace))) (if callback (progn (remhash id (progn ... ...)) (funcall callback (lsp:json-response-result json-data)))))) ((eq val 'response-error) (progn (or id (cl--assertion-failed 'id)) nil) (let* ((--dash-source-659-- (cdr (gethash id ...))) (callback (car-safe (prog1 --dash-source-659-- ...))) (method (car-safe (prog1 --dash-source-659-- ...))) (before-send (car (cdr --dash-source-659--)))) (if (lsp--log-io-p method) (progn (lsp--log-entry-new (lsp--make-log-entry method id ... ... ...) workspace))) (if callback (progn (remhash id (progn ... ...)) (funcall callback (lsp:json-response-error-error json-data)))))) ((eq val 'notification) (lsp--on-notification workspace json-data)) ((eq val 'request) (lsp--on-request workspace json-data)) (t nil)))
  (let* ((client (progn (or (and (memq (type-of workspace) cl-struct-lsp--workspace-tags) t) (signal 'wrong-type-argument (list 'lsp--workspace workspace))) (aref workspace 5))) (id (let ((it (lsp:json-response-id json-data))) (if it (progn (if (stringp it) (string-to-number it) it))))) (data (lsp:json-response-result json-data))) (let* ((val (lsp--get-message-type json-data))) (cond ((eq val 'response) (progn (or id (cl--assertion-failed 'id)) nil) (let* ((--dash-source-657-- (gethash id ...)) (callback (car-safe ...)) (method (prog1 ... ...)) (before-send (car ...))) (if (lsp--log-io-p method) (progn (lsp--log-entry-new ... workspace))) (if callback (progn (remhash id ...) (funcall callback ...))))) ((eq val 'response-error) (progn (or id (cl--assertion-failed 'id)) nil) (let* ((--dash-source-659-- (cdr ...)) (callback (car-safe ...)) (method (car-safe ...)) (before-send (car ...))) (if (lsp--log-io-p method) (progn (lsp--log-entry-new ... workspace))) (if callback (progn (remhash id ...) (funcall callback ...))))) ((eq val 'notification) (lsp--on-notification workspace json-data)) ((eq val 'request) (lsp--on-request workspace json-data)) (t nil))))
  (let ((lsp--cur-workspace workspace)) (let* ((client (progn (or (and (memq ... cl-struct-lsp--workspace-tags) t) (signal 'wrong-type-argument (list ... workspace))) (aref workspace 5))) (id (let ((it (lsp:json-response-id json-data))) (if it (progn (if ... ... it))))) (data (lsp:json-response-result json-data))) (let* ((val (lsp--get-message-type json-data))) (cond ((eq val 'response) (progn (or id (cl--assertion-failed ...)) nil) (let* ((--dash-source-657-- ...) (callback ...) (method ...) (before-send ...)) (if (lsp--log-io-p method) (progn ...)) (if callback (progn ... ...)))) ((eq val 'response-error) (progn (or id (cl--assertion-failed ...)) nil) (let* ((--dash-source-659-- ...) (callback ...) (method ...) (before-send ...)) (if (lsp--log-io-p method) (progn ...)) (if callback (progn ... ...)))) ((eq val 'notification) (lsp--on-notification workspace json-data)) ((eq val 'request) (lsp--on-request workspace json-data)) (t nil)))))
  (condition-case err (let ((lsp--cur-workspace workspace)) (let* ((client (progn (or (and ... t) (signal ... ...)) (aref workspace 5))) (id (let ((it ...)) (if it (progn ...)))) (data (lsp:json-response-result json-data))) (let* ((val (lsp--get-message-type json-data))) (cond ((eq val 'response) (progn (or id ...) nil) (let* (... ... ... ...) (if ... ...) (if callback ...))) ((eq val 'response-error) (progn (or id ...) nil) (let* (... ... ... ...) (if ... ...) (if callback ...))) ((eq val 'notification) (lsp--on-notification workspace json-data)) ((eq val 'request) (lsp--on-request workspace json-data)) (t nil))))) ((debug error) (message "Error processing message %S." err) nil))
  lsp--parser-on-message(#<hash-table equal 3/3 0x15734b3c3915> #s(lsp--workspace :ewoc nil :server-capabilities #<hash-table equal 4/4 0x15734b2c1b35> :registered-server-capabilities nil :root "/home/sethen/Developer/sonar-lerna" :client #s(lsp--client :language-id nil :add-on? t :new-connection (:connect (closure ((test-command closure (t) nil (lsp-eslint-server-exists\? ...)) (command closure (t) nil (lsp-eslint-server-command)) view-inhibit-help-message cl-struct-lsp--log-entry-tags cl-struct-lsp-session-tags cl-struct-lsp--workspace-tags cl-struct-lsp--registered-capability-tags lsp-mode-menu cl-struct-lsp--folding-range-tags cl-struct-lsp-watch-tags cl-struct-lsp--client-tags lsp--log-lines company-minimum-prefix-length dap-ui-menu-items dap-auto-configure-mode yas-also-auto-indent-first-line yas-wrap-around-region yas-indent-line yas-inhibit-overlay-modification-protection t) (filter sentinel name environment-fn) (let ((final-command ...) (process-name ...) (process-environment ...)) (let* (... ...) (set-process-query-on-exit-flag proc nil) (set-process-query-on-exit-flag ... nil) (save-current-buffer ... ...) (cons proc proc)))) :test\? (closure (t) nil (lsp-eslint-server-exists\? (lsp-eslint-server-command)))) :ignore-regexps nil :ignore-messages nil :notification-handlers #<hash-table equal 1/65 0x15734b19819d> :request-handlers #<hash-table equal 3/65 0x15734b19ae29> :response-handlers #<hash-table eql 1/65 0x15734b428801> :prefix-function nil :uri-handlers #<hash-table equal 0/65 0x15734b42b2a5> :action-handlers #<hash-table equal 0/65 0x15734bb3c429> :major-modes nil :activation-fn (closure (t) (filename &optional _) (if lsp-eslint-enable (progn (or (string-match-p "[^z-a]+\\.\\(?:html\\|jsx?\\|svelte\\|tsx?\\|vue\\)\\'" filename) (derived-mode-p ... ... ... ... ...))))) :priority -1 :server-id eslint :multi-root t :initialization-options nil :semantic-tokens-faces-overrides nil :custom-capabilities nil :library-folders-fn nil :before-file-open-fn nil :initialized-fn (closure (t) (workspace) (let ((lsp--cur-workspace workspace)) (lsp--server-register-capability (lsp-make-registration :id "random-id" :method "workspace/didChangeWatchedFiles" :register-options\? (lsp-make-did-change-watched-files-registration-options :watchers ...))))) :remote? nil :completion-in-comments? t :path->uri-fn nil :uri->path-fn nil :environment-fn nil :after-open-fn nil :async-request-handlers #<hash-table equal 1/65 0x15734beb1e11> :download-server-fn (closure (t) (_client callback error-callback _update\?) (let ((tmp-zip (make-temp-file "ext" nil ".zip"))) (delete-file tmp-zip) (lsp-download-install #'(lambda ... ...) error-callback :url (lsp-vscode-extension-url "dbaeumer" "vscode-eslint" "2.1.23") :store-path tmp-zip))) :download-in-progress? nil :buffers nil) :host-root nil :proc #<process eslint> :cmd-proc #<process eslint> :buffers (#<buffer package.json>) :semantic-tokens-faces nil :semantic-tokens-modifier-faces nil :extra-client-capabilities nil :status initialized :metadata #<hash-table equal 0/65 0x15734bf5a2b5> :watches #<hash-table equal 0/65 0x15734ba9bc45> :workspace-folders nil :last-id 0 :status-string nil :shutdown-action nil :diagnostics #<hash-table equal 0/65 0x15734bd4e54d> :work-done-tokens #<hash-table equal 0/65 0x15734bb65be5>))
  (closure ((messages #<hash-table equal 3/3 0x15734b3c3915>) (input . "{\"jsonrpc\":\"2.0\",\"method\":\"window/logMessag...") (_proc . #<process eslint>) (chunk) (body) (body-length) (leftovers) (body-received) (workspace . #s(lsp--workspace :ewoc nil :server-capabilities #<hash-table equal 4/4 0x15734b2c1b35> :registered-server-capabilities nil :root "/home/sethen/Developer/sonar-lerna" :client #s(lsp--client :language-id nil :add-on? t :new-connection (:connect ... :test\? ...) :ignore-regexps nil :ignore-messages nil :notification-handlers #<hash-table equal 1/65 0x15734b19819d> :request-handlers #<hash-table equal 3/65 0x15734b19ae29> :response-handlers #<hash-table eql 1/65 0x15734b428801> :prefix-function nil :uri-handlers #<hash-table equal 0/65 0x15734b42b2a5> :action-handlers #<hash-table equal 0/65 0x15734bb3c429> :major-modes nil :activation-fn (closure ... ... ...) :priority -1 :server-id eslint :multi-root t :initialization-options nil :semantic-tokens-faces-overrides nil :custom-capabilities nil :library-folders-fn nil :before-file-open-fn nil :initialized-fn (closure ... ... ...) :remote? nil :completion-in-comments? t :path->uri-fn nil :uri->path-fn nil :environment-fn nil :after-open-fn nil :async-request-handlers #<hash-table equal 1/65 0x15734beb1e11> :download-server-fn (closure ... ... ...) :download-in-progress? nil :buffers nil) :host-root nil :proc #<process eslint> :cmd-proc #<process eslint> :buffers (#<buffer package.json>) :semantic-tokens-faces nil :semantic-tokens-modifier-faces nil :extra-client-capabilities nil :status initialized :metadata #<hash-table equal 0/65 0x15734bf5a2b5> :watches #<hash-table equal 0/65 0x15734ba9bc45> :workspace-folders nil :last-id 0 :status-string nil :shutdown-action nil :diagnostics #<hash-table equal 0/65 0x15734bd4e54d> :work-done-tokens #<hash-table equal 0/65 0x15734bb65be5>)) view-inhibit-help-message cl-struct-lsp--log-entry-tags cl-struct-lsp-session-tags cl-struct-lsp--workspace-tags cl-struct-lsp--registered-capability-tags lsp-mode-menu cl-struct-lsp--folding-range-tags cl-struct-lsp-watch-tags cl-struct-lsp--client-tags lsp--log-lines company-minimum-prefix-length dap-ui-menu-items dap-auto-configure-mode yas-also-auto-indent-first-line yas-wrap-around-region yas-indent-line yas-inhibit-overlay-modification-protection t) (msg) (lsp--parser-on-message msg workspace))(#<hash-table equal 3/3 0x15734b3c3915>)
  mapc((closure ((messages #<hash-table equal 3/3 0x15734b3c3915>) (input . "{\"jsonrpc\":\"2.0\",\"method\":\"window/logMessage\",\"par...") (_proc . #<process eslint>) (chunk) (body) (body-length) (leftovers) (body-received) (workspace . #s(lsp--workspace :ewoc nil :server-capabilities #<hash-table equal 4/4 0x15734b2c1b35> :registered-server-capabilities nil :root "/home/sethen/Developer/sonar-lerna" :client #s(lsp--client :language-id nil :add-on? t :new-connection (:connect (closure ... ... ...) :test\? (closure ... nil ...)) :ignore-regexps nil :ignore-messages nil :notification-handlers #<hash-table equal 1/65 0x15734b19819d> :request-handlers #<hash-table equal 3/65 0x15734b19ae29> :response-handlers #<hash-table eql 1/65 0x15734b428801> :prefix-function nil :uri-handlers #<hash-table equal 0/65 0x15734b42b2a5> :action-handlers #<hash-table equal 0/65 0x15734bb3c429> :major-modes nil :activation-fn (closure (t) (filename &optional _) (if lsp-eslint-enable ...)) :priority -1 :server-id eslint :multi-root t :initialization-options nil :semantic-tokens-faces-overrides nil :custom-capabilities nil :library-folders-fn nil :before-file-open-fn nil :initialized-fn (closure (t) (workspace) (let ... ...)) :remote? nil :completion-in-comments? t :path->uri-fn nil :uri->path-fn nil :environment-fn nil :after-open-fn nil :async-request-handlers #<hash-table equal 1/65 0x15734beb1e11> :download-server-fn (closure (t) (_client callback error-callback _update\?) (let ... ... ...)) :download-in-progress? nil :buffers nil) :host-root nil :proc #<process eslint> :cmd-proc #<process eslint> :buffers (#<buffer package.json>) :semantic-tokens-faces nil :semantic-tokens-modifier-faces nil :extra-client-capabilities nil :status initialized :metadata #<hash-table equal 0/65 0x15734bf5a2b5> :watches #<hash-table equal 0/65 0x15734ba9bc45> :workspace-folders nil :last-id 0 :status-string nil :shutdown-action nil :diagnostics #<hash-table equal 0/65 0x15734bd4e54d> :work-done-tokens #<hash-table equal 0/65 0x15734bb65be5>)) view-inhibit-help-message cl-struct-lsp--log-entry-tags cl-struct-lsp-session-tags cl-struct-lsp--workspace-tags cl-struct-lsp--registered-capability-tags lsp-mode-menu cl-struct-lsp--folding-range-tags cl-struct-lsp-watch-tags cl-struct-lsp--client-tags lsp--log-lines company-minimum-prefix-length dap-ui-menu-items dap-auto-configure-mode yas-also-auto-indent-first-line yas-wrap-around-region yas-indent-line yas-inhibit-overlay-modification-protection t) (msg) (lsp--parser-on-message msg workspace)) (#<hash-table equal 3/3 0x15734b4175a9> #<hash-table equal 3/3 0x15734b190959> #<hash-table equal 3/3 0x15734b418c2d> #<hash-table equal 3/3 0x15734b3c3915>))
  (let (messages) (while (not (s-blank\? chunk)) (if (not body-length) (let* ((body-sep-pos (and t (string-match-p "\15\n\15\n" chunk)))) (if body-sep-pos (progn (setq body-length (lsp--get-body-length ...)) (setq body-received 0) (setq leftovers nil) (setq chunk (substring-no-properties chunk ...))) (progn (setq leftovers chunk) (setq chunk nil)))) (let* ((chunk-length (string-bytes chunk)) (left-to-receive (- body-length body-received)) (this-body (if (< left-to-receive chunk-length) (prog1 ... ...) (prog1 chunk ...))) (body-bytes (string-bytes this-body))) (setq body (cons this-body body)) (setq body-received (+ body-received body-bytes)) (if (>= chunk-length left-to-receive) (progn (condition-case err (let ... ...) (error ...))))))) (mapc #'(lambda (msg) (lsp--parser-on-message msg workspace)) (nreverse messages)))
  (closure ((chunk) (body) (body-length) (leftovers) (body-received) (workspace . #s(lsp--workspace :ewoc nil :server-capabilities #<hash-table equal 4/4 0x15734b2c1b35> :registered-server-capabilities nil :root "/home/sethen/Developer/sonar-lerna" :client #s(lsp--client :language-id nil :add-on? t :new-connection ... :ignore-regexps nil :ignore-messages nil :notification-handlers #<hash-table equal 1/65 0x15734b19819d> :request-handlers #<hash-table equal 3/65 0x15734b19ae29> :response-handlers #<hash-table eql 1/65 0x15734b428801> :prefix-function nil :uri-handlers #<hash-table equal 0/65 0x15734b42b2a5> :action-handlers #<hash-table equal 0/65 0x15734bb3c429> :major-modes nil :activation-fn ... :priority -1 :server-id eslint :multi-root t :initialization-options nil :semantic-tokens-faces-overrides nil :custom-capabilities nil :library-folders-fn nil :before-file-open-fn nil :initialized-fn ... :remote? nil :completion-in-comments? t :path->uri-fn nil :uri->path-fn nil :environment-fn nil :after-open-fn nil :async-request-handlers #<hash-table equal 1/65 0x15734beb1e11> :download-server-fn ... :download-in-progress? nil :buffers nil) :host-root nil :proc #<process eslint> :cmd-proc #<process eslint> :buffers (#<buffer package.json>) :semantic-tokens-faces nil :semantic-tokens-modifier-faces nil :extra-client-capabilities nil :status initialized :metadata #<hash-table equal 0/65 0x15734bf5a2b5> :watches #<hash-table equal 0/65 0x15734ba9bc45> :workspace-folders nil :last-id 0 :status-string nil :shutdown-action nil :diagnostics #<hash-table equal 0/65 0x15734bd4e54d> :work-done-tokens #<hash-table equal 0/65 0x15734bb65be5>)) view-inhibit-help-message cl-struct-lsp--log-entry-tags cl-struct-lsp-session-tags cl-struct-lsp--workspace-tags cl-struct-lsp--registered-capability-tags lsp-mode-menu cl-struct-lsp--folding-range-tags cl-struct-lsp-watch-tags cl-struct-lsp--client-tags lsp--log-lines company-minimum-prefix-length dap-ui-menu-items dap-auto-configure-mode yas-also-auto-indent-first-line yas-wrap-around-region yas-indent-line yas-inhibit-overlay-modification-protection t) (_proc input) (setq chunk (if (s-blank\? leftovers) input (concat leftovers input))) (let (messages) (while (not (s-blank\? chunk)) (if (not body-length) (let* ... ...) (let* ... ... ... ...))) (mapc #'(lambda ... ...) (nreverse messages))))(#<process eslint> "{\"jsonrpc\":\"2.0\",\"method\":\"window/logMessage\",\"par...")
Anything else?

No response
emacs-lsp / lsp-mode

Error with textDocument/documentHighlight when opening a typescript file in a big typescript project #3115
