Skip to content

Commit 693d225

Browse files
rfkmcap10morgan
authored andcommitted
Delete overlays when clearing REPL buffer
1 parent d57b393 commit 693d225

File tree

2 files changed

+9
-3
lines changed

2 files changed

+9
-3
lines changed

CHANGELOG.md

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -14,6 +14,7 @@
1414
* [#1479](https://github.com/clojure-emacs/cider/pull/1479): Make paredit and `cider-repl-mode` play nice.
1515
* [#1452](https://github.com/clojure-emacs/cider/issues/1452): Prevent ANSI color overlays in the REPL buffer from being extended.
1616
* [#1486](https://github.com/clojure-emacs/cider/issues/1486): Complete a partial fix in stacktrace font-locking.
17+
* [#1488](https://github.com/clojure-emacs/cider/pull/1488): Delete zombie overlays in the REPL buffer.
1718

1819
## 0.10.0 / 2015-12-03
1920

cider-repl.el

Lines changed: 8 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -743,12 +743,17 @@ text property `cider-old-input'."
743743

744744
(defvar cider-repl-clear-buffer-hook)
745745

746+
(defun cider-repl--clear-region (start end)
747+
"Delete the output and its overlays between START and END."
748+
(mapc 'delete-overlay (overlays-in start end))
749+
(delete-region start end))
750+
746751
(defun cider-repl-clear-buffer ()
747752
"Delete the output generated by the Clojure process."
748753
(interactive)
749754
(let ((inhibit-read-only t))
750-
(delete-region (point-min) cider-repl-prompt-start-mark)
751-
(delete-region cider-repl-output-start cider-repl-output-end)
755+
(cider-repl--clear-region (point-min) cider-repl-prompt-start-mark)
756+
(cider-repl--clear-region cider-repl-output-start cider-repl-output-end)
752757
(when (< (point) cider-repl-input-start-mark)
753758
(goto-char cider-repl-input-start-mark))
754759
(recenter t))
@@ -773,7 +778,7 @@ With a prefix argument CLEAR-REPL it will clear the entire REPL buffer instead."
773778
(end (cider-repl--end-of-line-before-input-start)))
774779
(when (< start end)
775780
(let ((inhibit-read-only t))
776-
(delete-region start end)
781+
(cider-repl--clear-region start end)
777782
(save-excursion
778783
(goto-char start)
779784
(insert

0 commit comments

Comments
 (0)