Mercurial > emacs
comparison lisp/autoinsert.el @ 99723:a626eb454478
(auto-insert-alist): Don't use match data.
| author | Lute Kamstra <lute@gnu.org> |
|---|---|
| date | Wed, 19 Nov 2008 05:50:54 +0000 |
| parents | 5436066cf627 |
| children | d42aff5ca541 |
comparison
equal
deleted
inserted
replaced
| 99722:54f0f48fe43e | 99723:a626eb454478 |
|---|---|
| 91 | 91 |
| 92 | 92 |
| 93 (defcustom auto-insert-alist | 93 (defcustom auto-insert-alist |
| 94 '((("\\.\\([Hh]\\|hh\\|hpp\\)\\'" . "C / C++ header") | 94 '((("\\.\\([Hh]\\|hh\\|hpp\\)\\'" . "C / C++ header") |
| 95 (upcase (concat (file-name-nondirectory | 95 (upcase (concat (file-name-nondirectory |
| 96 (substring buffer-file-name 0 (match-beginning 0))) | 96 (file-name-sans-extension buffer-file-name)) |
| 97 "_" | 97 "_" |
| 98 (substring buffer-file-name (1+ (match-beginning 0))))) | 98 (file-name-extension buffer-file-name))) |
| 99 "#ifndef " str \n | 99 "#ifndef " str \n |
| 100 "#define " str "\n\n" | 100 "#define " str "\n\n" |
| 101 _ "\n\n#endif") | 101 _ "\n\n#endif") |
| 102 | 102 |
| 103 (("\\.\\([Cc]\\|cc\\|cpp\\)\\'" . "C / C++ program") | 103 (("\\.\\([Cc]\\|cc\\|cpp\\)\\'" . "C / C++ program") |