From f91ce26c3c5c2c4ac71d1c531900c8c64f575993 Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@unibz.it>
Date: Thu, 30 Aug 2007 16:15:24 +0200
Subject: XPrompt: a very long string in the completion list can lead to a
 division by zero

darcs-hash:20070830141524-32816-beeaa150ea23704c1a92f1ac3d533777fcd331e8.gz
---
 XPrompt.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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) 
-- 
cgit v1.2.3