diff options
author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2013-04-13 00:03:54 +0200 |
---|---|---|
committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2013-04-13 00:03:54 +0200 |
commit | d59b4b1ffe2892d918ad9354c7a0b28f5f30de5f (patch) | |
tree | e255194b549617b729eaec90d85b35bc66307bf5 | |
parent | 65bc295b35beac42e410ae78a3077ce28f1e49a9 (diff) | |
download | geiser-guile-d59b4b1ffe2892d918ad9354c7a0b28f5f30de5f.tar.gz geiser-guile-d59b4b1ffe2892d918ad9354c7a0b28f5f30de5f.tar.bz2 |
Racket: accepting spaces within comint's prompt
Since spaces are allowed inside filenames after all.
-rw-r--r-- | elisp/geiser-racket.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/elisp/geiser-racket.el b/elisp/geiser-racket.el index 41262f9..4332cb7 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 |