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

[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  a589542d9296cd18f117efbbd77e1f84d6a095a7 (commit)
       via  21a725b2c7bd5d6ff48773a1a45332605dbdb8d5 (commit)
      from  ac9405b6762877f0e7925fe36bf61f63aeca5322 (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 a589542d9296cd18f117efbbd77e1f84d6a095a7
Author: Ikumi Keita <ikumi@ikumi.que.jp>
Date:   Sun Mar 28 01:21:17 2021 +0900

    Add defensive `save-match-data'
    
    * preview.el.in (preview-set-texinputs): Follow the instruction
    "Simple Match Data Access" in elisp reference:
       A search which fails may or may not alter the match data.  In the
    current implementation, it does not, but we may change it in the future.
    Don’t try to rely on the value of the match data after a failing search.

diff --git a/preview.el.in b/preview.el.in
index b73b779..9dda658 100644
--- a/preview.el.in
+++ b/preview.el.in
@@ -2981,7 +2981,7 @@ With prefix argument REMOVE, remove it again."
       (setq pattern (regexp-quote preview-TeX-style-dir))
       (dolist (env (cons "TEXINPUTS=" (copy-sequence process-environment)))
         (if (string-match "\\`\\(TEXINPUTS[^=]*\\)=" env)
-            (unless (string-match pattern env)
+            (unless (save-match-data (string-match pattern env))
               (setenv (match-string 1 env)
                       (concat preview-TeX-style-dir
                               (substring env (match-end 0))))))))))

commit 21a725b2c7bd5d6ff48773a1a45332605dbdb8d5
Author: Ikumi Keita <ikumi@ikumi.que.jp>
Date:   Sat Mar 27 22:45:30 2021 +0900

    Fix order of arguments
    
    * preview.el.in (preview-make-image): Rearrange the arguments of `get'
    in correct order.
    Adapt doc string.

diff --git a/preview.el.in b/preview.el.in
index fd92a2c..b73b779 100644
--- a/preview.el.in
+++ b/preview.el.in
@@ -1556,9 +1556,9 @@ display in use.")
 (defun preview-make-image (symbol)
   "Make an image from a preview spec list.
 The first spec that is workable (given the current setting of
-`preview-min-spec') from the given symbol is used here.  The
-icon is cached in the property list of the symbol."
-  (let ((alist (get 'preview-min-alist symbol)))
+`preview-min-spec') from the given SYMBOL is used here.  The
+icon is cached in the property list of the SYMBOL."
+  (let ((alist (get symbol 'preview-min-alist)))
     (cdr (or
           (assq preview-min-spec alist)
           (car (put symbol 'preview-min-alist

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

Summary of changes:
 preview.el.in | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)


hooks/post-receive
-- 
GNU AUCTeX