modified emacs-dotfile function