home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / winemacs / lisp / packages / autoinse.elc < prev    next >
Encoding:
Text File  |  1993-06-08  |  1.5 KB  |  24 lines
  1. ;;; compiled by jwz@thalidomide on Thu Jul  2 16:31:38 1992
  2. ;;; from file /u/jwz/emacs19/lisp/packages/autoinsert.el
  3. ;;; emacs version 19.2.1 Lucid.
  4. ;;; bytecomp version 2.07; 17-jun-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (defvar auto-insert-alist '(("\\.tex$" . "tex-insert.tex") ("\\.c$" . "c-insert.c") ("\\.h$" . "h-insert.c") ("[Mm]akefile" . "makefile.inc") ("\\.bib$" . "tex-insert.tex")) "\
  14. Alist specifying text to insert by default into a new file.
  15. Elements look like (REGEXP . FILENAME); if the new file's name
  16. matches REGEXP, then the file FILENAME is inserted into the buffer.
  17. Only the first matching element is effective.")
  18. (defvar auto-insert-directory "~/insert/" "\
  19. *Directory from which auto-inserted files are taken.")
  20. (fset 'insert-auto-insert-files #[nil "┴\n!├ ¼£½ÿ╟@@\"½ê@Aë¬iA¬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 "\
  21. Insert default contents into a new file.
  22. Matches the visited file name against the elements of `auto-insert-alist'."])
  23. (byte-code "└    B└ç" [insert-auto-insert-files find-file-not-found-hooks] 2)
  24.