[clfswm-cvs] r258 - clfswm/contrib

[Philippe Brochard]

Author: pbrochard
Date: Sun Nov  8 09:21:06 2009
New Revision: 258

Log:
reboot-halt.lisp: Remove test code

Modified:
   clfswm/contrib/reboot-halt.lisp

Modified: clfswm/contrib/reboot-halt.lisp
==============================================================================
--- clfswm/contrib/reboot-halt.lisp	(original)
+++ clfswm/contrib/reboot-halt.lisp	Sun Nov  8 09:21:06 2009
@@ -39,8 +39,8 @@
 
 
 (defun do-with-terminal (command)
-  ;;(do-shell (format nil "xterm -e '~A'" command)))
-  (do-shell (format nil "xterm -e 'echo ~A; sleep 3'" command)))  ;; test
+  (do-shell (format nil "xterm -e '~A'" command)))
+  ;;(do-shell (format nil "xterm -e 'echo ~A; sleep 3'" command)))  ;; test
 
 (defun do-suspend ()
   "Suspend the computer to RAM"