- (let ((image (or (get-text-property (point) 'display)
- ;; `put-image' uses overlays, so find an image in
- ;; the overlays.
- (seq-find (lambda (overlay)
- (overlay-get overlay 'display))
- (overlays-at (point))))))
- (when (or (not (consp image))
- (not (eq (car image) 'image)))