diff options
| author | Juri Linkov <juri@jurta.org> | 2004-03-23 07:37:37 +0000 |
|---|---|---|
| committer | Juri Linkov <juri@jurta.org> | 2004-03-23 07:37:37 +0000 |
| commit | 93ca088ccc090568cadfc3a425b45b1e33fd84be (patch) | |
| tree | 3e9a26cc9d0d12241e240359fed58f496d0b70e1 /lisp/international/quail.el | |
| parent | 5307cb2eb6d4b4292a94b2a4f344293c457d5e9b (diff) | |
| download | emacs-93ca088ccc090568cadfc3a425b45b1e33fd84be.tar.gz emacs-93ca088ccc090568cadfc3a425b45b1e33fd84be.tar.bz2 emacs-93ca088ccc090568cadfc3a425b45b1e33fd84be.zip | |
(quail-insert-decode-map): Use window-width instead of frame-width.
Diffstat (limited to 'lisp/international/quail.el')
| -rw-r--r-- | lisp/international/quail.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/international/quail.el b/lisp/international/quail.el index 3451321f24a..2f275a59dca 100644 --- a/lisp/international/quail.el +++ b/lisp/international/quail.el @@ -2289,8 +2289,8 @@ should be made by `quail-build-decode-map' (which see)." (or (> (length x) (length y)) (and (= (length x) (length y)) (not (string< x y)))))))) - (let ((frame-width (frame-width (window-frame (get-buffer-window - (current-buffer) 'visible)))) + (let ((window-width (window-width (get-buffer-window + (current-buffer) 'visible))) (single-key-width 3) (single-trans-width 4) (multiple-key-width 3) @@ -2319,7 +2319,7 @@ should be made by `quail-build-decode-map' (which see)." (setq multiple-key-width width))) (when single-list (setq col-width (+ single-key-width 1 single-trans-width 1) - cols (/ frame-width col-width) + cols (/ window-width col-width) rows (/ (length single-list) cols)) (if (> (% (length single-list) cols) 0) (setq rows (1+ rows))) @@ -2365,7 +2365,7 @@ should be made by `quail-build-decode-map' (which see)." (lambda (x) (let ((width (if (integerp x) (char-width x) (string-width x)))) - (when (> (+ (current-column) 1 width) frame-width) + (when (> (+ (current-column) 1 width) window-width) (insert "\n") (indent-to multiple-key-width)) (insert " " x)))) @@ -2402,7 +2402,7 @@ package to describe." (with-current-buffer standard-output (setq quail-current-package package-def)))) ;; Then, insert text in the help buffer while paying attention to - ;; the width of the frame in which the buffer displayed. + ;; the width of the window in which the buffer displayed. (with-current-buffer (help-buffer) (setq buffer-read-only nil) (insert "Input method: " (quail-name) |