A better solution to the funky filename problem

So, the problem was that our regexp for a Racket prompt didn't take
into account that filenames could contain white spaces: "@[^ ]*> ".  A
simple solution was accepting them: "@[^>]+> " won't work because '>'
is also a valid character in filenames, so we went for "@.*> ".

The drawback is that finding the beginning of the prompt (e.g. in C-a)
fails when you're writing things like:

   racket@foo bar.rkt> (> 2 3)

because here comint believes that the prompt is "racket@foo bar.rkt> (> "

And that could have side-effects elsewhere.  So what i've done is
simply changing the way white-space is (not) printed in the prompt,
substituting it by underscores.  That way, whe can go back to the
initial regexp, comint doesn't get confused, and users can easily
infer that "@foo_bar.rkt>" is actually referring to their
"foo bar.rkt" file.

1 files changed, 1 insertions, 1 deletions

diff --git a/elisp/geiser-racket.el b/elisp/geiser-racket.el
index 1c36877..24712bd 100644
--- a/elisp/geiser-racket.el
+++ b/elisp/geiser-racket.el
@@ -97,7 +97,7 @@ This function uses `geiser-racket-init-file' if it exists."
       ,@(and init-file (file-readable-p init-file) (list "-f" init-file))
       "-f" ,(expand-file-name "geiser/startup.rkt" rackdir))))
 
-(defconst geiser-racket--prompt-regexp "\\(mzscheme\\|racket\\)@.*> ")
+(defconst geiser-racket--prompt-regexp "\\(mzscheme\\|racket\\)@[^ ]*> ")
 
 (defun geiser-racket--startup (remote)
   (if geiser-image-cache-dir