[clfswm-cvs] r215 - in clfswm: . src

[Philippe Brochard]

Author: pbrochard
Date: Wed Apr 22 17:03:56 2009
New Revision: 215

Log:
run-program-from-query-string: Launch command only with a return validation.

Modified:
   clfswm/ChangeLog
   clfswm/src/clfswm-util.lisp

Modified: clfswm/ChangeLog
==============================================================================
--- clfswm/ChangeLog	(original)
+++ clfswm/ChangeLog	Wed Apr 22 17:03:56 2009
@@ -1,3 +1,8 @@
+2009-04-22  Philippe Brochard  <pbrochard at common-lisp.net>
+
+	* src/clfswm-util.lisp (run-program-from-query-string): Launch
+	command only with a return validation.
+
 2009-04-22  Xavier Maillard  <xma at gnu.org>
 
 	* src/clfswm-query.lisp (query-string): Use a generic mode.

Modified: clfswm/src/clfswm-util.lisp
==============================================================================
--- clfswm/src/clfswm-util.lisp	(original)
+++ clfswm/src/clfswm-util.lisp	Wed Apr 22 17:03:56 2009
@@ -310,8 +310,9 @@
 
 (defun run-program-from-query-string ()
   "Run a program from the query input"
-  (let ((program (query-string "Run:")))
-    (when (and program (not (equal program "")))
+  (multiple-value-bind (program return)
+      (query-string "Run:")
+    (when (and (equal return :return) program (not (equal program "")))
       (setf *second-mode-program* program)
       (leave-second-mode))))