andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Silence message in latin-ltx about the normal situation

Browse source 
* lisp/leim/quail/latin-ltx.el (latin-ltx--define-rules): Don't
output the summary message unless there are conflicts.
This commit is contained in:
Lars Ingebrigtsen 2019-06-18 00:56:40 +02:00
parent 7c8cb70fa3
commit 8b8280ac7f
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/leim/quail/latin-ltx.el
View file

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