# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 779664834 0
# Node ID 878de309ab950569dfeebb77cb5f49b4bab37eab
# Parent  2b54e6deed2f5425365b4738e33c50d6612b1fca
(auto-insert-alist): Add entries for C++.
(insert-auto-insert-files): Do case-sensitive match except on vms.

diff -r 2b54e6deed2f -r 878de309ab95 lisp/autoinsert.el
--- a/lisp/autoinsert.el	Thu Sep 15 21:30:21 1994 +0000
+++ b/lisp/autoinsert.el	Thu Sep 15 21:33:54 1994 +0000
@@ -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 @@
         (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