monnier pushed a commit to branch master
in repository elpa.
commit 514eaf0e98ada8f1028957aa50a7424f97853566
Author: Teemu Likonen <[email protected]>
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)))
