Commit c5b31142 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(auto-insert-alist): Add entries for C++.

(insert-auto-insert-files): Do case-sensitive match except on vms.
parent f914dc91
......@@ -55,6 +55,9 @@
(defvar auto-insert-alist '(("\\.tex$" . "tex-insert.tex")
("\\.c$" . "c-insert.c")
("\\.h$" . "h-insert.c")
("\\.cc$" . "")
("\\.C$" . "")
("\\.H$" . "")
("[Mm]akefile" . "")
("\\.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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment