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: auctex-devel@gnu.org @@ -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") _______________________________________________ auctex-diffs mailing list auctex-di...@gnu.org https://lists.gnu.org/mailman/listinfo/auctex-diffs