Function: shr-dom-max-natural-width

shr-dom-max-natural-width is a byte-compiled function defined in shr.el.gz.

Signature

(shr-dom-max-natural-width DOM MAX)

Source Code

;; Defined in /usr/src/emacs/lisp/net/shr.el.gz
(defun shr-dom-max-natural-width (dom max)
  (if (eq (dom-tag dom) 'table)
      (max max (or
		(cl-loop
                 for line in (dom-attr dom 'shr-suggested-widths)
		 maximize (+
			   shr-table-separator-length
			   (cl-loop for elem in line
				    summing
				    (+ (cdr elem)
				       (* 2 shr-table-separator-length)))))
		0))
    (dolist (child (dom-children dom))
      (unless (stringp child)
	(setq max (max (shr-dom-max-natural-width child max)))))
    max))