[clfswm-cvs] r269 - clfswm/src

[Philippe Brochard]

Author: pbrochard
Date: Sat Nov 14 18:03:49 2009
New Revision: 269

Log:
Prevent to add a newline on each configuration variables save

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 18:03:49 2009
@@ -85,7 +85,7 @@
 (defun save-variables-in-conf-file (stream)
   (multiple-value-bind (all-groups all-variables)
       (find-configuration-variables)
-    (format stream "~2&;;; ### Internal variables definitions                    ### ;;;~%")
+    (format stream "~&;;; ### Internal variables definitions                    ### ;;;~%")
     (format stream ";;; ### You can edit this part when clfswm is not running ### ;;;~%")
     (format stream ";;; ### And you can remove this part to revert to the     ### ;;;~%")
     (format stream ";;; ### original configuration variables values.          ### ;;;~%")