Emacs中的文件擴展鉤子

Question

我想爲特定的文件擴展名（即不是模式）運行鉤子。我有elisp的零經驗，所以我的貨物邪教編碼這樣的：

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

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

（應設置orgtbl次要模式後綴.cat文件，並插入文本「OK」，也就是說，它不僅是一個模式設置的問題） 。 不幸的是它不起作用。

Answer 1

試試這個：

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

Answer 2

可以在auto-mode-alist使用拉姆達：

(add-to-list 'auto-mode-alist 
      '("\\.cat\\'" . (lambda() 
           ;; add major mode setting here, if needed, for example: 
           ;; (text-mode) 
           (insert "OK") 
           (turn-on-orgtbl))))