diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-09-07 00:22:37 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-09-07 00:22:37 +0200 |
| commit | 911a1fc178d9399a62b3742bffb992a41a7a197a (patch) | |
| tree | 1b428d8a041765c14358f0a48f27e0a3e0e2a34e /elisp/geiser-guile.el | |
| parent | d7805560c066359595e67d7edb60769861e1e2e6 (diff) | |
| download | geiser-guile-911a1fc178d9399a62b3742bffb992a41a7a197a.tar.gz geiser-guile-911a1fc178d9399a62b3742bffb992a41a7a197a.tar.bz2 | |
Support for evaluation warnings
Diffstat (limited to 'elisp/geiser-guile.el')
| -rw-r--r-- | elisp/geiser-guile.el | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el index 8561df7..640ef02 100644 --- a/elisp/geiser-guile.el +++ b/elisp/geiser-guile.el @@ -134,7 +134,7 @@ This function uses `geiser-guile-init-file' if it exists." ;;; Error display -(defun geiser-guile--display-error (module key msg) +(defun geiser-guile--enter-debugger () (when (eq key 'geiser-debugger) (let ((bt-cmd (format ",%s\n" (if geiser-guile-debug-show-bt-p "bt" "fr")))) @@ -148,8 +148,13 @@ This function uses `geiser-guile-init-file' if it exists." (when geiser-guile-jump-on-debug-p (accept-process-output (get-buffer-process (current-buffer)) 0.2 nil t) - (ignore-errors (next-error))))) - t) + (ignore-errors (next-error)))))) + +(defun geiser-guile--display-error (module key msg) + (newline) + (save-excursion (insert msg)) + (geiser-edit--buttonize-files) + (and (not key) msg (not (zerop (length msg))))) ;;; Trying to ascertain whether a buffer is Guile Scheme: @@ -201,6 +206,7 @@ This function uses `geiser-guile-init-file' if it exists." (arglist geiser-guile--parameters) (startup geiser-guile--startup) (prompt-regexp geiser-guile--prompt-regexp) + (enter-debugger geiser-guile--enter-debugger) (debugger-prompt-regexp geiser-guile--debugger-prompt-regexp) (debugger-preamble-regexp geiser-guile--debugger-preamble-regexp) (marshall-procedure geiser-guile--geiser-procedure) |