diff options
| author | Juri Linkov <juri@jurta.org> | 2004-03-23 07:36:34 +0000 |
|---|---|---|
| committer | Juri Linkov <juri@jurta.org> | 2004-03-23 07:36:34 +0000 |
| commit | 544cb6b0daf843359d74b1c3526fe8df156f5c17 (patch) | |
| tree | 83b615f5edcd6dd7219c1e84a34fe1edbf1aa4fe /lisp/descr-text.el | |
| parent | 4a010175570a7c229c286bd32317a6c85101a838 (diff) | |
| download | emacs-544cb6b0daf843359d74b1c3526fe8df156f5c17.tar.gz | |
(describe-char): Use window-width instead of frame-width.
Diffstat (limited to 'lisp/descr-text.el')
| -rw-r--r-- | lisp/descr-text.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/descr-text.el b/lisp/descr-text.el index 05452f359c0..03edf020395 100644 --- 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")))) |