blob: 033c963feddaf103a8e5c81cfadb079e6fce6be3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
;;; Copyright (C) 2003, 2004 Shawn Betts
;;;
;;; Copying and distribution of this file, with or without modification,
;;; are permitted in any medium without royalty provided the copyright
;;; notice and this notice are preserved.
(eval-when-compile
(require 'cl))
(require 'ratpoison-cmd)
(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))))
|
