summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2021-04-09 23:17:22 +0100
committerjao <jao@gnu.org>2021-04-09 23:17:22 +0100
commit4218392f90e86cdfa1858e090bf531e95a4e8f0d (patch)
treef9be82147ffd88a1306a0fdeb2e1fce90a87cc5f
parentd7ba81b402787e3315b40f60952f95816a1cf99c (diff)
downloadgeiser-4218392f90e86cdfa1858e090bf531e95a4e8f0d.tar.gz
geiser-4218392f90e86cdfa1858e090bf531e95a4e8f0d.tar.bz2
cl-case with an eval-when-compile
-rw-r--r--elisp/geiser-debug.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/elisp/geiser-debug.el b/elisp/geiser-debug.el
index a064589..cb557bf 100644
--- a/elisp/geiser-debug.el
+++ b/elisp/geiser-debug.el
@@ -12,6 +12,8 @@
;;; Code:
+(eval-when-compile (require 'cl-macs))
+
(require 'geiser-edit)
(require 'geiser-autodoc)
(require 'geiser-impl)
@@ -178,7 +180,7 @@ buffer.")
(goto-char (point-max))
(insert "\nExpression evaluated was:\n\n")
(geiser-debug--display-error impl module nil what))
- (case geiser-debug-treat-ansi-colors
+ (cl-case geiser-debug-treat-ansi-colors
(colors (ansi-color-apply-on-region (point-min) (point)))
(remove (ansi-color-filter-region (point-min) (point))))
(goto-char (point-min)))