(define-key function-key-map [(control .)] "\C-x@S")
(define-key function-key-map [(control \')] "\C-x@S")
(define-key function-key-map [(control ,)] "\C-x@A")
(define-key function-key-map [(control \;)] "\C-x@H")