diff options
author | Bastien Guerry <bzg@altern.org> | 2014-01-09 11:03:11 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2014-01-09 11:03:11 +0100 |
commit | e0f46e9a1da0d511ceac24202d26943fab653069 (patch) | |
tree | 5c3a3807cb518280cf497a17c5806b215676755c | |
parent | 213c78f73c5b30d31cff5a860551df4f0e63cc2e (diff) | |
parent | a2619b714584a181667d11341f26ff12b9d212a3 (diff) | |
download | org-mode-e0f46e9a1da0d511ceac24202d26943fab653069.tar.gz |
Merge branch 'maint'
-rw-r--r-- | lisp/org-table.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/org-table.el b/lisp/org-table.el index 75a6a87..4015aa6 100644 --- a/lisp/org-table.el +++ b/lisp/org-table.el @@ -2290,7 +2290,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]+\\)")) |