Changes to auctex/tex.el,v

CVSROOT:        /cvsroot/auctex
Module name:    auctex
Changes by:     Ralf Angeli <angeli>    07/07/01 07:23:53

Index: tex.el
===================================================================
RCS file: /cvsroot/auctex/auctex/tex.el,v
retrieving revision 5.608
retrieving revision 5.609
diff -u -b -r5.608 -r5.609
--- tex.el      9 Apr 2007 15:46:27 -0000       5.608
+++ tex.el      1 Jul 2007 07:23:53 -0000       5.609
@@ -4598,13 +4598,14 @@
 (defun TeX-insert-dollar (&optional arg)
   "Insert dollar sign.
 
-If current math mode was not entered with a dollar, refuse to insert one.
-Show matching dollar sign if this dollar sign ends the TeX math mode.
-Ensure double dollar signs match up correctly by inserting extra
-dollar signs when needed.
+If current math mode was not entered with a dollar, refuse to
+insert one.  Show matching dollar sign if this dollar sign ends
+the TeX math mode and `blink-matching-paren' is non-nil.  Ensure
+double dollar signs match up correctly by inserting extra dollar
+signs when needed.
 
-With raw \\[universal-argument] prefix, insert exactly one dollar sign.
-With optional ARG, insert that many dollar signs."
+With raw \\[universal-argument] prefix, insert exactly one dollar
+sign.  With optional ARG, insert that many dollar signs."
   (interactive "P")
   (cond
    ((and arg (listp arg))
@@ -4625,8 +4626,10 @@
          (if TeX-math-close-double-dollar
              (insert (car texmathp-why))
            (insert "$"))
-         (when (or (string= (car texmathp-why) "$")
-                   (zerop (mod (save-excursion (skip-chars-backward "$")) 2)))
+         (when (and blink-matching-paren
+                    (or (string= (car texmathp-why) "$")
+                        (zerop (mod (save-excursion
+                                      (skip-chars-backward "$")) 2))))
            (save-excursion
              (goto-char (cdr texmathp-why))
              (if (pos-visible-in-window-p)