Перехватчик расширения файла в Emacs

Я бы хотел запустить ловушку для определенных расширений файлов (то есть не режимов). У меня нет опыта работы с elisp, поэтому я создал код Cargo-cult:

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

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

(Следует установить второстепенный режим orgtbl для файлов с суффиксом .cat и вставить текст "OK", т.е. только вопрос о настройке режима). К сожалению, это не работает.