emacs 中的工具栏按钮如何工作？ [复制]

Posted 2023-02-24

【中文标题】emacs 中的工具栏按钮如何工作？ [复制]

【英文标题】：How tool-bar button in emacs works? [duplicate]

【发布时间】：2015-01-29 12:33:31

【问题描述】：

我在 emacs 中添加工具栏按钮时遇到问题。 我可以使用 eval-buffer 运行它，但不能使用我的 .emacs。当我使用 eval-buffer 添加它时，我的按钮在滚动后离开我的工具栏。

;;; Code: 
(defun omar-hotel ()
  "another nonce menu function"
  (interactive)
  (message "hotel, motel, holiday inn"))


 (define-key-after global-map [tool-bar omar-button]
          '(menu-item "Hotel" omar-hotel
              :image (image :type xpm :file "/usr/share/emacs/23.4/etc/images/jump-to.xpm")
              :help "OMG Omar!"
              ))

我也尝试过这样添加钩子，但那不起作用。

(add-hook 'after-init-hook
      (lambda ()
        (define-key-after global-map [tool-bar omar-button]
          '(menu-item "Hotel" omar-hotel
              :image (image :type xpm :file "/usr/share/emacs/23.4/etc/images/jump-to.xpm")
              :help "OMG Omar!"
              ))
))

【参考方案1】：

您好，我找到了一个简单的解决方案来添加工具栏按钮“拼写”是 /usr/share/emacs/23.4/etc/images/ 中的图像

(defun omar-hotel ()
 "another nonce menu function"
 (interactive)
 (message "hotel, motel, holiday inn"))

(tool-bar-add-item "spell" 'omar-hotel
           'omar-hotel
           :help   "Run fonction omar-hotel")