     { T{ key-down f f "ENTER" } insert-newline }
     { T{ key-down f { S+ } "ENTER" } insert-newline }
     { T{ key-down f { C+ } "j" } com-join-lines }
-} os unix? [ {
-    { T{ key-down f { C+ } "p" } previous-line }
-    { T{ key-down f { C+ } "n" } next-line }
-} append ] when define-command-map
+} define-command-map
 
 TUPLE: source-editor < multiline-editor ;
 

} os macosx? [ {
    { T{ key-down f { C+ } "DELETE" } delete-next-character }
    { T{ key-down f { C+ } "BACKSPACE" } delete-previous-character }
    ! { T{ key-down f { C+ } "t" } transpose-character }
    { T{ key-down f { C+ } "d" } delete-next-character }
    { T{ key-down f { C+ } "h" } delete-previous-character }
    { 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+ } "w" } delete-previous-word }
} append ] when define-command-map

: com-paste ( editor -- ) clipboard get paste-clipboard ;

    { T{ key-down f { M+ } "DOWN" } end-of-paragraph }
    { T{ key-down f { M+ } "HOME" } start-of-document }
    { T{ key-down f { M+ } "END" } end-of-document }
} append ] when define-command-map

: clear-editor ( editor -- )
