Megatest

reindent.el at [b4ff9e2f1d]
Login

File reindent.el artifact 9e7e328bbc part of check-in b4ff9e2f1d


; Indenting module body code at column 0
(defun scheme-module-indent (state indent-point normal-indent) 0)
(put 'module 'scheme-indent-function 'scheme-module-indent)

(put 'and-let* 'scheme-indent-function 1)
(put 'parameterize 'scheme-indent-function 1)
(put 'handle-exceptions 'scheme-indent-function 1)
(put 'when 'scheme-indent-function 1)
(put 'unless 'scheme-indent-function 1)
(put 'match 'scheme-indent-function 1)
(put 'let-values 'scheme-indent-function 1)

;; do the work
(indent-region (point-min) (point-max) nil)