[elpa] 65/299: * 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.

[Stefan Monnier]

monnier pushed a commit to branch externals/auctex
in repository elpa.

commit 130320f09aa85ba4fe33ad9ba7ef90ff2d278ba1
Author: Tassilo Horn <address@hidden>
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  <address@hidden>
 
+       * 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.