andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix property stripping in image-file-yank-handler

Browse source 
Fix proposed by Martin Rudalics <rudalics@gmx.at> in:
https://lists.gnu.org/archive/html/emacs-devel/2008-12/msg00945.html
* lisp/image-file.el (image-file-yank-handler): Handle case when
yank-excluded-properties is t.
This commit is contained in:
Basil L. Contovounesios 2019-08-01 16:30:15 +03:00
parent 2267110b6f
commit 1aa31b5f89
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/image-file.el
View file

@ -140,7 +140,9 @@ absolute file name and number of characters inserted."
"Yank handler for inserting an image into a buffer."
(let ((len (length string))
(image (get-text-property 0 'display string)))
(remove-list-of-text-properties 0 len yank-excluded-properties string)
(if (eq yank-excluded-properties t)
(set-text-properties 0 len () 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)