mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 19:07:52 +00:00
Code Releases Activity

org-table.el (org-table-fix-formulas): Fix commit eb28fe

Browse source 
Thanks to Michael Brand for reporting this.
This commit is contained in:
Bastien Guerry 2014-01-09 11:03:01 +01:00
parent abed7277e1
commit a2619b7145
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/org-table.el
View file

@ -2275,7 +2275,8 @@ For all numbers larger than LIMIT, shift them by DELTA."
(save-excursion
(goto-char (org-table-end))
(let ((case-fold-search t)
(s-end (save-excursion (re-search-forward "^\\S-*$\\|\\'" nil t))))
(s-end (min (save-excursion (re-search-forward "^\\S-*$\\|\\'" nil t))
(save-excursion (org-end-of-subtree t)))))
(while (re-search-forward "[ \t]*#\\+tblfm:" s-end t)
(let ((msg "The formulas in #+TBLFM have been updated")
(re (concat key "\\([0-9]+\\)"))