Emacs smarter-move-to-beginning-of-line function