如何在Emacs中的按钮之间跳转？

Question

我在主要模式下创建了一些按钮：

(insert-text-button "Start" :type 'start-btn)
...
(insert-text-button "Button2" :type 'b2-btn)

我想跳到下一个并且上一个。光标位置的按钮。

我不知道如何检测按钮位置。给我一个提示。

(defun jump-to-next-button ()
  "Jump to the next text button from current position."
  (interactive)
  ;; magic
  )

Answer 1

使用insert-text-button和相关函数插入的按钮使用button文本属性，您可以使用next-single-property-change进行搜索。然后，“魔术”部分将如下所示：

(goto-char (or (next-single-property-change (point) 'button)
               (point-max)))