diff options
| author | Kenichi Handa | 2000-06-16 12:11:14 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2000-06-16 12:11:14 +0000 |
| commit | 26e6bfef35932110f82084da85a0f62320749d29 (patch) | |
| tree | 18dc0424fa8a0a7693bbde7d1abe787ade9499d1 | |
| parent | 1699f9914b0b9915428002e3708b43e87bb619f9 (diff) | |
| download | emacs-26e6bfef35932110f82084da85a0f62320749d29.tar.gz emacs-26e6bfef35932110f82084da85a0f62320749d29.zip | |
(quail-show-guidance-buf): To find the bottom window (but minibuffer),
pay attention to the height of minibuffer.
| -rw-r--r-- | lisp/international/quail.el | 3 |
1 files changed, 2 insertions, 1 deletions
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)." | |||
| 1549 | (quail-make-guidance-frame quail-guidance-buf) | 1549 | (quail-make-guidance-frame quail-guidance-buf) |
| 1550 | ;; Find the bottom window and split it if necessary. | 1550 | ;; Find the bottom window and split it if necessary. |
| 1551 | (let (height) | 1551 | (let (height) |
| 1552 | (setq win (window-at 0 (- (frame-height) 2))) | 1552 | (setq win (window-at |
| 1553 | 0 (1- (- (frame-height) (window-height win))))) | ||
| 1553 | (setq height (window-height win)) | 1554 | (setq height (window-height win)) |
| 1554 | ;; If WIN is tall enough, split it vertically and use | 1555 | ;; If WIN is tall enough, split it vertically and use |
| 1555 | ;; the lower one. | 1556 | ;; the lower one. |