ui.tools.listener: change previous/next line to multiline-editor.

diff --git a/basis/ui/tools/listener/listener-docs.factor b/basis/ui/tools/listener/listener-docs.factor
index 35f3f52b42068f726c008a93244e5013d636f394..dcceaeb1363b3efc673bc175f8ea61df3fbb9431 100644 (file)
--- a/basis/ui/tools/listener/listener-docs.factor
+++ b/basis/ui/tools/listener/listener-docs.factor
@@ -73,14 +73,17 @@ ui.gadgets.editors ui.gestures ui.tools.listener ;
 editor \"emacs\" f {
     { T{ key-down f { C+ } \"b\" } previous-character }
     { T{ key-down f { C+ } \"f\" } next-character }
-    { T{ key-down f { C+ } \"p\" } previous-line }
-    { T{ key-down f { C+ } \"n\" } next-line }
     { T{ key-down f { C+ } \"u\" } delete-to-start-of-line }
     { T{ key-down f { C+ } \"k\" } delete-to-end-of-line }
     { T{ key-down f { C+ } \"a\" } start-of-line }
     { T{ key-down f { C+ } \"e\" } end-of-line }
 } define-command-map
 
+multiline-editor \"emacs\" f {
+    { T{ key-down f { C+ } \"p\" } previous-line }
+    { T{ key-down f { C+ } \"n\" } next-line }
+} define-command-map
+
 \"interactor\" interactor get-command-at [
     [ drop T{ key-down f { C+ } \"k\" } = ] assoc-reject
 ] change-commands drop interactor update-gestures"