[clfswm-cvs] [clfswm-git]CLFSWM - A(nother) Common Lisp FullScreen Window Manager branch master updated. R-1106-11-g5b3e106

[Philippe Brochard]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "CLFSWM - A(nother) Common Lisp FullScreen Window Manager".

The branch, master has been updated
       via  5b3e106b3a935888b50718bf9dd6b1321454540c (commit)
      from  913155a1338d632096e5269bdf48e03053dd9528 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 5b3e106b3a935888b50718bf9dd6b1321454540c
Author: Philippe Brochard <pbrochard at common-lisp.net>
Date:   Mon Dec 26 00:01:05 2011 +0100

    src/clfswm-query.lisp: Fill the history list with a non-nil value.

diff --git a/ChangeLog b/ChangeLog
index 98b9702..5c2c983 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2011-12-26  Philippe Brochard  <pbrochard at common-lisp.net>
+
+	* src/clfswm-query.lisp: Fill the history list with a non-nil
+	value.
+
 2011-12-25  Philippe Brochard  <pbrochard at common-lisp.net>
 
 	* src/package.lisp (make-x-drawable): Drawable wrapper to prevent
diff --git a/src/clfswm-query.lisp b/src/clfswm-query.lisp
index 281a547..a3d881a 100644
--- a/src/clfswm-query.lisp
+++ b/src/clfswm-query.lisp
@@ -30,7 +30,7 @@
 (defparameter *query-font* nil)
 (defparameter *query-gc* nil)
 
-(defparameter *query-history* nil)
+(defparameter *query-history* (list ""))
 (defparameter *query-complet-list* nil)
 
 (defparameter *query-message* nil)
@@ -79,7 +79,7 @@
 
 (defun clear-query-history ()
   "Clear the query-string history"
-  (setf *query-history* nil))
+  (setf *query-history* (list "")))
 
 
 

-----------------------------------------------------------------------

Summary of changes:
 ChangeLog             |    5 +++++
 src/clfswm-query.lisp |    4 ++--
 2 files changed, 7 insertions(+), 2 deletions(-)


hooks/post-receive
-- 
CLFSWM - A(nother) Common Lisp FullScreen Window Manager