(describe-char): Use window-width instead of frame-width.

diff --git a/lisp/descr-text.el b/lisp/descr-text.el
index 05452f359c01593e2710d61321dbae12ffd3482f..03edf02039563bf09a79f00095a5ded2171e63cd 100644 (file)
--- a/lisp/descr-text.el
+++ b/lisp/descr-text.el
@@ -338,7 +338,7 @@ otherwise."
 ;;;                       (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 @@ as well as widgets, buttons, overlays, and text properties."
                (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 @@ as well as widgets, buttons, overlays, and text properties."
                          "\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"))))