[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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 8b8280a: Silence message in latin-ltx about the normal situation,
Lars Ingebrigtsen <=