From d5f42ab6f06e1d468c6b92f2c1ef7b4d5f97ff84 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Mon, 23 May 2016 12:51:44 -0400 Subject: [PATCH] * lisp/image.el (image--get-image): Remove nonsensical code. ; 1) put-image does not add a display property to its overlay ; 2) it does add a display text property ; 3) an overlay is not a cons whose car is 'image --- lisp/image.el | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) diff --git a/lisp/image.el b/lisp/image.el index e855d5e97db..296d4300558 100644 --- a/lisp/image.el +++ b/lisp/image.el @@ -973,13 +973,7 @@ default is 20%." 0.8))) (defun image--get-image () - (let ((image (or (get-text-property (point) 'display) - ;; `put-image' uses overlays, so find an image in - ;; the overlays. - (catch 'found - (dolist (o (overlays-at (point))) - (if (overlay-get o 'display) - (throw 'found o))))))) + (let ((image (get-text-property (point) 'display))) (when (or (not (consp image)) (not (eq (car image) 'image))) (error "No image under point")) -- 2.11.4.GIT