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
|
||||
(goto-char (org-table-begin))
|
||||
(let ((table nil))
|
||||
(while (search-forward "|" (line-end-position) t)
|
||||
(while (re-search-forward "\\=[ \t]*|" nil t)
|
||||
(let ((row nil))
|
||||
(if (looking-at "-")
|
||||
(push 'hline table)
|
||||
(while (not (progn (skip-chars-forward " \t") (eolp)))
|
||||
(push
|
||||
(buffer-substring-no-properties
|
||||
(push (buffer-substring-no-properties
|
||||
(point)
|
||||
(progn (re-search-forward "[ \t]*\\(|\\|$\\)")
|
||||
(match-beginning 0)))
|
||||
|
|
Loading…
Reference in New Issue