diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-07-20 22:20:16 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-07-20 22:20:16 +0200 |
| commit | 6907aea8232344828a79a7afa89932494b03b321 (patch) | |
| tree | 9e9ff9defb68cca9a7ce16182ada11dad0c34bf9 /elisp | |
| parent | 03534f183acdeb5463c7052b8d6fe152fc7b4025 (diff) | |
| download | geiser-guile-6907aea8232344828a79a7afa89932494b03b321.tar.gz geiser-guile-6907aea8232344828a79a7afa89932494b03b321.tar.bz2 | |
Guile: geiser commands working at the debugging prompt.
Diffstat (limited to 'elisp')
| -rw-r--r-- | elisp/geiser-guile.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el index 7fae364..91a316b 100644 --- a/elisp/geiser-guile.el +++ b/elisp/geiser-guile.el @@ -65,6 +65,8 @@ This function uses `geiser-guile-init-file' if it exists." (defconst geiser-guile--prompt-regexp "^[^() \n]+@([^)]*?)> ") (defconst geiser-guile--debugger-prompt-regexp "^[^() \n]+@([^)]*?) \\[[0-9]+\\]> ") +(defconst geiser-guile--debugger-preamble-regexp + "^Entering a new prompt\\. ") ;;; Evaluation support: @@ -140,7 +142,7 @@ This function uses `geiser-guile-init-file' if it exists." (defun geiser-guile--display-error (module key msg) (if (eq key 'geiser-debugger) (progn - (comint-send-string nil "0\n") + (comint-send-string nil ",locals\n") (accept-process-output nil 0.01) (when msg (goto-char (point-max)) @@ -198,6 +200,7 @@ This function uses `geiser-guile-init-file' if it exists." ("^ *\\([0-9]+\\): +" nil 1) ("at \\(/[^:\n]+\\):\\([[:digit:]]+\\):\\([[:digit:]]+\\)" 1 2 3))) (setq geiser-guile--load-path (geiser-guile--load-path)) + (setq geiser-con--debugging-inhibits-eval nil) (compilation-setup t) (font-lock-add-keywords nil `((,geiser-guile--path-rx 1 @@ -212,6 +215,7 @@ This function uses `geiser-guile-init-file' if it exists." (startup geiser-guile--startup) (prompt-regexp geiser-guile--prompt-regexp) (debugger-prompt-regexp geiser-guile--debugger-prompt-regexp) + (debugger-preamble-regexp geiser-guile--debugger-preamble-regexp) (marshall-procedure geiser-guile--geiser-procedure) (find-module geiser-guile--get-module) (enter-command geiser-guile--enter-command) |