# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 939836298 0
# Node ID 774b2504710b029f9b3e86f8a9926d7ac2927b44
# Parent  ca384fd94454d04009904a0b9c721c06e087ef97
(insert-image): Copy the image spec and add an intangible property.

diff -r ca384fd94454 -r 774b2504710b lisp/image.el
--- 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)