Deshabilitando las teclas del cursor en Emacs

Una de las cosas que me gustaría aprender de emacs es a usar sus propias teclas de movimiento, esto es: C-p C-n C-b y C-f pero la verdad me cuesta mucho, sobre todo porque no se mecanografia y porque estoy acostumbrado a moverme con las teclas del cursor. Así que he decicdido hacer dos cosas, aprender a mecanografiar y desactivar las teclas del cursor en al menos uno de los ordenadores en los que trabajo.

Como puede llegar a ser muy frustrante el no poder usar las teclas del cursor he decidido no cambiar el comportamiento en la configuración por defecto, si no que he creado una función para desactivarlas en el momento en el que me apetezca.

La función es la siguiente:

  (defun disable-arrow-keys ()
    "Disable the arrow keys"
    (interactive)
    (global-unset-key (kbd "<left>"))
    (global-unset-key (kbd "<right>"))
    (global-unset-key (kbd "<up>"))
    (global-unset-key (kbd "<down>"))
    (global-unset-key (kbd "<C-left>"))
    (global-unset-key (kbd "<C-right>"))
    (global-unset-key (kbd "<C-up>"))
    (global-unset-key (kbd "<C-down>"))
    (global-unset-key (kbd "<M-left>"))
    (global-unset-key (kbd "<M-right>"))
    (global-unset-key (kbd "<M-up>"))
    (global-unset-key (kbd "<M-down>"))
    )