[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[AUCTeX-diffs] Changes to auctex/latex.el
From: |
Ralf Angeli |
Subject: |
[AUCTeX-diffs] Changes to auctex/latex.el |
Date: |
Tue, 31 May 2005 18:33:16 -0400 |
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)))))
- [AUCTeX-diffs] Changes to auctex/latex.el, David Kastrup, 2005/05/01
- [AUCTeX-diffs] Changes to auctex/latex.el, Ralf Angeli, 2005/05/11
- [AUCTeX-diffs] Changes to auctex/latex.el, Ralf Angeli, 2005/05/12
- [AUCTeX-diffs] Changes to auctex/latex.el, Masayuki Ataka, 2005/05/14
- [AUCTeX-diffs] Changes to auctex/latex.el, Ralf Angeli, 2005/05/14
- [AUCTeX-diffs] Changes to auctex/latex.el, Ralf Angeli, 2005/05/14
- [AUCTeX-diffs] Changes to auctex/latex.el, David Kastrup, 2005/05/18
- [AUCTeX-diffs] Changes to auctex/latex.el, Ralf Angeli, 2005/05/19
- [AUCTeX-diffs] Changes to auctex/latex.el,
Ralf Angeli <=
- [AUCTeX-diffs] Changes to auctex/latex.el, Ralf Angeli, 2005/05/31