[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
image-file-yank-handler
From: |
martin rudalics |
Subject: |
image-file-yank-handler |
Date: |
Fri, 26 Dec 2008 12:24:17 +0100 |
User-agent: |
Thunderbird 2.0.0.16 (Windows/20080708) |
I don't use `image-file-yank-handler' but suppose its handling of
`yank-excluded-properties' is wrong and something like the attached
patch is needed.
martin
*** image-file.el.~1.34.~ 2008-12-03 07:33:30.468750000 +0100
--- image-file.el 2008-12-26 12:18:42.562500000 +0100
***************
*** 143,149 ****
"Yank handler for inserting an image into a buffer."
(let ((len (length string))
(image (get-text-property 0 'display string)))
! (remove-text-properties 0 len yank-excluded-properties string)
(if (consp image)
(add-text-properties 0
(or (next-single-property-change 0 'image-counter
string)
--- 143,151 ----
"Yank handler for inserting an image into a buffer."
(let ((len (length string))
(image (get-text-property 0 'display string)))
! (if (eq yank-excluded-properties t)
! (set-text-properties 0 len nil string)
! (remove-list-of-text-properties 0 len yank-excluded-properties string))
(if (consp image)
(add-text-properties 0
(or (next-single-property-change 0 'image-counter
string)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- image-file-yank-handler,
martin rudalics <=