summaryrefslogtreecommitdiff
path: root/geiser-chez.el
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2022-10-08 20:54:03 +0100
committerjao <jao@gnu.org>2022-10-08 20:54:03 +0100
commitdb4d645996d1c3da9d50504baa34f3c685cd3b83 (patch)
tree387a2deb75b2c8d987031cc57bbc72469a071aab /geiser-chez.el
parent48427d4aecc6fed751d266673f1ce2ad57ddbcfc (diff)
downloadgeiser-chez-db4d645996d1c3da9d50504baa34f3c685cd3b83.tar.gz
geiser-chez-db4d645996d1c3da9d50504baa34f3c685cd3b83.tar.bz2
better display of evaluation results (dups, spurious compile msgs)
Diffstat (limited to 'geiser-chez.el')
-rw-r--r--geiser-chez.el6
1 files changed, 2 insertions, 4 deletions
diff --git a/geiser-chez.el b/geiser-chez.el
index 7f29927..b179ef7 100644
--- a/geiser-chez.el
+++ b/geiser-chez.el
@@ -204,10 +204,8 @@ This function uses `geiser-chez-init-file' if it exists."
"Display an error found during evaluation with the given KEY and message MSG."
(when (stringp msg)
(save-excursion (insert msg))
- (geiser-edit--buttonize-files))
- (and (not key)
- (not (zerop (length msg)))
- msg))
+ (geiser-edit--buttonize-files)
+ (not (zerop (length msg)))))
;;; Keywords and syntax: