summaryrefslogtreecommitdiff
path: root/elisp/geiser-syntax.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-03-01 01:09:16 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-03-01 01:09:16 +0100
commit1376e6ca4919396ff94c78374d816f86556f395e (patch)
tree4015ec500a55a66107d69816b55b31b879051ccd /elisp/geiser-syntax.el
parent04652644b47528d0a3ab00c6475a6752e7a1dbb5 (diff)
downloadgeiser-guile-1376e6ca4919396ff94c78374d816f86556f395e.tar.gz
geiser-guile-1376e6ca4919396ff94c78374d816f86556f395e.tar.bz2
Fix for autodoc when point in a rest formal arg in define.
Diffstat (limited to 'elisp/geiser-syntax.el')
-rw-r--r--elisp/geiser-syntax.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/elisp/geiser-syntax.el b/elisp/geiser-syntax.el
index 8684f99..a41f152 100644
--- a/elisp/geiser-syntax.el
+++ b/elisp/geiser-syntax.el
@@ -89,7 +89,7 @@
(geiser-syntax--del-sexp -1) (insert "XXpointXX"))
((eq (char-after (point)) ?\()
(geiser-syntax--del-sexp 1) (insert "XXpointXX")))
- (when (memq (char-after (1- (point))) (list ?@ ?, ?\' ?\` ?\#))
+ (when (memq (char-after (1- (point))) (list ?. ?@ ?, ?\' ?\` ?\#))
(skip-syntax-backward "^-(")
(delete-region (point) (point-max))
(insert "XXXpointXX"))