Dosya uzantısı kancası Emacs

Question

Belirli dosya uzantıları için (örneğin, modlar değil) bir kanca çalıştırmak istiyorum. Ben elisp sıfır deneyime sahip, bu yüzden kargo-kült bu kodlanmış:

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

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

(sonek .cat ile dosyalar için küçük modunu orgtbl ayarlamak Should ve bu kadar yani "Tamam" metin eklemek sadece bir mod ayar soru) . Maalesef çalışmıyor.

Answer 1

bu deneyin:

(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

Sen auto-mode-alist lambda kullanabilirsiniz: Gerçi küçük modunu ayarlamak için çalışıyor

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