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-edit.el | |
| parent | d7805560c066359595e67d7edb60769861e1e2e6 (diff) | |
| download | geiser-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.el | 14 |
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: |