From a2619b714584a181667d11341f26ff12b9d212a3 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Thu, 9 Jan 2014 11:03:01 +0100 Subject: [PATCH] org-table.el (org-table-fix-formulas): Fix commit eb28fe Thanks to Michael Brand for reporting this. --- lisp/org-table.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/org-table.el b/lisp/org-table.el index 261d62f96..e55b68530 100644 --- a/lisp/org-table.el +++ b/lisp/org-table.el @@ -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]+\\)")) -- 2.11.4.GIT