Index: auctex/tex.el
diff -u auctex/tex.el:5.571 auctex/tex.el:5.572
--- auctex/tex.el:5.571 Thu May 25 07:50:57 2006
+++ auctex/tex.el Thu May 25 14:07:49 2006
@@ -1757,7 +1757,6 @@
(defvar TeX-active-styles nil
"List of styles currently active in the document.")
-
(make-variable-buffer-local 'TeX-active-styles)
(defun TeX-run-style-hooks (&rest styles)
@@ -1789,12 +1788,14 @@
"Nil, unless the style specific hooks have been applied.")
(make-variable-buffer-local 'TeX-style-hook-applied-p)
+(defvar TeX-update-style-hook nil
+ "Hook run as soon as style specific hooks were applied.")
+
(defun TeX-update-style (&optional force)
"Run style specific hooks for the current document.
Only do this if it has not been done before, or if optional argument
FORCE is not nil."
-
(unless (or (and (boundp 'TeX-auto-update)
(eq TeX-auto-update 'BibTeX)) ; Not a real TeX buffer
(and (not force)
@@ -1808,12 +1809,11 @@
(string-match TeX-one-master
(file-name-nondirectory (buffer-file-name)))))
(TeX-run-style-hooks (TeX-master-file)))
-
(if (and TeX-parse-self
(null (cdr-safe (assoc (TeX-strip-extension nil nil t)
TeX-style-hook-list))))
(TeX-auto-apply))
-
+ (run-hooks 'TeX-update-style-hook)
(message "Applying style hooks... done")))
(defvar TeX-remove-style-hook nil
@@ -1823,7 +1823,7 @@
(defun TeX-remove-style ()
"Remove all style specific information."
(setq TeX-style-hook-applied-p nil)
- (run-hooks 'TeX-remove-style-hooks)
+ (run-hooks 'TeX-remove-style-hook)
(setq TeX-active-styles (list TeX-virgin-style)))
(defun TeX-style-list ()
_______________________________________________
auctex-diffs mailing list
[EMAIL PROTECTED]
http://lists.gnu.org/mailman/listinfo/auctex-diffs
