XPrompt: a very long string in the completion list can lead to a division by zero

darcs-hash:20070830141524-32816-beeaa150ea23704c1a92f1ac3d533777fcd331e8.gz

1 files changed, 1 insertions, 1 deletions

diff --git a/XPrompt.hs b/XPrompt.hs
index 47690ae..f98cf30 100644
--- a/XPrompt.hs
+++ b/XPrompt.hs
@@ -463,7 +463,7 @@ getComplWinDim compl = do
 
   let compl_number = length compl
       max_compl_len =  (fi ht `div` 2) + (maximum . map (textWidth fontst) $ compl)
-      columns = wh `div` (fi max_compl_len)
+      columns = max 1 $ wh `div` (fi max_compl_len)
       rem_height =  rect_height scr - ht
       (rows,r) = compl_number `divMod` fi columns
       needed_rows = max 1 (rows + if r == 0 then 0 else 1)