summaryrefslogtreecommitdiff
path: root/elisp/geiser-racket.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-09-07 00:22:37 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-09-07 00:22:37 +0200
commit911a1fc178d9399a62b3742bffb992a41a7a197a (patch)
tree1b428d8a041765c14358f0a48f27e0a3e0e2a34e /elisp/geiser-racket.el
parentd7805560c066359595e67d7edb60769861e1e2e6 (diff)
downloadgeiser-guile-911a1fc178d9399a62b3742bffb992a41a7a197a.tar.gz
geiser-guile-911a1fc178d9399a62b3742bffb992a41a7a197a.tar.bz2
Support for evaluation warnings
Diffstat (limited to 'elisp/geiser-racket.el')
-rw-r--r--elisp/geiser-racket.el16
1 files 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: