# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1080027427 0
# Node ID 2d359989a04e1a1da9187a1310825fd5e2ea238a
# Parent  ee587e56fbc45c9471ab729896898846a8b2fc42
(describe-current-coding-system): Use window-width instead of frame-width.

diff -r ee587e56fbc4 -r 2d359989a04e lisp/international/mule-diag.el
--- a/lisp/international/mule-diag.el	Tue Mar 23 07:36:34 2004 +0000
+++ b/lisp/international/mule-diag.el	Tue Mar 23 07:37:07 2004 +0000
@@ -845,7 +845,7 @@
 		 (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   "