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) "[EMAIL
PROTECTED]|"
- "[ \t]*\\($\\|"
- TeX-comment-start-regexp "\\)")))
- (progn
- (when (looking-at
- (concat (regexp-quote TeX-esc)
- "[EMAIL PROTECTED]"))
- (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) "[EMAIL
PROTECTED]"
+ "\\|[ \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)))))
_______________________________________________
auctex-diffs mailing list
[EMAIL PROTECTED]
http://lists.gnu.org/mailman/listinfo/auctex-diffs
