Button 如何获取调用函数的可单击文本

假设缓冲区中有以下文本

CMM-3:       Description
CMM-91:      Description 2

我希望CMM-XX成为可点击的区域，调用自定义函数

(defun jira-ticket-view (&optional jira-ticket)
  "Open Jira Ticket Inside Emacs"
  (interactive)
  ....)

如何在emacs/elisp中实现这一点？创建一个新的键映射，将mouse-1绑定到要调用的函数，并将键映射作为文本属性添加到链接文本中。将鼠标面设置为高亮显示，并添加帮助回音，以实现额外的用户友好性-当用户将鼠标指针悬停在文本上时，这些回音将生效

(defun my-function ()
  (interactive)
  (message "You've clicked the text!"))

(let ((map (make-sparse-keymap)))
  (define-key map [mouse-1] 'my-function)
  (insert "Foo: "
          (propertize "bar" 'keymap map 'mouse-face 'highlight 'help-echo "Click here!")
          "\n"))

有关更多信息，请参阅elisp参考手册中的部分。

创建新的键映射，将鼠标-1绑定到要调用的函数，并将键映射作为文本属性添加到链接文本中。将鼠标面设置为高亮显示，并添加帮助回音，以实现额外的用户友好性-当用户将鼠标指针悬停在文本上时，这些回音将生效

(defun my-function ()
  (interactive)
  (message "You've clicked the text!"))

(let ((map (make-sparse-keymap)))
  (define-key map [mouse-1] 'my-function)
  (insert "Foo: "
          (propertize "bar" 'keymap map 'mouse-face 'highlight 'help-echo "Click here!")
          "\n"))

---

有关更多信息，请参阅elisp参考手册中的章节。

Org模式是首先想到的；你可能会考虑检查他们的链接处理。org模式是第一个出现在脑海中的东西；您可能会考虑检查它们的链接处理。