# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1080027394 0
# Node ID ee587e56fbc45c9471ab729896898846a8b2fc42
# Parent  b4c64a995036385327c12678d924fea4ee7b6d96
(describe-char): Use window-width instead of frame-width.

diff -r b4c64a995036 -r ee587e56fbc4 lisp/descr-text.el
--- a/lisp/descr-text.el	Tue Mar 23 07:35:59 2004 +0000
+++ b/lisp/descr-text.el	Tue Mar 23 07:36:34 2004 +0000
@@ -338,7 +338,7 @@
 ;;; 			   (string-to-number (nth 2 fields))
 ;;; 			   '((0 . "Spacing")
 ;;; 			     (1 . "Overlays and interior")
-;;; 			     (7 . "Nuktas") 
+;;; 			     (7 . "Nuktas")
 ;;; 			     (8 . "Hiragana/Katakana voicing marks")
 ;;; 			     (9 . "Viramas")
 ;;; 			     (10 . "Start of fixed position classes")
@@ -589,7 +589,7 @@
 		(when (>= (+ (current-column)
 			     (or (string-match "\n" clm)
 				 (string-width clm)) 1)
-			  (frame-width))
+			  (window-width))
 		  (insert "\n")
 		  (indent-to (1+ max-width)))
 		(insert " " clm))
@@ -611,7 +611,7 @@
 			  "\n ")))
 	    (insert "these terminal codes:\n")
 	    (dotimes (i (length disp-vector))
-	      (insert (car (aref disp-vector i)) 
+	      (insert (car (aref disp-vector i))
 		      (propertize " " 'display '(space :align-to 5))
 		      (or (cdr (aref disp-vector i)) "-- not encodable --")
 		      "\n"))))