diff options
Diffstat (limited to 'geiser-chez.el')
| -rw-r--r-- | geiser-chez.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/geiser-chez.el b/geiser-chez.el index 9491a65..b0a668c 100644 --- a/geiser-chez.el +++ b/geiser-chez.el @@ -186,15 +186,16 @@ Return its local name." (when msg (save-excursion (insert (car msg)) - (when-let (loc (cdr msg)) + (insert "\n") + (dolist (loc (reverse (cdr msg))) (let ((file (cdr (assoc "file" loc))) (line (or (cdr (assoc "line" loc)) "")) (col (or (cdr (assoc "column" loc)) (cdr (assoc "char" loc)))) (name (cdr (assoc "name" loc)))) - (insert "\n\n" file (format ":%s" line)) - (when col (insert (format ":%s" col))) - (when name (insert (format " (%s)" name)))) - (insert "\n"))) + (unless (string-prefix-p geiser-chez-scheme-dir file) + (insert "\n" file (format ":%s" line)) + (when col (insert (format ":%s" col))) + (when name (insert (format " (%s)" name))))))) (geiser-edit--buttonize-files) t)) |