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

[Ralf Angeli]

Index: auctex/latex.el
diff -u auctex/latex.el:5.372 auctex/latex.el:5.373
--- auctex/latex.el:5.372       Thu May 19 08:58:15 2005
+++ auctex/latex.el     Tue May 31 22:33:15 2005
@@ -3303,39 +3303,36 @@
                  (point))
                ;; Search for possible paragraph commands.
                (save-excursion
-                 (let (break-flag
-                       end-point)
-                   (while (and (> (point) limit)
-                               (not (bobp))
-                               (forward-line -1)
-                               (not break-flag))
-                     (when (looking-at
-                            (concat "^[ \t]*" TeX-comment-start-regexp "*"
-                                    "[ \t]*\\("
-                                    LaTeX-paragraph-commands-regexp "\\)"))
-                       (save-excursion
-                         (goto-char (match-beginning 1))
-                         (save-match-data
-                           (goto-char (TeX-find-macro-end)))
-                         ;; For an explanation of this distinction
-                         ;; see `LaTeX-forward-paragraph'.
-                         (if (save-match-data
-                               (looking-at
-                                (concat (regexp-quote TeX-esc) 
"address@hidden|"
-                                        "[ \t]*\\($\\|"
-                                        TeX-comment-start-regexp "\\)")))
-                             (progn
-                               (when (looking-at
-                                      (concat (regexp-quote TeX-esc)
-                                              "address@hidden"))
-                                 (goto-char (TeX-find-macro-end)))
-                               (forward-line 1)
-                               (setq end-point (if (< (point) start)
-                                                   (point)
-                                                 0)))
-                           (setq end-point (match-beginning 0))))
-                       (setq break-flag t)))
-                   (if end-point
+                 (let (end-point)
+                   (catch 'found
+                     (while (and (> (point) limit)
+                                 (not (bobp))
+                                 (forward-line -1))
+                       (when (looking-at
+                              (concat "^[ \t]*" TeX-comment-start-regexp "*"
+                                      "[ \t]*\\("
+                                      LaTeX-paragraph-commands-regexp "\\)"))
+                         (save-excursion
+                           (goto-char (match-beginning 1))
+                           (save-match-data
+                             (goto-char (TeX-find-macro-end)))
+                           ;; For an explanation of this distinction
+                           ;; see `LaTeX-forward-paragraph'.
+                           (if (save-match-data
+                                 (looking-at
+                                  (concat (regexp-quote TeX-esc) 
"address@hidden"
+                                          "\\|[ \t]*\\($\\|"
+                                          TeX-comment-start-regexp "\\)")))
+                               (progn
+                                 (when (eq (char-after) ?\\)
+                                   (goto-char (TeX-find-macro-end)))
+                                 (forward-line 1)
+                                 (setq end-point (if (< (point) start)
+                                                     (point)
+                                                   0)))
+                             (setq end-point (match-beginning 0))))
+                         (throw 'found nil))))
+                     (if end-point
                        end-point
                      0))))))
        (beginning-of-line)))))