mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-06 07:31:13 -08:00
Code Issues Projects Releases Wiki Activity

(insert-image-file): Add yank-handler.

Browse source 
(image-file-yank-handler): Yank handler to make unique copies of
images when they are yanked into a buffer next to each other.
This commit is contained in:
Kim F. Storm 2005-07-21 08:56:23 +00:00
parent 3a7f4c189c
commit 6ed554f2ac
1 changed files with 14 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/image-file.el
View file

@ -118,6 +118,7 @@ the command `insert-file-contents'."
(create-image data nil t))
(props
`(display ,image
yank-handler (image-file-yank-handler)
intangible ,image
rear-nonsticky (display intangible)
;; This a cheap attempt to make the whole buffer
@ -135,6 +136,19 @@ the command `insert-file-contents'."
(setq truncate-lines t))))
rval))
;; We use a yank-handler to make yanked images unique, so that
;; yanking two copies of the same image next to each other are
;; recognized as two different images.
(defun image-file-yank-handler (string)
"Yank handler for inserting an image into a buffer."
(let ((image (get-text-property 0 'display string)))
(if (consp image)
(put-text-property 0 (length string)
'display
(cons (car image) (cdr image))
string))
(insert string)))
(put 'image-file-handler 'safe-magic t)
(defun image-file-handler (operation &rest args)
"Filename handler for inserting image files.