diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-09-15 21:33:54 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-09-15 21:33:54 +0000 |
| commit | 09a6c715f8d13b16a2d1e2eaa617d9413a073f47 (patch) | |
| tree | bd32d26ca44c8a2230ae5d6b71d2abe3f9c50692 /lisp/autoinsert.el | |
| parent | 5589aec391ea0615748fa512133784931019a31a (diff) | |
| download | emacs-09a6c715f8d13b16a2d1e2eaa617d9413a073f47.tar.gz | |
(auto-insert-alist): Add entries for C++.
(insert-auto-insert-files): Do case-sensitive match except on vms.
Diffstat (limited to 'lisp/autoinsert.el')
| -rw-r--r-- | lisp/autoinsert.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/autoinsert.el b/lisp/autoinsert.el index 9851ded2cdb..9851cdee31a 100644 --- a/lisp/autoinsert.el +++ b/lisp/autoinsert.el @@ -55,6 +55,9 @@ (defvar auto-insert-alist '(("\\.tex$" . "tex-insert.tex") ("\\.c$" . "c-insert.c") ("\\.h$" . "h-insert.c") + ("\\.cc$" . "c-insert.cc") + ("\\.C$" . "c-insert.cc") + ("\\.H$" . "h-insert.cc") ("[Mm]akefile" . "makefile.inc") ("\\.bib$" . "tex-insert.tex")) "A list specifying text to insert by default into a new file. @@ -75,10 +78,11 @@ Matches the visited file name against the elements of `auto-insert-alist'." (insert-file nil)) ;; find first matching alist entry - (while (and (not insert-file) alist) + (let ((case-fold-search (eq system-type 'vax-vms))) + (while (and (not insert-file) alist) (if (string-match (car (car alist)) name) (setq insert-file (cdr (car alist))) - (setq alist (cdr alist)))) + (setq alist (cdr alist))))) ;; Now, if we found an appropriate insert file, insert it (if insert-file |