This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "GNU AUCTeX".
The branch, lexical-binding-attempt-1 has been updated via 813e5478bb8d8ded55179fd927346f99d13f5ff7 (commit) from d91a08d905fa80b5ff04deb77672dc9d38a2fc70 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 813e5478bb8d8ded55179fd927346f99d13f5ff7 Author: Ikumi Keita <ik...@ikumi.que.jp> Date: Sat Sep 12 17:35:48 2020 +0900 Simplify nested `let's * tex-buf.el (TeX-active-master-with-quotes): Simplify nested `let's into singe one. diff --git a/tex-buf.el b/tex-buf.el index 9b04a07..bb5e275 100644 --- a/tex-buf.el +++ b/tex-buf.el @@ -585,30 +585,30 @@ infinite loop in `TeX-command-expand'. Helper function of `TeX-command-expand'. Use only within entries in `TeX-expand-list-builtin' and `TeX-expand-list'." - (let ((res - (shell-quote-argument - (let* ((raw (TeX-active-master extension nondirectory ask)) - ;; String `TeX-command-text' means that the file name is - ;; given through \input command. - (quote-for-space (if (and (stringp TeX-command-text) - (string-match " " raw)) - "\"" ""))) - (format - (if (and extra - (stringp TeX-command-text) - (memq major-mode '(latex-mode doctex-mode)) - (memq TeX-engine '(default uptex))) - ;; Since TeXLive 2018, the default encoding for LaTeX - ;; files has been changed to UTF-8 if used with - ;; classic TeX or pdfTeX. I.e., - ;; \usepackage[utf8]{inputenc} is enabled by default - ;; in (pdf)latex. - ;; c.f. LaTeX News issue 28 - ;; Due to this change, \detokenize is required to - ;; recognize non-ascii characters in the file name - ;; when \input precedes. - "\\detokenize{ %s }" "%s") - (concat quote-for-space raw quote-for-space)))))) + (let* ((raw (TeX-active-master extension nondirectory ask)) + ;; String `TeX-command-text' means that the file name is + ;; given through \input command. + (quote-for-space (if (and (stringp TeX-command-text) + (string-match " " raw)) + "\"" "")) + (res + (shell-quote-argument + (format + (if (and extra + (stringp TeX-command-text) + (memq major-mode '(latex-mode doctex-mode)) + (memq TeX-engine '(default uptex))) + ;; Since TeXLive 2018, the default encoding for LaTeX + ;; files has been changed to UTF-8 if used with + ;; classic TeX or pdfTeX. I.e., + ;; \usepackage[utf8]{inputenc} is enabled by default + ;; in (pdf)latex. + ;; c.f. LaTeX News issue 28 + ;; Due to this change, \detokenize is required to + ;; recognize non-ascii characters in the file name + ;; when \input precedes. + "\\detokenize{ %s }" "%s") + (concat quote-for-space raw quote-for-space))))) ;; Advance past the file name in order to ;; prevent expanding any substring of it. (setq TeX-expand-pos ----------------------------------------------------------------------- Summary of changes: tex-buf.el | 48 ++++++++++++++++++++++++------------------------ 1 file changed, 24 insertions(+), 24 deletions(-) hooks/post-receive -- GNU AUCTeX _______________________________________________ auctex-diffs mailing list auctex-di...@gnu.org https://lists.gnu.org/mailman/listinfo/auctex-diffs