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

   1 ;;; scrbook.el --- AUCTeX style for scrbook.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 `scrbook.cls'. This file needs
  29 ;; `scrbase.el'.
  30
  31 ;;; Code:
  32
  33 (TeX-add-style-hook "scrbook"
  34   (lambda ()
  35     (LaTeX-largest-level-set "chapter")
  36     ;; load basic definitons
  37     (TeX-run-style-hooks "scrbase")
  38     (TeX-add-symbols
  39      "chapapp"
  40      "raggeddictum"
  41      '("chapappifchapterprefix" "Additional text")
  42      '("setpartpreamble" [ TeX-arg-KOMA-setpreamble ] [ "Width" ] t)
  43      '("setchapterpreamble" [ TeX-arg-KOMA-setpreamble ] [ "Width" ] t)
  44      '("dictum" [ "Author" ] t))
  45     (LaTeX-section-list-add-locally '("addchap" 1))
  46     (make-local-variable 'LaTeX-section-label)
  47     (setq LaTeX-section-label (append
  48                                LaTeX-section-label
  49                                '(("addchap" . nil))))
  50     ;; Definitions for font-latex
  51     (when (and (featurep 'font-latex)
  52                (eq TeX-install-font-lock 'font-latex-setup))
  53       ;; Textual keywords
  54       (font-latex-add-keywords '(("addchap" "[{")
  55                                  ("setpartpreamble" "[[{")
  56                                  ("setchapterpreamble" "[[{")
  57                                  ("dictum" "[{"))
  58                                'textual)
  59       ;; Sectioning keywords
  60       (font-latex-add-keywords '(("addchap" "[{")) 'sectioning-1))))
  61
  62 ;;; scrbook.el ends here