summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-03-02 01:24:16 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-03-02 01:24:16 +0100
commit09e96c3c5e766644ca255c3ad704e29550c53ac9 (patch)
treeb84927e4d4eb7fd5610dbce79962a97659534460
parentb8e5c1e0138321f713df437cc08c39c66ea9eefe (diff)
downloadgeiser-09e96c3c5e766644ca255c3ad704e29550c53ac9.tar.gz
geiser-09e96c3c5e766644ca255c3ad704e29550c53ac9.tar.bz2
Correctly detecting first occurrences of methods in M-.
-rw-r--r--elisp/geiser-edit.el8
1 files changed, 7 insertions, 1 deletions
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))))