如何跳轉Emacs中的按鈕？

Question

我創造我的主要模式的一些按鈕有：

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

我要跳轉到下一個和prev。光標位置的按鈕。

我不知道如何檢測按鈕的位置。給我一個提示。

(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)))