# HG changeset patch
# User Uwe Brauer <address@hidden>
# Date 1471103706 0
#      Sat Aug 13 15:55:06 2016 +0000
# Node ID 812891d581e12f46a4389340951e7c560728e5da
# Parent  7e99385ea409ddedb3d92c986a900c04264b2f20
Add entry to Makefile.in: examn.el (found in style/examn.el)

diff --git a/Makefile.in b/Makefile.in
--- a/Makefile.in
+++ b/Makefile.in
@@ -155,7 +155,7 @@
 	   style/newfloat.el  style/subcaption.el style/AlegreyaSans.el \
 	   style/hologo.el    style/theorem.el   style/ntheorem.el \
 	   style/splitidx.el  style/tikz.el      style/xcolor.el \
-	   style/pdflscape.el style/commath.el
+	   style/pdflscape.el style/commath.el style/exam.el \
 
 STYLEELC = $(STYLESRC:.el=.elc)
 
# HG changeset patch
# User Uwe Brauer <address@hidden>
# Date 1471102795 0
#      Sat Aug 13 15:39:55 2016 +0000
# Node ID 7e99385ea409ddedb3d92c986a900c04264b2f20
# Parent  3d19f1813502d152a84590703db06efb0d7f1acb
Cleanup the code from ugly structures.

diff --git a/style/exam.el b/style/exam.el
--- a/style/exam.el
+++ b/style/exam.el
@@ -1,9 +1,9 @@
 ;;; exam.el --- AUCTeX style for the (LaTeX) exam package
 
-;; Copyright (C) 2003, 2004, 2005, 2008, 2015 Free Software Foundation
+;; Copyright (C) 2016 Free Software Foundation
 
 ;; Author: Uwe Brauer <address@hidden>
-;; Created: 20153-03-06
+;; Created: 2016-03-06
 ;; Keywords: tex
 
 ;; This file is part of AUCTeX.
@@ -34,35 +34,29 @@
 
 (TeX-add-style-hook "exam"
  (lambda ()
-   (LaTeX-add-environments "questions")
-   (LaTeX-add-environments "solution")
-   (LaTeX-add-environments "solutionorbox")
-   (LaTeX-add-environments "parts")
-   (LaTeX-add-environments "subparts")
-   (LaTeX-add-environments "subsubparts")
+   (LaTeX-add-environments
+    "questions"
+    "solution"
+    "solutionorbox"
+    "parts"
+    "subparts"
+    "subsubparts")
    (TeX-add-symbols
     '("droppoints" 0)
     '("part" TeX-arg-examn-points 0)
     '("subpart" TeX-arg-examn-points 0)
     '("subsubpart" TeX-arg-examn-points 0)
-    '("question" TeX-arg-examn-points 0)
     '("droptotalpoints" 0)
-    '("question" 1)
     '("RL" 1)
-    '("titledquestion" "Title" ["Points"]  reftex-label)
-    '("question"  ["Points"] reftex-label)))
+    '("titledquestion" "Title" ["Points"]  TeX-arg-label)
+    '("question"  ["Points"] TeX-arg-label)))
  LaTeX-dialect)
 
 
 
 
 
-(defun TeX-arg-examn-points (optional &optional prompt)
-  "Prompt for overlay specification and optional argument."
-  (let ((options (read-input "Points: ")))
-        (if (not (zerop (length options)))
-        (progn (insert "[" options "]")))
-    (indent-according-to-mode)))
+
 
 
 ;;; exam.el ends here
# HG changeset patch
# User Uwe Brauer <address@hidden>
# Date 1471091348 0
#      Sat Aug 13 12:29:08 2016 +0000
# Node ID 3d19f1813502d152a84590703db06efb0d7f1acb
# Parent  48056c6ec94f2e6addd29636583b4816fd3981bd
Add style exam.el

diff --git a/style/exam.el b/style/exam.el
new file mode 100644
--- /dev/null
+++ b/style/exam.el
@@ -0,0 +1,68 @@
+;;; exam.el --- AUCTeX style for the (LaTeX) exam package
+
+;; Copyright (C) 2003, 2004, 2005, 2008, 2015 Free Software Foundation
+
+;; Author: Uwe Brauer <address@hidden>
+;; Created: 20153-03-06
+;; 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 the exam package.
+
+;;; Code:
+
+(defvar LaTeX-exam-package-options '("answers" "rldocuement")
+  "Package options for the exam package.")
+
+(TeX-add-style-hook "exam"
+ (lambda ()
+   (LaTeX-add-environments "questions")
+   (LaTeX-add-environments "solution")
+   (LaTeX-add-environments "solutionorbox")
+   (LaTeX-add-environments "parts")
+   (LaTeX-add-environments "subparts")
+   (LaTeX-add-environments "subsubparts")
+   (TeX-add-symbols
+    '("droppoints" 0)
+    '("part" TeX-arg-examn-points 0)
+    '("subpart" TeX-arg-examn-points 0)
+    '("subsubpart" TeX-arg-examn-points 0)
+    '("question" TeX-arg-examn-points 0)
+    '("droptotalpoints" 0)
+    '("question" 1)
+    '("RL" 1)
+    '("titledquestion" "Title" ["Points"]  reftex-label)
+    '("question"  ["Points"] reftex-label)))
+ LaTeX-dialect)
+
+
+
+
+
+(defun TeX-arg-examn-points (optional &optional prompt)
+  "Prompt for overlay specification and optional argument."
+  (let ((options (read-input "Points: ")))
+        (if (not (zerop (length options)))
+        (progn (insert "[" options "]")))
+    (indent-according-to-mode)))
+
+
+;;; exam.el ends here