button - 如何在 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和相关函数使用buttontext 属性，您可以使用 搜索该属性next-single-property-change。“魔术”部分将如下所示：

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