branch: externals/auctex
commit d52b949a29a3c62eb069b3a68d0d7bdd643de567
Author: Arash Esbati <[email protected]>
Commit: Arash Esbati <[email protected]>
Quote function value for interpreted code
* preview.el (preview-auto-reveal): Quote function value when file
isn't byte-compiled. This is relevant for Emacs<30. (Bug#79975)
---
preview.el | 10 ++++++----
1 file changed, 6 insertions(+), 4 deletions(-)
diff --git a/preview.el b/preview.el
index 9481288675..8b757c849e 100644
--- a/preview.el
+++ b/preview.el
@@ -1746,10 +1746,12 @@ This list is consulted by the default value of
`preview-auto-reveal'."
(defcustom preview-auto-reveal
`(eval . ((apply #'preview-arrived-via
- (mapcar ,(lambda (cmd)
- (if (and (listp cmd) (eq (car cmd) 'key-binding))
- (eval cmd t)
- cmd))
+ ;; Quote the function value for interpreted code in
+ ;; Emacs<30 (bug#79975):
+ (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.
