diff --git a/src/clfswm-query.lisp b/src/clfswm-query.lisp
index c781973672f46582a1255b160857280a16136525..83536771f901d2cd2f32e75c0c7703dc29705db6 100644
--- 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)