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

[Tassilo Horn]

CVSROOT:        /sources/auctex
Module name:    auctex
Changes by:     Tassilo Horn <tsdh>     13/02/12 07:54:40

Index: tex.el
===================================================================
RCS file: /sources/auctex/auctex/tex.el,v
retrieving revision 5.705
retrieving revision 5.706
diff -u -b -r5.705 -r5.706
--- tex.el      13 Jan 2013 11:05:48 -0000      5.705
+++ tex.el      12 Feb 2013 07:54:40 -0000      5.706
@@ -1,6 +1,6 @@
 ;;; tex.el --- Support for TeX documents.
 
-;; Copyright (C) 1985-1987, 1991, 1993, 1994, 1996, 1997, 1999-2012
+;; Copyright (C) 1985-1987, 1991, 1993, 1994, 1996, 1997, 1999-2013
 ;;   Free Software Foundation, Inc.
 
 ;; Maintainer: address@hidden
@@ -3121,8 +3121,9 @@
         (add (intern (concat prefix "-add-" names)))
         (local (intern (concat prefix "-" name "-list")))
         (change (intern (concat prefix "-" name "-changed"))))
-    (setq TeX-auto-parser
-         (cons (list name tmp add local change) TeX-auto-parser))
+    ;; Append new type to `TeX-auto-parser' in order to make `style' type 
always
+    ;; the first.
+    (add-to-list 'TeX-auto-parser (list name tmp add local change) t)
     (set local nil)
     (make-variable-buffer-local local)
     (set change nil)
@@ -3345,8 +3346,8 @@
        (save-excursion
          (set-buffer (generate-new-buffer file))
          (erase-buffer)
-         (insert "(TeX-add-style-hook \"" style "\"\n"
-                 " (lambda ()")
+         (insert "(TeX-add-style-hook\n \""
+                 style "\"\n (lambda ()")
          (mapc (lambda (el) (TeX-auto-insert el style))
                TeX-auto-parser)
          (insert "))\n\n")