monnier pushed a commit to branch externals/auctex
in repository elpa.
commit 130320f09aa85ba4fe33ad9ba7ef90ff2d278ba1
Author: Tassilo Horn <[email protected]>
Date: Mon Feb 25 12:05:10 2013 +0000
* tex.el (TeX-parse-macro): Add TeX group characters also in math
environments if there is an active region that should probably
used as argument.
---
ChangeLog | 4 ++++
tex.el | 18 +++++++++++-------
2 files changed, 15 insertions(+), 7 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index b5cb733..3a32d3a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
2013-02-25 Tassilo Horn <[email protected]>
+ * tex.el (TeX-parse-macro): Add TeX group characters also in math
+ environments if there is an active region that should probably
+ used as argument.
+
* latex.el (LaTeX-paragraph-commands-internal): Add \clearpage and
\newpage.
diff --git a/tex.el b/tex.el
index dc2db52..e9036ba 100644
--- a/tex.el
+++ b/tex.el
@@ -2717,15 +2717,19 @@ type of ARGS:
(numberp (car args))
(<= (car args) 0)))
(equal position (point))
- (string-match "[a-zA-Z]+" symbol)
- (not (texmathp)))
- (insert TeX-grop)
- (if (TeX-active-mark)
- (progn
+ (string-match "[a-zA-Z]+" symbol))
+ (if (texmathp)
+ (when (TeX-active-mark)
+ (insert TeX-grop)
(exchange-point-and-mark)
(insert TeX-grcl))
- (insert TeX-grcl)
- (backward-char))))))
+ (insert TeX-grop)
+ (if (TeX-active-mark)
+ (progn
+ (exchange-point-and-mark)
+ (insert TeX-grcl))
+ (insert TeX-grcl)
+ (backward-char)))))))
(defun TeX-arg-string (optional &optional prompt initial-input)
"Prompt for a string.
