[nongnu] elpa/geiser-guile 4766cbc 163/284: Support for evaluation warnings

[Philip Kaludercic]

branch: elpa/geiser-guile
commit 4766cbcbd3c7e3dbe4a090352d9d8cb2a5916559
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>

    Support for evaluation warnings
---
 elisp/geiser-guile.el | 12 +++++++++---
 1 file 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)