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

[Ralf Angeli]

CVSROOT:        /cvsroot/auctex
Module name:    auctex
Changes by:     Ralf Angeli <angeli>    06/12/29 13:40:48

Index: latex.el
===================================================================
RCS file: /cvsroot/auctex/auctex/latex.el,v
retrieving revision 5.427
retrieving revision 5.428
diff -u -b -r5.427 -r5.428
--- latex.el    10 Dec 2006 13:20:49 -0000      5.427
+++ latex.el    29 Dec 2006 13:40:48 -0000      5.428
@@ -2662,7 +2662,7 @@
        (let* (linebeg
               (code-comment-start (save-excursion
                                     (LaTeX-back-to-indentation)
-                                    (LaTeX-search-forward-comment-start
+                                    (TeX-search-forward-comment-start
                                      (line-end-position))))
               (end-marker (save-excursion
                             (goto-char (or code-comment-start to))
@@ -3086,7 +3086,7 @@
        ;; A line with some code, followed by a comment?
        ((and (setq code-comment-start (save-excursion
                                        (beginning-of-line)
-                                       (LaTeX-search-forward-comment-start
+                                       (TeX-search-forward-comment-start
                                         (line-end-position))))
             (> (point) code-comment-start)
             (not (TeX-in-commented-line))
@@ -3197,7 +3197,7 @@
     (indent-according-to-mode)
     (when (when (setq code-comment-start (save-excursion
                                           (goto-char beg)
-                                          (LaTeX-search-forward-comment-start
+                                          (TeX-search-forward-comment-start
                                            (line-end-position))))
            (goto-char code-comment-start)
            (while (not (looking-at TeX-comment-start-regexp)) (forward-char))
@@ -4849,6 +4849,9 @@
         "\\$\\$" ; Plain TeX display math
         "\\|$\\)"))
 
+  (setq TeX-search-forward-comment-start-function
+       'LaTeX-search-forward-comment-start)
+
   (make-local-variable 'LaTeX-item-list)
   (setq LaTeX-item-list '(("description" . LaTeX-item-argument)
                          ("thebibliography" . LaTeX-item-bib)))