Hi all,
Al Haji-Ali <[email protected]> writes:
> Can someone with write access to AUCTeX make this change to
> `preview-auto-reveal`?
Are you thinking about something like this:
--8<---------------cut here---------------start------------->8---
diff --git a/preview.el b/preview.el
index 94812886..8b757c84 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.
--8<---------------cut here---------------end--------------->8---
Best, Arash
_______________________________________________
bug-auctex mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/bug-auctex
