Function: shr-image-fetched

shr-image-fetched is a byte-compiled function defined in shr.el.gz.

Signature

(shr-image-fetched STATUS BUFFER START END &optional FLAGS)

Source Code

;; Defined in /usr/src/emacs/lisp/net/shr.el.gz
(defun shr-image-fetched (status buffer start end &optional flags)
  (let ((image-buffer (current-buffer)))
    (when (and (buffer-name buffer)
	       (not (plist-get status :error)))
      (url-store-in-cache image-buffer)
      (goto-char (point-min))
      (when (or (search-forward "\n\n" nil t)
		(search-forward "\r\n\r\n" nil t))
	(let ((data (shr-parse-image-data)))
	  (with-current-buffer buffer
	    (shr-replace-image data start end flags)))))
    (kill-buffer image-buffer)))