diff options
author | Artur Malabarba <bruce.connor.am@gmail.com> | 2016-03-06 14:47:31 -0300 |
---|---|---|
committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2016-03-06 14:48:16 -0300 |
commit | 92cb518c9dc12837b705d111278a28bdc5c2f22a (patch) | |
tree | bbb4eb9b83b8e52dc10a5f933bbcdc7a52b16438 /cider-debug.el | |
parent | 2d4a0d84479e6009b1d40a15b2515017aaea1668 (diff) |
Prevent the debug prompt from inheriting faces
Diffstat (limited to 'cider-debug.el')
-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) |