Đuôi mở rộng tệp trong Emacs

Question

Tôi muốn chạy một móc cho các phần mở rộng tệp cụ thể (tức là không phải chế độ). Tôi có zero kinh nghiệm với elisp, vì vậy tôi chuyển hàng hóa-giáo phái mã này:

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

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

(nên đặt orgtbl chế độ nhỏ cho các tập tin với hậu tố .cat và chèn văn bản "OK", tức là nó không phải chỉ là vấn đề thiết lập chế độ) . Thật không may nó không hoạt động.

Answer 1

Hãy thử điều này:

(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

Bạn có thể sử dụng lambda trong 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))))