fixed - added prelude-restore-arrow-keys function

This commit is contained in:
Bozhidar Batsov 2012-02-16 12:41:03 +02:00
parent fb9310734c
commit 100055e879
2 changed files with 14 additions and 0 deletions

View file

@ -358,5 +358,14 @@ there's a region, all lines that region covers will be duplicated."
(unless (or (eql buffer (current-buffer)) (not (buffer-file-name buffer)))
(kill-buffer buffer))))
(defun prelude-restore-arrow-keys ()
"Restores arrow keys navigation in buffers."
(interactive)
(global-set-key (kbd "<up>") 'previous-line)
(global-set-key (kbd "<down>") 'next-line)
(global-set-key (kbd "<left>") 'backward-char)
(global-set-key (kbd "<right>") 'forward-char)
(message "Arrow keys navigation in buffers in now allowed."))
(provide 'prelude-core)
;;; prelude-core.el ends here