Emacsのファイル拡張フック

Question

特定のファイル拡張子（つまりモードではない）に対してフックを実行したいと思います。私はelispのゼロ経験を持っているので、私は貨物カルトはこれをコード化：

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

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

（接尾辞の.catを持つファイルのマイナーモードをorgtbl設定する必要があり、それはのIE、「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))))