Scroll screen, not cursor, in emacs

曾经被问道如何滚动emacs的屏幕而不动光标，奈何本人能力有限，无法回答。

最近，一位匿名的朋友贴出代码，参见这里。不知道这位朋友和提出问题的是否为同一人，无论如何，非常感谢！