Download

(mapc (lambda (map)
(define-key function-key-map
(read-kbd-macro (car map))
(read-kbd-macro (cadr map))))
'(("^[[1;2A" "<S-up>")
("^[[1;2B" "<S-down>")
("^[[1;2C" "<S-right>")
("^[[1;2D" "<S-left>")
("^[[1;3A" "<M-up>")
("^[[1;3B" "<M-down>")
("^[[1;3C" "<M-right>")
("^[[1;3D" "<M-left>")
("^[[1;4A" "<M-S-up>")
("^[[1;4B" "<M-S-down>")
("^[[1;4C" "<M-S-right>")
("^[[1;4D" "<M-S-left>")
("^[[1;5A" "<C-up>")
("^[[1;5B" "<C-down>")
("^[[1;5C" "<C-right>")
("^[[1;5D" "<C-left>")
("^[[5~" "<prior>")
("^[[6~" "<next>")
("^[[5;5~" "<C-prior>")
("^[[6;5~" "<C-next>")
))