diff options
| author | jao <jao@gnu.org> | 2021-04-09 23:17:22 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2021-04-09 23:17:22 +0100 |
| commit | 4218392f90e86cdfa1858e090bf531e95a4e8f0d (patch) | |
| tree | f9be82147ffd88a1306a0fdeb2e1fce90a87cc5f | |
| parent | d7ba81b402787e3315b40f60952f95816a1cf99c (diff) | |
| download | geiser-4218392f90e86cdfa1858e090bf531e95a4e8f0d.tar.gz geiser-4218392f90e86cdfa1858e090bf531e95a4e8f0d.tar.bz2 | |
cl-case with an eval-when-compile
| -rw-r--r-- | elisp/geiser-debug.el | 4 |
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))) |