03/05/18 06:12.net
>>44
autoinsert.elにあったのをちょっといじってこんな感じ?
(auto-insert-mode 1)
(setq auto-insert-alist
(append
'((("\\.\\([Hh]\\|hh\\|hpp\\)\\'" . "C / C++ header")
(upcase (concat (file-name-nondirectory
(substring buffer-file-name 0 (match-beginning 0)))
"_"
(substring buffer-file-name (1+ (match-beginning 0))) "_INC_SEEN"))
"#ifndef " str "\n"
"#define " str "\n\n"
_ "\n\n#endif /* " str " */\n"))
auto-insert-alist))