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)

Source Code

;; Defined in /usr/src/emacs/lisp/net/shr.el.gz
(defun shr-dom-max-natural-width (dom)
  (or (if (eq (dom-tag dom) 'table)
          (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)))))
        (cl-loop for child in (dom-children dom)
                 unless (stringp child)
                 maximize (shr-dom-max-natural-width child)))
      0))