Function: image--get-image
image--get-image is a byte-compiled function defined in image.el.gz.
Signature
(image--get-image &optional POSITION)
Documentation
Return the image at point.
Source Code
;; Defined in /usr/src/emacs/lisp/image.el.gz
(defun image--get-image (&optional position)
"Return the image at point."
(let ((image (get-char-property (or position (point)) 'display
(when (markerp position)
(marker-buffer position)))))
(unless (eq (car-safe image) 'image)
(error "No image under point"))
image))