Re: auto-insert
On Fri, 28 Mar 2003, Denis Dzyubenko wrote:
From: Denis Dzyubenko <shad(a)mail.kubtelecom.ru>
To: xemacs-users-ru <xemacs-users-ru(a)xemacs.org>
Subject: auto-insert
Date: Fri, 28 Mar 2003 12:47:09 +0300
X-Procmail-List: XEmacs Users RU Mailing list
Приветствую,
Не получается сделать 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")))
)))
Почему-то сразу после создания спрашивается о удалении буфера
Что я не так делаю?
(add-hook 'find-file-hooks 'auto-insert)
(define-auto-insert '("\\.\\([Hh]\\|hh\\|hpp\\)\\'" . "C / C++
header")
'("Project: "
"/*\n"
" * Project: " str "\n"
" * File: " (file-relative-name (buffer-file-name)) "\n"
" * Creation date: " (arto-date) "\n"
" * Last modified: <>\n"
" * Creator: " (arto-userid) "\n"
" * \n"
" * \$Id:\$\n"
" * \$Log:\$\n"
" */\n\n"
"#ifndef " (arto-autoinsert-make-h-const (buffer-file-name))
"\n"
"#define " (arto-autoinsert-make-h-const (buffer-file-name))
"\n\n"
_ "\n\n"
"#endif /* " (arto-autoinsert-make-h-const (buffer-file-name)) "
*/\n"))
--
wbw,artur