(fset 'my-copy-whole-buffer "\C-xh\367")

(global-set-key "\C-a" 'my-copy-whole-buffer)