diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-03-02 01:24:16 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-03-02 01:24:16 +0100 |
| commit | 001534d64dd74fd0977c2c4421fe029b7a8f62e7 (patch) | |
| tree | afadf8ee581939bf26b26ee12df4bcb81b2b156f | |
| parent | 2896240921784f0b7f6b9bcf1c658024c9d9dc25 (diff) | |
| download | geiser-chez-001534d64dd74fd0977c2c4421fe029b7a8f62e7.tar.gz geiser-chez-001534d64dd74fd0977c2c4421fe029b7a8f62e7.tar.bz2 | |
Correctly detecting first occurrences of methods in M-.
| -rw-r--r-- | elisp/geiser-edit.el | 8 |
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)))) |