From f516b522a92adca292de81df23373c1150230968 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Sun, 27 Jan 2019 22:56:47 -0500
Subject: scheme: Prefer tags for finding definitions

---
 init.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'init.el')

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
-- 
cgit v1.2.3