summaryrefslogtreecommitdiff
path: root/elisp/geiser-syntax.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2012-10-24 04:17:19 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2012-10-24 04:17:23 +0200
commit08b4499a0c440279257b38d49003ea5a6c848a45 (patch)
treeddbebde0e11d3e9d8f26d98df69dc0354fa8d12b /elisp/geiser-syntax.el
parentfd71a43c2be7f86e7b68d2badca6030103f54f05 (diff)
downloadgeiser-guile-08b4499a0c440279257b38d49003ea5a6c848a45.tar.gz
geiser-guile-08b4499a0c440279257b38d49003ea5a6c848a45.tar.bz2
Little clean-ups to the indentation rules
Splitting better the specially indented forms between our two implementations, so that users of a single one don't get weird indentations for froms without a special meaning in their scheme. Ideally, we should make these indentation rules buffer-local, so that when a user is in a, say, Guile buffer, module+ has no special indentation (as is the case now if that user also has activated support for Racket).
Diffstat (limited to 'elisp/geiser-syntax.el')
-rw-r--r--elisp/geiser-syntax.el36
1 files changed, 0 insertions, 36 deletions
diff --git a/elisp/geiser-syntax.el b/elisp/geiser-syntax.el
index 162d909..46ee350 100644
--- a/elisp/geiser-syntax.el
+++ b/elisp/geiser-syntax.el
@@ -28,60 +28,24 @@
pairs)))
(geiser-syntax--scheme-indent
- (begin0 1)
- (c-declare 0)
- (c-lambda 2)
(case-lambda 0)
- (case-lambda: 0)
(catch defun)
(class defun)
- (class* defun)
- (compound-unit/sig 0)
- (define: defun)
(dynamic-wind 0)
- (instantiate 2)
- (interface 1)
- (lambda: 1)
- (lambda/kw 1)
(let*-values 1)
- (let*-values: 1)
- (let+ 1)
- (let: 1)
- (letrec: 1)
(letrec* 1)
(letrec-values 1)
- (letrec-values: 1)
(let-values 1)
- (let-values: 1)
- (let/cc: 1)
(let/ec 1)
(match defun)
- (mixin 2)
- (module defun)
(opt-lambda 1)
(parameterize 1)
- (parameterize-break 1)
(parameterize* 1)
- (pmatch defun)
- (quasisyntax/loc 1)
(receive 2)
- (send* 1)
- (sigaction 1)
(syntax-case 2)
- (syntax-id-rules defun)
- (syntax/loc 1)
- (type-case defun)
- (unit defun)
- (unit/sig 2)
(unless 1)
(when 1)
(while 1)
- (with-fluid* 1)
- (with-fluids 1)
- (with-fluids* 1)
- (with-handlers 1)
- (with-handlers: 1)
- (with-method 1)
(with-error-to-port 1)
(with-syntax 1))