;;redifine begenning-of-defun
(fset 'begin-func
   [?\M-x ?b ?e ?g ?i ?n ?n ?i ?n ?g ?- ?o ?f ?- ?d ?e ?f ?u ?n return ?\M-x ?r ?e ?c ?e ?n ?t ?e ?r return])
 
;;Override orignal set-key
(defvar my-keys-minor-mode-map (make-keymap) "my-keys-minor-mode keymap.")
(define-key my-keys-minor-mode-map (kbd "C-M-a") 'begin-func)
(define-minor-mode my-keys-minor-mode
  "A minor mode so that my key settings override annoying major modes."
  t " my-keys" 'my-keys-minor-mode-map)
(my-keys-minor-mode 1)