* 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

1 files changed, 1 insertions, 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"))