mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-29 19:37:52 +00:00
table: Small fix
* lisp/org-table.el (org-table-to-lisp): Make sure to stop at the end of the table.
This commit is contained in:
parent
20f2cd8416
commit
e955976983
|
@ -5475,13 +5475,12 @@ The table is taken from the parameter TXT, or from the buffer at point."
|
||||||
(save-excursion
|
(save-excursion
|
||||||
(goto-char (org-table-begin))
|
(goto-char (org-table-begin))
|
||||||
(let ((table nil))
|
(let ((table nil))
|
||||||
(while (search-forward "|" (line-end-position) t)
|
(while (re-search-forward "\\=[ \t]*|" nil t)
|
||||||
(let ((row nil))
|
(let ((row nil))
|
||||||
(if (looking-at "-")
|
(if (looking-at "-")
|
||||||
(push 'hline table)
|
(push 'hline table)
|
||||||
(while (not (progn (skip-chars-forward " \t") (eolp)))
|
(while (not (progn (skip-chars-forward " \t") (eolp)))
|
||||||
(push
|
(push (buffer-substring-no-properties
|
||||||
(buffer-substring-no-properties
|
|
||||||
(point)
|
(point)
|
||||||
(progn (re-search-forward "[ \t]*\\(|\\|$\\)")
|
(progn (re-search-forward "[ \t]*\\(|\\|$\\)")
|
||||||
(match-beginning 0)))
|
(match-beginning 0)))
|
||||||
|
|
Loading…
Reference in a new issue