[AUCTeX-diffs] GNU AUCTeX branch, master, updated. f999caa1a01ede97195d2367ed25ab02483dfb82

[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, master has been updated
       via  f999caa1a01ede97195d2367ed25ab02483dfb82 (commit)
      from  b2a50892b0431c48c65dc7e6ca24393c54fa4788 (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 f999caa1a01ede97195d2367ed25ab02483dfb82
Author: Ikumi Keita <ikumi@ikumi.que.jp>
Date:   Sat Dec 25 23:28:15 2021 +0900

    Fix TeX-complete-make-expert-command-functions
    
    * tex.el (TeX-complete-make-expert-command-functions): Use dynamically
    generated, dedicated variable to register expert entities.

diff --git a/tex.el b/tex.el
index e6868948..3cf8f65e 100644
--- a/tex.el
+++ b/tex.el
@@ -3133,9 +3133,10 @@ Possible values are nil, t, or a list of style names.
 
 (defmacro TeX-complete-make-expert-command-functions (thing list-var prefix)
   (let* ((plural (concat thing "s"))
-         (upcase-plural (upcase plural)))
+         (upcase-plural (upcase plural))
+         (table-var (intern (format "%s-expert-%s-table" prefix thing))))
     `(progn
-       (defvar ,(intern (format "%s-expert-%s-table" prefix thing))
+       (defvar ,table-var
          (make-hash-table :test #'equal)
          ,(format "A hash-table mapping %s names to the style name providing 
it.
 
@@ -3149,8 +3150,8 @@ Expert %s are completed depending on 
`TeX-complete-expert-commands'."
                   upcase-plural plural plural)
          (dolist (x ,(intern plural))
            (if (null style)
-               (remhash x TeX-expert-macro-table)
-             (puthash x style TeX-expert-macro-table))))
+               (remhash x ,table-var)
+             (puthash x style ,table-var))))
 
        (defun ,(intern (format "%s-filtered" list-var)) ()
          ,(format "Filter (%s) depending on `TeX-complete-expert-commands'."
@@ -3161,7 +3162,7 @@ Expert %s are completed depending on 
`TeX-complete-expert-commands'."
                   (if (eq t TeX-complete-expert-commands)
                       entry
                     (let* ((cmd (car entry))
-                           (style (gethash cmd TeX-expert-macro-table)))
+                           (style (gethash cmd ,table-var)))
                       (when (or (null style)
                                 (member style TeX-complete-expert-commands))
                         entry))))

-----------------------------------------------------------------------

Summary of changes:
 tex.el | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)


hooks/post-receive
-- 
GNU AUCTeX