diff options
author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2012-10-24 04:17:19 +0200 |
---|---|---|
committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2012-10-24 04:17:23 +0200 |
commit | 08b4499a0c440279257b38d49003ea5a6c848a45 (patch) | |
tree | ddbebde0e11d3e9d8f26d98df69dc0354fa8d12b /elisp/geiser-syntax.el | |
parent | fd71a43c2be7f86e7b68d2badca6030103f54f05 (diff) | |
download | geiser-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.el | 36 |
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)) |