Revert "ui.tools.listener: update docs for Emacs-style text entry."

This reverts commit 913e69500f3d0b9b4203882be84cea093f120454.

diff --git a/basis/ui/tools/listener/listener-docs.factor b/basis/ui/tools/listener/listener-docs.factor
index 0f961eab30e101a86a545891aded7d7cb46ceff6..34650de01b8fb5446c3daa7d95ca384e5e169846 100644 (file)
--- a/basis/ui/tools/listener/listener-docs.factor
+++ b/basis/ui/tools/listener/listener-docs.factor
@@ -41,8 +41,8 @@ $nl
 "Then you can run the following code, or add it to your " { $link ".factor-rc" } "."
 $nl
 { $code
-    """USING: accessors kernel sequences sets ui.commands
-ui.gadgets.editors ui.gestures ;
+    """USING: accessors assocs kernel sequences sets ui.commands
+ui.gadgets.editors ui.gestures ui.tools.listener ;
 
 "multiline" multiline-editor get-command-at [
     {
@@ -50,7 +50,11 @@ ui.gadgets.editors ui.gestures ;
         { T{ key-down f { C+ } "a" } start-of-line }
         { T{ key-down f { C+ } "e" } end-of-line }
     } append members
-] change-commands drop multiline-editor update-gestures"""
+] change-commands drop multiline-editor update-gestures
+
+"interactor" interactor get-command-at [
+    [ drop T{ key-down f { C+ } "k" } = not ] assoc-filter
+] change-commands drop interactor update-gestures"""
 }
 $nl
 { $heading "Implementation" }