[clfswm-cvs] r442 - clfswm/src

[Philippe Brochard]

Author: pbrochard
Date: Wed Apr 13 09:23:00 2011
New Revision: 442

Log:
clfswm-query.lisp, clfswm-info.lisp: redefine keys before entering in the mode

Modified:
   clfswm/src/clfswm-info.lisp
   clfswm/src/clfswm-query.lisp

Modified: clfswm/src/clfswm-info.lisp
==============================================================================
--- clfswm/src/clfswm-info.lisp	(original)
+++ clfswm/src/clfswm-info.lisp	Wed Apr 13 09:23:00 2011
@@ -344,6 +344,7 @@
 	      (unless keyboard-grabbed-p
 		(xgrab-keyboard *root*))
 	      (wait-no-key-or-button-press)
+              (set-default-info-keys)
 	      (generic-mode 'info-mode 'exit-info-loop
 			    :loop-function (lambda ()
 					     (raise-window (info-window info)))

Modified: clfswm/src/clfswm-query.lisp
==============================================================================
--- clfswm/src/clfswm-query.lisp	(original)
+++ clfswm/src/clfswm-query.lisp	Wed Apr 13 09:23:00 2011
@@ -315,6 +315,7 @@
     (unless grab-keyboard-p
       (ungrab-main-keys)
       (xgrab-keyboard *root*))
+    (set-default-query-keys)
     (generic-mode 'query-mode 'exit-query-loop
 		  :enter-function #'query-enter-function
 		  :loop-function #'query-loop-function