Commit 8b8280ac authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen
Browse files

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.
parent 7c8cb70f
Pipeline #2137 failed with stage
in 71 minutes and 24 seconds
...@@ -105,10 +105,11 @@ system, including many technical ones. Examples: ...@@ -105,10 +105,11 @@ system, including many technical ones. Examples:
(setq rules (delq c rules))) (setq rules (delq c rules)))
(message "Conflict for %S: %S" (message "Conflict for %S: %S"
(car rule) (apply #'string conflicts))))))) (car rule) (apply #'string conflicts)))))))
(let ((inputs (mapcar #'car newrules))) (let* ((inputs (delete-dups (mapcar #'car newrules)))
(setq inputs (delete-dups inputs)) (conflicts (- (length newrules) (length inputs))))
(unless (zerop conflicts)
(message "latin-ltx: %d rules (+ %d conflicts)!" (message "latin-ltx: %d rules (+ %d conflicts)!"
(length inputs) (- (length newrules) (length inputs)))) (length inputs) conflicts)))
`(quail-define-rules ,@(nreverse newrules))))) `(quail-define-rules ,@(nreverse newrules)))))
(latin-ltx--define-rules (latin-ltx--define-rules
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment