emacs: add macro to advicing scroll funcs