Emacsで、C-aやC-eの連打を1行スクロールにしてみた

gistfile1.el

(global-set-key (kbd "C-a")
		'(lambda ()
		   (interactive)
		   (if (= (point) (line-beginning-position))
		       (scroll-down 1))
		   (beginning-of-line)))

(global-set-key (kbd "C-e")
		'(lambda ()
		   (interactive)
		   (if (= (point) (line-end-position))
		       (scroll-up 1))
		   (end-of-line)))