     [ completion-mode>> completion-element ]
     bi ;
 
-GENERIC: completion-string ( object -- string )
-
-M: object completion-string present ;
-
-: method-completion-string ( word -- string )
-    "method-generic" word-prop present ;
-
-M: method completion-string method-completion-string ;
-
 GENERIC#: accept-completion-hook 1 ( item popup -- )
 
 : insert-completion ( item popup -- )
-    [ completion-string ] [ completion-loc/doc/elt ] bi* set-elt-string ;
+    [ second ] [ completion-loc/doc/elt ] bi* set-elt-string ;
 
 : accept-completion ( item table -- )
     find-completion-popup

    ] [ drop COLOR: dark-gray ] if ;

M: color-completion row-color
    drop named-color ;

: up-to-caret ( caret document -- string )
    [ { 0 0 } ] 2dip doc-range ;


: <completion-model> ( editor element quot -- model )
    [ <element-model> 1/3 seconds <delay> ] dip
    '[ @ >alist 1000 short head ] <arrow> ;

M: completion-popup focusable-child* table>> ;

