diff options
| author | Dmitry Gutov | 2023-11-27 17:17:13 +0200 |
|---|---|---|
| committer | Dmitry Gutov | 2023-11-27 17:17:13 +0200 |
| commit | a5487e92e9978da5426dcaf3ddc97383b905d844 (patch) | |
| tree | 8a5f17a85fa840ac5c69b8f944baed9134e39465 | |
| parent | 93ee5cd076e716936e002889b3f4bf676c478ba7 (diff) | |
| download | emacs-feature/xref-find-extra.tar.gz emacs-feature/xref-find-extra.zip | |
Fix eglot-specific commandsfeature/xref-find-extra
* lisp/progmodes/eglot.el (eglot-find-declaration)
(eglot-find-implementation, eglot-find-typeDefinition):
Fix the last argument in xref-find-all-definitions calls.
| -rw-r--r-- | lisp/progmodes/eglot.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el index 65bee6118a2..4e3129a79c2 100644 --- a/lisp/progmodes/eglot.el +++ b/lisp/progmodes/eglot.el | |||
| @@ -2957,17 +2957,17 @@ If BUFFER, switch to it before." | |||
| 2957 | (defun eglot-find-declaration () | 2957 | (defun eglot-find-declaration () |
| 2958 | "Find declaration for SYM, the identifier at point." | 2958 | "Find declaration for SYM, the identifier at point." |
| 2959 | (interactive) | 2959 | (interactive) |
| 2960 | (xref-find-all-definitions "LSP identifier at point" 'eglot--xref-declaration)) | 2960 | (xref-find-all-definitions "LSP identifier at point" "declaration")) |
| 2961 | 2961 | ||
| 2962 | (defun eglot-find-implementation () | 2962 | (defun eglot-find-implementation () |
| 2963 | "Find implementation for SYM, the identifier at point." | 2963 | "Find implementation for SYM, the identifier at point." |
| 2964 | (interactive) | 2964 | (interactive) |
| 2965 | (xref-find-all-definitions "LSP identifier at point" 'eglot--xref-implementation)) | 2965 | (xref-find-all-definitions "LSP identifier at point" "implementation")) |
| 2966 | 2966 | ||
| 2967 | (defun eglot-find-typeDefinition () | 2967 | (defun eglot-find-typeDefinition () |
| 2968 | "Find type definition for SYM, the identifier at point." | 2968 | "Find type definition for SYM, the identifier at point." |
| 2969 | (interactive) | 2969 | (interactive) |
| 2970 | (xref-find-all-definitions "LSP identifier at point" 'eglot--xref-type-definition)) | 2970 | (xref-find-all-definitions "LSP identifier at point" "type-definition")) |
| 2971 | 2971 | ||
| 2972 | (cl-defmethod xref-backend-definitions ((_backend (eql eglot)) identifier) | 2972 | (cl-defmethod xref-backend-definitions ((_backend (eql eglot)) identifier) |
| 2973 | (let ((probe (eglot--recover-workspace-symbol-meta identifier))) | 2973 | (let ((probe (eglot--recover-workspace-symbol-meta identifier))) |