833 |
(overlay-put overlay 'after-string as) |
(overlay-put overlay 'after-string as) |
834 |
(overlay-put overlay 'face rface) |
(overlay-put overlay 'face rface) |
835 |
(overlay-put overlay 'keymap cua--overlay-keymap) |
(overlay-put overlay 'keymap cua--overlay-keymap) |
836 |
|
(overlay-put overlay 'window (selected-window)) |
837 |
(setq new (cons overlay new)))))) |
(setq new (cons overlay new)))))) |
838 |
;; Trim old trailing overlays. |
;; Trim old trailing overlays. |
839 |
(mapcar (function delete-overlay) old) |
(mapcar (function delete-overlay) old) |