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

[Ralf Angeli]

CVSROOT:        /cvsroot/auctex
Module name:    auctex
Changes by:     Ralf Angeli <angeli>    06/07/10 19:32:19

Index: tex.el
===================================================================
RCS file: /cvsroot/auctex/auctex/tex.el,v
retrieving revision 5.581
retrieving revision 5.582
diff -u -b -r5.581 -r5.582
--- tex.el      7 Jul 2006 19:08:46 -0000       5.581
+++ tex.el      10 Jul 2006 19:32:19 -0000      5.582
@@ -4451,6 +4451,11 @@
   :group 'TeX-macro
   :type 'boolean)
 
+(defcustom TeX-math-close-double-dollar nil
+  "If non-nil close double dollar math by typing a single `$'."
+  :group 'TeX-macro
+  :type 'boolean)
+
 (defun TeX-insert-dollar (&optional arg)
   "Insert dollar sign.
 
@@ -4478,14 +4483,18 @@
             (string-equal (substring (car texmathp-why) 0 1) "\$"))
        ;; Math mode was turned on with $ or $$ - so finish it accordingly.
        (progn
+         (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)))
          (save-excursion
            (goto-char (cdr texmathp-why))
            (if (pos-visible-in-window-p)
                (sit-for 1)
              (message "Matches %s"
-                      (buffer-substring (point)
-                                        (progn (end-of-line) (point)))))))
+                        (buffer-substring
+                         (point) (progn (end-of-line) (point))))))))
       ;; Math mode was not entered with dollar - we cannot finish it with one.
       (message "Math mode started with `%s' cannot be closed with dollar"
               (car texmathp-why))