- for ~/.emacs or the like

  (put 'editing-buffer 'scheme-indent-function 1)
  (put 'while 'scheme-indent-function 1)