branch: externals/tex-parens
commit acf5524a26a7b1ca62e38a5eae76a60237bb2919
Author: Paul Nelson <[email protected]>
Commit: Paul Nelson <[email protected]>
Make tp-down-list auto-reveal folds from TeX-fold-mode
Depends on patch submitted to AUCTeX,
https://debbugs.gnu.org/cgi/bugreport.cgi?bug=69954
---
tex-parens.el | 12 +++++++++++-
1 file changed, 11 insertions(+), 1 deletion(-)
diff --git a/tex-parens.el b/tex-parens.el
index aa3b59ac43..ede229f9d6 100644
--- a/tex-parens.el
+++ b/tex-parens.el
@@ -176,7 +176,17 @@ form delimiters which are visibly `left'/`opening' or
preview-auto-reveal
'(eval (preview-arrived-via (key-binding [left])
(key-binding [right])
- #'backward-char #'forward-char #'tp-down-list)))
+ #'backward-char #'forward-char
+ #'tp-down-list
+ #'tp-backward-down-list)))
+ (when (boundp 'TeX-fold-auto-reveal)
+ (setq TeX-fold-auto-reveal
+ '(eval (preview-arrived-via (key-binding [left])
+ (key-binding [right])
+ #'backward-char #'forward-char
+ #'mouse-set-point
+ #'tp-down-list
+ #'tp-backward-down-list))))
(setq-local beginning-of-defun-function #'tp--beginning-of-defun)
(setq-local transpose-sexps-default-function
#'tp-transpose-sexps-default-function)
(setq end-of-defun-function #'tp--end-of-defun)
