[elpa] elpa 255efa3 23/35: Write TeX-style-hook-dialect to parsed file

[Tassilo Horn]

branch: elpa
commit 255efa3860d3ae164e5c26482d8c143c91c3c7e5
Author: Mosè Giordano <address@hidden>
Commit: Mosè Giordano <address@hidden>

    Write TeX-style-hook-dialect to parsed file
    
    * latex.el (BibTeX-auto-store): Run `TeX-bibtex-set-BibTeX-dialect'.
    * tex.el (TeX-auto-store): Store `TeX-style-hook-dialect' from buffer
      and write it to parsed file when present.
---
 latex.el |    1 +
 tex.el   |    7 +++++--
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/latex.el b/latex.el
index ba2882c..e46fb86 100644
--- a/latex.el
+++ b/latex.el
@@ -1745,6 +1745,7 @@ It will setup BibTeX to store keys in an auto file."
   (if (boundp 'local-write-file-hooks)
       (add-hook 'local-write-file-hooks 'TeX-safe-auto-write)
     (add-hook 'write-file-hooks 'TeX-safe-auto-write))
+  (TeX-bibtex-set-BibTeX-dialect)
   (set (make-local-variable 'TeX-auto-update) 'BibTeX)
   (set (make-local-variable 'TeX-auto-untabify) nil)
   (set (make-local-variable 'TeX-auto-parse-length) 999999)
diff --git a/tex.el b/tex.el
index 72750a9..c2c247c 100644
--- a/tex.el
+++ b/tex.el
@@ -3864,7 +3864,8 @@ If TEX is a directory, generate style files for all files 
in the directory."
            (verb-macros-delims (when (boundp 
'LaTeX-verbatim-macros-with-delims-local)
                                  LaTeX-verbatim-macros-with-delims-local))
            (verb-macros-braces (when (boundp 
'LaTeX-verbatim-macros-with-braces-local)
-                                 LaTeX-verbatim-macros-with-braces-local)))
+                                 LaTeX-verbatim-macros-with-braces-local))
+           (dialect TeX-style-hook-dialect))
        (TeX-unload-style style)
        (with-current-buffer (generate-new-buffer file)
          (erase-buffer)
@@ -3890,7 +3891,9 @@ If TEX is a directory, generate style files for all files 
in the directory."
                     env)))
          (mapc (lambda (el) (TeX-auto-insert el style))
                TeX-auto-parser)
-         (insert "))\n\n")
+         (insert ")")
+         (if dialect (insert (concat "\n " (prin1-to-string dialect))))
+         (insert ")\n\n")
          (write-region (point-min) (point-max) file nil 'silent)
          (kill-buffer (current-buffer))))
     (if (file-exists-p (concat file "c"))