![Auctex 字体快捷方式](https://linux22.com/image/312670/Auctex%20%E5%AD%97%E4%BD%93%E5%BF%AB%E6%8D%B7%E6%96%B9%E5%BC%8F.png)
在 Aquamacs 中,我想为以下命令创建键盘快捷键:
{\Hiero }
我想要选择或输入的文本。我在 Google 上搜索,但找不到可行的答案
答案1
将以下代码添加到您的初始化文件中。
(eval-after-load "latex"
'(setq TeX-font-list
(append
TeX-font-list
'((?\C-h "{\\Hiero " "}")))))
通过这种方式,您可以{\Hiero }
在点处插入或将其环绕在选定的文本周围C-C h(但您可以在代码中更改键绑定)。
前面的代码利用了 AUCTeX 字体管理,这里是一个仅使用标准 Emacs Lisp 的不同解决方案。
(eval-after-load "latex"
'(define-key LaTeX-mode-map
(kbd "C-C h")
(lambda (&optional beg end)
(interactive "r")
(if (TeX-active-mark)
(progn
(save-excursion
(goto-char end)
(insert "}"))
(save-excursion
(goto-char beg)
(insert "{\\Hiero ")))
(insert "{\\Hiero ")
(save-excursion
(insert "}"))))))