summaryrefslogtreecommitdiff
path: root/elisp/geiser-edit.el
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
commit001534d64dd74fd0977c2c4421fe029b7a8f62e7 (patch)
treeafadf8ee581939bf26b26ee12df4bcb81b2b156f /elisp/geiser-edit.el
parent2896240921784f0b7f6b9bcf1c658024c9d9dc25 (diff)
downloadgeiser-chez-001534d64dd74fd0977c2c4421fe029b7a8f62e7.tar.gz
geiser-chez-001534d64dd74fd0977c2c4421fe029b7a8f62e7.tar.bz2
Correctly detecting first occurrences of methods in M-.
Diffstat (limited to 'elisp/geiser-edit.el')
-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))))