mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-29 20:37:51 +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))
|
||||
(cond
|
||||
((setq a (assoc s replace))
|
||||
(replace-match (concat key (cdr a)) t t)
|
||||
(message msg))
|
||||
(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))))))
|
||||
(replace-match (concat key (number-to-string (+ n delta))) t t)))))
|
||||
(message msg))
|
||||
(forward-line))))
|
||||
|
||||
;;;###autoload
|
||||
|
|
Loading…
Reference in a new issue