(define-key hogehoge-mode-map (kbd "C-c a") 'do-something)

か

(add-hook 'hogehoge-mode-hook (lambda () (local-set-key (kbd "C-c a") 'do-something))

じゃねえの