diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-10-03 12:38:53 +0100 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-10-03 15:42:25 +0100 |
| commit | a805d85cdf0b136be60089557d92d4379c0f67a9 (patch) | |
| tree | 92abd6e6f7bbaccf18d9ff53990ae5802a3e431d /cider-debug.el | |
| parent | 1f408b5e228635624b3642515fc41247ebfe266c (diff) | |
Fix the debugger sometimes hiding the final result
Diffstat (limited to 'cider-debug.el')
| -rw-r--r-- | cider-debug.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/cider-debug.el b/cider-debug.el index 76606a4f..dbbc1d71 100644 --- a/cider-debug.el +++ b/cider-debug.el @@ -158,6 +158,7 @@ This variable must be set before starting the repl connection." ;; Result (cider--make-result-overlay (cider-font-lock-as-clojure value) :where (point-marker) + :type 'debug-result 'before-string cider--fringe-arrow-string) ;; Code (cider--make-overlay (save-excursion (clojure-backward-logical-sexp 1) (point)) @@ -330,7 +331,7 @@ In order to work properly, this mode must be activated by (with-current-buffer (or buffer (current-buffer)) (unless cider--debug-mode (kill-local-variable 'tool-bar-map) - (remove-overlays nil nil 'cider-type 'result) + (remove-overlays nil nil 'cider-type 'debug-result) (remove-overlays nil nil 'cider-type 'debug-code) (setq cider--debug-prompt-overlay nil) (remove-overlays nil nil 'cider-type 'debug-prompt))))) |