CVSROOT: /cvsroot/auctex Module name: auctex Changes by: Ralf Angeli <angeli> 11/03/13 20:01:41
Index: lettrine.el =================================================================== RCS file: /cvsroot/auctex/auctex/style/lettrine.el,v retrieving revision 1.1 retrieving revision 1.2 diff -u -b -r1.1 -r1.2 --- lettrine.el 13 Mar 2011 19:51:18 -0000 1.1 +++ lettrine.el 13 Mar 2011 20:01:40 -0000 1.2 @@ -1,8 +1,27 @@ ;;; lettrine.el --- AUCTeX style for `lettrine.sty' +;; Copyright (C) 2011 Free Software Foundation, Inc. + ;; Author: Mads Jensen <[email protected]> ;; 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 `lettrine.sty'. @@ -18,7 +37,7 @@ ("nindent") ("slope") ("ante") - ("image")) + ("image" ("true"))) "Key=value options for \\lettrine") (TeX-add-style-hook @@ -30,30 +49,24 @@ '("LettrineImageFalse" 0) ;; all of the below can be configured with either \setlength or ;; \renewcommand - "LettrineFont" - "LettrineFontHook" - "LettrineText" - "LettrineWidth" - "DefaultLhang" - "DefaultLines" - "DefaultLoversize" - "DefaultLraise" - "DefaultFindent" - "DefaultNindent" - "DefaultSlope" + '("LettrineFont" 0) + '("LettrineFontHook" 0) + '("LettrineTextFont" 0) + '("LettrineWidth" 0) + '("DefaultLhang" 0) + '("DefaultLoversize" 0) + '("DefaultLraise" 0) + '("DefaultFindent" 0) + '("DefaultNindent" 0) + '("DefaultSlope" 0) ;; above settings can also be input a file, and pointed to with ;; \renewcommand - "DefaultOptionsFile") + '("DefaultOptionsFile" 0)) ;; Fontification - (when (and (featurep 'font-latex) + (when (and (fboundp 'font-latex-add-keywords) (eq TeX-install-font-lock 'font-latex-setup)) - (font-latex-add-keywords '(("lettrine" "[{{")) 'function) - ;; For syntactic fontification, e.g. verbatim constructs. - (font-latex-set-syntactic-keywords) - ;; Tell font-lock about the update. - (setq font-lock-set-defaults nil) - (font-lock-set-defaults)))) + (font-latex-add-keywords '(("lettrine" "[{{")) 'textual)))) (defvar LaTeX-lettrine-package-options nil "Package options for the lettrine package.") _______________________________________________ auctex-diffs mailing list [email protected] http://lists.gnu.org/mailman/listinfo/auctex-diffs
