[clfswm-cvs] r266 - clfswm/src

[Philippe Brochard]

Author: pbrochard
Date: Sat Nov 14 17:51:12 2009
New Revision: 266

Log:
Begin with #\a key in the configuration menu

Modified:
   clfswm/src/clfswm-configuration.lisp

Modified: clfswm/src/clfswm-configuration.lisp
==============================================================================
--- clfswm/src/clfswm-configuration.lisp	(original)
+++ clfswm/src/clfswm-configuration.lisp	Sat Nov 14 17:51:12 2009
@@ -161,7 +161,7 @@
   (multiple-value-bind (all-groups all-variables)
       (find-configuration-variables)
     (loop for group in all-groups
-       for i from 1
+       for i from 0
        do (let ((menu (group->menu group)))
 	    (add-sub-menu 'configuration-menu (number->char i) menu group)
 	    (loop for var in all-variables