mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

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:
Nicolas Goaziou 2020-05-01 12:29:11 +02:00
parent 20f2cd8416
commit e955976983
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/org-table.el
View File

@ -5475,17 +5475,16 @@ 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
(point)
(progn (re-search-forward "[ \t]*\\(|\\|$\\)")
(match-beginning 0)))
row))
(push (buffer-substring-no-properties
(point)
(progn (re-search-forward "[ \t]*\\(|\\|$\\)")
(match-beginning 0)))
row))
(push (nreverse row) table)))
(forward-line))
(nreverse table)))))