diff options
author | Kenichi Handa <handa@m17n.org> | 2000-12-08 00:06:01 +0000 |
---|---|---|
committer | Kenichi Handa <handa@m17n.org> | 2000-12-08 00:06:01 +0000 |
commit | 58d2b9863b1ef9bc95be089ca8def335fd4c481e (patch) | |
tree | 5b0dbb3ec6cff17510f7643ae43e05d53c74c0e6 | |
parent | f9d5f611fd465e02e6155c494abd9542328e964f (diff) | |
download | emacs-58d2b9863b1ef9bc95be089ca8def335fd4c481e.tar.gz |
(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.
-rw-r--r-- | lisp/international/quail.el | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/lisp/international/quail.el b/lisp/international/quail.el index 805cf203bbb..02ebd110a8e 100644 --- a/lisp/international/quail.el +++ b/lisp/international/quail.el @@ -2306,7 +2306,8 @@ are shown (at most to the depth specified `quail-completion-max-depth')." (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 @@ package to describe." (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) |