3303 |
(point)) |
(point)) |
3304 |
;; Search for possible paragraph commands. |
;; Search for possible paragraph commands. |
3305 |
(save-excursion |
(save-excursion |
3306 |
(let (break-flag |
(let (end-point) |
3307 |
end-point) |
(catch 'found |
3308 |
(while (and (> (point) limit) |
(while (and (> (point) limit) |
3309 |
(not (bobp)) |
(not (bobp)) |
3310 |
(forward-line -1) |
(forward-line -1)) |
3311 |
(not break-flag)) |
(when (looking-at |
3312 |
(when (looking-at |
(concat "^[ \t]*" TeX-comment-start-regexp "*" |
3313 |
(concat "^[ \t]*" TeX-comment-start-regexp "*" |
"[ \t]*\\(" |
3314 |
"[ \t]*\\(" |
LaTeX-paragraph-commands-regexp "\\)")) |
3315 |
LaTeX-paragraph-commands-regexp "\\)")) |
(save-excursion |
3316 |
(save-excursion |
(goto-char (match-beginning 1)) |
3317 |
(goto-char (match-beginning 1)) |
(save-match-data |
3318 |
(save-match-data |
(goto-char (TeX-find-macro-end))) |
3319 |
(goto-char (TeX-find-macro-end))) |
;; For an explanation of this distinction |
3320 |
;; For an explanation of this distinction |
;; see `LaTeX-forward-paragraph'. |
3321 |
;; see `LaTeX-forward-paragraph'. |
(if (save-match-data |
3322 |
(if (save-match-data |
(looking-at |
3323 |
(looking-at |
(concat (regexp-quote TeX-esc) "[@A-Za-z]+" |
3324 |
(concat (regexp-quote TeX-esc) "[@A-Za-z]+\\|" |
"\\|[ \t]*\\($\\|" |
3325 |
"[ \t]*\\($\\|" |
TeX-comment-start-regexp "\\)"))) |
3326 |
TeX-comment-start-regexp "\\)"))) |
(progn |
3327 |
(progn |
(when (eq (char-after) ?\\) |
3328 |
(when (looking-at |
(goto-char (TeX-find-macro-end))) |
3329 |
(concat (regexp-quote TeX-esc) |
(forward-line 1) |
3330 |
"[@A-Za-z]+")) |
(setq end-point (if (< (point) start) |
3331 |
(goto-char (TeX-find-macro-end))) |
(point) |
3332 |
(forward-line 1) |
0))) |
3333 |
(setq end-point (if (< (point) start) |
(setq end-point (match-beginning 0)))) |
3334 |
(point) |
(throw 'found nil)))) |
3335 |
0))) |
(if end-point |
|
(setq end-point (match-beginning 0)))) |
|
|
(setq break-flag t))) |
|
|
(if end-point |
|
3336 |
end-point |
end-point |
3337 |
0)))))) |
0)))))) |
3338 |
(beginning-of-line))))) |
(beginning-of-line))))) |