From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 12 Oct 2017 14:18:10 +0000 (-0400)
Subject: * lisp/ansi-color.el (ansi-color-make-extent): Let overlays evaporate.
X-Git-Tag: emacs-27.0.90~6252
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7ed1c0483830c9d985685ebfe43b7157e8f49fc9;p=emacs.git

* lisp/ansi-color.el (ansi-color-make-extent): Let overlays evaporate.
---

diff --git a/lisp/ansi-color.el b/lisp/ansi-color.el
index 34e1daebb01..71b79223429 100644
--- a/lisp/ansi-color.el
+++ b/lisp/ansi-color.el
@@ -182,7 +182,7 @@ in shell buffers.  You set this variable by calling one of:
   :group 'ansi-colors
   :version "23.2")
 
-(defvar ansi-color-apply-face-function 'ansi-color-apply-overlay-face
+(defvar ansi-color-apply-face-function #'ansi-color-apply-overlay-face
   "Function for applying an Ansi Color face to text in a buffer.
 This function should accept three arguments: BEG, END, and FACE,
 and it should apply face FACE to the text between BEG and END.")
@@ -480,6 +480,7 @@ Emacs requires OBJECT to be a buffer."
     ;; In order to avoid this, we use the `insert-behind-hooks' overlay
     ;; property to make sure it works.
     (let ((overlay (make-overlay from to object)))
+      (overlay-put overlay 'evaporate t)
       (overlay-put overlay 'modification-hooks '(ansi-color-freeze-overlay))
       (overlay-put overlay 'insert-behind-hooks '(ansi-color-freeze-overlay))
       overlay)))