(TeX-add-style-hook "current"
 (lambda ()
    (TeX-run-style-hooks
     "fontenc"
     "T1"
     "times"
     "inputenc"
     "latin1"
     "babel"
     "english"
     "latex2e"
     "beamer10"
     "beamer"
     "10pt"
     "macros")))