branch: externals/auctex commit 92c090dae23076ccbbbb4f017ad6fedde79a21fa Author: Ikumi Keita <ik...@ikumi.que.jp> Commit: Ikumi Keita <ik...@ikumi.que.jp>
Fix treatment of class and package options * preview.el.in (preview-auctex-font-size): Consult `LaTeX-provided-{class,package}-options' instead of `(TeX-style-list)'. This function has been accidentally disabled since AUCTeX began not to include the class and package options into the styles. Similar problem with bug#25563. * latex.el (LaTeX-match-class-option): Update doc string because the above change depends on its implicit behavior. --- latex.el | 3 ++- preview.el.in | 15 ++++++++++----- 2 files changed, 12 insertions(+), 6 deletions(-) diff --git a/latex.el b/latex.el index f5f186d..064199d 100644 --- a/latex.el +++ b/latex.el @@ -1701,7 +1701,8 @@ The value is actually the tail of the list of options given to CLASS." (member option (cdr (assoc class LaTeX-provided-class-options)))) (defun LaTeX-match-class-option (regexp) - "Check if a documentclass option matching REGEXP is active." + "Check if a documentclass option matching REGEXP is active. +Return first found class option matching REGEXP, or nil if not found." (TeX-member regexp (apply #'append (mapcar #'cdr LaTeX-provided-class-options)) 'string-match)) diff --git a/preview.el.in b/preview.el.in index 3134232..30bf45b 100644 --- a/preview.el.in +++ b/preview.el.in @@ -1363,11 +1363,16 @@ This is for matching screen font size and previews." If packages, classes or styles were called with an option like 10pt, size is taken from the first such option if you had let your document be parsed by AucTeX." - (catch 'return (dolist (option (TeX-style-list)) - (if (string-match "\`\([0-9]+\)pt\'" option) - (throw 'return - (string-to-number - (match-string 1 option))))))) + (let* ((regexp "\`\([0-9]+\)pt\'") + (option + (or + (LaTeX-match-class-option regexp) + ;; We don't have `LaTeX-match-package-option'. + (TeX-member regexp + (apply #'append + (mapcar #'cdr LaTeX-provided-package-options)) + #'string-match)))) + (if option (string-to-number (match-string 1 option))))) (defsubst preview-document-pt () "Calculate the default font size of document." _______________________________________________ auctex-diffs mailing list auctex-di...@gnu.org https://lists.gnu.org/mailman/listinfo/auctex-diffs