From f6780b3be38416b4a533de850f546c6f8aa8c5b8 Mon Sep 17 00:00:00 2001
From: sabetts <sabetts>
Date: Wed, 8 Oct 2003 08:29:58 +0000
Subject: *** empty log message ***

---
 contrib/nogaps.el | 7 +++++++
 1 file changed, 7 insertions(+)
 create mode 100644 contrib/nogaps.el

(limited to 'contrib/nogaps.el')

diff --git a/contrib/nogaps.el b/contrib/nogaps.el
new file mode 100644
index 0000000..a38afcc
--- /dev/null
+++ b/contrib/nogaps.el
@@ -0,0 +1,7 @@
+(require 'cl)
+
+(defun ratpoison-nogaps ()
+  (let ((wins (mapcar 'string-to-number (split-string (ratpoison-windows "%n")))))
+  (loop for n in wins
+	for i from 1 to (length wins)
+	do (ratpoison-number i n))))
-- 
cgit v1.2.3