diff options
| -rw-r--r-- | cider-debug.el | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/cider-debug.el b/cider-debug.el index fba57b7f..ffb2797c 100644 --- a/cider-debug.el +++ b/cider-debug.el @@ -216,11 +216,14 @@ Each element of LOCALS should be a list of at least two elements." (defun cider--debug-prompt (command-list) "Return prompt to display for COMMAND-LIST." - (concat - (mapconcat (lambda (x) (put-text-property 0 1 'face 'cider-debug-prompt-face x) x) - ;; `inspect' would conflict with `inject'. - (seq-difference command-list '("inspect")) " ") - "\n")) + ;; Force `default' face, otherwise the overlay "inherits" the face of the text + ;; after it. + (format (propertize "%s" 'face 'default) + (concat + (mapconcat (lambda (x) (put-text-property 0 1 'face 'cider-debug-prompt-face x) x) + ;; `inspect' would conflict with `inject'. + (seq-difference command-list '("inspect")) " ") + "\n"))) (defvar-local cider--debug-prompt-overlay nil) |