From: Kenichi Handa <handa@m17n.org>
Date: Fri, 16 Jun 2000 12:11:14 +0000 (+0000)
Subject: (quail-show-guidance-buf): To find the bottom window (but minibuffer),
X-Git-Tag: emacs-pretest-21.0.90~3287
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=26e6bfef35932110f82084da85a0f62320749d29;p=emacs.git

(quail-show-guidance-buf): To find the bottom window (but minibuffer),
pay attention to the height of minibuffer.
---

diff --git a/lisp/international/quail.el b/lisp/international/quail.el
index c7e2da541f7..8cc46ce1bfd 100644
--- a/lisp/international/quail.el
+++ b/lisp/international/quail.el
@@ -1549,7 +1549,8 @@ or in a newly created frame (if the selected frame has no other windows)."
 	      (quail-make-guidance-frame quail-guidance-buf)
 	    ;; Find the bottom window and split it if necessary.
 	    (let (height)
-	      (setq win (window-at 0 (- (frame-height) 2)))
+	      (setq win (window-at
+			 0 (1- (- (frame-height) (window-height win)))))
 	      (setq height (window-height win))
 	      ;; If WIN is tall enough, split it vertically and use
 	      ;; the lower one.