Commit e5a29ab7 authored by Philippe Brochard's avatar Philippe Brochard
Browse files

Do not raise window on each event

parent 39938c58
......@@ -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*)))
......@@ -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)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment