API tools faq
paste
Advertisement
Guest User

Emacs LSP mode backtrace

a guest
Dec 31st, 2023
254
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lisp 64.84 KB | Software | 0 0
raw download clone embed print report
  1. Debugger entered--Lisp error: (file-missing "Doing vfork" "No such file or directory")
  2.   #<subr make-process>(:name "pylsp" :connection-type pipe :buffer "*pylsp*" :coding no-conversion :command ("pylsp") :filter (closure ((chunk) (body) (body-length) (leftovers) (body-received . 0) (workspace . #s(lsp--workspace :ewoc nil :server-capabilities nil :registered-server-capabilities nil :root "/mnt/work/git/lab/nshephard/mvdate" :client #s(lsp--client :language-id nil :add-on? nil :new-connection (:connect (closure ... ... ...) :test? (closure ... nil ...)) :ignore-regexps nil :ignore-messages nil :notification-handlers #<hash-table equal 0/65 0x157af3091a15> :request-handlers #<hash-table equal 0/65 0x157af47fdf91> :response-handlers #<hash-table eql 0/65 0x157af47fdfb1> :prefix-function nil :uri-handlers #<hash-table equal 0/65 0x157af47ba755> :action-handlers #<hash-table equal 0/65 0x157af3087da9> :major-modes nil :activation-fn (closure (...) (_file-name _mode) (-contains? languages ...)) :priority -1 :server-id pylsp :multi-root nil :initialization-options nil :semantic-tokens-faces-overrides nil :custom-capabilities nil :library-folders-fn (closure (t) (_workspace) lsp-clients-pylsp-library-directories) :before-file-open-fn nil :initialized-fn (closure (t) (workspace) (let ... ...)) :remote? nil :completion-in-comments? nil :path->uri-fn nil :uri->path-fn nil :environment-fn nil :after-open-fn nil :async-request-handlers #<hash-table equal 0/65 0x157af3087dc9> :download-server-fn nil :download-in-progress? nil :buffers nil :synchronize-sections nil) :host-root nil :proc nil :cmd-proc nil :buffers (#<buffer mvdate.py>) :semantic-tokens-faces nil :semantic-tokens-modifier-faces nil :extra-client-capabilities nil :status starting :metadata #<hash-table equal 0/65 0x157af47c37bb> :watches #<hash-table equal 0/65 0x157af47c3a91> :workspace-folders nil :last-id 0 :status-string nil :shutdown-action nil :diagnostics #<hash-table equal 0/65 0x157af47c3ab1> :work-done-tokens #<hash-table equal 0/65 0x157af47c3ad1>))) (_proc input) (setq chunk (if (s-blank? leftovers) input (concat leftovers input))) (let (messages) (while (not (s-blank? chunk)) (if (not body-length) (let* ((body-sep-pos ...)) (if body-sep-pos (progn ... ... ... ...) (progn ... ...))) (let* ((chunk-length ...) (left-to-receive ...) (this-body ...) (body-bytes ...)) (setq body (cons this-body body)) (setq body-received (+ body-received body-bytes)) (if (>= chunk-length left-to-receive) (progn ...))))) (mapc #'(lambda (msg) (lsp--parser-on-message msg workspace)) (nreverse messages)))) :sentinel #f(compiled-function (&rest args2) #<bytecode -0xada15f9165a9cf0>) :stderr #<buffer *pylsp::stderr*> :noquery t :file-handler t)
  3.   apply(#<subr make-process> (:name "pylsp" :connection-type pipe :buffer "*pylsp*" :coding no-conversion :command ("pylsp") :filter (closure ((chunk) (body) (body-length) (leftovers) (body-received . 0) (workspace . #s(lsp--workspace :ewoc nil :server-capabilities nil :registered-server-capabilities nil :root "/mnt/work/git/lab/nshephard/mvdate" :client #s(lsp--client :language-id nil :add-on? nil :new-connection (:connect ... :test? ...) :ignore-regexps nil :ignore-messages nil :notification-handlers #<hash-table equal 0/65 0x157af3091a15> :request-handlers #<hash-table equal 0/65 0x157af47fdf91> :response-handlers #<hash-table eql 0/65 0x157af47fdfb1> :prefix-function nil :uri-handlers #<hash-table equal 0/65 0x157af47ba755> :action-handlers #<hash-table equal 0/65 0x157af3087da9> :major-modes nil :activation-fn (closure ... ... ...) :priority -1 :server-id pylsp :multi-root nil :initialization-options nil :semantic-tokens-faces-overrides nil :custom-capabilities nil :library-folders-fn (closure ... ... lsp-clients-pylsp-library-directories) :before-file-open-fn nil :initialized-fn (closure ... ... ...) :remote? nil :completion-in-comments? nil :path->uri-fn nil :uri->path-fn nil :environment-fn nil :after-open-fn nil :async-request-handlers #<hash-table equal 0/65 0x157af3087dc9> :download-server-fn nil :download-in-progress? nil :buffers nil :synchronize-sections nil) :host-root nil :proc nil :cmd-proc nil :buffers (#<buffer mvdate.py>) :semantic-tokens-faces nil :semantic-tokens-modifier-faces nil :extra-client-capabilities nil :status starting :metadata #<hash-table equal 0/65 0x157af47c37bb> :watches #<hash-table equal 0/65 0x157af47c3a91> :workspace-folders nil :last-id 0 :status-string nil :shutdown-action nil :diagnostics #<hash-table equal 0/65 0x157af47c3ab1> :work-done-tokens #<hash-table equal 0/65 0x157af47c3ad1>))) (_proc input) (setq chunk (if (s-blank? leftovers) input (concat leftovers input))) (let (messages) (while (not (s-blank? chunk)) (if (not body-length) (let* (...) (if body-sep-pos ... ...)) (let* (... ... ... ...) (setq body ...) (setq body-received ...) (if ... ...)))) (mapc #'(lambda (msg) (lsp--parser-on-message msg workspace)) (nreverse messages)))) :sentinel #f(compiled-function (&rest args2) #<bytecode -0xada15f9165a9cf0>) :stderr #<buffer *pylsp::stderr*> :noquery t :file-handler t))
  4.   make-process--with-editor-process-filter(#<subr make-process> :name "pylsp" :connection-type pipe :buffer "*pylsp*" :coding no-conversion :command ("pylsp") :filter (closure ((chunk) (body) (body-length) (leftovers) (body-received . 0) (workspace . #s(lsp--workspace :ewoc nil :server-capabilities nil :registered-server-capabilities nil :root "/mnt/work/git/lab/nshephard/mvdate" :client #s(lsp--client :language-id nil :add-on? nil :new-connection (:connect (closure ... ... ...) :test? (closure ... nil ...)) :ignore-regexps nil :ignore-messages nil :notification-handlers #<hash-table equal 0/65 0x157af3091a15> :request-handlers #<hash-table equal 0/65 0x157af47fdf91> :response-handlers #<hash-table eql 0/65 0x157af47fdfb1> :prefix-function nil :uri-handlers #<hash-table equal 0/65 0x157af47ba755> :action-handlers #<hash-table equal 0/65 0x157af3087da9> :major-modes nil :activation-fn (closure (...) (_file-name _mode) (-contains? languages ...)) :priority -1 :server-id pylsp :multi-root nil :initialization-options nil :semantic-tokens-faces-overrides nil :custom-capabilities nil :library-folders-fn (closure (t) (_workspace) lsp-clients-pylsp-library-directories) :before-file-open-fn nil :initialized-fn (closure (t) (workspace) (let ... ...)) :remote? nil :completion-in-comments? nil :path->uri-fn nil :uri->path-fn nil :environment-fn nil :after-open-fn nil :async-request-handlers #<hash-table equal 0/65 0x157af3087dc9> :download-server-fn nil :download-in-progress? nil :buffers nil :synchronize-sections nil) :host-root nil :proc nil :cmd-proc nil :buffers (#<buffer mvdate.py>) :semantic-tokens-faces nil :semantic-tokens-modifier-faces nil :extra-client-capabilities nil :status starting :metadata #<hash-table equal 0/65 0x157af47c37bb> :watches #<hash-table equal 0/65 0x157af47c3a91> :workspace-folders nil :last-id 0 :status-string nil :shutdown-action nil :diagnostics #<hash-table equal 0/65 0x157af47c3ab1> :work-done-tokens #<hash-table equal 0/65 0x157af47c3ad1>))) (_proc input) (setq chunk (if (s-blank? leftovers) input (concat leftovers input))) (let (messages) (while (not (s-blank? chunk)) (if (not body-length) (let* ((body-sep-pos ...)) (if body-sep-pos (progn ... ... ... ...) (progn ... ...))) (let* ((chunk-length ...) (left-to-receive ...) (this-body ...) (body-bytes ...)) (setq body (cons this-body body)) (setq body-received (+ body-received body-bytes)) (if (>= chunk-length left-to-receive) (progn ...))))) (mapc #'(lambda (msg) (lsp--parser-on-message msg workspace)) (nreverse messages)))) :sentinel #f(compiled-function (&rest args2) #<bytecode -0xada15f9165a9cf0>) :stderr #<buffer *pylsp::stderr*> :noquery t :file-handler t)
  5.   apply(make-process--with-editor-process-filter #<subr make-process> (:name "pylsp" :connection-type pipe :buffer "*pylsp*" :coding no-conversion :command ("pylsp") :filter (closure ((chunk) (body) (body-length) (leftovers) (body-received . 0) (workspace . #s(lsp--workspace :ewoc nil :server-capabilities nil :registered-server-capabilities nil :root "/mnt/work/git/lab/nshephard/mvdate" :client #s(lsp--client :language-id nil :add-on? nil :new-connection (:connect ... :test? ...) :ignore-regexps nil :ignore-messages nil :notification-handlers #<hash-table equal 0/65 0x157af3091a15> :request-handlers #<hash-table equal 0/65 0x157af47fdf91> :response-handlers #<hash-table eql 0/65 0x157af47fdfb1> :prefix-function nil :uri-handlers #<hash-table equal 0/65 0x157af47ba755> :action-handlers #<hash-table equal 0/65 0x157af3087da9> :major-modes nil :activation-fn (closure ... ... ...) :priority -1 :server-id pylsp :multi-root nil :initialization-options nil :semantic-tokens-faces-overrides nil :custom-capabilities nil :library-folders-fn (closure ... ... lsp-clients-pylsp-library-directories) :before-file-open-fn nil :initialized-fn (closure ... ... ...) :remote? nil :completion-in-comments? nil :path->uri-fn nil :uri->path-fn nil :environment-fn nil :after-open-fn nil :async-request-handlers #<hash-table equal 0/65 0x157af3087dc9> :download-server-fn nil :download-in-progress? nil :buffers nil :synchronize-sections nil) :host-root nil :proc nil :cmd-proc nil :buffers (#<buffer mvdate.py>) :semantic-tokens-faces nil :semantic-tokens-modifier-faces nil :extra-client-capabilities nil :status starting :metadata #<hash-table equal 0/65 0x157af47c37bb> :watches #<hash-table equal 0/65 0x157af47c3a91> :workspace-folders nil :last-id 0 :status-string nil :shutdown-action nil :diagnostics #<hash-table equal 0/65 0x157af47c3ab1> :work-done-tokens #<hash-table equal 0/65 0x157af47c3ad1>))) (_proc input) (setq chunk (if (s-blank? leftovers) input (concat leftovers input))) (let (messages) (while (not (s-blank? chunk)) (if (not body-length) (let* (...) (if body-sep-pos ... ...)) (let* (... ... ... ...) (setq body ...) (setq body-received ...) (if ... ...)))) (mapc #'(lambda (msg) (lsp--parser-on-message msg workspace)) (nreverse messages)))) :sentinel #f(compiled-function (&rest args2) #<bytecode -0xada15f9165a9cf0>) :stderr #<buffer *pylsp::stderr*> :noquery t :file-handler t))
  6.   make-process(:name "pylsp" :connection-type pipe :buffer "*pylsp*" :coding no-conversion :command ("pylsp") :filter (closure ((chunk) (body) (body-length) (leftovers) (body-received . 0) (workspace . #s(lsp--workspace :ewoc nil :server-capabilities nil :registered-server-capabilities nil :root "/mnt/work/git/lab/nshephard/mvdate" :client #s(lsp--client :language-id nil :add-on? nil :new-connection (:connect (closure ... ... ...) :test? (closure ... nil ...)) :ignore-regexps nil :ignore-messages nil :notification-handlers #<hash-table equal 0/65 0x157af3091a15> :request-handlers #<hash-table equal 0/65 0x157af47fdf91> :response-handlers #<hash-table eql 0/65 0x157af47fdfb1> :prefix-function nil :uri-handlers #<hash-table equal 0/65 0x157af47ba755> :action-handlers #<hash-table equal 0/65 0x157af3087da9> :major-modes nil :activation-fn (closure (...) (_file-name _mode) (-contains? languages ...)) :priority -1 :server-id pylsp :multi-root nil :initialization-options nil :semantic-tokens-faces-overrides nil :custom-capabilities nil :library-folders-fn (closure (t) (_workspace) lsp-clients-pylsp-library-directories) :before-file-open-fn nil :initialized-fn (closure (t) (workspace) (let ... ...)) :remote? nil :completion-in-comments? nil :path->uri-fn nil :uri->path-fn nil :environment-fn nil :after-open-fn nil :async-request-handlers #<hash-table equal 0/65 0x157af3087dc9> :download-server-fn nil :download-in-progress? nil :buffers nil :synchronize-sections nil) :host-root nil :proc nil :cmd-proc nil :buffers (#<buffer mvdate.py>) :semantic-tokens-faces nil :semantic-tokens-modifier-faces nil :extra-client-capabilities nil :status starting :metadata #<hash-table equal 0/65 0x157af47c37bb> :watches #<hash-table equal 0/65 0x157af47c3a91> :workspace-folders nil :last-id 0 :status-string nil :shutdown-action nil :diagnostics #<hash-table equal 0/65 0x157af47c3ab1> :work-done-tokens #<hash-table equal 0/65 0x157af47c3ad1>))) (_proc input) (setq chunk (if (s-blank? leftovers) input (concat leftovers input))) (let (messages) (while (not (s-blank? chunk)) (if (not body-length) (let* ((body-sep-pos ...)) (if body-sep-pos (progn ... ... ... ...) (progn ... ...))) (let* ((chunk-length ...) (left-to-receive ...) (this-body ...) (body-bytes ...)) (setq body (cons this-body body)) (setq body-received (+ body-received body-bytes)) (if (>= chunk-length left-to-receive) (progn ...))))) (mapc #'(lambda (msg) (lsp--parser-on-message msg workspace)) (nreverse messages)))) :sentinel #f(compiled-function (&rest args2) #<bytecode -0xada15f9165a9cf0>) :stderr #<buffer *pylsp::stderr*> :noquery t :file-handler t)
  7.   (let* ((stderr-buf (get-buffer-create (format "*%s::stderr*" process-name))) (default-directory (lsp--default-directory-for-connection)) (tramp-use-ssh-controlmaster-options 'suppress) (tramp-ssh-controlmaster-options "-o ControlMaster=no -o ControlPath=none") (proc (make-process :name process-name :connection-type 'pipe :buffer (format "*%s*" process-name) :coding 'no-conversion :command final-command :filter filter :sentinel sentinel :stderr stderr-buf :noquery t :file-handler t))) (set-process-query-on-exit-flag proc nil) (set-process-query-on-exit-flag (get-buffer-process stderr-buf) nil) (save-current-buffer (set-buffer (get-buffer stderr-buf)) (special-mode)) (cons proc proc))
  8.   (let ((final-command (lsp-resolve-final-command command)) (process-name (generate-new-buffer-name name)) (process-environment (lsp--compute-process-environment environment-fn))) (let* ((stderr-buf (get-buffer-create (format "*%s::stderr*" process-name))) (default-directory (lsp--default-directory-for-connection)) (tramp-use-ssh-controlmaster-options 'suppress) (tramp-ssh-controlmaster-options "-o ControlMaster=no -o ControlPath=none") (proc (make-process :name process-name :connection-type 'pipe :buffer (format "*%s*" process-name) :coding 'no-conversion :command final-command :filter filter :sentinel sentinel :stderr stderr-buf :noquery t :file-handler t))) (set-process-query-on-exit-flag proc nil) (set-process-query-on-exit-flag (get-buffer-process stderr-buf) nil) (save-current-buffer (set-buffer (get-buffer stderr-buf)) (special-mode)) (cons proc proc)))
  9.   (if (and (functionp 'json-rpc-connection) (not (file-remote-p default-directory))) (lsp-json-rpc-connection workspace (lsp-resolve-final-command command)) (let ((final-command (lsp-resolve-final-command command)) (process-name (generate-new-buffer-name name)) (process-environment (lsp--compute-process-environment environment-fn))) (let* ((stderr-buf (get-buffer-create (format "*%s::stderr*" process-name))) (default-directory (lsp--default-directory-for-connection)) (tramp-use-ssh-controlmaster-options 'suppress) (tramp-ssh-controlmaster-options "-o ControlMaster=no -o ControlPath=none") (proc (make-process :name process-name :connection-type 'pipe :buffer (format "*%s*" process-name) :coding 'no-conversion :command final-command :filter filter :sentinel sentinel :stderr stderr-buf :noquery t :file-handler t))) (set-process-query-on-exit-flag proc nil) (set-process-query-on-exit-flag (get-buffer-process stderr-buf) nil) (save-current-buffer (set-buffer (get-buffer stderr-buf)) (special-mode)) (cons proc proc))))
  10.   (closure ((command closure (t) nil lsp-pylsp-server-command) tramp-ssh-controlmaster-options tramp-use-ssh-controlmaster-options) (filter sentinel name environment-fn workspace) (if (and (functionp 'json-rpc-connection) (not (file-remote-p default-directory))) (lsp-json-rpc-connection workspace (lsp-resolve-final-command command)) (let ((final-command (lsp-resolve-final-command command)) (process-name (generate-new-buffer-name name)) (process-environment (lsp--compute-process-environment environment-fn))) (let* ((stderr-buf (get-buffer-create ...)) (default-directory (lsp--default-directory-for-connection)) (tramp-use-ssh-controlmaster-options 'suppress) (tramp-ssh-controlmaster-options "-o ControlMaster=no -o ControlPath=none") (proc (make-process :name process-name :connection-type ... :buffer ... :coding ... :command final-command :filter filter :sentinel sentinel :stderr stderr-buf :noquery t :file-handler t))) (set-process-query-on-exit-flag proc nil) (set-process-query-on-exit-flag (get-buffer-process stderr-buf) nil) (save-current-buffer (set-buffer (get-buffer stderr-buf)) (special-mode)) (cons proc proc)))))((closure ((chunk) (body) (body-length) (leftovers) (body-received . 0) (workspace . #s(lsp--workspace :ewoc nil :server-capabilities nil :registered-server-capabilities nil :root "/mnt/work/git/lab/nshephard/mvda..." :client ... :host-root nil :proc nil :cmd-proc nil :buffers ... :semantic-tokens-faces nil :semantic-tokens-modifier-faces nil :extra-client-capabilities nil :status starting :metadata #<hash-table equal 0/65 0x157af47c37bb> :watches #<hash-table equal 0/65 0x157af47c3a91> :workspace-folders nil :last-id 0 :status-string nil :shutdown-action nil :diagnostics #<hash-table equal 0/65 0x157af47c3ab1> :work-done-tokens #<hash-table equal 0/65 0x157af47c3ad1>))) (_proc input) (setq chunk (if (s-blank? leftovers) input (concat leftovers input))) (let (messages) (while (not ...) (if ... ... ...)) (mapc #'... (nreverse messages)))) #f(compiled-function (&rest args2) #<bytecode -0xada15f9165a9cf0>) "pylsp" nil #s(lsp--workspace :ewoc nil :server-capabilities nil :registered-server-capabilities nil :root "/mnt/work/git/lab/nshephard/mvda..." :client #s(lsp--client :language-id nil :add-on? nil :new-connection (:connect (closure ... ... ...) :test? (closure ... nil ...)) :ignore-regexps nil :ignore-messages nil :notification-handlers #<hash-table equal 0/65 0x157af3091a15> :request-handlers #<hash-table equal 0/65 0x157af47fdf91> :response-handlers #<hash-table eql 0/65 0x157af47fdfb1> :prefix-function nil :uri-handlers #<hash-table equal 0/65 0x157af47ba755> :action-handlers #<hash-table equal 0/65 0x157af3087da9> :major-modes nil :activation-fn (closure (...) (_file-name _mode) (-contains? languages ...)) :priority -1 :server-id pylsp :multi-root nil :initialization-options nil :semantic-tokens-faces-overrides nil :custom-capabilities nil :library-folders-fn (closure (t) (_workspace) lsp-clients-pylsp-library-directories) :before-file-open-fn nil :initialized-fn (closure (t) (workspace) (let ... ...)) :remote? nil :completion-in-comments? nil :path->uri-fn nil :uri->path-fn nil :environment-fn nil :after-open-fn nil :async-request-handlers #<hash-table equal 0/65 0x157af3087dc9> :download-server-fn nil :download-in-progress? nil :buffers nil ...) :host-root nil :proc nil :cmd-proc nil :buffers (#<buffer mvdate.py>) :semantic-tokens-faces nil :semantic-tokens-modifier-faces nil :extra-client-capabilities nil :status starting :metadata #<hash-table equal 0/65 0x157af47c37bb> :watches #<hash-table equal 0/65 0x157af47c3a91> :workspace-folders nil :last-id 0 :status-string nil :shutdown-action nil :diagnostics #<hash-table equal 0/65 0x157af47c3ab1> :work-done-tokens #<hash-table equal 0/65 0x157af47c3ad1>))
  11.   funcall((closure ((command closure (t) nil lsp-pylsp-server-command) tramp-ssh-controlmaster-options tramp-use-ssh-controlmaster-options) (filter sentinel name environment-fn workspace) (if (and (functionp 'json-rpc-connection) (not (file-remote-p default-directory))) (lsp-json-rpc-connection workspace (lsp-resolve-final-command command)) (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))))) (closure ((chunk) (body) (body-length) (leftovers) (body-received . 0) (workspace . #s(lsp--workspace :ewoc nil :server-capabilities nil :registered-server-capabilities nil :root "/mnt/work/git/lab/nshephard/mvdate" :client #s(lsp--client :language-id nil :add-on? nil :new-connection ... :ignore-regexps nil :ignore-messages nil :notification-handlers #<hash-table equal 0/65 0x157af3091a15> :request-handlers #<hash-table equal 0/65 0x157af47fdf91> :response-handlers #<hash-table eql 0/65 0x157af47fdfb1> :prefix-function nil :uri-handlers #<hash-table equal 0/65 0x157af47ba755> :action-handlers #<hash-table equal 0/65 0x157af3087da9> :major-modes nil :activation-fn ... :priority -1 :server-id pylsp :multi-root nil :initialization-options nil :semantic-tokens-faces-overrides nil :custom-capabilities nil :library-folders-fn ... :before-file-open-fn nil :initialized-fn ... :remote? nil :completion-in-comments? nil :path->uri-fn nil :uri->path-fn nil :environment-fn nil :after-open-fn nil :async-request-handlers #<hash-table equal 0/65 0x157af3087dc9> :download-server-fn nil :download-in-progress? nil :buffers nil :synchronize-sections nil) :host-root nil :proc nil :cmd-proc nil :buffers (#<buffer mvdate.py>) :semantic-tokens-faces nil :semantic-tokens-modifier-faces nil :extra-client-capabilities nil :status starting :metadata #<hash-table equal 0/65 0x157af47c37bb> :watches #<hash-table equal 0/65 0x157af47c3a91> :workspace-folders nil :last-id 0 :status-string nil :shutdown-action nil :diagnostics #<hash-table equal 0/65 0x157af47c3ab1> :work-done-tokens #<hash-table equal 0/65 0x157af47c3ad1>))) (_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)))) #f(compiled-function (&rest args2) #<bytecode -0xada15f9165a9cf0>) "pylsp" nil #s(lsp--workspace :ewoc nil :server-capabilities nil :registered-server-capabilities nil :root "/mnt/work/git/lab/nshephard/mvdate" :client #s(lsp--client :language-id nil :add-on? nil :new-connection (:connect (closure (... tramp-ssh-controlmaster-options tramp-use-ssh-controlmaster-options) (filter sentinel name environment-fn workspace) (if ... ... ...)) :test? (closure (...) nil (lsp-server-present? ...))) :ignore-regexps nil :ignore-messages nil :notification-handlers #<hash-table equal 0/65 0x157af3091a15> :request-handlers #<hash-table equal 0/65 0x157af47fdf91> :response-handlers #<hash-table eql 0/65 0x157af47fdfb1> :prefix-function nil :uri-handlers #<hash-table equal 0/65 0x157af47ba755> :action-handlers #<hash-table equal 0/65 0x157af3087da9> :major-modes nil :activation-fn (closure ((languages "python")) (_file-name _mode) (-contains? languages (lsp-buffer-language))) :priority -1 :server-id pylsp :multi-root nil :initialization-options nil :semantic-tokens-faces-overrides nil :custom-capabilities nil :library-folders-fn (closure (t) (_workspace) lsp-clients-pylsp-library-directories) :before-file-open-fn nil :initialized-fn (closure (t) (workspace) (let (...) (lsp--set-configuration ...))) :remote? nil :completion-in-comments? nil :path->uri-fn nil :uri->path-fn nil :environment-fn nil :after-open-fn nil :async-request-handlers #<hash-table equal 0/65 0x157af3087dc9> :download-server-fn nil :download-in-progress? nil :buffers nil :synchronize-sections nil) :host-root nil :proc nil :cmd-proc nil :buffers (#<buffer mvdate.py>) :semantic-tokens-faces nil :semantic-tokens-modifier-faces nil :extra-client-capabilities nil :status starting :metadata #<hash-table equal 0/65 0x157af47c37bb> :watches #<hash-table equal 0/65 0x157af47c3a91> :workspace-folders nil :last-id 0 :status-string nil :shutdown-action nil :diagnostics #<hash-table equal 0/65 0x157af47c3ab1> :work-done-tokens #<hash-table equal 0/65 0x157af47c3ad1>))
  12.   (let* ((default-directory root) (client (copy-lsp--client client-template)) (workspace (make-lsp--workspace :root root :client client :status 'starting :buffers (list (lsp-current-buffer)) :host-root (file-remote-p root))) (server-id (progn (or (progn (and (memq ... cl-struct-lsp--client-tags) t)) (signal 'wrong-type-argument (list 'lsp--client client))) (aref client 15))) (environment-fn (progn (or (progn (and (memq ... cl-struct-lsp--client-tags) t)) (signal 'wrong-type-argument (list 'lsp--client client))) (aref client 27))) (new-connection (progn (or (progn (and (memq ... cl-struct-lsp--client-tags) t)) (signal 'wrong-type-argument (list 'lsp--client client))) (aref client 3))) (custom-capabilities (progn (or (progn (and (memq ... cl-struct-lsp--client-tags) t)) (signal 'wrong-type-argument (list 'lsp--client client))) (aref client 19))) (multi-root (progn (or (progn (and (memq ... cl-struct-lsp--client-tags) t)) (signal 'wrong-type-argument (list 'lsp--client client))) (aref client 16))) (initialized-fn (progn (or (progn (and (memq ... cl-struct-lsp--client-tags) t)) (signal 'wrong-type-argument (list 'lsp--client client))) (aref client 22))) (--dash-source-474-- (funcall (or (plist-get new-connection :connect) (user-error "Client %s is configured incorrectly" client)) (lsp--create-filter-function workspace) (apply-partially #'lsp--process-sentinel workspace) (format "%s" server-id) environment-fn workspace)) (proc (car-safe (prog1 --dash-source-474-- (setq --dash-source-474-- (cdr --dash-source-474--))))) (cmd-proc --dash-source-474--) (workspace-folders (gethash server-id (progn (or (progn (and ... t)) (signal 'wrong-type-argument (list ... session))) (aref session 3))))) (progn (progn (or (progn (and (memq (type-of workspace) cl-struct-lsp--workspace-tags) t)) (signal 'wrong-type-argument (list 'lsp--workspace workspace))) (let* ((v workspace)) (aset v 7 proc))) (progn (or (progn (and (memq (type-of workspace) cl-struct-lsp--workspace-tags) t)) (signal 'wrong-type-argument (list 'lsp--workspace workspace))) (let* ((v workspace)) (aset v 8 cmd-proc)))) (mapc #'(lambda (project-root) (let* ((a1 workspace) (v project-root) (v (progn ... ...))) (puthash v (let* (...) (if ... vlist ...)) v))) (or workspace-folders (list root))) (let ((lsp--cur-workspace workspace)) (run-hooks 'lsp-before-initialize-hook) (lsp-request-async "initialize" (append (list :processId (if (file-remote-p (buffer-file-name)) nil (emacs-pid)) :rootPath (lsp-file-local-name (expand-file-name root)) :clientInfo (list :name "emacs" :version (emacs-version)) :rootUri (lsp--path-to-uri root) :capabilities (lsp--client-capabilities custom-capabilities) :initializationOptions initialization-options :workDoneToken "1") (if lsp-server-trace (progn (list :trace lsp-server-trace))) (if multi-root (progn (list :workspaceFolders (apply ... ...))))) #'(lambda (input0) (let* ((capabilities ...)) (if (equal ... server-id) (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 folders: %s" (lsp--workspace-print workspace) (lsp-workspace-folders workspace)))) :mode 'detached)) workspace)
  13.   lsp--start-workspace(#s(lsp-session :folders ("/mnt/work/git/hub/Mesnage-Org/pgfinder" "/mnt/work/git/hub/SheffieldR/SheffieldR.github.io" "/mnt/work/git/hub/ns-rse/ns-rse.github.io" "/mnt/work/git/hub/ns-rse/git-collaboration" "/home/neil/.config/emacs" "/mnt/work/git/hub/AFM-SPM/topofileformats" "/home/neil/work/git/lab/nshephard/mvdate" "/home/neil/dotfiles" "/mnt/work/git/hub/ns-rse/scikit-image" "/mnt/work/git/lab/nshephard/mvdate" "/mnt/work/git/lab/nshephard/tcx2gpx" "/mnt/work/git/hub/AFM-SPM/TopoStats" "/mnt/work/git/hub/ns-rse/igor2" "/mnt/work/git/hub/ns-rse/quarto-revealjs-template" "/mnt/work/git/lab/rename-flac" "/mnt/work/git/hub/ns-rse/reproducibilitea-sheffiel..." "/home/neil/tmp" "/mnt/work/git/hub/slackline/onlykey_configuration" "/mnt/work/git/hub/TopoStats" "/mnt/work/git/hub/ns-rse.github.io" "/mnt/work/git/hub/quarto-revealjs-template" "/mnt/work/git/lab/mvdate" "/mnt/work/git/lab/tcx2gpx" "/home/neil/org" "/mnt/work/git/hub/python-design-patterns" "/home/neil/work/git/hub/design-patterns" "/mnt/work/git/hub/design-patterns" "/mnt/work/ns-rse.github.io" "/mnt/work/rse/projects/clarity" "/home/neil/org-roam" "/home/neil/work/rse/pre-commit" "/mnt/work/python/tcx2gpx") :folders-blocklist nil :server-id->folders #<hash-table equal 1/65 0x157af2a17c0b> :folder->servers #<hash-table equal 0/65 0x157af2a17e39> :metadata #<hash-table equal 1/65 0x157af2a17e59>) #s(lsp--client :language-id nil :add-on? nil :new-connection (:connect (closure ((command closure (t) nil lsp-pylsp-server-command) tramp-ssh-controlmaster-options tramp-use-ssh-controlmaster-options) (filter sentinel name environment-fn workspace) (if (and (functionp 'json-rpc-connection) (not (file-remote-p default-directory))) (lsp-json-rpc-connection workspace (lsp-resolve-final-command command)) (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 ((command closure (t) nil lsp-pylsp-server-command)) nil (lsp-server-present? (lsp-resolve-final-command command t)))) :ignore-regexps nil :ignore-messages nil :notification-handlers #<hash-table equal 0/65 0x157af3091a15> :request-handlers #<hash-table equal 0/65 0x157af47fdf91> :response-handlers #<hash-table eql 0/65 0x157af47fdfb1> :prefix-function nil :uri-handlers #<hash-table equal 0/65 0x157af47ba755> :action-handlers #<hash-table equal 0/65 0x157af3087da9> :major-modes nil :activation-fn (closure ((languages "python")) (_file-name _mode) (-contains? languages (lsp-buffer-language))) :priority -1 :server-id pylsp :multi-root nil :initialization-options nil :semantic-tokens-faces-overrides nil :custom-capabilities nil :library-folders-fn (closure (t) (_workspace) lsp-clients-pylsp-library-directories) :before-file-open-fn nil :initialized-fn (closure (t) (workspace) (let ((lsp--cur-workspace workspace)) (lsp--set-configuration (lsp-configuration-section "pylsp")))) :remote? nil :completion-in-comments? nil :path->uri-fn nil :uri->path-fn nil :environment-fn nil :after-open-fn nil :async-request-handlers #<hash-table equal 0/65 0x157af3087dc9> :download-server-fn nil :download-in-progress? nil :buffers nil :synchronize-sections nil) "/mnt/work/git/lab/nshephard/mvdate" nil)
  14.   (unwind-protect (lsp--start-workspace session client project-root (lsp--create-initialization-options session client)) (lsp--spinner-stop))
  15.   lsp--start-connection(#s(lsp-session :folders ("/mnt/work/git/hub/Mesnage-Org/pgfinder" "/mnt/work/git/hub/SheffieldR/SheffieldR.github.io" "/mnt/work/git/hub/ns-rse/ns-rse.github.io" "/mnt/work/git/hub/ns-rse/git-collaboration" "/home/neil/.config/emacs" "/mnt/work/git/hub/AFM-SPM/topofileformats" "/home/neil/work/git/lab/nshephard/mvdate" "/home/neil/dotfiles" "/mnt/work/git/hub/ns-rse/scikit-image" "/mnt/work/git/lab/nshephard/mvdate" "/mnt/work/git/lab/nshephard/tcx2gpx" "/mnt/work/git/hub/AFM-SPM/TopoStats" "/mnt/work/git/hub/ns-rse/igor2" "/mnt/work/git/hub/ns-rse/quarto-revealjs-template" "/mnt/work/git/lab/rename-flac" "/mnt/work/git/hub/ns-rse/reproducibilitea-sheffiel..." "/home/neil/tmp" "/mnt/work/git/hub/slackline/onlykey_configuration" "/mnt/work/git/hub/TopoStats" "/mnt/work/git/hub/ns-rse.github.io" "/mnt/work/git/hub/quarto-revealjs-template" "/mnt/work/git/lab/mvdate" "/mnt/work/git/lab/tcx2gpx" "/home/neil/org" "/mnt/work/git/hub/python-design-patterns" "/home/neil/work/git/hub/design-patterns" "/mnt/work/git/hub/design-patterns" "/mnt/work/ns-rse.github.io" "/mnt/work/rse/projects/clarity" "/home/neil/org-roam" "/home/neil/work/rse/pre-commit" "/mnt/work/python/tcx2gpx") :folders-blocklist nil :server-id->folders #<hash-table equal 1/65 0x157af2a17c0b> :folder->servers #<hash-table equal 0/65 0x157af2a17e39> :metadata #<hash-table equal 1/65 0x157af2a17e59>) #s(lsp--client :language-id nil :add-on? nil :new-connection (:connect (closure ((command closure (t) nil lsp-pylsp-server-command) tramp-ssh-controlmaster-options tramp-use-ssh-controlmaster-options) (filter sentinel name environment-fn workspace) (if (and (functionp 'json-rpc-connection) (not (file-remote-p default-directory))) (lsp-json-rpc-connection workspace (lsp-resolve-final-command command)) (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 ((command closure (t) nil lsp-pylsp-server-command)) nil (lsp-server-present? (lsp-resolve-final-command command t)))) :ignore-regexps nil :ignore-messages nil :notification-handlers #<hash-table equal 0/65 0x157af3091a15> :request-handlers #<hash-table equal 0/65 0x157af47fdf91> :response-handlers #<hash-table eql 0/65 0x157af47fdfb1> :prefix-function nil :uri-handlers #<hash-table equal 0/65 0x157af47ba755> :action-handlers #<hash-table equal 0/65 0x157af3087da9> :major-modes nil :activation-fn (closure ((languages "python")) (_file-name _mode) (-contains? languages (lsp-buffer-language))) :priority -1 :server-id pylsp :multi-root nil :initialization-options nil :semantic-tokens-faces-overrides nil :custom-capabilities nil :library-folders-fn (closure (t) (_workspace) lsp-clients-pylsp-library-directories) :before-file-open-fn nil :initialized-fn (closure (t) (workspace) (let ((lsp--cur-workspace workspace)) (lsp--set-configuration (lsp-configuration-section "pylsp")))) :remote? nil :completion-in-comments? nil :path->uri-fn nil :uri->path-fn nil :environment-fn nil :after-open-fn nil :async-request-handlers #<hash-table equal 0/65 0x157af3087dc9> :download-server-fn nil :download-in-progress? nil :buffers nil :synchronize-sections nil) "/mnt/work/git/lab/nshephard/mvdate")
  16.   (or (lsp--find-workspace session client project-root) (if ignore-multi-folder nil (lsp--find-multiroot-workspace session client project-root)) (lsp--start-connection session client project-root))
  17.   (closure ((ignore-multi-folder) (project-root . "/mnt/work/git/lab/nshephard/mvdate") (session . #s(lsp-session :folders ("/mnt/work/git/hub/Mesnage-Org/pgfinder" "/mnt/work/git/hub/SheffieldR/SheffieldR.github.io" "/mnt/work/git/hub/ns-rse/ns-rse.github.io" "/mnt/work/git/hub/ns-rse/git-collaboration" "/home/neil/.config/emacs" "/mnt/work/git/hub/AFM-SPM/topofileformats" "/home/neil/work/git/lab/nshephard/mvdate" "/home/neil/dotfiles" "/mnt/work/git/hub/ns-rse/scikit-image" "/mnt/work/git/lab/nshephard/mvdate" "/mnt/work/git/lab/nshephard/tcx2gpx" "/mnt/work/git/hub/AFM-SPM/TopoStats" "/mnt/work/git/hub/ns-rse/igor2" "/mnt/work/git/hub/ns-rse/quarto-revealjs-template" "/mnt/work/git/lab/rename-flac" "/mnt/work/git/hub/ns-rse/reproducibilitea-sheffiel..." "/home/neil/tmp" "/mnt/work/git/hub/slackline/onlykey_configuration" "/mnt/work/git/hub/TopoStats" "/mnt/work/git/hub/ns-rse.github.io" "/mnt/work/git/hub/quarto-revealjs-template" "/mnt/work/git/lab/mvdate" "/mnt/work/git/lab/tcx2gpx" "/home/neil/org" "/mnt/work/git/hub/python-design-patterns" "/home/neil/work/git/hub/design-patterns" "/mnt/work/git/hub/design-patterns" "/mnt/work/ns-rse.github.io" "/mnt/work/rse/projects/clarity" "/home/neil/org-roam" "/home/neil/work/rse/pre-commit" "/mnt/work/python/tcx2gpx") :folders-blocklist nil :server-id->folders #<hash-table equal 1/65 0x157af2a17c0b> :folder->servers #<hash-table equal 0/65 0x157af2a17e39> :metadata #<hash-table equal 1/65 0x157af2a17e59>))) (client) (or (lsp--find-workspace session client project-root) (if ignore-multi-folder nil (lsp--find-multiroot-workspace session client project-root)) (lsp--start-connection session client project-root)))(#s(lsp--client :language-id nil :add-on? nil :new-connection (:connect (closure ((command closure (t) nil lsp-pylsp-server-command) tramp-ssh-controlmaster-options tramp-use-ssh-controlmaster-options) (filter sentinel name environment-fn workspace) (if (and (functionp 'json-rpc-connection) (not (file-remote-p default-directory))) (lsp-json-rpc-connection workspace (lsp-resolve-final-command command)) (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 ((command closure (t) nil lsp-pylsp-server-command)) nil (lsp-server-present? (lsp-resolve-final-command command t)))) :ignore-regexps nil :ignore-messages nil :notification-handlers #<hash-table equal 0/65 0x157af3091a15> :request-handlers #<hash-table equal 0/65 0x157af47fdf91> :response-handlers #<hash-table eql 0/65 0x157af47fdfb1> :prefix-function nil :uri-handlers #<hash-table equal 0/65 0x157af47ba755> :action-handlers #<hash-table equal 0/65 0x157af3087da9> :major-modes nil :activation-fn (closure ((languages "python")) (_file-name _mode) (-contains? languages (lsp-buffer-language))) :priority -1 :server-id pylsp :multi-root nil :initialization-options nil :semantic-tokens-faces-overrides nil :custom-capabilities nil :library-folders-fn (closure (t) (_workspace) lsp-clients-pylsp-library-directories) :before-file-open-fn nil :initialized-fn (closure (t) (workspace) (let ((lsp--cur-workspace workspace)) (lsp--set-configuration (lsp-configuration-section "pylsp")))) :remote? nil :completion-in-comments? nil :path->uri-fn nil :uri->path-fn nil :environment-fn nil :after-open-fn nil :async-request-handlers #<hash-table equal 0/65 0x157af3087dc9> :download-server-fn nil :download-in-progress? nil :buffers nil :synchronize-sections nil))
  18.   mapcar((closure ((ignore-multi-folder) (project-root . "/mnt/work/git/lab/nshephard/mvdate") (session . #s(lsp-session :folders ("/mnt/work/git/hub/Mesnage-Org/pgfinder" "/mnt/work/git/hub/SheffieldR/SheffieldR.github.io" "/mnt/work/git/hub/ns-rse/ns-rse.github.io" "/mnt/work/git/hub/ns-rse/git-collaboration" "/home/neil/.config/emacs" "/mnt/work/git/hub/AFM-SPM/topofileformats" "/home/neil/work/git/lab/nshephard/mvdate" "/home/neil/dotfiles" "/mnt/work/git/hub/ns-rse/scikit-image" "/mnt/work/git/lab/nshephard/mvdate" "/mnt/work/git/lab/nshephard/tcx2gpx" "/mnt/work/git/hub/AFM-SPM/TopoStats" "/mnt/work/git/hub/ns-rse/igor2" "/mnt/work/git/hub/ns-rse/quarto-revealjs-template" "/mnt/work/git/lab/rename-flac" "/mnt/work/git/hub/ns-rse/reproducibilitea-sheffiel..." "/home/neil/tmp" "/mnt/work/git/hub/slackline/onlykey_configuration" "/mnt/work/git/hub/TopoStats" "/mnt/work/git/hub/ns-rse.github.io" "/mnt/work/git/hub/quarto-revealjs-template" "/mnt/work/git/lab/mvdate" "/mnt/work/git/lab/tcx2gpx" "/home/neil/org" "/mnt/work/git/hub/python-design-patterns" "/home/neil/work/git/hub/design-patterns" "/mnt/work/git/hub/design-patterns" "/mnt/work/ns-rse.github.io" "/mnt/work/rse/projects/clarity" "/home/neil/org-roam" "/home/neil/work/rse/pre-commit" "/mnt/work/python/tcx2gpx") :folders-blocklist nil :server-id->folders #<hash-table equal 1/65 0x157af2a17c0b> :folder->servers #<hash-table equal 0/65 0x157af2a17e39> :metadata #<hash-table equal 1/65 0x157af2a17e59>))) (client) (or (lsp--find-workspace session client project-root) (if ignore-multi-folder nil (lsp--find-multiroot-workspace session client project-root)) (lsp--start-connection session client project-root))) (#s(lsp--client :language-id nil :add-on? nil :new-connection (:connect (closure ((command closure (t) nil lsp-pylsp-server-command) tramp-ssh-controlmaster-options tramp-use-ssh-controlmaster-options) (filter sentinel name environment-fn workspace) (if (and (functionp ...) (not ...)) (lsp-json-rpc-connection workspace (lsp-resolve-final-command command)) (let (... ... ...) (let* ... ... ... ... ...)))) :test? (closure ((command closure (t) nil lsp-pylsp-server-command)) nil (lsp-server-present? (lsp-resolve-final-command command t)))) :ignore-regexps nil :ignore-messages nil :notification-handlers #<hash-table equal 0/65 0x157af3091a15> :request-handlers #<hash-table equal 0/65 0x157af47fdf91> :response-handlers #<hash-table eql 0/65 0x157af47fdfb1> :prefix-function nil :uri-handlers #<hash-table equal 0/65 0x157af47ba755> :action-handlers #<hash-table equal 0/65 0x157af3087da9> :major-modes nil :activation-fn (closure ((languages "python")) (_file-name _mode) (-contains? languages (lsp-buffer-language))) :priority -1 :server-id pylsp :multi-root nil :initialization-options nil :semantic-tokens-faces-overrides nil :custom-capabilities nil :library-folders-fn (closure (t) (_workspace) lsp-clients-pylsp-library-directories) :before-file-open-fn nil :initialized-fn (closure (t) (workspace) (let ((lsp--cur-workspace workspace)) (lsp--set-configuration (lsp-configuration-section "pylsp")))) :remote? nil :completion-in-comments? nil :path->uri-fn nil :uri->path-fn nil :environment-fn nil :after-open-fn nil :async-request-handlers #<hash-table equal 0/65 0x157af3087dc9> :download-server-fn nil :download-in-progress? nil :buffers nil :synchronize-sections nil)))
  19.   -map((closure ((ignore-multi-folder) (project-root . "/mnt/work/git/lab/nshephard/mvdate") (session . #s(lsp-session :folders ("/mnt/work/git/hub/Mesnage-Org/pgfinder" "/mnt/work/git/hub/SheffieldR/SheffieldR.github.io" "/mnt/work/git/hub/ns-rse/ns-rse.github.io" "/mnt/work/git/hub/ns-rse/git-collaboration" "/home/neil/.config/emacs" "/mnt/work/git/hub/AFM-SPM/topofileformats" "/home/neil/work/git/lab/nshephard/mvdate" "/home/neil/dotfiles" "/mnt/work/git/hub/ns-rse/scikit-image" "/mnt/work/git/lab/nshephard/mvdate" "/mnt/work/git/lab/nshephard/tcx2gpx" "/mnt/work/git/hub/AFM-SPM/TopoStats" "/mnt/work/git/hub/ns-rse/igor2" "/mnt/work/git/hub/ns-rse/quarto-revealjs-template" "/mnt/work/git/lab/rename-flac" "/mnt/work/git/hub/ns-rse/reproducibilitea-sheffiel..." "/home/neil/tmp" "/mnt/work/git/hub/slackline/onlykey_configuration" "/mnt/work/git/hub/TopoStats" "/mnt/work/git/hub/ns-rse.github.io" "/mnt/work/git/hub/quarto-revealjs-template" "/mnt/work/git/lab/mvdate" "/mnt/work/git/lab/tcx2gpx" "/home/neil/org" "/mnt/work/git/hub/python-design-patterns" "/home/neil/work/git/hub/design-patterns" "/mnt/work/git/hub/design-patterns" "/mnt/work/ns-rse.github.io" "/mnt/work/rse/projects/clarity" "/home/neil/org-roam" "/home/neil/work/rse/pre-commit" "/mnt/work/python/tcx2gpx") :folders-blocklist nil :server-id->folders #<hash-table equal 1/65 0x157af2a17c0b> :folder->servers #<hash-table equal 0/65 0x157af2a17e39> :metadata #<hash-table equal 1/65 0x157af2a17e59>))) (client) (or (lsp--find-workspace session client project-root) (if ignore-multi-folder nil (lsp--find-multiroot-workspace session client project-root)) (lsp--start-connection session client project-root))) (#s(lsp--client :language-id nil :add-on? nil :new-connection (:connect (closure ((command closure (t) nil lsp-pylsp-server-command) tramp-ssh-controlmaster-options tramp-use-ssh-controlmaster-options) (filter sentinel name environment-fn workspace) (if (and (functionp ...) (not ...)) (lsp-json-rpc-connection workspace (lsp-resolve-final-command command)) (let (... ... ...) (let* ... ... ... ... ...)))) :test? (closure ((command closure (t) nil lsp-pylsp-server-command)) nil (lsp-server-present? (lsp-resolve-final-command command t)))) :ignore-regexps nil :ignore-messages nil :notification-handlers #<hash-table equal 0/65 0x157af3091a15> :request-handlers #<hash-table equal 0/65 0x157af47fdf91> :response-handlers #<hash-table eql 0/65 0x157af47fdfb1> :prefix-function nil :uri-handlers #<hash-table equal 0/65 0x157af47ba755> :action-handlers #<hash-table equal 0/65 0x157af3087da9> :major-modes nil :activation-fn (closure ((languages "python")) (_file-name _mode) (-contains? languages (lsp-buffer-language))) :priority -1 :server-id pylsp :multi-root nil :initialization-options nil :semantic-tokens-faces-overrides nil :custom-capabilities nil :library-folders-fn (closure (t) (_workspace) lsp-clients-pylsp-library-directories) :before-file-open-fn nil :initialized-fn (closure (t) (workspace) (let ((lsp--cur-workspace workspace)) (lsp--set-configuration (lsp-configuration-section "pylsp")))) :remote? nil :completion-in-comments? nil :path->uri-fn nil :uri->path-fn nil :environment-fn nil :after-open-fn nil :async-request-handlers #<hash-table equal 0/65 0x157af3087dc9> :download-server-fn nil :download-in-progress? nil :buffers nil :synchronize-sections nil)))
  20.   lsp--ensure-lsp-servers(#s(lsp-session :folders ("/mnt/work/git/hub/Mesnage-Org/pgfinder" "/mnt/work/git/hub/SheffieldR/SheffieldR.github.io" "/mnt/work/git/hub/ns-rse/ns-rse.github.io" "/mnt/work/git/hub/ns-rse/git-collaboration" "/home/neil/.config/emacs" "/mnt/work/git/hub/AFM-SPM/topofileformats" "/home/neil/work/git/lab/nshephard/mvdate" "/home/neil/dotfiles" "/mnt/work/git/hub/ns-rse/scikit-image" "/mnt/work/git/lab/nshephard/mvdate" "/mnt/work/git/lab/nshephard/tcx2gpx" "/mnt/work/git/hub/AFM-SPM/TopoStats" "/mnt/work/git/hub/ns-rse/igor2" "/mnt/work/git/hub/ns-rse/quarto-revealjs-template" "/mnt/work/git/lab/rename-flac" "/mnt/work/git/hub/ns-rse/reproducibilitea-sheffiel..." "/home/neil/tmp" "/mnt/work/git/hub/slackline/onlykey_configuration" "/mnt/work/git/hub/TopoStats" "/mnt/work/git/hub/ns-rse.github.io" "/mnt/work/git/hub/quarto-revealjs-template" "/mnt/work/git/lab/mvdate" "/mnt/work/git/lab/tcx2gpx" "/home/neil/org" "/mnt/work/git/hub/python-design-patterns" "/home/neil/work/git/hub/design-patterns" "/mnt/work/git/hub/design-patterns" "/mnt/work/ns-rse.github.io" "/mnt/work/rse/projects/clarity" "/home/neil/org-roam" "/home/neil/work/rse/pre-commit" "/mnt/work/python/tcx2gpx") :folders-blocklist nil :server-id->folders #<hash-table equal 1/65 0x157af2a17c0b> :folder->servers #<hash-table equal 0/65 0x157af2a17e39> :metadata #<hash-table equal 1/65 0x157af2a17e59>) (#s(lsp--client :language-id nil :add-on? nil :new-connection (:connect (closure ((command closure (t) nil lsp-pylsp-server-command) tramp-ssh-controlmaster-options tramp-use-ssh-controlmaster-options) (filter sentinel name environment-fn workspace) (if (and (functionp ...) (not ...)) (lsp-json-rpc-connection workspace (lsp-resolve-final-command command)) (let (... ... ...) (let* ... ... ... ... ...)))) :test? (closure ((command closure (t) nil lsp-pylsp-server-command)) nil (lsp-server-present? (lsp-resolve-final-command command t)))) :ignore-regexps nil :ignore-messages nil :notification-handlers #<hash-table equal 0/65 0x157af3091a15> :request-handlers #<hash-table equal 0/65 0x157af47fdf91> :response-handlers #<hash-table eql 0/65 0x157af47fdfb1> :prefix-function nil :uri-handlers #<hash-table equal 0/65 0x157af47ba755> :action-handlers #<hash-table equal 0/65 0x157af3087da9> :major-modes nil :activation-fn (closure ((languages "python")) (_file-name _mode) (-contains? languages (lsp-buffer-language))) :priority -1 :server-id pylsp :multi-root nil :initialization-options nil :semantic-tokens-faces-overrides nil :custom-capabilities nil :library-folders-fn (closure (t) (_workspace) lsp-clients-pylsp-library-directories) :before-file-open-fn nil :initialized-fn (closure (t) (workspace) (let ((lsp--cur-workspace workspace)) (lsp--set-configuration (lsp-configuration-section "pylsp")))) :remote? nil :completion-in-comments? nil :path->uri-fn nil :uri->path-fn nil :environment-fn nil :after-open-fn nil :async-request-handlers #<hash-table equal 0/65 0x157af3087dc9> :download-server-fn nil :download-in-progress? nil :buffers nil :synchronize-sections nil)) "/mnt/work/git/lab/nshephard/mvdate" nil)
  21.   (progn (if (-contains? (progn (or (progn (and (memq ... cl-struct-lsp-session-tags) t)) (signal 'wrong-type-argument (list 'lsp-session session))) (aref session 1)) project-root) nil (progn (or (progn (and (memq (type-of session) cl-struct-lsp-session-tags) t)) (signal 'wrong-type-argument (list 'lsp-session session))) (let* ((v session)) (aset v 1 (let* ((vlist ...)) (if (memql project-root vlist) vlist (cons project-root vlist)))))) (lsp--persist-session session)) (lsp--ensure-lsp-servers session clients project-root ignore-multi-folder))
  22.   (if project-root (progn (if (-contains? (progn (or (progn (and ... t)) (signal 'wrong-type-argument (list ... session))) (aref session 1)) project-root) nil (progn (or (progn (and (memq ... cl-struct-lsp-session-tags) t)) (signal 'wrong-type-argument (list 'lsp-session session))) (let* ((v session)) (aset v 1 (let* (...) (if ... vlist ...))))) (lsp--persist-session session)) (lsp--ensure-lsp-servers session clients project-root ignore-multi-folder)) (lsp--warn "%s not in project or it is blocklisted." (buffer-name)) nil)
  23.   (let ((project-root (let ((result (let (...) (if result ...)))) (if result (progn (lsp-f-canonical result)))))) (if project-root (progn (if (-contains? (progn (or (progn ...) (signal ... ...)) (aref session 1)) project-root) nil (progn (or (progn (and ... t)) (signal 'wrong-type-argument (list ... session))) (let* ((v session)) (aset v 1 (let* ... ...)))) (lsp--persist-session session)) (lsp--ensure-lsp-servers session clients project-root ignore-multi-folder)) (lsp--warn "%s not in project or it is blocklisted." (buffer-name)) nil))
  24.   (if clients (let ((project-root (let ((result (let ... ...))) (if result (progn (lsp-f-canonical result)))))) (if project-root (progn (if (-contains? (progn (or ... ...) (aref session 1)) project-root) nil (progn (or (progn ...) (signal ... ...)) (let* (...) (aset v 1 ...))) (lsp--persist-session session)) (lsp--ensure-lsp-servers session clients project-root ignore-multi-folder)) (lsp--warn "%s not in project or it is blocklisted." (buffer-name)) nil)) (lsp--warn "No LSP server for %s(check *lsp-log*)." major-mode) nil)
  25.   (let ((clients (if ask-for-client (list (lsp--completing-read "Select server to start: " (ht-values lsp-clients) (-compose 'symbol-name 'lsp--client-server-id) nil t)) (lsp--find-clients)))) (if clients (let ((project-root (let ((result ...)) (if result (progn ...))))) (if project-root (progn (if (-contains? (progn ... ...) project-root) nil (progn (or ... ...) (let* ... ...)) (lsp--persist-session session)) (lsp--ensure-lsp-servers session clients project-root ignore-multi-folder)) (lsp--warn "%s not in project or it is blocklisted." (buffer-name)) nil)) (lsp--warn "No LSP server for %s(check *lsp-log*)." major-mode) nil))
  26.   (let* ((session input0)) (let ((clients (if ask-for-client (list (lsp--completing-read "Select server to start: " (ht-values lsp-clients) (-compose ... ...) nil t)) (lsp--find-clients)))) (if clients (let ((project-root (let (...) (if result ...)))) (if project-root (progn (if (-contains? ... project-root) nil (progn ... ...) (lsp--persist-session session)) (lsp--ensure-lsp-servers session clients project-root ignore-multi-folder)) (lsp--warn "%s not in project or it is blocklisted." (buffer-name)) nil)) (lsp--warn "No LSP server for %s(check *lsp-log*)." major-mode) nil)))
  27.   (let ((input0 (lsp-session))) (let* ((session input0)) (let ((clients (if ask-for-client (list (lsp--completing-read "Select server to start: " ... ... nil t)) (lsp--find-clients)))) (if clients (let ((project-root (let ... ...))) (if project-root (progn (if ... nil ... ...) (lsp--ensure-lsp-servers session clients project-root ignore-multi-folder)) (lsp--warn "%s not in project or it is blocklisted." (buffer-name)) nil)) (lsp--warn "No LSP server for %s(check *lsp-log*)." major-mode) nil))))
  28.   lsp--try-project-root-workspaces(nil nil)
  29.   (or (and (not (lsp-find-session-folder (lsp-session) (buffer-file-name))) (lsp--try-open-in-library-workspace)) (lsp--try-project-root-workspaces (equal arg '(4)) (and arg (not (equal arg 1)))))
  30.   (setq lsp--buffer-workspaces (or (and (not (lsp-find-session-folder (lsp-session) (buffer-file-name))) (lsp--try-open-in-library-workspace)) (lsp--try-project-root-workspaces (equal arg '(4)) (and arg (not (equal arg 1))))))
  31.   (if (setq lsp--buffer-workspaces (or (and (not (lsp-find-session-folder (lsp-session) (buffer-file-name))) (lsp--try-open-in-library-workspace)) (lsp--try-project-root-workspaces (equal arg '(4)) (and arg (not (equal arg 1)))))) (progn (lsp-mode 1) (if lsp-auto-configure (progn (lsp--auto-configure))) (setq lsp-buffer-uri (lsp--buffer-uri)) (lsp--info "Connected to %s." (apply 'concat (mapcar #'(lambda (it) (ignore it) (format "[%s %s]" ... ...)) lsp--buffer-workspaces)))))
  32.   (cond (matching-clients (if (setq lsp--buffer-workspaces (or (and (not (lsp-find-session-folder ... ...)) (lsp--try-open-in-library-workspace)) (lsp--try-project-root-workspaces (equal arg '...) (and arg (not ...))))) (progn (lsp-mode 1) (if lsp-auto-configure (progn (lsp--auto-configure))) (setq lsp-buffer-uri (lsp--buffer-uri)) (lsp--info "Connected to %s." (apply 'concat (mapcar #'... lsp--buffer-workspaces)))))) ((setq clients (lsp--filter-clients (-andfn #'lsp--supports-buffer? #'lsp--client-download-in-progress?))) (lsp--info "There are language server(%s) installation in prog..." (-map #'lsp--client-server-id clients)) (seq-do #'(lambda (client) (progn (or (progn ...) (signal ... ...)) (let* (...) (aset v 32 ...)))) clients)) ((setq clients (lsp--filter-clients (-andfn #'lsp--supports-buffer? (-const lsp-enable-suggest-server-download) #'lsp--client-download-server-fn (-not #'lsp--client-download-in-progress?)))) (let ((client (lsp--completing-read (concat "Unable to find installed server supporting this fi..." "The following servers could be installed automatic...") clients (-compose #'symbol-name #'lsp--client-server-id) nil t))) (progn (or (progn (and (memq ... cl-struct-lsp--client-tags) t)) (signal 'wrong-type-argument (list 'lsp--client client))) (let* ((v client)) (aset v 32 (let* (... ...) (if ... vlist ...))))) (lsp--install-server-internal client))) ((not lsp-warn-no-matched-clients) nil) ((setq clients (if matching-clients nil (lsp--filter-clients (-andfn #'lsp--supports-buffer? #'lsp--client-download-server-fn (-not (-const lsp-enable-suggest-server-download)) (-not #'lsp--server-binary-present?))))) (lsp--warn "The following servers support current file but aut..." (mapconcat #'(lambda (client) (symbol-name (progn ... ...))) clients " "))) ((setq clients (if matching-clients nil (lsp--filter-clients (-andfn #'lsp--supports-buffer? (-not #'lsp--server-binary-present?))))) (lsp--warn "The following servers support current file but do ..." (mapconcat #'(lambda (client) (symbol-name (progn ... ...))) clients " "))) ((not (lsp--filter-clients #'lsp--supports-buffer?)) (lsp--error "There are no language servers supporting current m..." major-mode major-mode major-mode)))
  33.   (let (clients (matching-clients (lsp--filter-clients (-andfn #'lsp--supports-buffer? #'lsp--server-binary-present?)))) (cond (matching-clients (if (setq lsp--buffer-workspaces (or (and (not ...) (lsp--try-open-in-library-workspace)) (lsp--try-project-root-workspaces (equal arg ...) (and arg ...)))) (progn (lsp-mode 1) (if lsp-auto-configure (progn (lsp--auto-configure))) (setq lsp-buffer-uri (lsp--buffer-uri)) (lsp--info "Connected to %s." (apply 'concat (mapcar ... lsp--buffer-workspaces)))))) ((setq clients (lsp--filter-clients (-andfn #'lsp--supports-buffer? #'lsp--client-download-in-progress?))) (lsp--info "There are language server(%s) installation in prog..." (-map #'lsp--client-server-id clients)) (seq-do #'(lambda (client) (progn (or ... ...) (let* ... ...))) clients)) ((setq clients (lsp--filter-clients (-andfn #'lsp--supports-buffer? (-const lsp-enable-suggest-server-download) #'lsp--client-download-server-fn (-not #'lsp--client-download-in-progress?)))) (let ((client (lsp--completing-read (concat "Unable to find installed server supporting this fi..." "The following servers could be installed automatic...") clients (-compose ... ...) nil t))) (progn (or (progn (and ... t)) (signal 'wrong-type-argument (list ... client))) (let* ((v client)) (aset v 32 (let* ... ...)))) (lsp--install-server-internal client))) ((not lsp-warn-no-matched-clients) nil) ((setq clients (if matching-clients nil (lsp--filter-clients (-andfn #'lsp--supports-buffer? #'lsp--client-download-server-fn (-not ...) (-not ...))))) (lsp--warn "The following servers support current file but aut..." (mapconcat #'(lambda (client) (symbol-name ...)) clients " "))) ((setq clients (if matching-clients nil (lsp--filter-clients (-andfn #'lsp--supports-buffer? (-not ...))))) (lsp--warn "The following servers support current file but do ..." (mapconcat #'(lambda (client) (symbol-name ...)) clients " "))) ((not (lsp--filter-clients #'lsp--supports-buffer?)) (lsp--error "There are no language servers supporting current m..." major-mode major-mode major-mode))))
  34.   (progn (let (clients (matching-clients (lsp--filter-clients (-andfn #'lsp--supports-buffer? #'lsp--server-binary-present?)))) (cond (matching-clients (if (setq lsp--buffer-workspaces (or (and ... ...) (lsp--try-project-root-workspaces ... ...))) (progn (lsp-mode 1) (if lsp-auto-configure (progn ...)) (setq lsp-buffer-uri (lsp--buffer-uri)) (lsp--info "Connected to %s." (apply ... ...))))) ((setq clients (lsp--filter-clients (-andfn #'lsp--supports-buffer? #'lsp--client-download-in-progress?))) (lsp--info "There are language server(%s) installation in prog..." (-map #'lsp--client-server-id clients)) (seq-do #'(lambda (client) (progn ... ...)) clients)) ((setq clients (lsp--filter-clients (-andfn #'lsp--supports-buffer? (-const lsp-enable-suggest-server-download) #'lsp--client-download-server-fn (-not ...)))) (let ((client (lsp--completing-read ... clients ... nil t))) (progn (or (progn ...) (signal ... ...)) (let* (...) (aset v 32 ...))) (lsp--install-server-internal client))) ((not lsp-warn-no-matched-clients) nil) ((setq clients (if matching-clients nil (lsp--filter-clients (-andfn ... ... ... ...)))) (lsp--warn "The following servers support current file but aut..." (mapconcat #'(lambda ... ...) clients " "))) ((setq clients (if matching-clients nil (lsp--filter-clients (-andfn ... ...)))) (lsp--warn "The following servers support current file but do ..." (mapconcat #'(lambda ... ...) clients " "))) ((not (lsp--filter-clients #'lsp--supports-buffer?)) (lsp--error "There are no language servers supporting current m..." major-mode major-mode major-mode)))))
  35.   (if (buffer-file-name) (progn (let (clients (matching-clients (lsp--filter-clients (-andfn #'lsp--supports-buffer? #'lsp--server-binary-present?)))) (cond (matching-clients (if (setq lsp--buffer-workspaces (or ... ...)) (progn (lsp-mode 1) (if lsp-auto-configure ...) (setq lsp-buffer-uri ...) (lsp--info "Connected to %s." ...)))) ((setq clients (lsp--filter-clients (-andfn ... ...))) (lsp--info "There are language server(%s) installation in prog..." (-map #'lsp--client-server-id clients)) (seq-do #'(lambda ... ...) clients)) ((setq clients (lsp--filter-clients (-andfn ... ... ... ...))) (let ((client ...)) (progn (or ... ...) (let* ... ...)) (lsp--install-server-internal client))) ((not lsp-warn-no-matched-clients) nil) ((setq clients (if matching-clients nil (lsp--filter-clients ...))) (lsp--warn "The following servers support current file but aut..." (mapconcat #'... clients " "))) ((setq clients (if matching-clients nil (lsp--filter-clients ...))) (lsp--warn "The following servers support current file but do ..." (mapconcat #'... clients " "))) ((not (lsp--filter-clients #'lsp--supports-buffer?)) (lsp--error "There are no language servers supporting current m..." major-mode major-mode major-mode))))))
  36.   (closure (lsp-browser-mode-abbrev-table lsp-browser-mode-syntax-table lsp-log-io-mode-abbrev-table lsp-log-io-mode-syntax-table tramp-ssh-controlmaster-options tramp-use-ssh-controlmaster-options view-inhibit-help-message lsp-help-mode-abbrev-table lsp-help-mode-syntax-table eldoc-documentation-default 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 t) (&optional arg) "Entry point for the server startup.\nWhen ARG is t ..." (interactive "P") (lsp--require-packages) (if (buffer-file-name) (progn (let (clients (matching-clients (lsp--filter-clients (-andfn ... ...)))) (cond (matching-clients (if (setq lsp--buffer-workspaces ...) (progn ... ... ... ...))) ((setq clients (lsp--filter-clients ...)) (lsp--info "There are language server(%s) installation in prog..." (-map ... clients)) (seq-do #'... clients)) ((setq clients (lsp--filter-clients ...)) (let (...) (progn ... ...) (lsp--install-server-internal client))) ((not lsp-warn-no-matched-clients) nil) ((setq clients (if matching-clients nil ...)) (lsp--warn "The following servers support current file but aut..." (mapconcat ... clients " "))) ((setq clients (if matching-clients nil ...)) (lsp--warn "The following servers support current file but do ..." (mapconcat ... clients " "))) ((not (lsp--filter-clients ...)) (lsp--error "There are no language servers supporting current m..." major-mode major-mode major-mode)))))))()
  37.   apply((closure (lsp-browser-mode-abbrev-table lsp-browser-mode-syntax-table lsp-log-io-mode-abbrev-table lsp-log-io-mode-syntax-table tramp-ssh-controlmaster-options tramp-use-ssh-controlmaster-options view-inhibit-help-message lsp-help-mode-abbrev-table lsp-help-mode-syntax-table eldoc-documentation-default 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 t) (&optional arg) "Entry point for the server startup.\nWhen ARG is t ..." (interactive "P") (lsp--require-packages) (if (buffer-file-name) (progn (let (clients (matching-clients (lsp--filter-clients ...))) (cond (matching-clients (if ... ...)) ((setq clients ...) (lsp--info "There are language server(%s) installation in prog..." ...) (seq-do ... clients)) ((setq clients ...) (let ... ... ...)) ((not lsp-warn-no-matched-clients) nil) ((setq clients ...) (lsp--warn "The following servers support current file but aut..." ...)) ((setq clients ...) (lsp--warn "The following servers support current file but do ..." ...)) ((not ...) (lsp--error "There are no language servers supporting current m..." major-mode major-mode major-mode))))))) nil)
  38.   magit--lsp--disable-when-visiting-blob((closure (lsp-browser-mode-abbrev-table lsp-browser-mode-syntax-table lsp-log-io-mode-abbrev-table lsp-log-io-mode-syntax-table tramp-ssh-controlmaster-options tramp-use-ssh-controlmaster-options view-inhibit-help-message lsp-help-mode-abbrev-table lsp-help-mode-syntax-table eldoc-documentation-default 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 t) (&optional arg) "Entry point for the server startup.\nWhen ARG is t ..." (interactive "P") (lsp--require-packages) (if (buffer-file-name) (progn (let (clients (matching-clients (lsp--filter-clients ...))) (cond (matching-clients (if ... ...)) ((setq clients ...) (lsp--info "There are language server(%s) installation in prog..." ...) (seq-do ... clients)) ((setq clients ...) (let ... ... ...)) ((not lsp-warn-no-matched-clients) nil) ((setq clients ...) (lsp--warn "The following servers support current file but aut..." ...)) ((setq clients ...) (lsp--warn "The following servers support current file but do ..." ...)) ((not ...) (lsp--error "There are no language servers supporting current m..." major-mode major-mode major-mode))))))))
  39.   apply(magit--lsp--disable-when-visiting-blob (closure (lsp-browser-mode-abbrev-table lsp-browser-mode-syntax-table lsp-log-io-mode-abbrev-table lsp-log-io-mode-syntax-table tramp-ssh-controlmaster-options tramp-use-ssh-controlmaster-options view-inhibit-help-message lsp-help-mode-abbrev-table lsp-help-mode-syntax-table eldoc-documentation-default 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 t) (&optional arg) "Entry point for the server startup.\nWhen ARG is t ..." (interactive "P") (lsp--require-packages) (if (buffer-file-name) (progn (let (clients (matching-clients (lsp--filter-clients ...))) (cond (matching-clients (if ... ...)) ((setq clients ...) (lsp--info "There are language server(%s) installation in prog..." ...) (seq-do ... clients)) ((setq clients ...) (let ... ... ...)) ((not lsp-warn-no-matched-clients) nil) ((setq clients ...) (lsp--warn "The following servers support current file but aut..." ...)) ((setq clients ...) (lsp--warn "The following servers support current file but do ..." ...)) ((not ...) (lsp--error "There are no language servers supporting current m..." major-mode major-mode major-mode))))))) nil)
  40.   lsp()
  41.   (progn (lsp))
  42.   (if (and lsp-mode (not lsp--buffer-workspaces)) (progn (lsp)))
  43.   (let ((last-message (current-message))) (setq lsp-mode (cond ((eq arg 'toggle) (not lsp-mode)) ((and (numberp arg) (< arg 1)) nil) (t t))) (if (boundp 'local-minor-modes) (progn (setq local-minor-modes (delq 'lsp-mode local-minor-modes)) (if lsp-mode (progn (setq local-minor-modes (cons 'lsp-mode local-minor-modes)))))) (if (and lsp-mode (not lsp--buffer-workspaces)) (progn (lsp))) (run-hooks 'lsp-mode-hook (if lsp-mode 'lsp-mode-on-hook 'lsp-mode-off-hook)) (if (called-interactively-p 'any) (progn nil (if (and (current-message) (not (equal last-message (current-message)))) nil (let ((local " in current buffer")) (message "%s %sabled%s" "Lsp mode" (if lsp-mode "en" "dis") local))))))
  44.   lsp-mode(toggle)
  45.   funcall-interactively(lsp-mode toggle)
  46.   call-interactively(lsp-mode record nil)
  47.   command-execute(lsp-mode record)
  48.   execute-extended-command(nil "lsp-mode" nil)
  49.   funcall-interactively(execute-extended-command nil "lsp-mode" nil)
  50.   call-interactively(execute-extended-command nil nil)
  51.   command-execute(execute-extended-command)
  52.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!