Mercurial > emacs
changeset 54520:1fb2ee02e2aa
(quail-insert-decode-map): Use window-width instead of frame-width.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Tue, 23 Mar 2004 07:37:37 +0000 |
| parents | 2d359989a04e |
| children | 36922d8fd700 |
| files | lisp/international/quail.el |
| diffstat | 1 files changed, 5 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/quail.el Tue Mar 23 07:37:07 2004 +0000 +++ b/lisp/international/quail.el Tue Mar 23 07:37:37 2004 +0000 @@ -2289,8 +2289,8 @@ (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 @@ (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 @@ (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 @@ (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)