From pbrochard at common-lisp.net Tue Jul 29 20:45:47 2014 From: pbrochard at common-lisp.net (Philippe Brochard) Date: Tue, 29 Jul 2014 13:45:47 -0700 (PDT) Subject: [clfswm-git]CLFSWM - A(nother) Common Lisp FullScreen Window Manager branch master updated. R-1212-62-ge5a29ab Message-ID: <20140729204547.2FDB33562DD@mail.common-lisp.net> 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 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