Re: auto-insert

У меня работает. Xemacs 21.5-b5 и XEmacs 21.4-10 Коля intro: "DD" == Denis Dzyubenko <shad(a)mail.kubtelecom.ru&gt; writes: DD> Приветствую, Не получается сделать auto-insert: DD> (add-hook 'find-file-not-found-hooks 'my-auto-insert) (defun DD> my-auto-insert () (let ((f-name (buffer-file-name))) (if (string-match DD> "\\.h$" f-name) (let ((define-header (upcase (concat DD> (file-name-nondirectory (substring f-name 0 (match-beginning 0))) "_H" DD> )))) (insert (concat "#ifndef " define-header "\n#define " define-header DD> "\n\n#endif"))) ))) DD> Почему-то сразу после создания спрашивается о удалении буфера Что я не DD> так делаю? DD> -- Denis. DD> С точки зрения программиста пользователь - это периферийное устройство, DD> вводящее набор символов в ответ на команду READ