diff options
Diffstat (limited to 'lisp/international/mule-diag.el')
| -rw-r--r-- | lisp/international/mule-diag.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el index 75bf45f0525..b3f3b7eb006 100644 --- a/lisp/international/mule-diag.el +++ b/lisp/international/mule-diag.el @@ -638,7 +638,7 @@ Priority order for recognizing coding systems when reading files:\n") coding-system codings) (while categories (setq coding-system (symbol-value (car categories))) - (mapcar + (mapc (lambda (x) (if (and (not (eq x coding-system)) (let ((flags (coding-system-get :flags))) |