# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 976233961 0
# Node ID 30d5effa35e973b53e4a77c224e41e20be266099
# Parent  206c6778d78ffadb5ba09dac081e7d5ca7edadff
(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.

diff -r 206c6778d78f -r 30d5effa35e9 lisp/international/quail.el
--- 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)