From 6ed554f2ac35c8cf4365c7bb435e99cf54122ff3 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Thu, 21 Jul 2005 08:56:23 +0000 Subject: [PATCH] (insert-image-file): Add yank-handler. (image-file-yank-handler): Yank handler to make unique copies of images when they are yanked into a buffer next to each other. --- lisp/image-file.el | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/lisp/image-file.el b/lisp/image-file.el index 8f74dd63c0a..be95470184c 100644 --- a/lisp/image-file.el +++ b/lisp/image-file.el @@ -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. -- 2.39.2