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 | b7c6c0427bbf6e8bfdf06bb45a6cbed7de399478 (patch) | |
tree | 96c05bd45cd346ed78eedb844089d84ef5aa2a2f | |
parent | e72f7afb5fd8758cd0518d8c9b3a0dd966a9ef23 (diff) | |
download | geiser-b7c6c0427bbf6e8bfdf06bb45a6cbed7de399478.tar.gz geiser-b7c6c0427bbf6e8bfdf06bb45a6cbed7de399478.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).
-rw-r--r-- | NEWS | 3 | ||||
-rw-r--r-- | elisp/geiser-syntax.el | 36 |
2 files changed, 3 insertions, 36 deletions
@@ -1,5 +1,8 @@ * Version 0.2.3 () + - Indentation of scheme forms improved (specially for those of you + using a single implementation). + * Version 0.2.2 (Sep 30, 2012) 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)) |