File tree Expand file tree Collapse file tree 2 files changed +9
-3
lines changed Expand file tree Collapse file tree 2 files changed +9
-3
lines changed Original file line number Diff line number Diff line change 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
Original file line number Diff line number Diff 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
You can’t perform that action at this time.
0 commit comments