Mercurial > emacs
changeset 26007:774b2504710b
(insert-image): Copy the image spec and add an intangible property.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Wed, 13 Oct 1999 17:38:18 +0000 |
| parents | ca384fd94454 |
| children | 88c485e220ab |
| files | lisp/image.el |
| diffstat | 1 files changed, 5 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/image.el Wed Oct 13 17:17:59 1999 +0000 +++ b/lisp/image.el Wed Oct 13 17:38:18 1999 +0000 @@ -132,10 +132,13 @@ (setq image (list (list 'margin area) image))) (let ((start (point))) (insert string) + ;; Copy `image' so that inserting it twice in a row (adjacently) + ;; displays two copies of the image. (add-text-properties start (point) - (list 'display image + (list 'display (copy-sequence image) + 'intangible (list t) ; something unique 'rear-nonsticky (list 'display))))) - + ;;;###autoload (defun remove-images (start end &optional buffer)