1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index 0d74e93f8e8..90d5b87c4c6 100644
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -845,7 +845,7 @@ Priority order for recognizing coding systems when reading files:\n")
                  (setq codings (cons x codings))))
            (get (car categories) 'coding-systems))
           (if codings
-              (let ((max-col (frame-width))
+              (let ((max-col (window-width))
                     pos)
                 (princ (format "\
   The following are decoded correctly but recognized as %s:\n   "