[clfswm-git]CLFSWM - A(nother) Common Lisp FullScreen Window Manager branch master updated. R-1212-62-ge5a29ab

[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  e5a29ab7c25843747c4b7fed8e56907e36b0c4ff (commit)
      from  39938c58ffeec32f333109c52dc5977ae5a88ee7 (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 e5a29ab7c25843747c4b7fed8e56907e36b0c4ff
Author: Philippe Brochard <pbrochard at common-lisp.net>
Date:   Tue Jul 29 22:46:08 2014 +0200

    Do not raise window on each event

diff --git a/src/clfswm-info.lisp b/src/clfswm-info.lisp
index 1506c3a..618ff4f 100644
--- a/src/clfswm-info.lisp
+++ b/src/clfswm-info.lisp
@@ -346,8 +346,6 @@ Or ((1_word color) (2_word color) 3_word (4_word color)...)"
               (wait-no-key-or-button-press)
               (with-grab-keyboard-and-pointer (68 69 66 67)
                 (generic-mode 'info-mode 'exit-info-loop
-                              :loop-function (lambda ()
-                                               (raise-window (info-window info)))
                               :original-mode '(main-mode)))
 	      (xlib:free-gcontext gc)
 	      (xlib:destroy-window window)
@@ -592,9 +590,3 @@ Pass the :no-producing-doc symbol to remove the producing doc"
 (defun show-version ()
   "Show the current CLFSWM version"
   (info-mode (list *version*)))
-
-
-
-
-
-
diff --git a/src/clfswm-query.lisp b/src/clfswm-query.lisp
index 08cc8ca..f2a9ca4 100644
--- a/src/clfswm-query.lisp
+++ b/src/clfswm-query.lisp
@@ -180,9 +180,6 @@
   (xlib:close-font *query-font*)
   (wait-no-key-or-button-press))
 
-(defun query-loop-function ()
-  (raise-window *query-window*))
-
 
 
 (labels ((generic-backspace (del-pos)
@@ -396,7 +393,6 @@ that calls query-mode-complete-suggest."
   (with-grab-keyboard-and-pointer (92 93 66 67 t)
     (generic-mode 'query-mode 'exit-query-loop
 		  :enter-function #'query-enter-function
-		  :loop-function #'query-loop-function
 		  :leave-function #'query-leave-function
 		  :original-mode '(main-mode)))
   (when (equal *query-return* :Return)

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

Summary of changes:
 src/clfswm-info.lisp  |    8 --------
 src/clfswm-query.lisp |    4 ----
 2 files changed, 12 deletions(-)


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