emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master 8b8280a: Silence message in latin-ltx about the nor


From: Lars Ingebrigtsen
Subject: [Emacs-diffs] master 8b8280a: Silence message in latin-ltx about the normal situation
Date: Mon, 17 Jun 2019 18:56:51 -0400 (EDT)

branch: master
commit 8b8280ac7f502bc0731d03e9d0122ff068ead47f
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    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 754f662..0194c43 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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]