From 8a5e61d0df1b81795b436060cd0646092a9dff4b Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@unibz.it>
Date: Thu, 30 Aug 2007 14:15:24 +0000
Subject: [PATCH] XPrompt: a very long string in the completion list can lead
to a division by zero
---
XPrompt.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/XPrompt.hs b/XPrompt.hs
index 47690ae0..f98cf301 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)