Make M-. and M-, work in elisp like they do in slime

fgeller · May 30, 2011 · 2fd3d5b · 2fd3d5b
1 parent 163d23a
commit 2fd3d5b
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/init-lisp.el b/init-lisp.el
@@ -109,4 +109,18 @@
   (when turn-on
     (remove-hook 'pre-command-hook #'hl-sexp-unhighlight)))
 
+
+;;; Make M-. and M-, work in elisp like they do in slime
+(defun find-elisp-thing-at-point ()
+  (interactive)
+  (let ((sym (symbol-at-point)))
+    (when sym
+      (ring-insert find-tag-marker-ring (point-marker))
+      (if (fboundp sym)
+          (find-function sym)
+        (find-variable sym)))))
+
+(define-key emacs-lisp-mode-map (kbd "M-.") 'find-elisp-thing-at-point)
+(define-key emacs-lisp-mode-map (kbd "M-,") 'pop-tag-mark)
+
 (provide 'init-lisp)