Function: table--generate-source-epilogue

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

Signature

(table--generate-source-epilogue DEST-BUFFER LANGUAGE COL-LIST ROW-LIST)

Documentation

Generate and insert source epilogue into DEST-BUFFER.

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/table.el.gz
(defun table--generate-source-epilogue (dest-buffer language _col-list _row-list)
  "Generate and insert source epilogue into DEST-BUFFER."
  (with-current-buffer dest-buffer
    (cond
     ((eq language 'html)
      (insert "</table>\n"))
     ((eq language 'latex)
      (insert "\\end{" table-latex-environment "}\n"))
     ((eq language 'cals)
      (set-marker-insertion-type (table-get-source-info 'colspec-marker) t) ;; insert before
      (save-excursion
	(goto-char (table-get-source-info 'colspec-marker))
	(dolist (col (sort (table-get-source-info 'colnum-list) #'<))
          (insert (format "    <colspec colnum=\"%d\" colname=\"c%d\"/>\n" col col))))
      (insert (format "    </%s>\n  </tgroup>\n</table>\n" (table-get-source-info 'row-type))))
     ((eq language 'mediawiki)
      (insert "|}\n")))))