From e5a29ab7c25843747c4b7fed8e56907e36b0c4ff Mon Sep 17 00:00:00 2001 From: Philippe Brochard Date: Tue, 29 Jul 2014 22:46:08 +0200 Subject: [PATCH] Do not raise window on each event --- src/clfswm-info.lisp | 8 -------- src/clfswm-query.lisp | 4 ---- 2 files changed, 12 deletions(-) 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) -- 2.11.4.GIT