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)
		  for tag = (and (not (stringp child)) (dom-tag child))
		  unless (or (eq tag 'thead) (eq tag 'tfoot))
		  collect (if (not (eq tag 'tr))
                              (list 'tr nil (list 'td nil child))
                            child))))