🚀 go-pugleaf

In GNU Emacs 19.26.1 (sparc-sun-solaris2.3, X toolkit) of Thu Sep  8 1994 on tigger.isode.com

When using auto-insert.el, matching of filenames against the regexps in
auto-insert-alist is done without regard to case. This means you can't use .C
and .c to distinguish between C++ and C, and have different files inserted.

The following patch makes the matching case-sensitive, except on VMS where
filenames are not case-sensitive (I stole this from the auto-mode-alist code
in files.el - I would have thought there would be other systems apart from VMS
where this is the case). I also added .cc, .C, and .H regexps to the alist.


diff -c /usr/local/src/emacs-19.26/lisp/autoinsert.el autoinsert.el
*** /usr/local/src/emacs-19.26/lisp/autoinsert.el       Mon Mar 22 14:40:56 1993
--- autoinsert.el       Thu Sep 15 16:44:46 1994
***************
*** 55,60 ****
--- 55,63 ----
  (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,84 ****
          (insert-file nil))
  
      ;; find first matching alist entry
!     (while (and (not insert-file) alist)
!       (if (string-match (car (car alist)) name)
!           (setq insert-file (cdr (car alist)))
!         (setq alist (cdr alist))))
  
      ;; Now, if we found an appropriate insert file, insert it
      (if insert-file
--- 78,88 ----
          (insert-file nil))
  
      ;; find first matching alist entry
!     (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)))))
  
      ;; Now, if we found an appropriate insert file, insert it
      (if insert-file