aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDmitry Gutov2023-11-27 17:17:13 +0200
committerDmitry Gutov2023-11-27 17:17:13 +0200
commita5487e92e9978da5426dcaf3ddc97383b905d844 (patch)
tree8a5f17a85fa840ac5c69b8f944baed9134e39465
parent93ee5cd076e716936e002889b3f4bf676c478ba7 (diff)
downloademacs-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.el6
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)))