Mathematica emacs keybindings

gistfile1.txt

(* My Emacs KeyBindings *)
Item[KeyEvent["a", Modifiers -> {Control}], "MoveLineBeginning"],
Item[KeyEvent["e", Modifiers -> {Control}], "MoveLineEnd"],
Item[KeyEvent["Home"],
    FrontEndExecute[{
	FrontEnd`SelectionMove[FrontEnd`InputNotebook[], Before, Notebook],
	FrontEnd`FrontEndToken["ScrollNotebookStart"]
    }]],
Item[KeyEvent["End"],
    FrontEndExecute[{
	FrontEnd`SelectionMove[FrontEnd`InputNotebook[], After, Notebook],
	FrontEnd`FrontEndToken["ScrollNotebookEnd"]
    }]],
 
Item[KeyEvent["w", Modifiers -> {Control}], "Cut"],
Item[KeyEvent["w", Modifiers -> {Option}], "Copy"],
Item[KeyEvent["y", Modifiers -> {Control}], Paste[After]],