From 10e2102e561718aea1592224686a8fd8ca77dd3d Mon Sep 17 00:00:00 2001 From: Dave Love Date: Wed, 13 Oct 1999 17:38:18 +0000 Subject: [PATCH] (insert-image): Copy the image spec and add an intangible property. --- lisp/image.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/lisp/image.el b/lisp/image.el index bcbb91e365d..1e4aea4d709 100644 --- a/lisp/image.el +++ b/lisp/image.el @@ -132,10 +132,13 @@ means display it in the right marginal area." (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) -- 2.39.5