proc set_emacs_text_bindings {w} {}
proc set_emacs_entry_bindings {w} { }

# Set up editing bindings
bind Text <Meta-d> "%W delete insert {insert wordend}"
bind Text <Meta-p> "%W mark set insert 1.0"
bind Text <Meta-n> "%W mark set insert end"
bind Text <Delete> [bind Text <BackSpace>]
bind Text <3> "%W insert insert \[selection get\]; %W yview -pickplace insert"
bind Text <Control-y> "%W insert insert \[selection get\]; %W yview -pickplace insert"

# Set up editing bindings
bind Entry <Delete> [bind Entry <BackSpace>]
bind Entry <3> "%W insert insert \[selection get\]"
bind Entry <Control-y> "%W insert insert \[selection get\]"
