/[auctex]/auctex/latex.el
ViewVC logotype

Diff of /auctex/latex.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 5.372 by angeli, Thu May 19 08:58:15 2005 UTC revision 5.373 by angeli, Tue May 31 22:33:15 2005 UTC
# Line 3303  If COUNT is non-nil, do it COUNT times." Line 3303  If COUNT is non-nil, do it COUNT times."
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)))))

Legend:
Removed from v.5.372  
changed lines
  Added in v.5.373

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26