[elpa] externals/auctex ba0166331e: Fix keybinding support for *-auto-reveal

[ELPA Syncer]

branch: externals/auctex
commit ba0166331e64ec1c031be13f63aa5464c5503b6a
Author: Paul Nelson <ultrono@gmail.com>
Commit: Arash Esbati <arash@gnu.org>

    Fix keybinding support for *-auto-reveal
    
    * preview.el (preview-auto-reveal):
    * tex-fold.el (TeX-fold-auto-reveal): Evaluate any keybindings
    before calling *-arrived-via.  (bug#73386)
---
 preview.el  | 8 +++++++-
 tex-fold.el | 8 +++++++-
 2 files changed, 14 insertions(+), 2 deletions(-)

diff --git a/preview.el b/preview.el
index d7603004d1..1d6b27ac41 100644
--- a/preview.el
+++ b/preview.el
@@ -1654,7 +1654,13 @@ This list is consulted by the default value of 
`preview-auto-reveal'."
                          (sexp :tag "Key binding"))))
 
 (defcustom preview-auto-reveal
-  '(eval (apply #'preview-arrived-via preview-auto-reveal-commands))
+  '(eval . ((apply #'preview-arrived-via
+                   (mapcar (lambda (cmd)
+                             (if (and (listp cmd) (eq (car cmd) 'key-binding))
+                                 (eval cmd t)
+                               cmd))
+                           preview-auto-reveal-commands))
+            t))
   "Cause previews to open automatically when entered.
 Possibilities are:
 t autoopens,
diff --git a/tex-fold.el b/tex-fold.el
index a4ebe43a68..a875cbb8c5 100644
--- a/tex-fold.el
+++ b/tex-fold.el
@@ -268,7 +268,13 @@ This list is consulted by the default value of 
`TeX-fold-auto-reveal'."
                          (sexp :tag "Key binding"))))
 
 (defcustom TeX-fold-auto-reveal
-  '(eval (apply #'TeX-fold-arrived-via TeX-fold-auto-reveal-commands))
+  '(eval . ((apply #'TeX-fold-arrived-via
+                   (mapcar (lambda (cmd)
+                             (if (and (listp cmd) (eq (car cmd) 'key-binding))
+                                 (eval cmd t)
+                               cmd))
+                           TeX-fold-auto-reveal-commands))
+            t))
   "Predicate to open a fold when entered.
 Possibilities are:
 t autoopens,