[AUCTeX-diffs] Changes to auctex/latex.el,v

[Ralf Angeli]

CVSROOT:        /cvsroot/auctex
Module name:    auctex
Changes by:     Ralf Angeli <angeli>    07/10/11 20:30:36

Index: latex.el
===================================================================
RCS file: /cvsroot/auctex/auctex/latex.el,v
retrieving revision 5.438
retrieving revision 5.439
diff -u -b -r5.438 -r5.439
--- latex.el    1 Jul 2007 09:54:31 -0000       5.438
+++ latex.el    11 Oct 2007 20:30:35 -0000      5.439
@@ -1728,10 +1728,14 @@
   "Prompt for delimiter and text."
   (let ((del (read-quoted-char
              (concat "Delimiter: (default "
-                     (char-to-string LaTeX-default-verb-delimiter) ") ")))
-       (text (read-from-minibuffer "Text: ")))
+                     (char-to-string LaTeX-default-verb-delimiter) ") "))))
     (when (<= del ?\ ) (setq del LaTeX-default-verb-delimiter))
-    (insert del text del)
+    (if (TeX-active-mark)
+       (progn
+         (insert del)
+         (goto-char (mark))
+         (insert del))
+      (insert del (read-from-minibuffer "Text: ") del))
     (setq LaTeX-default-verb-delimiter del)))
 
 (defun TeX-arg-pair (optional first second)