diff --git a/clim/input-editor-commands.lisp b/clim/input-editor-commands.lisp index 9aab205cf0b73fc64060e7b6a8dc0325998c767b..1845dea0b7ca99c0b2fdb4955ea714263f03b92c 100644 --- a/clim/input-editor-commands.lisp +++ b/clim/input-editor-commands.lisp @@ -1335,6 +1335,14 @@ This may confused the input editor" gestures)) (:ie-scroll-left :page-up :control) (:ie-scroll-right :page-down :control)) +#+ (or Clozure sbcl) +(define-input-editor-gestures + (:ie-rubout-character :backspace) + (:ie-rubout-word :backspace :meta) + (:ie-rubout-sexp :backspace :control :meta) + (:ie-delete-character :rubout) + (:ie-delete-word :rubout :meta)) + (defmacro assign-input-editor-key-bindings (&body functions-and-gestures) (let ((forms nil)) (loop