[AUCTeX-diffs] GNU AUCTeX branch, lexical-binding-attempt-1, updated. 813e5478bb8d8ded55179fd927346f99d13f5ff7

[Ikumi Keita]

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 <ikumi@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