From: Dave Love <fx@gnu.org>
Date: Wed, 13 Oct 1999 17:38:18 +0000 (+0000)
Subject: (insert-image): Copy the image spec and add an intangible property.
X-Git-Tag: emacs-pretest-21.0.90~6452
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=10e2102e561718aea1592224686a8fd8ca77dd3d;p=emacs.git

(insert-image): Copy the image spec and add an intangible property.
---

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)