[elpa] 52/299: * Makefile.in (STYLESRC): Activate new style filecontents.el.

[Stefan Monnier]

monnier pushed a commit to branch externals/auctex
in repository elpa.

commit baf0c9077326a6caf5eb914f7bc1a48ea204e01c
Author: Tassilo Horn <address@hidden>
Date:   Wed Feb 13 19:59:18 2013 +0000

    * Makefile.in (STYLESRC): Activate new style filecontents.el.
    
    * style/filecontents.el: New style.
---
 ChangeLog             |    8 +++++++
 Makefile.in           |    2 +-
 style/filecontents.el |   54 +++++++++++++++++++++++++++++++++++++++++++++++++
 3 files changed, 63 insertions(+), 1 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index c0deaf1..948f3dc 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,13 @@
 2013-02-13  Tassilo Horn  <address@hidden>
 
+       * Makefile.in (STYLESRC): Activate new style filecontents.el.
+
+2013-01-23  Mads Jensen  <address@hidden>
+
+       * style/filecontents.el: New style.
+
+2013-02-13  Tassilo Horn  <address@hidden>
+
        * Makefile.in (STYLESRC): Activate new style fancynum.el.
 
 2013-02-08  Mads Jensen  <address@hidden>
diff --git a/Makefile.in b/Makefile.in
index be83051..f1d4154 100644
--- a/Makefile.in
+++ b/Makefile.in
@@ -129,7 +129,7 @@ STYLESRC = style/prosper.el \
           style/multirow.el  style/imakeidx.el  style/afterpage.el \
           style/longtable.el style/lipsum.el    style/kantlipsum.el \
           style/memoir.el    style/placeins.el  style/nameref.el \
-          style/fancynum.el
+          style/fancynum.el  style/filecontents.el
 STYLEELC = $(STYLESRC:.el=.elc)
 
 CLEANFILES = $(AUCELC) $(STYLEELC) $(MULEELC)
diff --git a/style/filecontents.el b/style/filecontents.el
new file mode 100644
index 0000000..776c768
--- /dev/null
+++ b/style/filecontents.el
@@ -0,0 +1,54 @@
+;;; filecontents.el --- AUCTeX style for `filecontents.sty'
+
+;; Copyright (C) 2013 Free Software Foundation, Inc.
+
+;; Author: Mads Jensen <address@hidden>
+;; Maintainer: address@hidden
+;; Created: 2013-01-01
+;; Keywords: tex
+
+;; This file is part of AUCTeX.
+
+;; AUCTeX is free software; you can redistribute it and/or modify it
+;; under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 3, or (at your option)
+;; any later version.
+
+;; AUCTeX is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;; General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with AUCTeX; see the file COPYING.  If not, write to the Free
+;; Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
+;; 02110-1301, USA.
+
+;;; Commentary:
+
+;; This file adds support for `filecontents.sty'.  The package removes the two
+;; constraints that `filecontents' from LaTeX2e has, namely that the 
environment
+;; must be before the documentclass (or \begin{document} according to some
+;; sources), and that existing files are not overwritten.
+
+;;; Code:
+
+(TeX-add-style-hook
+ "filecontents"
+ (lambda ()
+   (LaTeX-add-environments
+    '("filecontents" LaTeX-env-filecontents)
+    '("filecontents*" LaTeX-env-filecontents))))
+
+(defun LaTeX-env-filecontents (environment)
+  "Insert ENVIRONMENT with filename for contents."
+  (LaTeX-insert-environment environment
+                           (concat TeX-grop
+                                   (read-string "File: ")
+                                   TeX-grcl))
+  (delete-horizontal-space))
+
+(defvar LaTeX-filecontents-package-options nil
+  "Package options for filecontents.")
+
+;; filecontents.el ends here