Function: shr--inline-image-p

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

Signature

(shr--inline-image-p IMAGE)

Documentation

Return non-nil if IMAGE should be displayed inline.

Source Code

;; Defined in /usr/src/emacs/lisp/net/shr.el.gz
(defun shr--inline-image-p (image)
  "Return non-nil if IMAGE should be displayed inline."
  (when shr-max-inline-image-size
    (let ((size (image-size image t))
	  (max-width (car shr-max-inline-image-size))
	  (max-height (cdr shr-max-inline-image-size)))
      (unless (integerp max-width)
	(setq max-width (* max-width (window-width nil t))))
      (unless (integerp max-height)
	(setq max-height (* max-height (frame-char-height))))
      (and (< (car size) max-width)
	   (< (cdr size) max-height)))))