Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 09:14:18 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source 
(insert-auto-insert-files): Do case-sensitive match except on vms.
This commit is contained in:
Richard M. Stallman 1994-09-15 21:33:54 +00:00
parent f914dc91cb
commit c5b31142c7
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/autoinsert.el
View file

@ -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