summaryrefslogtreecommitdiff
path: root/elisp/geiser-edit.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-edit.el
parentd7805560c066359595e67d7edb60769861e1e2e6 (diff)
downloadgeiser-guile-911a1fc178d9399a62b3742bffb992a41a7a197a.tar.gz
geiser-guile-911a1fc178d9399a62b3742bffb992a41a7a197a.tar.bz2
Support for evaluation warnings
Diffstat (limited to 'elisp/geiser-edit.el')
-rw-r--r--elisp/geiser-edit.el14
1 files changed, 14 insertions, 0 deletions
diff --git a/elisp/geiser-edit.el b/elisp/geiser-edit.el
index e63a91b..55106d3 100644
--- a/elisp/geiser-edit.el
+++ b/elisp/geiser-edit.el
@@ -142,6 +142,20 @@ or following links in error buffers.")
(geiser-edit--make-location 'error file line col)
'help-echo "Go to error location"))
+(defconst geiser-edit--default-file-rx
+ "^\\([^<>:\n\"]+\\):\\([0-9]+\\):\\([0-9]+\\)")
+
+(defun geiser-edit--buttonize-files (&optional rx)
+ (let ((rx (or rx geiser-edit--default-file-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)))))
+
;;; Commands: