branch: externals/auctex
commit 5abc3d7f68ddc69cf3d15bca524db57a30c6f52b
Author: Paul Nelson <ultr...@gmail.com>
Commit: Arash Esbati <ar...@gnu.org>
Change some `mark-active' to `(TeX-active-mark)'
* tex-fold.el (TeX-fold-post-command):
* preview.el.in (LaTeX-preview-setup):
* tex.el (TeX-mode-specific-command-menu-entries):
Change `mark-active' to `(TeX-active-mark)' where appropriate.
(bug#70369)
---
preview.el.in | 4 ++--
tex-fold.el | 2 +-
tex.el | 2 +-
3 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/preview.el.in b/preview.el.in
index d46aadb2f1..c9d1184f07 100644
--- a/preview.el.in
+++ b/preview.el.in
@@ -3066,14 +3066,14 @@ to add the preview functionality."
["(or toggle) at point" preview-at-point]
["for environment" preview-environment]
["for section" preview-section]
- ["for region" preview-region mark-active]
+ ["for region" preview-region (TeX-active-mark)]
["for buffer" preview-buffer]
["for document" preview-document]
"---"
"Remove previews"
["at point" preview-clearout-at-point]
["from section" preview-clearout-section]
- ["from region" preview-clearout mark-active]
+ ["from region" preview-clearout (TeX-active-mark)]
["from buffer" preview-clearout-buffer]
["from document" preview-clearout-document]
"---"
diff --git a/tex-fold.el b/tex-fold.el
index fadc145a13..3328320468 100644
--- a/tex-fold.el
+++ b/tex-fold.el
@@ -911,7 +911,7 @@ Return non-nil if called by one of the commands in LIST."
(TeX-fold-auto-reveal-p TeX-fold-auto-reveal))
;; Open new overlays.
(dolist (ol (nconc (when (and TeX-fold-unfold-around-mark
- mark-active)
+ (TeX-active-mark))
(overlays-at (mark)))
(overlays-at (point))))
(when (eq (overlay-get ol 'category) 'TeX-fold)
diff --git a/tex.el b/tex.el
index c4e4104e77..20ee691edb 100644
--- a/tex.el
+++ b/tex.el
@@ -5153,7 +5153,7 @@ Brace insertion is only done if point is in a math
construct and
(<= (prefix-numeric-value prefix-arg) 0)
(and (boundp 'TeX-command-region-begin)
(markerp TeX-command-region-begin)))
- mark-active)
+ (TeX-active-mark))
;;:visible (eq TeX-command-current 'TeX-command-region)
:style toggle
:selected (and (boundp 'TeX-command-region-begin)
