monnier pushed a commit to branch master in repository elpa. commit 514eaf0e98ada8f1028957aa50a7424f97853566 Author: Teemu Likonen <tliko...@iki.fi> 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)))