From 001534d64dd74fd0977c2c4421fe029b7a8f62e7 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Mon, 2 Mar 2009 01:24:16 +0100 Subject: Correctly detecting first occurrences of methods in M-. --- elisp/geiser-edit.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/elisp/geiser-edit.el b/elisp/geiser-edit.el index fad08b6..e504b30 100644 --- a/elisp/geiser-edit.el +++ b/elisp/geiser-edit.el @@ -61,7 +61,13 @@ (cdr (assoc 'line loc))) (defconst geiser-edit--def-re - (regexp-opt '("define" "defmacro" "define-macro" "define-syntax" "define*"))) + (regexp-opt '("define" + "defmacro" + "define-macro" + "define-syntax" + "define*" + "define-method" + "define-class"))) (defsubst geiser-edit--def-re (thing) (format "(%s +(?%s\\_>" geiser-edit--def-re (regexp-quote (format "%s" thing)))) -- cgit v1.2.3