mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-30 00:27:52 +00:00
org-table: Decrease the amount of redundant messages
* lisp/org-table.el (org-table-fix-formulas): Only one message per tblfm instead of an update message for every line.
This commit is contained in:
parent
0e5be8a656
commit
5dcf6d4af3
|
@ -2272,11 +2272,10 @@ For all numbers larger than LIMIT, shift them by DELTA."
|
||||||
(setq s (match-string 1) n (string-to-number s))
|
(setq s (match-string 1) n (string-to-number s))
|
||||||
(cond
|
(cond
|
||||||
((setq a (assoc s replace))
|
((setq a (assoc s replace))
|
||||||
(replace-match (concat key (cdr a)) t t)
|
(replace-match (concat key (cdr a)) t t))
|
||||||
(message msg))
|
|
||||||
((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 msg))
|
||||||
(forward-line))))
|
(forward-line))))
|
||||||
|
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
|
|
Loading…
Reference in a new issue