diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-18 00:56:40 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-18 00:56:45 +0200 |
| commit | 8b8280ac7f502bc0731d03e9d0122ff068ead47f (patch) | |
| tree | 88a73e59ca64ed284b955c205156cfcfc5465f79 /lisp/leim | |
| parent | 7c8cb70fa391a7540c27c3b6e7d5f85fbf4d281f (diff) | |
| download | emacs-8b8280ac7f502bc0731d03e9d0122ff068ead47f.tar.gz emacs-8b8280ac7f502bc0731d03e9d0122ff068ead47f.tar.bz2 emacs-8b8280ac7f502bc0731d03e9d0122ff068ead47f.zip | |
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.
Diffstat (limited to 'lisp/leim')
| -rw-r--r-- | lisp/leim/quail/latin-ltx.el | 9 |
1 files 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 |