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 (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))) row))
row))
(push (nreverse row) table))) (push (nreverse row) table)))
(forward-line)) (forward-line))
(nreverse table))))) (nreverse table)))))