From e1c54b9b55e7f92aafdb05dcc47bc7c43920827d Mon Sep 17 00:00:00 2001
From: Peter Simons <simons@cryp.to>
Date: Mon, 7 Jul 2008 11:47:48 +0000
Subject: [PATCH] ratpoison: Fixed bug in rpws. Reported upstream too, but got
 no response.

svn path=/nixpkgs/trunk/; revision=12298
---
 .../window-managers/ratpoison/default.nix     |  2 ++
 .../window-managers/ratpoison/fix-rpws.patch  | 19 +++++++++++++++++++
 2 files changed, 21 insertions(+)
 create mode 100644 pkgs/applications/window-managers/ratpoison/fix-rpws.patch

diff --git a/pkgs/applications/window-managers/ratpoison/default.nix b/pkgs/applications/window-managers/ratpoison/default.nix
index ff83a2c647b..58c59aae3cb 100644
--- a/pkgs/applications/window-managers/ratpoison/default.nix
+++ b/pkgs/applications/window-managers/ratpoison/default.nix
@@ -8,6 +8,8 @@ stdenv.mkDerivation {
     sha256 = "15y3hi4dc7f98mhhpms22ahmh8lbzhyqli878z3fgrix4z7vr4fz";
   };
 
+  patches = [ ./fix-rpws.patch ];
+
   buildInputs = [libX11 inputproto libXt
 	 libXpm libXft fontconfig libXtst
 	xextproto readline];
diff --git a/pkgs/applications/window-managers/ratpoison/fix-rpws.patch b/pkgs/applications/window-managers/ratpoison/fix-rpws.patch
new file mode 100644
index 00000000000..e2c789ca014
--- /dev/null
+++ b/pkgs/applications/window-managers/ratpoison/fix-rpws.patch
@@ -0,0 +1,19 @@
+*** ratpoison-1.4.3/contrib/rpws.orig	1970-01-01 01:00:00.000000000 +0100
+--- ratpoison-1.4.3/contrib/rpws	1970-01-01 01:00:00.000000000 +0100
+***************
+*** 60,66 ****
+      rp_call( "only" );
+
+      my $i;
+!     for( my $i = 1; $i < $num; $i++ )
+      {
+          ws_init_ws( $i );
+      }
+--- 60,66 ----
+      rp_call( "only" );
+
+      my $i;
+!     for( my $i = 1; $i <= $num; $i++ )
+      {
+          ws_init_ws( $i );
+      }