Commit 10e2102e authored by Dave Love's avatar Dave Love
Browse files

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

parent 8af8a9ca
......@@ -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)))))
(defun remove-images (start end &optional buffer)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment