Replace flet with cl-flet*, move control-mode-handle-binding,
control-mode-handle-escape-binding, and control-mode-mod-modifiers into cl-flet*.