我想为特定的文件扩展名(即不是模式)运行一个钩子。我没有使用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",即这不仅仅是一个模式设置问题)。不幸的是,它不起作用。
发布于 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)
发布于 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))))
https://stackoverflow.com/questions/6886643
复制相似问题