[elpa] 166/352: Varmatoimisempi wcheck-choose-suggestion-minibuffer

[Stefan Monnier]

monnier pushed a commit to branch master
in repository elpa.

commit 514eaf0e98ada8f1028957aa50a7424f97853566
Author: Teemu Likonen <address@hidden>
Date:   Tue Aug 3 16:16:49 2010 +0000

    Varmatoimisempi wcheck-choose-suggestion-minibuffer
    
    Varmistetaan, ettei yritetä avata liian korkeaa ikkunaa ja siten
    aiheuteta virheilmoitusta.
---
 wcheck-mode.el |    5 ++++-
 1 files changed, 4 insertions(+), 1 deletions(-)

diff --git a/wcheck-mode.el b/wcheck-mode.el
index 552be47..f077925 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -1170,11 +1170,14 @@ SUGGESTIONS is a list of strings. Return user's choice 
(string)."
                              (window-width)))
                 (newline 1))))
           (setq buffer-read-only t)
+          (goto-char (point-min))
 
           (let* ((window-min-height 2)
                  (split-window-keep-point t)
                  (window (split-window-vertically
-                          (- 0 (count-lines (point-min) (point-max)) 1)))
+                          (- 0 (min (count-lines (point-min) (point-max))
+                                    (- (window-body-height) 2))
+                             1)))
                  (prompt
                   (apply #'propertize
                          (let ((last (caar alist)))