[AUCTeX-diffs] Changes to auctex/style/lettrine.el,v

[Ralf Angeli]

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 <address@hidden>
 ;; 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.")