emacs CTRL-A select all and cursor keys

select-all.el

(defun custom-select-all ()
(interactive)
;; (message "test %s" (key-description (string (read-event nil nil 2))))
(mark-whole-buffer)	
(setq tmp (read-event nil nil 0.3))
(if tmp
	(progn
		(when (string= "left" tmp)
			(deactivate-mark)
		)
		(when (string= "right" tmp)
			(goto-char (region-end))
			(deactivate-mark)
		)
		(when (string= "down" tmp)
			(deactivate-mark)
			(next-line)
		)
		(when (string= "up" tmp)
			(deactivate-mark)
			(previous-line)
		)
		;; (message "event %s" tmp)
	)
)
)

(global-set-key [(control a)] 'custom-select-all)