code.delx.au - gnu-emacs-elpa/blob - packages/auctex-11.86/style/scrreprt.el

   1 ;;; scrreprt.el --- AUCTeX style for scrreprt.cls.
   2
   3 ;; Copyright (C) 2002, 2005 Free Software Foundation
   4
   5 ;; Author: Mark Trettin <Mark.Trettin@gmx.de>
   6 ;; Created: 2002-09-26
   7 ;; Keywords: tex
   8
   9 ;; This file is part of AUCTeX.
  10
  11 ;; AUCTeX is free software; you can redistribute it and/or modify it
  12 ;; under the terms of the GNU General Public License as published by
  13 ;; the Free Software Foundation; either version 3, or (at your option)
  14 ;; any later version.
  15
  16 ;; AUCTeX is distributed in the hope that it will be useful, but
  17 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
  18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  19 ;; General Public License for more details.
  20
  21 ;; You should have received a copy of the GNU General Public License
  22 ;; along with AUCTeX; see the file COPYING.  If not, write to the Free
  23 ;; Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
  24 ;; 02110-1301, USA.
  25
  26 ;;; Commentary:
  27
  28 ;; This file adds support for `scrreprt.cls'. This file needs
  29 ;; `scrbase.el'.
  30
  31 ;;; Code:
  32
  33 (TeX-add-style-hook
  34  "scrreprt"
  35  (lambda ()
  36    (LaTeX-largest-level-set "chapter")
  37    ;; load basic definitons
  38    (TeX-run-style-hooks "scrbase")
  39    (TeX-add-symbols
  40     "chapapp"
  41     "raggeddictum"
  42     '("chapappifchapterprefix" "Additional text")
  43     '("setpartpreamble" [ TeX-arg-KOMA-setpreamble ] [ "Width" ] t)
  44     '("setchapterpreamble" [ TeX-arg-KOMA-setpreamble ] [ "Width" ] t)
  45     '("dictum" [ "Author" ] t))
  46    (LaTeX-section-list-add-locally '("addchap" 1))
  47    (make-local-variable 'LaTeX-section-label)
  48    (setq LaTeX-section-label (append
  49                               LaTeX-section-label
  50                               '(("addchap" . nil))))
  51    ;; Definitions for font-latex
  52    (when (and (featurep 'font-latex)
  53               (eq TeX-install-font-lock 'font-latex-setup))
  54      ;; Textual keywords
  55      (font-latex-add-keywords '(("addchap" "[{")
  56                                 ("setpartpreamble" "[[{")
  57                                 ("setchapterpreamble" "[[{")
  58                                 ("dictum" "[{"))
  59                               'textual)
  60      ;; Sectioning keywords
  61      (font-latex-add-keywords '(("addchap" "[{")) 'sectioning-1))))
  62
  63 ;;; scrreprt.el ends here