tidy up emacs functions