From 8b8280ac7f502bc0731d03e9d0122ff068ead47f Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Tue, 18 Jun 2019 00:56:40 +0200 Subject: [PATCH] Silence message in latin-ltx about the normal situation * lisp/leim/quail/latin-ltx.el (latin-ltx--define-rules): Don't output the summary message unless there are conflicts. --- lisp/leim/quail/latin-ltx.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/lisp/leim/quail/latin-ltx.el b/lisp/leim/quail/latin-ltx.el index 754f662d9b4..0194c433b71 100644 --- a/lisp/leim/quail/latin-ltx.el +++ b/lisp/leim/quail/latin-ltx.el @@ -105,10 +105,11 @@ system, including many technical ones. Examples: (setq rules (delq c rules))) (message "Conflict for %S: %S" (car rule) (apply #'string conflicts))))))) - (let ((inputs (mapcar #'car newrules))) - (setq inputs (delete-dups inputs)) - (message "latin-ltx: %d rules (+ %d conflicts)!" - (length inputs) (- (length newrules) (length inputs)))) + (let* ((inputs (delete-dups (mapcar #'car newrules))) + (conflicts (- (length newrules) (length inputs)))) + (unless (zerop conflicts) + (message "latin-ltx: %d rules (+ %d conflicts)!" + (length inputs) conflicts))) `(quail-define-rules ,@(nreverse newrules))))) (latin-ltx--define-rules -- 2.39.2