forked from mirrors/org-mode
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
|
(save-excursion
|
||||||
(goto-char (org-table-end))
|
(goto-char (org-table-end))
|
||||||
(while (let ((case-fold-search t)) (looking-at "[ \t]*#\\+tblfm:"))
|
(while (let ((case-fold-search t)) (looking-at "[ \t]*#\\+tblfm:"))
|
||||||
(let ((msg "The formulas in #+TBLFM have been updated")
|
(let ((re (concat key "\\([0-9]+\\)"))
|
||||||
(re (concat key "\\([0-9]+\\)"))
|
|
||||||
(re2
|
(re2
|
||||||
(when remove
|
(when remove
|
||||||
(if (or (equal key "$") (equal key "$LR"))
|
(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))
|
(replace-match (concat key (cdr a)) t t))
|
||||||
((and limit (> n limit))
|
((and limit (> n limit))
|
||||||
(replace-match (concat key (number-to-string (+ n delta))) t t)))))
|
(replace-match (concat key (number-to-string (+ n delta))) t t)))))
|
||||||
(message msg))
|
(message "The formulas in #+TBLFM have been updated"))
|
||||||
(forward-line))))
|
(forward-line))))
|
||||||
|
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
|
|
Loading…
Reference in New Issue