From 2b1b492bcfdbaca833410cda48e83ec9a78328a0 Mon Sep 17 00:00:00 2001 From: Philippe Brochard Date: Wed, 13 Apr 2011 15:23:59 +0200 Subject: [PATCH] clfswm-query.lisp, clfswm-info.lisp: redefine keys before entering in the mode --- src/clfswm-info.lisp | 1 + src/clfswm-query.lisp | 1 + 2 files changed, 2 insertions(+) diff --git a/src/clfswm-info.lisp b/src/clfswm-info.lisp index 88d9693..4bcd57d 100644 --- a/src/clfswm-info.lisp +++ b/src/clfswm-info.lisp @@ -344,6 +344,7 @@ Or ((1_word color) (2_word color) 3_word (4_word color)...)" (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))) diff --git a/src/clfswm-query.lisp b/src/clfswm-query.lisp index 4be8394..cea08f5 100644 --- a/src/clfswm-query.lisp +++ b/src/clfswm-query.lisp @@ -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 -- 2.11.4.GIT