mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-29 20:37:51 +00:00
org-table: Small refactoring
* lisp/org-table.el (org-table-fix-formulas): Eliminate a local variable.
This commit is contained in:
parent
5dcf6d4af3
commit
c990d43a64
|
@ -2250,8 +2250,7 @@ For all numbers larger than LIMIT, shift them by DELTA."
|
|||
(save-excursion
|
||||
(goto-char (org-table-end))
|
||||
(while (let ((case-fold-search t)) (looking-at "[ \t]*#\\+tblfm:"))
|
||||
(let ((msg "The formulas in #+TBLFM have been updated")
|
||||
(re (concat key "\\([0-9]+\\)"))
|
||||
(let ((re (concat key "\\([0-9]+\\)"))
|
||||
(re2
|
||||
(when remove
|
||||
(if (or (equal key "$") (equal key "$LR"))
|
||||
|
@ -2275,7 +2274,7 @@ For all numbers larger than LIMIT, shift them by DELTA."
|
|||
(replace-match (concat key (cdr a)) t t))
|
||||
((and limit (> n limit))
|
||||
(replace-match (concat key (number-to-string (+ n delta))) t t)))))
|
||||
(message msg))
|
||||
(message "The formulas in #+TBLFM have been updated"))
|
||||
(forward-line))))
|
||||
|
||||
;;;###autoload
|
||||
|
|
Loading…
Reference in a new issue