From 4f8b5d17ba2436ca08e6ba442ef8dd5a8fa5a714 Mon Sep 17 00:00:00 2001 From: jao Date: Sun, 23 Oct 2022 06:26:29 +0100 Subject: all relevant condition locations, not just the last one --- geiser-chez.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'geiser-chez.el') 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)) -- cgit v1.2.3