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 | 09e96c3c5e766644ca255c3ad704e29550c53ac9 (patch) | |
| tree | b84927e4d4eb7fd5610dbce79962a97659534460 /elisp | |
| parent | b8e5c1e0138321f713df437cc08c39c66ea9eefe (diff) | |
| download | geiser-09e96c3c5e766644ca255c3ad704e29550c53ac9.tar.gz geiser-09e96c3c5e766644ca255c3ad704e29550c53ac9.tar.bz2 | |
Correctly detecting first occurrences of methods in M-.
Diffstat (limited to 'elisp')
| -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)))) |