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)
_______________________________________________
auctex-diffs mailing list
[EMAIL PROTECTED]
http://lists.gnu.org/mailman/listinfo/auctex-diffs
