tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

org-table: Small refactoring 

* lisp/org-table.el (org-table-fix-formulas): Eliminate a local
variable.
This commit is contained in:
Marco Wahl 2020-04-18 01:20:49 +02:00
parent 5dcf6d4af3
commit c990d43a64
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/org-table.el
View File

@ -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