同时在所有窗口滚屏

闲聊灌水
1

需要获得「看起来很忙」的效果

(defun roll-and-roll ()
  "让所有的 Window 滚起来."
  (interactive)
  (let ((wins (window-list)))
    (dolist (w wins)
      (select-window w t)
      (goto-char (window-end nil t)))
    (while (sit-for .1)
      (dolist (w wins)
        (with-current-buffer (window-buffer w)
          (select-window w t)
          (forward-line 1)
          (when (eobp)
            (goto-char (point-min))
            (goto-char (window-end nil t))))))))

2018-04-02 16_28_09

5 个赞
2

试了一下发现没开smooth-scroll效果巨打折扣 :joy:

3

上班摸鱼专用

4

你好，程序中使用了很多API函数，请问有没有查询类似函数的API网址，就是我想写个elisp程序，看看能用哪些API，C-h f除非你知道函数名，否则无法查看

5

谷歌都能搜到的，一般Emacs 文档上的就很足够了。而且我觉得这也算不上API吧。

6

查看 Emacs Lisp 手册，里面按照话题（比如 Point、Buffer、Window）把 API 整理好了。

2 个赞