;ELC ;;; compiled by jimb@geech.gnu.ai.mit.edu on Mon Jul 5 22:16:24 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/autoinsert.el ;;; emacs version 19.15.16. ;;; bytecomp version FSF 2.10 ;;; 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 (quote (("\\.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.") (defalias 'insert-auto-insert-files #[nil "Á\n!à „-ƒ-Ç@@ \"ƒ%@A‰‚\nA‚ …S P Ê !ƒIË !ˆÌÃ!‚RÍÎ \"ˆÏÐ!)+‡" [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)