smoothe scroll elisp and alpha window