diff --git a/Docs/Changelog_sm5.txt b/Docs/Changelog_sm5.txt
index 739abff5f9..dab341a553 100644
--- a/Docs/Changelog_sm5.txt
+++ b/Docs/Changelog_sm5.txt
@@ -12,6 +12,7 @@ StepMania 5.0 $next | 2011xxxx
 ----------
 * [ArrowEffects] Fix Expand, and possibly other mods, from breaking if
   using a second player. [Wolfman2000]
+* [ArchHooks] Add the AppHasFocus lua binding. [Wolfman2000]
 
 2011/10/29
 ----------
diff --git a/Docs/Luadoc/Lua.xml b/Docs/Luadoc/Lua.xml
index b6c1904d97..6335de6810 100644
--- a/Docs/Luadoc/Lua.xml
+++ b/Docs/Luadoc/Lua.xml
@@ -535,6 +535,9 @@
 			<Function name='GetCurrentAnnouncer'/>
 			<Function name='SetCurrentAnnouncer'/>
 		</Class>
+		<Class name='ArchHooks'>
+			<Function name='AppHasFocus'/>
+		</Class>
 		<Class base='BitmapText' name='BPMDisplay'>
 			<Function name='GetText'/>
 			<Function name='SetFromCourse'/>
diff --git a/Docs/Luadoc/LuaDocumentation.xml b/Docs/Luadoc/LuaDocumentation.xml
index 5374ab3cb8..2cceaf1d54 100644
--- a/Docs/Luadoc/LuaDocumentation.xml
+++ b/Docs/Luadoc/LuaDocumentation.xml
@@ -1364,6 +1364,11 @@
 		Sets the announcer to <code>sNewAnnouncer</code>.
 	</Function>
 </Class>
+<Class name='ArchHooks'>
+	<Function name='AppHasFocus' return='bool' arguments=''>
+		Returns <code>true</code> if the application presently has focus.
+	</Function>
+</Class>
 <Class name='Banner'>
 	<Function name='GetScrolling' return='bool' arguments=''>
 		Returns <code>true</code> if the Banner is currently scrolling.
diff --git a/src/arch/ArchHooks/ArchHooks.cpp b/src/arch/ArchHooks/ArchHooks.cpp
index 46451523e3..b14a88e818 100644
--- a/src/arch/ArchHooks/ArchHooks.cpp
+++ b/src/arch/ArchHooks/ArchHooks.cpp
@@ -55,6 +55,19 @@ ArchHooks *ArchHooks::Create()
 	return new ARCH_HOOKS;
 }
 
+// lua start
+#include "LuaBinding.h"
+
+class LunaArchHooks: public Luna<ArchHooks>
+{
+public:
+	DEFINE_METHOD( AppHasFocus, AppHasFocus() );
+	
+	LunaArchHooks()
+	{
+		ADD_METHOD( AppHasFocus );
+	}
+};
 
 /*
  * (c) 2003-2004 Glenn Maynard, Chris Danford