diff options
| author | Alex Kost <alezost@gmail.com> | 2015-10-06 20:30:16 +0300 |
|---|---|---|
| committer | Alex Kost <alezost@gmail.com> | 2015-10-09 16:17:45 +0300 |
| commit | 5a60d56975a67facbea41cb97fb4903453bf0752 (patch) | |
| tree | fc019af46e491639b89207460a0721a03ed13af3 /emacs/guix-guile.el | |
| parent | 7c786db4fba0c19d46d23f978af3d0131f985f15 (diff) | |
emacs: Fix 'guix-devel-setup-repl'.
Setting up guix ports needs to be done in Geiser REPL synchronously,
otherwise this operation may not be finished before the further
evaluating of guile code.
* emacs/guix-guile.el (guix-guile-prompt?): New function.
* emacs/guix-geiser.el (guix-geiser-eval-in-repl-synchronously): New
function.
* emacs/guix-devel.el (guix-devel-setup-repl): Use it.
Diffstat (limited to 'emacs/guix-guile.el')
| -rw-r--r-- | emacs/guix-guile.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/emacs/guix-guile.el b/emacs/guix-guile.el index 63322d7ed8..cd6c54d87e 100644 --- a/emacs/guix-guile.el +++ b/emacs/guix-guile.el @@ -88,6 +88,11 @@ PROC and ARGS should be strings." args " "))) +(defun guix-guile-prompt? (string) + "Return non-nil, if STRING contains a Guile prompt." + (or (string-match-p geiser-guile--prompt-regexp string) + (string-match-p geiser-guile--debugger-prompt-regexp string))) + (provide 'guix-guile) ;;; guix-guile.el ends here |