Mercurial > emacs
changeset 34357:30d5effa35e9
(quail-insert-decode-map): Check the
frame width of a window displaying the current buffer, not that of
the selected frame.
(quail-help): Make sure that the help buffer has window before
inserting text in it.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 08 Dec 2000 00:06:01 +0000 |
| parents | 206c6778d78f |
| children | aa3b69684dbf |
| files | lisp/international/quail.el |
| diffstat | 1 files changed, 10 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/quail.el Fri Dec 08 00:05:25 2000 +0000 +++ b/lisp/international/quail.el Fri Dec 08 00:06:01 2000 +0000 @@ -2306,7 +2306,8 @@ (or (> (length x) (length y)) (and (= (length x) (length y)) (not (string< x y)))))))) - (let ((frame-width (frame-width)) + (let ((frame-width (frame-width (window-frame (get-buffer-window + (current-buffer) 'visible)))) (single-key-width 3) (single-trans-width 4) (multiple-key-width 3) @@ -2399,10 +2400,17 @@ (setq package (assoc package quail-package-alist)) (setq package quail-current-package)) (let ((help-xref-mule-regexp help-xref-mule-regexp-template)) + ;; At first, make sure that the help buffer has window. (with-output-to-temp-buffer "*Help*" (save-excursion (set-buffer standard-output) - (setq quail-current-package package) + (setq quail-current-package package))) + ;; Then, insert text in the help buffer while paying attention to + ;; the width of the frame in which the buffer displayed. + (save-excursion + (progn + (set-buffer (get-buffer "*Help*")) + (setq buffer-read-only nil) (insert "Input method: " (quail-name) " (mode line indicator:" (quail-title)