From 285bd7a0225772127ea19b7a7de4a9c7f46eabc9 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Fri, 3 Aug 2007 17:59:42 +0200
Subject: Rename 'setCompletionList' to 'refreshCompletionList'

darcs-hash:20070803155942-a5988-f6b022d5e84d49e1999f6bd9da024ee7038d9080.gz
---
 XPrompt.hs | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

(limited to 'XPrompt.hs')

diff --git a/XPrompt.hs b/XPrompt.hs
index ef78340..2b00bca 100644
--- a/XPrompt.hs
+++ b/XPrompt.hs
@@ -223,13 +223,13 @@ keyPressHandle _ (ks,_)
 -- backspace
     | ks == xK_BackSpace = do
   deleteString Prev
-  setCompletionList
+  refreshCompletionList
   updateWindows
   eventLoop handle
 -- delete
     | ks == xK_Delete = do
   deleteString Next
-  setCompletionList
+  refreshCompletionList
   updateWindows
   eventLoop handle
 -- left
@@ -245,13 +245,13 @@ keyPressHandle _ (ks,_)
 -- up
     | ks == xK_Up = do
   moveHistory Prev
-  setCompletionList
+  refreshCompletionList
   updateWindows
   eventLoop handle
 -- down
     | ks == xK_Down = do
   moveHistory Next
-  setCompletionList
+  refreshCompletionList
   updateWindows
   eventLoop handle
 -- exscape: exit and discard everything
@@ -264,7 +264,7 @@ keyPressHandle _ (_,s)
     | s == "" = eventLoop handle
     | otherwise = do
   insertString s
-  setCompletionList
+  refreshCompletionList
   updateWindows
   eventLoop handle
 
@@ -331,7 +331,7 @@ updateWindows :: XP ()
 updateWindows = do
   d <- gets dpy
   drawWin
-  setCompletionList
+  refreshCompletionList
   io $ sync d False
 
 redrawWindows :: XP ()
@@ -408,8 +408,8 @@ setComplWin :: Window -> ComplWindowDim -> XP ()
 setComplWin w wi =
   modify (\s -> s { complWin = Just w, complWinDim = Just wi })
 
-setCompletionList :: XP ()
-setCompletionList = do
+refreshCompletionList :: XP ()
+refreshCompletionList = do
   c <- gets command
   compl <- getCompletions $ getLastWord c
   redrawComplWin compl
-- 
cgit v1.2.3