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 | c21b375451a6b47bcb922514a962c9e2dabcf3f0 (patch) | |
| tree | 82dde22765365cb113bbd4d1354c0bf1495d5f86 /elisp/geiser-edit.el | |
| parent | 5f2d19e28bfe4860eaadd46010b29d34da8fc918 (diff) | |
| download | geiser-c21b375451a6b47bcb922514a962c9e2dabcf3f0.tar.gz geiser-c21b375451a6b47bcb922514a962c9e2dabcf3f0.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: |