Function: shr--fix-tbody

shr--fix-tbody is a byte-compiled function defined in shr.el.gz.

Signature

(shr--fix-tbody TBODY)

Source Code

;; Defined in /usr/src/emacs/lisp/net/shr.el.gz
(defun shr--fix-tbody (tbody)
  (nconc (list 'tbody (dom-attributes tbody))
         (cl-loop for child in (dom-children tbody)
                  collect (if (or (stringp child)
                                  (not (eq (dom-tag child) 'tr)))
                              (list 'tr nil (list 'td nil child))
                            child))))