文件扩展钩在Emacs [英] File extension hook in Emacs

问题描述

我想为特定的文件扩展名（即不是模式）运行钩子。我没有elisp的经验，所以我货物编码为：

 （defun set_tab_mode（）
 （look-at-p\\.cat）
（插入OK）
（orgtbl-mode）））
 
（add-hook'find -file-hook'set_tab_mode）
  

（应为后缀为.cat并插入的文件设置orgtbl minor模式文本OK，即它不仅是模式设置问题）。
不幸的是它不起作用。

解决方案

尝试这样：

$ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $
（插入OK）
（orgtbl-mode）））

（加钩） 'find-file-hook'my-set-tab-mode）

I'd like to run a hook for specific file extensions (i.e. not modes). I have zero experience with elisp, so I cargo-cult coded this:

(defun set_tab_mode ()
    (when (looking-at-p "\\.cat")
    (insert "OK")
    (orgtbl-mode)))

(add-hook 'find-file-hook 'set_tab_mode)

(Should set orgtbl minor mode for files with suffix .cat and insert text "OK", i.e. it's not only a mode setting question). Unfortunately it does not work.

解决方案

Try this:

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

这篇关于文件扩展钩在Emacs的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！