forked from mirrors/org-mode
Merge branch 'maint'
This commit is contained in:
commit
bbe4d4c900
|
@ -1306,10 +1306,10 @@ PARAMS is a property list of parameters:
|
||||||
(if (eq 'hline x) x (cons "" x)))
|
(if (eq 'hline x) x (cons "" x)))
|
||||||
tbl))
|
tbl))
|
||||||
(setq tbl (append tbl (list (cons "/" (make-list nfields "<>"))))))
|
(setq tbl (append tbl (list (cons "/" (make-list nfields "<>"))))))
|
||||||
(setq pos (point))
|
|
||||||
(when content-lines
|
(when content-lines
|
||||||
(while (string-match "^#" (car content-lines))
|
(while (string-match "^#" (car content-lines))
|
||||||
(insert (pop content-lines) "\n")))
|
(insert (pop content-lines) "\n")))
|
||||||
|
(setq pos (point))
|
||||||
(insert (org-listtable-to-string tbl))
|
(insert (org-listtable-to-string tbl))
|
||||||
(when (plist-get params :width)
|
(when (plist-get params :width)
|
||||||
(insert "\n|" (mapconcat (lambda (x) (format "<%d>" (max 3 x)))
|
(insert "\n|" (mapconcat (lambda (x) (format "<%d>" (max 3 x)))
|
||||||
|
|
Loading…
Reference in a new issue