Index: comint.el =================================================================== RCS file: /cvsroot/emacs/emacs/lisp/comint.el,v retrieving revision 1.319 diff -u -r1.319 comint.el --- comint.el 26 May 2005 12:39:32 -0000 1.319 +++ comint.el 27 May 2005 17:05:46 -0000 @@ -1748,6 +1748,7 @@ ;; Need to create the overlay (setq comint-last-prompt-overlay (make-overlay prompt-start (point))) + (overlay-put comint-last-prompt-overlay 'evaporate nil) (overlay-put comint-last-prompt-overlay 'font-lock-face 'comint-highlight-prompt)))) Index: compare-w.el =================================================================== RCS file: /cvsroot/emacs/emacs/lisp/compare-w.el,v retrieving revision 1.26 diff -u -r1.26 compare-w.el --- compare-w.el 28 Nov 2004 07:56:01 -0000 1.26 +++ compare-w.el 27 May 2005 17:05:46 -0000 @@ -341,12 +341,14 @@ (if compare-windows-overlay1 (move-overlay compare-windows-overlay1 beg1 end1 b1) (setq compare-windows-overlay1 (make-overlay beg1 end1 b1)) + (overlay-put compare-windows-overlay1 'evaporate 'nil) (overlay-put compare-windows-overlay1 'face 'compare-windows-face) (overlay-put compare-windows-overlay1 'priority 1)) (overlay-put compare-windows-overlay1 'window w1) (if compare-windows-overlay2 (move-overlay compare-windows-overlay2 beg2 end2 b2) (setq compare-windows-overlay2 (make-overlay beg2 end2 b2)) + (overlay-put compare-windows-overlay2 'evaporate 'nil) (overlay-put compare-windows-overlay2 'face 'compare-windows-face) (overlay-put compare-windows-overlay2 'priority 1)) (overlay-put compare-windows-overlay2 'window w2) Index: hl-line.el =================================================================== RCS file: /cvsroot/emacs/emacs/lisp/hl-line.el,v retrieving revision 1.28 diff -u -r1.28 hl-line.el --- hl-line.el 4 Apr 2005 08:57:54 -0000 1.28 +++ hl-line.el 27 May 2005 17:05:46 -0000 @@ -134,6 +134,7 @@ (progn (unless hl-line-overlay (setq hl-line-overlay (make-overlay 1 1)) ; to be moved + (overlay-put hl-line-overlay 'evaporate nil) (overlay-put hl-line-overlay 'face hl-line-face)) (overlay-put hl-line-overlay 'window (unless hl-line-sticky-flag (selected-window))) @@ -168,6 +169,7 @@ (unless (window-minibuffer-p (selected-window)) (unless global-hl-line-overlay (setq global-hl-line-overlay (make-overlay 1 1)) ; to be moved + (overlay-put global-hl-line-overlay 'evaporate nil) (overlay-put global-hl-line-overlay 'face hl-line-face)) (overlay-put global-hl-line-overlay 'window (selected-window)) (hl-line-move global-hl-line-overlay)))) Index: image.el =================================================================== RCS file: /cvsroot/emacs/emacs/lisp/image.el,v retrieving revision 1.46 diff -u -r1.46 image.el --- image.el 27 May 2005 13:17:50 -0000 1.46 +++ image.el 27 May 2005 17:05:46 -0000 @@ -170,6 +170,7 @@ (let ((overlay (make-overlay pos pos buffer)) (prop (if (null area) image (list (list 'margin area) image)))) (put-text-property 0 (length string) 'display prop string) + (overlay-put overlay 'evaporate nil) (overlay-put overlay 'put-image t) (overlay-put overlay 'before-string string)))) Index: minibuf-eldef.el =================================================================== RCS file: /cvsroot/emacs/emacs/lisp/minibuf-eldef.el,v retrieving revision 1.6 diff -u -r1.6 minibuf-eldef.el --- minibuf-eldef.el 2 Jun 2004 22:43:42 -0000 1.6 +++ minibuf-eldef.el 27 May 2005 17:05:46 -0000 @@ -98,6 +98,7 @@ (setq match (if (consp match) (cdr match) 0)) (setq minibuf-eldef-overlay (make-overlay (match-beginning match) (match-end match))) + (overlay-put minibuf-eldef-overlay 'evaporate nil) (setq minibuf-eldef-showing-default-in-prompt t) (setq minibuf-eldef-initial-input (minibuffer-contents-no-properties)) Index: mouse.el =================================================================== RCS file: /cvsroot/emacs/emacs/lisp/mouse.el,v retrieving revision 1.271 diff -u -r1.271 mouse.el --- mouse.el 23 Apr 2005 16:40:55 -0000 1.271 +++ mouse.el 27 May 2005 17:06:04 -0000 @@ -748,6 +748,7 @@ ;; Create an overlay and immediately delete it, to get "overlay in no buffer". (defvar mouse-drag-overlay (make-overlay 1 1)) +(overlay-put mouse-drag-overlay 'evaporate nil) (delete-overlay mouse-drag-overlay) (overlay-put mouse-drag-overlay 'face 'region) Index: gnus/gnus-cite.el =================================================================== RCS file: /cvsroot/emacs/emacs/lisp/gnus/gnus-cite.el,v retrieving revision 1.16 diff -u -r1.16 gnus-cite.el --- gnus/gnus-cite.el 26 May 2005 15:03:29 -0000 1.16 +++ gnus/gnus-cite.el 27 May 2005 17:06:04 -0000 @@ -1017,6 +1017,7 @@ (when (< from to) (push (setq overlay (gnus-make-overlay from to)) gnus-cite-overlay-list) + (gnus-overlay-put overlay 'evaporate t) (gnus-overlay-put overlay 'face face)))))) (defun gnus-cite-toggle (prefix)