src/clfswm-query.lisp (set-default-query-keys): Bind query-backspace-clear to C-u...

diff --git a/src/clfswm-query.lisp b/src/clfswm-query.lisp
index c781973..8353677 100644 (file)
--- a/src/clfswm-query.lisp
+++ b/src/clfswm-query.lisp
@@ -287,6 +287,8 @@
   (define-query-key ("Tab") 'query-mode-complet)
   (define-query-key ("BackSpace") 'query-backspace)
   (define-query-key ("BackSpace" :control) 'query-backspace-word)
+  (define-query-key ("BackSpace" :control :shift) 'query-backspace-clear)
+  (define-query-key ("u" :control) 'query-backspace-clear)
   (define-query-key ("Delete") 'query-delete)
   (define-query-key ("Delete" :control) 'query-delete-word)
   (define-query-key ("Home") 'query-home)