Function: table--generate-source-scan-rows

table--generate-source-scan-rows is a byte-compiled function defined in table.el.gz.

Signature

(table--generate-source-scan-rows DEST-BUFFER LANGUAGE ORIGIN-CELL COL-LIST ROW-LIST)

Documentation

Generate and insert source rows into DEST-BUFFER.

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/table.el.gz
(defun table--generate-source-scan-rows (dest-buffer language _origin-cell col-list row-list)
  "Generate and insert source rows into DEST-BUFFER."
  (table-put-source-info 'current-row 1)
  (while row-list
    (with-current-buffer dest-buffer
      (cond
       ((eq language 'html)
	(insert "  <tr>\n"))
       ((eq language 'cals)
	(insert "      <row>\n"))
       ((eq language 'wiki)
	(insert "|"))
       ((and (eq language 'mediawiki)
             (> (table-get-source-info 'current-row) 1))
	(insert "|-\n"))))
    (table--generate-source-cells-in-a-row dest-buffer language col-list row-list)
    (with-current-buffer dest-buffer
      (cond
       ((eq language 'html)
	(insert "  </tr>\n"))
       ((eq language 'cals)
	(insert "      </row>\n")
	(unless (/= (table-get-source-info 'current-row) table-cals-thead-rows)
	  (insert (format "    </%s>\n" (table-get-source-info 'row-type)))
	  (insert (format "    <%s valign=\"top\">\n" (table-put-source-info 'row-type "tbody")))))
       ((eq language 'wiki)
	(insert "|\n"))))
    (table-put-source-info 'current-row (1+ (table-get-source-info 'current-row)))
    (setq row-list (cdr row-list))))