[AUCTeX-diffs] Changes to auctex/tex.el

[Ralf Angeli]

Index: auctex/tex.el
diff -u auctex/tex.el:5.546 auctex/tex.el:5.547
--- auctex/tex.el:5.546 Sat Nov 12 09:37:21 2005
+++ auctex/tex.el       Fri Nov 18 14:39:36 2005
@@ -2667,10 +2667,10 @@
   (if (featurep 'mule)
       "\\(?:[a-zA-Z]\\|\\cj\\)"
     "[a-zA-Z]")
-  "Regexp to match TeX token charactor.
+  "Regexp matching a character in a TeX macro.
 
-Please use shy group if you use a grouping construct, because the
-functions/variables which use `TeX-token-char' expect not to
+Please use a shy group if you use a grouping construct, because
+the functions/variables which use `TeX-token-char' expect not to
 alter the numbering of any ordinary, non-shy groups.")
 
 (defvar plain-TeX-auto-regexp-list
@@ -4539,12 +4539,22 @@
 (defun TeX-insert-braces (arg)
   "Make a pair of braces around next ARG sexps and leave point inside.
 No argument is equivalent to zero: just insert braces and leave point
-between."
+between.
+
+If there is an active region, ARG will be ignored, braces will be
+inserted around the region, and point will be left after the
+closing brace."
   (interactive "P")
-  (insert TeX-grop)
-  (save-excursion
-    (if arg (forward-sexp (prefix-numeric-value arg)))
-    (insert TeX-grcl)))
+  (if (TeX-active-mark)
+      (progn
+       (insert TeX-grcl)
+       (save-excursion
+         (goto-char (mark))
+         (insert TeX-grop)))
+    (insert TeX-grop)
+    (save-excursion
+      (if arg (forward-sexp (prefix-numeric-value arg)))
+      (insert TeX-grcl))))
 
 (defun TeX-goto-info-page ()
   "Read documentation for AUCTeX in the info system."