Emacs，将点 move 到第一个可见字符

Question

有没有办法将点移到第一个 当前可见 缓冲区中的字符？我想找到这一点，因为对于一个函数来说，从“第一个可见字符”而不是“缓冲区的开始”来看真的会更快。

编辑:实际上，获取位置的值也可以，而不是将点实际 move 到那里。 PageUp 和 PageDown 似乎对大文本有一些奇怪的行为。

Answer 1

如果您想要当前窗口滚动到的点:

(window-start)

如果你想跳过被文本属性隐藏的文本，使用 invisible-p跳过它们:

(let ((pos (window-start)))
  (while (and (invisible-p pos) (< pos (point-max)))
    (setq pos (1+ pos)))
  pos)