(defun file ()
 (interactive)
 (insert (file-name-nondirectory (file-name-sans-extension  buffer-file-name))))

(fset 'ok
   "\C-w$__language(ok)")
(global-set-key [67108898] 'ok)

(fset 'err
   "\C-w$__language(error)")
(global-set-key [67108897] 'err)

(fset 'cancel
   "\C-w$__language(cancel)")
(global-set-key [67108899] 'cancel)

(fset 'doit
   [?\C-w ?_ ?l ?a ?n ?g ?u ?a ?g ?e backspace backspace backspace backspace backspace backspace backspace backspace backspace ?$ ?_ ?_ ?l ?a ?n ?g ?u ?a ?g ?e ?( ?\M-x ?f ?i ?k ?e backspace backspace ?l ?e return ?, S-f5 ?\M-* ?\M-+ ?) left ?\C-  f5 ?\M-w S-f5 f5 ?H ?  ?\C-y ?  ?\C-y ?\M-y return return S-f5 f5 S-f5 ?\C-x ?b return])
(global-set-key [67109031] 'doit)

(fset 'warn
   [?\C-w ?$ ?_ ?_ ?l ?a ?n ?g ?u ?a ?g ?e ?( ?s backspace ?w ?a ?r ?n ?i ?n ?g ?)])
(global-set-key [67108900] 'warn)
