[nongnu] elpa/geiser-racket c6c6bba 026/191: Support for evaluation warnings

[Philip Kaludercic]

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

    Support for evaluation warnings
---
 elisp/geiser-racket.el | 16 +++-------------
 1 file changed, 3 insertions(+), 13 deletions(-)

diff --git a/elisp/geiser-racket.el b/elisp/geiser-racket.el
index d876714..6d04858 100644
--- a/elisp/geiser-racket.el
+++ b/elisp/geiser-racket.el
@@ -154,7 +154,7 @@ This function uses `geiser-racket-init-file' if it exists."
 ;;; Error display
 
 (defconst geiser-racket--file-rxs
-  '("^\\([^:\n\"]+\\):\\([0-9]+\\):\\([0-9]+\\)"
+  '(nil
     "path:\"?\\([^>\"\n]+\\)\"?>"
     "module: \"\\([^>\"\n]+\\)\""))
 
@@ -166,16 +166,6 @@ This function uses `geiser-racket-init-file' if it exists."
     (while (re-search-forward geiser-racket--geiser-file-rx nil t)
       (kill-whole-line))))
 
-(defun geiser-racket--find-files (rx)
-  (save-excursion
-    (while (re-search-forward rx nil t)
-      (geiser-edit--make-link (match-beginning 1)
-                              (match-end 1)
-                              (match-string 1)
-                              (match-string 2)
-                              (match-string 3)
-                              'window))))
-
 (defun geiser-racket--display-error (module key msg)
   (when key
     (insert "Error: ")
@@ -188,10 +178,10 @@ This function uses `geiser-racket-init-file' if it 
exists."
         (let ((end (point)))
         (goto-char p)
         (geiser-racket--purge-trace)
-        (mapc 'geiser-racket--find-files geiser-racket--file-rxs)
+        (mapc 'geiser-edit--buttonize-files geiser-racket--file-rxs)
         (goto-char end)
         (newline)))))
-  t)
+  (or key (not (zerop (length msg)))))
 
 
 ;;; Trying to ascertain whether a buffer is mzscheme scheme: