Emacs中的文件扩展名挂钩
Emacs中的文件扩展名挂钩
提问于 2011-07-31 07:48:41
我想为特定的文件扩展名(即不是模式)运行一个钩子。我没有使用elisp的经验，所以我使用cargo-cult进行了编码：
(defun set_tab_mode ()
(when (looking-at-p "\\.cat")
(insert "OK")
(orgtbl-mode)))
(add-hook 'find-file-hook 'set_tab_mode)(应该为后缀为.cat的文件设置orgtbl次要模式，并插入文本"OK"，即这不仅仅是一个模式设置问题)。不幸的是，它不起作用。
回答 2
Stack Overflow用户
回答已采纳
发布于 2011-07-31 08:15:02
试试这个：
(defun my-set-tab-mode ()
(when (and (stringp buffer-file-name)
(string-match "\\.cat\\'" buffer-file-name))
(insert "OK")
(orgtbl-mode)))
(add-hook 'find-file-hook 'my-set-tab-mode)Stack Overflow用户
发布于 2011-07-31 13:49:16
您可以在auto-mode-alist中使用lambda
(add-to-list 'auto-mode-alist
'("\\.cat\\'" . (lambda ()
;; add major mode setting here, if needed, for example:
;; (text-mode)
(insert "OK")
(turn-on-orgtbl))))页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/6886643
复制相关文章
相似问题