Ver Fonte

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.
Marco Wahl há 4 anos atrás
pai
commit
5dcf6d4af3
1 ficheiros alterados com 3 adições e 4 exclusões
  1. 3 4
      lisp/org-table.el

+ 3 - 4
lisp/org-table.el

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