Emacs 'M-x run-scheme' with MIT/GNU scheme

When I do 'M-x run-scheme' in emacs, it doesn't autoindent
correctly with mit-scheme. If I do 'C-u M-x run-scheme' with guile or
mzscheme, autoindent works perfectly. Any ideas?

EditingMacros <calabimanifold@gmail.com> writes:
>     When I do 'M-x run-scheme' in emacs, it doesn't autoindent
> correctly with mit-scheme. If I do 'C-u M-x run-scheme' with guile or
> mzscheme, autoindent works perfectly. Any ideas?

It is the right square bracket in the prompt.  Try

(add-hook 'inferior-scheme-mode-hook
(lambda () (setq defun-prompt-regexp "^.*>?")))

Matt Birkholz <matt@birkholz.chandler.az.us> writes:

> It is the right square bracket in the prompt.  Try
>
>     (add-hook 'inferior-scheme-mode-hook
> 	      (lambda () (setq defun-prompt-regexp "^.*>?")))

I meant "^.*>+", not "^.*>?", but the former does not work.  It needs
to match any whitespace after the ">".  It is a bit loose too.
"^[^>]*>+\\s-*" is probably best, and seems to work.  Thus:

(add-hook 'inferior-scheme-mode-hook
(lambda () (setq defun-prompt-regexp "^[^>]*>+\\s-*")))