auto-insert

Приветствую, Не получается сделать auto-insert: (add-hook 'find-file-not-found-hooks 'my-auto-insert) (defun my-auto-insert () (let ((f-name (buffer-file-name))) (if (string-match "\\.h$" f-name) (let ((define-header (upcase (concat (file-name-nondirectory (substring f-name 0 (match-beginning 0))) "_H" )))) (insert (concat "#ifndef " define-header "\n#define " define-header "\n\n#endif"))) ))) Почему-то сразу после создания спрашивается о удалении буфера Что я не так делаю? -- Denis. С точки зрения программиста пользователь - это периферийное устройство, вводящее набор символов в ответ на команду READ