;ELC   
;;; compiled by cthomp@willow on Thu Aug 12 00:38:59 1993
;;; from file /era/era-0.80/editor/lisp/packages/autoinsert.el
;;; emacs version 19.8 (beta8) Lucid.
;;; bytecomp version 2.15; 14-jul-93.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19")))
    (error "This file was compiled for Emacs 19."))

(defvar auto-insert-alist '(("\\.tex$" . "tex-insert.tex") ("\\.c$" . "c-insert.c") ("\\.h$" . "h-insert.c") ("[Mm]akefile" . "makefile.inc") ("\\.bib$" . "tex-insert.tex")) "\
A list specifying text to insert by default into a new file.
Elements look like (REGEXP . FILENAME); if the new file's name
matches REGEXP, then the file FILENAME is inserted into the buffer.
Only the first matching element is effective.")
(defvar auto-insert-directory "~/insert/" "\
*Directory from which auto-inserted files are taken.")
(fset 'insert-auto-insert-files #[nil "Á\n!Ã¬œ«˜Ç@@\"«ˆ@A‰ªiAªa­ P	Ê	!«ŠË	!ˆÌÃ!ª‰ÍÎ	\"ˆÏÐ!)+‡" [auto-insert-alist file-name-sans-versions buffer-file-name nil insert-file name alist string-match auto-insert-directory file file-readable-p insert-file-contents set-buffer-modified-p message "Auto-insert: file %s not found" sleep-for 1] 4 "\
Insert default contents into a new file.
Matches the visited file name against the elements of `auto-insert-alist'."])
(byte-code "À	BÀ‡" [insert-auto-insert-files find-file-not-found-hooks] 2)