scheme: Prefer tags for finding definitions

1 files changed, 6 insertions, 2 deletions

diff --git a/init.el b/init.el
index 78b4ff7..f5bb8e5 100644
--- a/init.el
+++ b/init.el
@@ -1327,6 +1327,8 @@
   :config
   (after 'elisp-mode
     (add-hook 'emacs-lisp-mode-hook #'km/helm-maybe-override-xref))
+  (after 'scheme
+    (add-hook 'scheme-mode-hook #'km/helm-maybe-override-xref))
   (after 'python
     (add-hook 'python-mode-hook #'km/helm-maybe-override-xref)))
 
@@ -1942,7 +1944,8 @@
 
 (use-package geiser-mode
   :config
-  (define-key geiser-mode-map (kbd "C-.") nil))
+  (define-key geiser-mode-map (kbd "C-.") nil)
+  (define-key geiser-mode-map (kbd "M-.") nil))
 
 (use-package scheme
   :config
@@ -1951,7 +1954,8 @@
               (setq imenu-generic-expression
                     (cons (list nil
                                 "^(define-public\\s-+\\(\\sw+\\)" 1)
-                          imenu-generic-expression)))))
+                          imenu-generic-expression))))
+  (define-key scheme-mode-map (kbd "M-.") #'xref-find-definitions))
 
 (use-package python
   :init